Das  Buch,  das  keine 
Fragen  offen  läßt: 
Programmierung  von 
Grafik,  Sound  und  Floppy, 
in  BASIC  und  Assemmer. 
Anwendungen  wie  GEOS 
2.0,  DFÜ,  DTP, 
Textverarbeitung, 
Spiele... 


DATA  BECKER 


Hecht 


DATA  BECKER 


Copyright 

© 1989  by  DATA  BECKER  GmbH 
Merowingerstr.  30 
4000  Düsseldorf  1 

2.  unveränderte  Auflage  1989 

Umschlaggestaltung 

Harald  Müller 

Text  verarbeitet  mit 

Word  4.0,  Microsoft 

Druck  und 
buchbinderische  Verarbeitung 

Elsnerdruck,  Berlin 

Alle  Rechte  Vorbehalten.  Kein  Teil  dieses  Buches  darf 
in  irgendeiner  Form  (Druck,  Fotokopie  oder  einem 
anderen  Verfahren)  ohne  schriftliche  Genehmigung  der 
DATA  BECKER  GmbH  reproduziert  oder  unter 
Verwendung  elektronischer  Systeme  verarbeitet, 
vervielfältigt  oder  verbreitet  werden. 

ISBN  3-8901 1-370-2 

Wichtiger  Hinweis 

Die  in  diesem  Buch  wiedergegebenen  Verfahren  und  Programme  werden  ohne  Rücksicht 
auf  die  Patentlage  mitgeteilt.  Sie  sind  ausschließlich  für  Amateur-  und  Lehrzwecke  be- 
stimmt und  dürfen  nicht  gewerblich  genutzt  werden. 

Alle  technischen  Angaben  und  Programme  in  diesem  Buch  wurden  von  dem  Autor  mit 
größter  Sorgfalt  erarbeitet  bzw.  zusammengestellt  und  unter  Einschaltung  wirksamer  Kon- 
trollmaßnahmen  reproduziert.  Trotzdem  sind  Fehler  nicht  ganz  auszuschließen.  DATA 
BECKER  sieht  sich  deshalb  gezwungen,  darauf  hinzuweisen,  daß  weder  eine  Garantie 
noch  die  juristische  Verantwortung  oder  irgendeine  Haftung  für  Folgen,  die  auf  fehlerhafte 
Angaben  zurückgehen,  übernommen  werden  kann.  Für  die  Mitteilung  eventueller  Fehler 
ist  der  Autor  jederzeit  dankbar. 


Aus  drucktechnischen  Gründen  sind  bei  den  folgenden  Listings  einige  Zeilen  in  eine 
neue  Zeile  umgebrochen  worden,  z.B.: 

270  A = AD:  GOSUB  3240:  PR$  = A$  + "<  2 SPACE>":  GOSUB  2000:  IF  LEFT$  (X$, 3) 
= “.EN"  THEN  1000 


Geben  Sie  diese  bitte  als  eine  Zeile  ein. 

Listing:  ASSEMBLER  Seite  414  bis  42 2 

SIMULATOR  Seite  424  bis  432 

DISASSEMBLER  Seite  432  bis  435 


Vorwort 


Weit  über  eine  Million  Commodore  64  wurden  bisher  allein  in 
Deutschland  verkauft  und  trotz  starker  Konkurrenz  - durch  den 
Amiga  500  auch  aus  eigenem  Hause  - hält  sich  der  gute,  alte 
64’er  nach  wie  vor  erstaunlich  gut.  Das  ist  auch  nicht  weiter 
verwunderlich.  Nicht  zuletzt  dank  des  mittlerweile  extrem  gün- 
stigen Preises  (als  ich  mir  vor  fast  vier  Jahren  meinen  64’er  zu- 
legte, kostete  er  noch  rund  600  Mark)  dürfte  der  Commodore  64 
nach  wie  vor  der  ideale  Einsteigercomputer  sein.  Was  man  aller- 
dings schmerzlich  vermißt,  ist  eine  ausführliche  Dokumentation. 
Das  spärliche  Handbuch  wird  wohl  jeder  bald  enttäuscht  zur 
Seite  legen. 

An  diesem  Punkt  setzt  das  große  Buch  zum  Commodore  64  an. 
Ich  möchte  Ihnen  in  diesem  Buch  zeigen,  was  alles  im  Commo- 
dore 64  steckt  und  - vor  allem  - wie  man  ihn  sich  nutzbar 
macht.  Allein  zum  Spielen  ist  der  64’er  nämlich  viel  zu  schade! 
Ein  großer  Schwerpunkt  bildet  dabei  die  vielleicht  kreativste 
Tätigkeit  im  Zusammenhang  mit  Computern:  das  Programmieren. 
Gerade  beim  Commodore  64  ist  es  ein  Leichtes,  sich  die 
Grundlagen  der  Programmierung  zu  erarbeiten.  Dabei  möchte 
ich  Sie  durch  zwei  große  Einführungskurse  in  die  Sprachen 
BASIC  und  Assembler  und  viele  praktische  Tips  und  Hilfen  zur 
Systemprogrammierung  tatkräftig  unterstützen. 

Vielleicht  lesen  Sie  dieses  Vorwort  gerade  in  einem  Computer- 
geschäft und  fragen  sich  nun,  ob  es  sich  für  Sie  lohnt,  das  Buch 
zu  kaufen.  Und  wenn  Sie  es  sich  schon  gekauft  haben,  dann 
kann  ein  kleiner  Überblick  ja  erst  recht  nicht  schaden.  Schauen 
wir  uns  also  einmal  im  Detail  an,  was  Sie  in  den  einzelnen  Ka- 
piteln an  Themen  erwartet. 

Kapitel  1 enthält  eine  Einführung  in  den  Commodore  64.  Falls 
Sie  sich  Ihren  64’er  erst  vor  kurzem  gekauft  haben  und  noch 
nicht  so  recht  wissen,  wo  Sie  was  anschließen  müssen  oder  wie 
man  die  verschiedenen  Arten  von  Software  zum  Laufen  bringt, 
so  steht  Ihnen  Kapitel  1 mit  Rat  und  Tat  zur  Seite. 


In  Kapitel  2 möchte  ich  Ihnen  zeigen,  was  man  auf  dem  Com- 
modore  64  mit  Hilfe  kommerzieller  Hardware-  und  Software- 
Produkte  alles  machen  kann.  Neben  den  "klassischen"  Anwen- 
dungsbereichen, wie  etwa  Text-  und  Datenverarbeitung,  geht  es 
dabei  auch  um  so  aktuelle  Themen  wie,  Desktop  Publishing  oder 
Daten-Fernübertragung  (DFÜ).  Und  natürlich  wurde  auch  der 
Spielebereich  nicht  vergessen.  Einen  weiteren  Schwerpunkt  bil- 
det der  Bereich  "Lern-Software".  Der  Computer  ist  schließlich 
immer  noch  der  geduldigste  Lehrer  und  im  Endeffekt  auch  we- 
sentlich billiger  als  Nachhilfestunden. 

In  Kapitel  3 steigen  wir  dann  in  die  Programmierung  ein.  In  ei- 
nem ausführlichen  und  leicht  verständlichen  Kurs  erfahren  Sie 
alles  über  die  Programmiersprache  BASIC.  Schon  nach  wenigen 
Tagen  werden  Sie  in  der  Lage  sein,  Ihre  ersten  eigenen  Pro- 
gramme zu  schreiben. 

Nachdem  Sie  sich  in  BASIC  eingearbeitet  haben,  wird  es  Ihnen 
auch  nicht  mehr  schwer  fallen,  die  zweite  Programmiersprache 
des  Commodore  64,  Assembler  oder  Maschinensprache  (mit  bei- 
dem  meint  man  letztendlich  dasselbe),  zu  erlernen.  Maschinen- 
sprache wird  gerne  als  "Profi-Sprache"  bezeichnet,  da  sie  erheb- 
lich schneller  und  effizienter,  dafür  aber  auch  schwerer  zu 
handhaben  ist  als  BASIC.  Daß  der  letzte  Punkt  nicht  unbedingt 
zutreffen  muß,  zeigt  Kapitel  4.  Hier  erhalten  Sie  den  letzten 
"Schliff' auf  dem  Weg  zum  Programmier-Profi. 

Die  Kapitel  5 bis  8 befassen  sich  mit  der  Systemprogrammie- 
rung. Wie  Sie  schon  bald  feststellen  werden,  unterstützt  die  Pro- 
grammiersprache BASIC  die  Fähigkeiten  des  Commdore  64  nur 
sehr  unzureichend.  Ich  werde  Ihnen  deshalb  eine  Vielzahl  "ge- 
brauchsfertiger" Maschinenprogramme  vorstellen,  mit  denen  Sie 
das  BASIC  ihres  64’er  "tunen"  können.  Alle  derartigen  Pro- 
gramme können  Sie  dank  sogenannter  BASIC-Lader  auch  ohne 
jegliche  Maschinensprache-Kenntnisse  nutzen.  In  praktisch  allen 
Ihren  Programmen  werden  Sie  irgendwelche  Daten  dauerhaft 
speichern  müssen.  Die  Datenverwaltung  mit  Floppy  und  Data- 
sette  wird  daher  in  den  Kapiteln  5 und  10  ausführlich  be- 
sprochen. 


Kapitel  6 widmet  sich  dem  vielleicht  faszinierendsten  Program- 
miergebiet auf  dem  Commodore  64:  der  Grafikprogrammierung. 
Hier  erfahren  Sie  alles  Wissenswerte  zur  Programmierung  der 
hochauflösenden  Grafik,  zur  Arbeit  mit  den  sogenannten  Sprites 
und  zum  Entwurf  eigener  Zeichensätze. 

Kapitel  7 hat  ein  nicht  minder  faszinierendes  Thema  zum  Ge- 
genstand: die  Programmierung  von  Sound  und  Musik. 

Kapitel  8 befaßt  sich  mit  den  etwas  spezielleren  Schnittstellen 
des  Commodore  64,  den  Joystick-Anschlüssen,  dem  User-Port 
und  dem  Expansion-Port.  Besonders  interessant  dürfte  dabei  die 
Realisierung  einer  RS-232-Schnittstelle  am  User-Port  sein. 

Technisch  Interessierte  erfahren  in  Kapitel  9 alles  Wissenswerte 
zur  Wartung  und  Pflege  ihrer  Floppy  1541.  Kapitel  10  hingegen 
ist  eine  wahre  Fundgrube  für  alle  Besitzer  der  Datasette  1530. 
Daß  man  als  Nicht-Floppy-Besitzer  durchaus  auch  mit  der  Da- 
tasette vernünftig  arbeiten  kann,  wird  hier  gezeigt.  Sogar  ein 
neues  Betriebssystem,  das  unter  anderem  bis  zu  20-mal  schnel- 
leres Laden  erlaubt,  ist  Bestandteil  dieses  Kapitels. 

Der  Anhang  schließlich  enthält  eine  umfangreiche  Sammlung 
nützlicher  Referenzen  und  Tabellen  zum  schnellen  Nachschlagen. 
Sie  sehen  also,  es  erwartet  Sie  eine  riesige  Fülle  an  hochinteres- 
santen und  überaus  nützlichen  Informationen.  Bleibt  mir  nur. 
Ihnen  viel  Spaß  beim  Lesen  und  viel  Erfolg  bei  der  Arbeit  mit 
Ihrem  Commodore  64  zu  wünschen. 

Doch  ich  möchte  nicht  vergessen,  all  den  Leuten  herzlich  zu 
danken,  die  mir  bei  der  Fertigstellung  dieses  Buches  behilflich 
waren  und  mich  insbesondere  für  das  Kapitel  2 mit  vielen  Tips 
und  Informationen  versorgt  haben.  Mein  ganz  besonderer  Dank 
gilt  jedoch  Rolf  Brückmann,  Lothar  Englisch,  Jaques  Feit,  Ralf 
Gelfand,  Klaus  Gerits,  Reinhold  Herrmann,  Rüdiger  Kerkloh, 
Darko  Krsnik,  Hans  Joachim  Liesert,  Dirk  Paulissen,  Andreas 
Polk,  Michael  Strauch  sowie  Manfred  und  Helmut  Tornsdorf. 


Martin  Hecht 


Stuttgart,  im  Oktober  1989 
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1.  Einführung 


Sie  haben  sich  also  einen  Commodore  64  gekauft.  Und  nun 
brennen  Sie  natürlich  darauf,  Ihrem  Gerät  die  ersten  Reaktionen 
zu  entlocken.  Doch  schön  der  Reihe  nach.  Bevor  wir  uns  den 
64’er  genauer  anschauen,  möchte  ich  Sie  zunächst  mit  den  bei- 
den vielleicht  wichtigsten  Fachbegriffen  in  der  Welt  der  Com- 
puter vertraut  machen:  der  Hardware  und  der  Software. 

All  das,  was  man  beim  Computer  anfassen  kann,  bezeichnet  man 
allgemein  als  Hardware.  Dazu  zählen  neben  der  Computerkonsole 
selbst  beispielsweise  die  Anschlußkabel,  das  Netzteil,  aber  auch 
Bildschirme,  Drucker  und  sonstige  Zusatzgeräte.  Vereinfacht 
gesagt  handelt  es  sich  bei  der  Hardware  also  um  elektrische  und 
elektronische  Bauteile  im  weitesten  Sinne. 

Mit  der  Hardware  allein  läßt  sich  noch  nichts  anfangen.  Um  den 
Computer  zum  Leben  zu  erwecken,  benötigt  man  Software.  Da- 
mit meint  man  die  Programme,  die  der  Hardware  "sagen",  was 
sie  tun  soll.  Solche  Programme  können  Sie  auch  selbst  schreiben. 
Der  Commodore  64  verfügt  dazu  über  eine  eingebaute  Program- 
miersprache, das  BASIC.  Dazu  jedoch  später  mehr. 

Vielleicht  wundern  Sie  sich,  warum  ich  Ihnen  all  das  gleich  ganz 
am  Anfang  erkläre.  Das  hat  jedoch  einen  wichtigen  Grund: 
Während  man  bei  der  Arbeit  mit  Software  grundsätzlich  am 
Rechner  nichts  "kaputt  machen"  kann,  sollte  man  beim  Umgang 
mit  der  Hardware  sehr  vorsichtig  sein.  Ein  falsch  angeschlos- 
senes Kabel  oder  ein  unbedachter  Griff  an  ein  elektronisches 
Bauteil  kann  sehr  schnell  ernste  und  vor  allem  kostspielige  Schä- 
den am  Computer  nach  sich  ziehen.  Wenn  Sie  dagegen  Software 
nutzen,  also  zum  Beispiel  ein  BASIC-Programm  schreiben  oder 
mit  einer  Textverarbeitung  einen  Brief  erstellen,  bekommen  Sie 
im  schlimmsten  Fall  einen  sogenannten  "Systemabsturz",  nach 
dem  der  Rechner  zu  keiner  vernünftigen  Reaktion  mehr  zu  be- 
wegen ist.  Solch  ein  Systemabsturz  läßt  sich  leicht  beheben:  ein- 
fach den  Rechner  aus-  und  wieder  einschalten.  Danach  ist  alles 
wieder  beim  alten!  Irgendein  Schaden  am  Rechner  entsteht  nicht. 
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Ganz  ohne  Folgen  ist  allerdings  auch  ein  solcher  Absturz,  der  in 
der  Regel  durch  einen  Fehler  im  abgearbeiteten  Programm  ver- 
ursacht wird,  nicht.  Durch  das  Ausschalten  des  Rechners  wird 
nämlich  der  Speicher  des  Commodore  64  vollständig  gelöscht. 
Das  Programm  und  die  Daten,  die  sich  evtl,  im  Rechner  be- 
fanden, gehen  dadurch  unwiderbringlich  verloren.  Aber  auch 
dieses  Problem  läßt  sich  leicht  lösen,  indem  man  seine  Pro- 
gramme und  Daten  auf  einem  dauerhaften  Speichermedium  ab- 
speichert. Dazu  gleich  mehr. 


1.1  Den  C64  kennenlernen 

Nachdem  Sie  den  Commodore  64  ausgepackt  haben,  müßten  Sie 
drei  "Einzelteile"  vor  sich  liegen  haben.  Die  Computerkonsole, 
ein  Netzteil  sowie  ein  Kabel,  mit  dem  Sie  den  Rechner  mit  ei- 
nem Fernseher  verbinden  können. 

Der  im  Netzteil  eingebaute  Trafo  versorgt  den  Commodore  64 
mit  der  erforderlichen  Versorgungsspannung.  Nach  einigen  Stun- 
den Betrieb  wird  das  Netzteil  recht  heiß  und  eignet  sich  dann 
vorzüglich  als  Fußwärmer.  Ansonsten  ist  an  diesem  Bauteil  aber 
nichts  weiter  interessant. 

Schauen  wir  uns  also  die  Computerkonsole  einmal  genauer  an. 
Im  Gegensatz  zu  professionellen  Personalcomputern,  die  meist 
über  eine  abgesetzte  Tastatur  verfügen,  hat  man  beim  Commo- 
dore 64  alles  in  einem  Stück.  Die  Tastatur  erinnert  an  eine 
Schreibmaschinentastatur.  Wenn  Sie  allerdings  genauer  hin- 
schauen,  werden  Sie  feststellen,  daß  die  deutschen  Umlaute  feh- 
len und  einige  Tasten,  insbesondere  <Z>  und  <Y>,  anders  ange- 
ordnet sind.  Der  64’er  kann  seine  Herkunft  nicht  verleugnen.  Er 
verfügt  über  eine  amerikanische  Tastaturbelegung.  Ich  werde  Ih- 
nen aber  in  Kapitel  6,  in  dem  wir  uns  der  Grafikprogrammie- 
rung widmen,  zeigen,  wie  man  ihm,  wenn  auch  auf  Umwegen, 
doch  noch  zu  einer  deutschen  Belegung  verhelfen  kann. 

Auf  der  rechten  Seite  sowie  auf  der  Rückseite  des  Gehäuses  be- 
finden sich  allerlei  Anschlüsse.  Für  sie  im  Moment  am  wichtig- 
sten sind  zwei  Anschlüsse:  die  Spannungsversorgung  und  der 
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TV- Anschluß.  Dabei  möchte  ich  einmal  davon  ausgehen,  daß  Sie 
den  Commodore  64  an  einen  Fernseher  anschließen  wollen. 

Auf  der  rechten  Seite  des  Gehäuses  ganz  hinten  finden  Sie  den 
Anschluß  für  die  Spannungs Versorgung.  Hier  müssen  Sie  den 
Gerätestecker  vom  Netzteil  einstecken.  Der  andere  Stecker  des 
Kabels  kommt  in  die  Steckdose.  Das  dürfte  klar  sein. 

Direkt  neben  dem  Spannungsversorgungsanschluß  befindet  sich 
der  Ein-/Ausschalter.  Sobald  Sie  den  Schalter  umlegen,  leuchtet 
die  rote  LED  an  der  Oberseite  des  Gehäuses  und  zeigt  Ihnen  an, 
daß  der  Commodore  64  betriebsbereit  ist.  Einschalten  sollten  Sie 
den  Rechner  allerdings  erst,  sobald  Sie  ihn  mit  dem  Fernseher 
verbunden  haben.  Also  noch  etwas  Geduld. 

Daß  sich  der  Ein-/Ausschalter  an  der  Computerkonsole  und 
nicht  am  Netzteil  selbst  befindet,  hat  einen  kleinen  Nachteil. 
Dadurch  wird  das  Netzteil  nämlich  auch  nach  dem  Ausschalten 
des  Rechners  nicht  völlig  vom  Stromnetz  abgetrennt.  Bemerkbar 
macht  sich  das  an  einer  leichten  Erwärmung  des  Netzteils,  auch 
wenn  Sie  den  Commodore  64  längere  Zeit  gar  nicht  eingeschaltet 
hatten.  Für  das  Netzteil  ist  das  aber  nicht  weiter  schädlich. 
Trotzdem  empfiehlt  es  sich,  zusätzlich  den  Netzstecker  zu  zie- 
hen, wenn  Sie  längere  Zeit  nicht  mit  dem  Rechner  arbeiten. 

Die  beiden  Anschlüsse  vor  dem  Ein-/Ausschalter  sind  für  soge- 
nannte Joysticks  gedacht.  Diese  sind  insbesondere  zur  Steuerung 
von  Spielen  sehr  wichtig.  Mit  einem  Joystick  können  Sie  zum 
Beispiel  ein  Raumschiff  oder  sonst  eine  spielerische  Figur  über 
den  Bildschirm  steuern.  Aber  auch  die  Benutzeroberfläche  GEOS 
läßt  sich  mit  einem  Joystick  bedienen.  Für  manche  Anwendun- 
gen ist  dem  Joystick  eine  sogenannte  Proportional-Maus  vorzu- 
ziehen. Diese  kann  ebenfalls  an  einem  der  beiden  "Control- 
Ports",  so  der  Name  der  Anschlüsse,  angeschlossen  werden. 

Daß  es  gleich  zwei  Control-Ports  gibt,  ist  nicht  ohne  Grund: 
Viele  Spiele  bieten  nämlich  die  Möglichkeit,  zu  zweit  zu  spielen. 
In  diesem  Fall  steuert  dann  der  eine  Spieler  seine  Spielfiguren 
über  Control-Port  1 und  der  zweite  Spieler  seine  über  Control- 
Port  2.  Nicht  wenige  Programme  unterstützen  aber  nur  einen  der 
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beiden  Anschlüsse.  Die  Frage  ist  dann,  welchen?  Da  kann  es  Ih- 
nen leicht  passieren,  daß  Sie  den  Joystick  am  Control-Port  1 an- 
schließen, das  Programm  unterstützt  aber  nur  den  Control-Port 
2.  Ein  Blick  in  die  Bedienungsanleitung  des  betreffenden  Pro- 
gramms sorgt  hier  meist  schnell  für  Klarheit. 

Auf  der  Rückseite  des  Gehäuses  befinden  sich  die  meisten  An- 
schlüsse. Fangen  wir  ganz  links  an.  Da  wäre  zunächst  der  soge- 
nannte User-Port.  Dabei  handelt  es  sich  um  einen  etwas  speziel- 
len Anschluß,  der  sich  aber  sehr  flexibel  einsetzen  läßt.  So  läßt 
sich  hier  zum  Beispiel  ein  Drucker  aus  dem  PC-Bereich  an- 
schließen. 

Daneben  finden  Sie  den  Anschluß  für  die  Datasette.  Das  ist  ein 
Kassettenlaufwerk,  mit  dem  Sie  auf  handelsüblichen  Musikkas- 
setten Programme  und  Daten  auf zeichnen  können.  Die  Datasette 
bezieht  auch  ihre  Stromversorgung  aus  diesem  Anschluß,  so  daß 
Sie  keinen  separaten  Stromanschluß  benötigen. 

Der  runde  Anschluß  daneben  ist  zum  Anschluß  einer  Floppy, 
einem  Diskettenlaufwerk,  gedacht.  Eine  Floppy  hat  im  Vergleich 
zu  einer  Datasette  viele  Vorteile,  ist  aber  auch  wesentlich  teue- 
rer. Ein  von  Commodore  angebotener  Drucker  kann  ebenfalls 
hier  angeschlossen  werden.  Wenn  Sie  mit  beidem  arbeiten  wol- 
len, also  Floppy  und  Drucker,  dann  schließen  Sie  die  Floppy  am 
Commodore  64  an  und  den  Drucker  anschließend  an  der  Floppy. 
Die  Floppy  verfügt  dazu  an  der  Rückseite  über  zwei  entspre- 
chende Anschlüsse. 

Der  nächste,  ebenfalls  runde  Anschluß  dient  zum  Abnehmen  des 
Audio-  und  des  Videosignals.  Wenn  Sie  über  einen  passenden 
Monitor  verfügen,  können  Sie  diesen  hier  direkt  anschließen. 
Zudem  ist  es  möglich,  das  Tonsignal  isoliert  abzunehmen,  um  es 
beispielsweise  einer  Stereoanlage  zuzuführen.  Ein  entsprechendes 
Kabel  ist  im  einschlägigen  Fachhandel  erhältlich. 

Nun  kommen  wir  zum  für  Sie  im  Moment  wohl  wichtigsten 
Anschluß:  dem  TV- Anschluß,  der  sich  direkt  neben  dem  Audio- 
und  Videoausgang  befindet. 
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Doch  haken  wir,  um  Ihre  Neugier  zu  befriedigen,  noch  schnell 
den  letzten  Anschluß  ab.  Der  große  Schacht,  der  sich  neben  dem 
Fernsehanschluß  befindet,  ist  ein  sogenannter  Modul-Steckplatz. 
Die  Auslieferung  von  Software  auf  Modulen  ist  heutzutage  nicht 
mehr  sehr  weit  verbreitet;  die  meiste  Software  wird  heute  auf 
Diskette  geliefert.  Trotzdem  hat  der  Modul-Steckplatz  durchaus 
seine  Berechtigung.  Mehr  dazu  etwas  weiter  unten,  wenn  wir 
uns  mit  dem  Umgang  mit  Software  beschäftigen. 

Zurück  zum  TV- Anschluß.  Ihrem  Commodore  64  liegt  ein  Ka- 
bel bei,  mit  dem  Sie  den  Rechner  mit  einem  Fernseher  verbin- 
den können.  Dazu  stecken  Sie  den  Flügelstecker  mit  langem  Stift 
in  den  TV- Anschluß  des  Rechners.  Der  andere  Stecker  kommt 
in  den  Antennenanschluß  des  Fernsehers. 

Das  ist  schon  fast  alles.  Sie  müssen  jetzt  nur  noch  Ihr  Fernseh- 
gerät passend  einstellen.  Dazu  müssen  Sie  wissen,  daß  sich  der 
Commodore  64  praktisch  wie  ein  zusätzliches  Fernsehprogramm 
verhält.  Und  zwar  "sendet"  Ihr  Commodore  64  auf  Kanal  36. 
Suchen  Sie  sich  also  eine  freie  Stationstaste,  und  stellen  Sie  sie 
auf  diesen  Kanal  ein.  Wenn  Sie  jetzt  nicht  genau  wissen,  wie  das 
bei  Ihrem  Fernsehgerät  geht,  müssen  Sie  nicht  extra  nach  der 
Bedienungsanleitung  kramen.  Schalten  Sie  einfach  beide  Geräte, 
Commodore  64  und  Fernsehgerät,  ein,  und  schalten  oder  schrau- 
ben Sie  so  lange  an  den  Schaltern  und/oder  Schrauben  der  Stati- 
onstaste, bis  sich  ein  gut  lesbares  Einschaltbild  ergibt. 

Wenn  Sie  alles  richtig  gemacht  haben,  müßte  auf  Ihrem  Fernse- 
her nun  folgendes  Bild  zu  sehen  sein: 


****  COMMODORE  64  BASIC  V2  **** 

64K  RAM  SYSTEM  38911  BASIC  BYTES  FREE 

READY. 

■ 


Der  Text  erscheint  dabei  in  hellblauer  Schrift  auf  dunkelblauem 
Grund.  Der  Rahmen  hat  ebenfalls  eine  hellblaue  Farbe. 
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Die  Tastatur 


Das  wichtigste  Eingabegerät  bei  Ihrer  zukünftigen  Arbeit  mit 
dem  Commodore  64  wird  die  Tastatur  sein.  Daher  lernen  Sie  in 
diesem  Kapitel  die  Handhabung  der  66  Tasten  Ihres  C64.  Mit 
Hilfe  dieser  Tasten  werden  Sie  alle  verborgenen  Möglichkeiten 
Ihres  Heimcomputers  erschließen.  Sei  es  die  Eingabe  von  Texten, 
das  Erstellen  von  Bildern  (Grafiken),  das  Abschicken  von  An- 
weisungen oder  die  Berechnung  mathematischer  Probleme,  all 
dies  wird  für  Sie  nach  diesem  Kapitel  kein  Neuland  mehr  sein. 
Wenn  Sie  einmal  "alle"  Tasten  beherrschen,  wird  der  C64  Ihnen 
ein  folgsamer  Partner  bei  der  Lösung  vieler  Probleme  sein. 

Das  Beherrschen  der  Tastatur  dient  nicht  nur  Computer-Freaks, 
die  einmal  jedes  Bit  des  Rechners  mit  dem  Vornamen  kennen 
möchten,  sondern  auch  denen,  die  ihren  Computer  nur  mit  den 
reichhaltig  angebotenen  Fertigprogrammen  "füttern"  wollen.  Je- 
mand, der  sich  zu  den  zuletzt  genannten  Anwendern  zählt,  darf 
bei  einer  Meldung  eines  Standardprogramms,  wie  z.B.  "Drücken 
Sie  die  <Clr/Home>-Taste  zum  Ausdruck  des  Bildschirminhalts", 
nicht  verzweifelt  in  seinem  Handbuch  wühlen. 

Kurzum  sollte  jeder,  der  auch  nur  gelegentlich  an  dem  C64  ar- 
beitet, mit  der  Tastatur  vertraut  sein.  Der  Vater  eines  compu- 
terfaszinierten Sohnes  z.B.  sollte  zumindest  wissen,  wie  das  beste 
Spielprogramm  des  Sohnemanns  geladen  wird,  wenn  der  gerade 
Fußball  spielt. 

Doch  keine  Angst,  Sie  müssen  sich  nicht  vorher  zu  einem 
Schreibmaschinenkursus  an  der  Volkshochschule  anmelden.  Die 


Einführung 


23 


meisten  auch  noch  so  erfahrenen  Freizeitprogrammierer  arbeiten 
mit  dem  "Zweifinger-Suchsystem".  Wer  eine  gewisse  Zeit  mit  der 
Tastatur  vertraut  ist,  wird  sich  bald  darüber  wundern,  wie  flink 
er  über  die  Tasten  saust.  Auch  die  oben  beschriebenen  Hilfs- 
tasten werden  besonders  ausführlich  beschrieben.  Diese  Tasten 
sind  sehr  wichtig,  da  damit  Farben  bestimmt,  Texte  eingegeben, 
Programme  unterbrochen  und  Befehle  an  den  Rechner  übermit- 
telt werden  können. 


Allgemeines  zur  Tastatur 

Auf  den  ersten  Blick  erweckt  die  Tastatur  des  C64  den  Eindruck 
einer  üblichen  Schreibmaschinentastatur.  Doch  wenn  Sie  genauer 
hinsehen,  werden  Sie  leichte  Abweichungen  feststellen: 

► Die  Buchstaben  "Y"  und  "Z"  sind  gemäß  der  amerikanischen 
ASCII-Norm  vertauscht. 

► Die  Tastatur  weist  keine  Umlaute  (ö,  ä,  ü)  und  kein  scharfes 
"s”  (ß)  auf,  da  diese  Zeichen  im  amerikanischen  Zeichensatz 
nicht  enthalten  sind. 

► Es  gibt  zusätzliche  Tasten  (Hilfstasten),  deren  Funktion  spä- 
ter erläutert  wird. 

Sie  sollten  keine  Experimente  mit  der  Tastatur  machen,  bevor 
Sie  nicht  mit  deren  Funktion  vertraut  sind.  Zwar  können  durch 
Fehlbedienungen  keine  Rauchwolken  aus  dem  Rechner  aufstei- 
gen, doch  Sie  können  durch  überraschende  Mißerfolge  verblüfft 
werden.  Warten  Sie  also  geduldig  auf  die  praktische  Einweisung 
auf  den  nächsten  Seiten. 

Los  geht's 

Nun  wird  es  Zeit,  die  schlafende  Technik  Ihres  C64  zum  Leben 
zu  erwecken.  Schalten  Sie  dazu  den  Rechner  ein.  Nach  jedem 
Einschalten  erscheint  eine  Meldung,  die  besagt,  daß  der  Rechner 
nun  bereit  ist,  Ihren  Kommandos  zu  folgen.  Die  erste  Zeile  der 
Meldung  weist  auf  die  interne  BASIC-Version  hin.  Der  C64  ist 
mit  dem  Commodore  BASIC  Version  2 ausgerüstet.  Darüber 
hinaus  gibt  es  noch  eine  Version  4,  die  aber  nur  in  den  größeren 
Commodore-Rechnern  zu  finden  ist. 
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Die  zweite  Zeile  der  Einschaltmeldung  informiert  Sie  darüber, 
daß  ein  64  KByte-Speicher  vorhanden  ist  (65535  speicherbare 
Zeichen).  Von  diesen  64  KByte  stehen  für  Ihre  persönliche 
Speicherung  38911  Bytes  (Zeichen)  zur  Verfügung.  Das  ist  eine 
ganze  Menge,  die  von  einem  Programm  allein  meist  nicht  ausge- 
nutzt wird.  Oft  wird  diese  enorme  Speicherkapazität  zur  rech- 
nerinternen Datenspeicherung  benutzt.  D.h.,  die  vom  Programm 
zu  verarbeitenden  Daten  befinden  sich  komplett  im  Speicher. 

In  der  folgenden  Zeile  besagt  die  Meldung  READY,  daß  das 
Betriebssystem  nun  Kommandos  erwartet.  Diese  READY-Mel- 
dung  signalisiert,  daß  Ihnen  der  Rechner  zur  Verfügung  steht. 
Während  des  Programmablaufs  erscheint  demnach  kein  READY, 
und  es  können  somit  keine  Eingaben  gemacht  werden. 

Nun  zu  dem  kleinen  blinkenden  Quadrat  unterhalb  des  READY. 
Dies  ist  eine  Orientierungshilfe  auf  dem  Bildschirm.  Angenom- 
men, Sie  möchten  etwas  auf  dem  Bildschirm  schreiben,  dann  ist 
es  notwendig,  genau  zu  wissen,  wo  das  einzugebende  Zeichen 
erscheinen  wird.  Diese  Markierung,  die  man  in  der  Fachsprache 
Cursor  ("körsa"  gesprochen)  nennt,  hilft  Ihnen  also,  #sich  am 
Bildschirm  zurechtzufinden. 

< Cursor  links/rechts> -Taste 
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Diese  Taste  befindet  sich  unten  rechts  auf  der  Tastatur.  Sie  ist 
beschriftet  mit  der  Abkürzung  für  Cursor  (<Crsr>)  und  den 
Pfeilen  nach  rechts  und  links.  Mit  dieser  Taste  können  Sie  nun 
den  Cursor  auf  dem  Bildschirm  nach  rechts  oder  links  verschie- 
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ben.  Betätigen  Sie  nun  diese  Taste  20  Mal,  so  wandert  der  Cur- 
sor 20  Stellen  nach  rechts  und  blinkt  wieder  geduldig  unterhalb 
der  ersten  Eins  von  38911. 

Was  aber,  wenn  der  Cursor  den  rechten  Rand  dieser  Zeile  über- 
schreitet? Probieren  Sie  dies  selbst  aus,  und  drücken  Sie  dazu 
nochmals  20  mal  die  <Cursor  links/rechts>-Taste.  Nach  dem  20. 
Druck  auf  diese  Taste  erscheint  der  Cursor  wieder  auf  der  1. 
Spalte  der  folgenden  Zeile. 


****  COMMODORE  64  BASIC  V2  **** 

64 K RAM  SYSTEM  38911  BASIC  BYTES  FREE 

READY 


Es  ist  doch  recht  umständlich,  20  mal  auf  die  Cursor-Taste  zu 
hämmern,  um  in  die  Bildschirmmitte  zu  gelangen.  Diese  Proze- 
dur können  Sie  etwas  vereinfachen.  Wenn  Sie  die  Taste  gedrückt 
halten,  so  wandert  der  Cursor  selbständig  mit  15  Zeichen  je  Se- 
kunde nach  rechts.  Probieren  Sie  dies  aus,  und  halten  Sie  dazu 
die  <Cursor  links/rechts>-Taste  gedrückt.  Beobachten  Sie,  wie 
der  Cursor  zum  rechten  Bildschirmrand  "sprintet". 


****  COMMODORE  64  BASIC  V2  **** 

64K  RAM  SYSTEM  38911  BASIC  BYTES  FREE 

READY 

■ 


Sicher  haben  Sie  sich  gefragt,  wie  der  Cursor  denn  nun  in  die 
andere  Richtung  (nach  links)  zu  bewegen  ist.  Dazu  benutzen  Sie 
die  Taste  <Shift>.  Diese  Taste  schaltet  die  Funktion  der  Cursor- 
Taste  auf  «Cursor  links>  um. 

Halten  Sie  nun  die  <Shift>-Taste  gedrückt  und  betätigen  Sie  die 
«Cursor  links/rechts>-Taste.  Der  Cursor  bewegt  sich  nun  in  die 
andere  Richtung. 


26 


Das  große  Commodore  64-Buch 


****  COMMODORE  64  BASIC  V2  **** 

64K  RAM  SYSTEM  38911  BASIC  BYTES  FREE 

READY 

■ 


Selbstverständlich  bewegt  sich  der  Cursor  auch  selbständig  nach 
links,  ohne  daß  immer  wieder  einzeln  auf  die  Taste  gedrückt 
werden  muß.  Halten  Sie  dazu  die  beiden  Tasten  gedrückt. 

< Cursor  oben/unten  > -Taste 
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Wie  kann  man  nun  den  Cursor  wieder  in  die  Ausgangsstellung 
(unterhalb  von  READY)  bringen?  Dazu  könnten  Sie  z.B.  so 
lange  die  <Cursor  links>-Taste  gedrückt  halten,  bis  der  Cursor 
Zeile  für  Zeile  nach  oben  wandert. 

Doch  dies  ist  nicht  im  Sinne  des  Erfinders.  Die  <Cursor 
oben/unten>-Taste  ermöglicht  Ihnen  die  ebenso  schnelle  Bewe- 
gung des  Cursors  nach  oben  und  unten  wie  mit  der  <Cursor 
links/rechts>-Taste  nach  links  und  rechts. 

Bewegen  Sie  nun  den  Cursor  zum  linken  Bildschirmrand  (<Shift> 
und  «Cursor  links/rechts>  drücken). 

Der  Cursor  blinkt  wiederum  geduldig,  bis  Sie  ihn  an  eine  andere 
Stelle  bewegen.  Peilen  Sie  nun  die  «Cursor  oben/unten>-Taste 
an,  und  drücken  Sie  diese  Taste  dreimal.  Sie  haben  bemerkt,  daß 
der  Cursor  drei  Zeilen  nach  unten  gesprungen  ist. 
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****  COMMODORE  64  BASIC  V2  **** 

64K  RAM  SYSTEM  38911  BASIC  BYTES  FREE 

READY 

■ 


Versuchen  Sie  nun,  den  Cursor  in  die  dritte  Bildschirmzeile  zu 
bewegen.  Dazu  müssen  Sie  den  Cursor  nach  oben  bewegen. 
Wenn  Sie  aber  auf  die  cCursor  oben/unten>-Taste  drücken,  so 
bewegt  sich  der  Cursor  nach  unten!  Sicher  haben  Sie  bereits  ge- 
schaltet und  Rückschlüsse  aus  der  zuvor  beschriebenen  Taste 
gezogen.  Hier  wurde  mit  Hilfe  der  <Shift>-Taste  der  Cursor 
nach  links  bewegt.  Genauso  können  Sie  mit  der  <Shift>-Taste 
und  der  «Cursor  oben/unten>-Taste  den  Cursor  nach  oben  be- 
wegen. Versuchen  Sie  es!  Drücken  Sie  so  lange  <Shift>  und 
«Cursor  oben/unten>,  bis  der  Cursor  in  der  dritten  Bildschirm- 
zeile blinkt. 


■ ****  COMMODORE  64  BASIC  V2  **** 

64K  RAM  SYSTEM  38911  BASIC  BYTES  FREE 

READY 


Auch  hier  wandert  der  Cursor  selbständig  Zeile  für  Zeile  nach 
oben  oder  nach  unten,  wenn  Sie  die  «Cursor  oben/unten>-Taste 
gedrückt  halten. 

Um  ein  Gefühl  für  die  Cursor-Tasten  zu  erlangen,  versuchen  Sie 
einmal,  mit  dem  Cursor  ein  unsichtbares  Quadrat  zu  zeichnen. 
D.h.,  Sie  bewegen  den  Cursor  rechts-*unten->-links->oben  oder  an- 
ders herum  links-^unten-M-echts-^oben.  Das  Beherrschen  der 
Cursor-Tasten  ist  erstrebenswert,  da  Sie  später  z.B.  Korrekturen 
in  einem  Programm  blitzschnell  vornehmen  können.  Doch 
Übung  macht  den  Meister,  und  der  ist  bekanntlich  noch  nicht 
vom  Himmel  gefallen. 
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Editieren  mit  den  Cursor-Tasten 

Hier  taucht  ein  Fremdwort  aus  der  Datenverarbeitung  auf,  des- 
sen Bedeutung  dem  ein  oder  anderen  Leser,  besonders  dem  An- 
fänger, sicher  nicht  bekannt  ist.  Editieren  bedeutet  "Bearbeiten" 
von  Texten,  d.h.,  Texte  erstellen  und  ändern.  Man  spricht  be- 
reits vom  Editieren,  wenn  Sie  ein  paar  Worte  auf  den  Bildschirm 
schreiben. 

Mit  den  Cursor-Tasten  können  Sie  einen  bereits  auf  dem  Bild- 
schirm enthaltenen  Text  ändern.  Wenn  Sie  den  Cursor  auf  ein 
Zeichen  des  Bildschirminhalts  positionieren  und  eine  beliebige 
Taste  drücken,  wird  dieses  Zeichen  durch  das  zuletzt  eingege- 
bene Zeichen  ersetzt. 

Nun  können  wir  z.B.  die  Einschaltmeldung  verändern.  Ändern 
wir  die  zweite  Zeile  der  Einschaltmeldung  um  in  "64  K RAM 
SYSTEM  38911  BYTES  UNBENUTZT".  Dazu  bringen  Sie 
zunächst  den  Cursor  auf  den  ersten  zu  ändernden  Buchstaben 
(das  "A"  von  "BASIC"). 


****  COMMODORE  64  BASIC  V2  **** 

64 K RAM  SYSTEM  38911  B"SIC  BYTES  FREE 

READY 


Dieses  "A"  soll  nun  durch  ein  "Y"  ersetzt  werden.  Nichts  leichter 
als  das!  Sie  drücken  einfach  die  Taste  "Y",  und  das  "A"  ist  ver- 
schwunden. Das  "Y"  hat  nun  dessen  Platz  eingenommen.  Der 
Cursor  ist  selbständig  ein  Zeichen  nach  rechts  gerückt.  Das  ist  ja 
auch  klar,  sonst  müßten  Sie  bei  der  Texteingabe  nach  jedem 
Zeichen  den  Cursor  manuell  weiterstellen. 


****  COMMODORE  64  BASIC  V2  **** 

64K  RAM  SYSTEM  38911  BY«IC  BYTES  FREE 

READY 
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Ändern  Sie  nun  auch  die  drei  letzten  Buchstaben  dieses  Wortes 
("SIC")  in  "TES"  um.  Dazu  geben  Sie  einfach  unmittelbar  hinter- 
einander diese  drei  Buchstaben  und  anschließend  ein  Leerzei- 
chen (die  unübersehbare  Taste  ganz  unten)  ein.  Nun  haben  wir 
das  Wort  "BASIC"  in  "BYTES"  umgewandelt. 


****  COMMODORE  64  BASIC  V2  **** 

64K  RAM  SYSTEM  38911  BYTES  ■YTES  FREE 

READY 


Der  Abschluß  dieser  kleinen  Übung  ist  für  Sie  sicher  kein  Rätsel 
mehr.  Sie  überschreiben  den  Rest  der  Zeile  rücksichtslos  mit 
dem  Wort  "UNBENUTZT". 


**** 

64K  RAH 

COMMODORE  64  BASIC  V2  **** 
SYSTEM  38911  BYTES  UNBENUTZT 

READY 

< Clr/Home  > -Taste 


Wir  haben  uns  bereits  damit  beschäftigt,  den  Cursor  so  schnell 
wie  möglich  zum  oberen  Bildschirmrand  zu  manövrieren.  Dazu 
haben  wir  die  «Cursor  oben/unten>-Taste  benutzt.  Aber  es  geht 
noch  schneller:  Die  <Clr/Home>-Taste  hat  zwei  Funktionen:  eine 
<Shift>-  und  eine  Normalfunktion.  Drücken  Sie  diese  Taste  ohne 
<Shift>,  wird  die  Home-Funktion  aktiv.  Der  Cursor  wird  dann 
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in  die  obere  linke  Ecke  positioniert.  Diese  Ecke  ist  das  "Zu- 
hause" des  Cursors.  Überzeugen  Sie  sich  davon,  und  drücken  Sie 
nun  die  <Clr/Home>-Taste. 


■ ****  COMMODORE  64  BASIC  V2  **** 

64K  RAM  SYSTEM  38911  BASIC  BYTES  FREE 

READY 


Damit  Sie  nicht  aus  der  Übung  kommen:  Schreiben  Sie  ein  paar 
Buchstaben  in  die  Bildschirmmitte. 


****  COMMODORE  64  BASIC  V2  **** 

64K  RAM  SYSTEM  38911  BASIC  BYTES  FREE 

READY 

ASDFGHJKL" 


Wenn  Sie  nun  denken,  daß  das,  was  sich  nun  auf  dem  Bild- 
schirm befindet,  eigentlich  alles  unbrauchbares  Kauderwelsch 
ist,  so  wischen  Sie  einfach  alles  weg.  Halt!  Nicht  mit  dem  Fen- 
sterleder, damit  können  Sie  vielleicht  den  Staub  vom  Bildschirm 
wischen,  nicht  jedoch  die  eingetippten  und  somit  im  Rechner 
gespeicherten  Daten  des  Bildschirms. 

Schließlich  ist  es  für  einen  Rechner,  der  ca.  1 Million  Befehle 
pro  Sekunde  abarbeiten  kann,  ein  Kinderspiel,  "mal  eben"  die 
1000  Zeichen  auf  dem  Bildschirm  auf  Tastendruck  zu  löschen. 
Drücken  Sie  nun  die  Tasten  <Shift>  und  <Clr/Home>  gemein- 
sam, wird  der  Bildschirm  blitzschnell  gelöscht.  Der  Cursor  blinkt 
dann  ganz  verlassen  "zuhause",  in  der  oberen  linken  Ecke  des 
Bildschirms. 
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Die  Tasten  mit  Buchstaben 
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Wie  bereits  erwähnt,  gleicht  die  Anordnung  dieser  Tasten  bis  auf 
kleine  Abweichungen  der  einer  Schreibmaschine.  Sicher  sind  Ih- 
nen die  jeweils  zwei  Grafiksymbole  an  der  Vorderseite  jeder 
dieser  Tasten  sofort  aufgefallen.  Doch,  was  es  damit  auf  sich 
hat,  stellen  wir  zunächst  zurück. 

Konzentrieren  wir  uns  zunächst  auf  die  Buchstaben.  Wenn  Sie 
irgendeine  dieser  Tasten  drücken,  so  erscheint  der  entsprechende 
Großbuchstabe  an  der  Cursor-Position  auf  dem  Bildschirm.  Be- 
vor wir  diese  Tasten  einsetzen,  löschen  Sie  bitte  den  Bildschirm 
mit  den  Tasten  <Shift>  und  <Clr/Home>. 

Nun  haben  wir  einen  "sauberen"  Bildschirm,  auf  dem  wir  edi- 
tieren können.  Bitte  geben  Sie  nun  keine  Unmengen  von  Texten 
in  der  Hoffnung  ein,  daß  Ihr  Computer  alles  zu  jeder  Zeit  ab- 
rufbereit in  seinem  Speicher  aufnimmt.  Ganz  so  einfach  ist  es 
nicht.  Das,  was  Sie  eingeben,  wird  lediglich  im  flüchtigen  Bild- 
schirmspeicher festgehalten.  Wie  man  eingegebene  Texte  ab- 
speichern kann,  erfahren  Sie  in  unserer  BASIC-Einführung. 

Schreiben  Sie  jetzt  einmal  alle  Buchstaben  auf  den  Bildschirm, 
vielleicht  sogar  in  alphabetischer  Reihenfolge.  Sie  werden  fest- 
stellen, wie  schwer  doch  zu  Anfang  der  ein  oder  andere  Buch- 
stabe zu  finden  ist,  wenn  man  nicht  gerade  Sekretärin  ist.  Auf 
dem  Bildschirm  befinden  sich  nun  alle  verfügbaren  Großbuch- 
staben. 
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ABCDE FGH I JKLMNOPQRSTUVUXYZ" 


Löschen  Sie  wieder  den  Bildschirm,  und  geben  Sie  nochmals  alle 
Buchstaben  ein.  Doch  nun  nicht  in  alphabetischer  Reihenfolge, 
sondern  wie  sie  auf  der  Tastatur  angeordnet  sind. 

Also  zunächst  die  obere  Reihe  (Q  bis  P),  dann  die  mittlere  Reihe 
(A  bis  L)  und  schließlich  die  untere  Reihe  (Z  bis  M).  Sicher 
fällt  Ihnen  diese  Reihenfolge  viel  leichter. 


QUERTZU I OPASD  FGH JKLXVBNM" 


Die  < Shift > - und  < Shlft  Lock>-Tasten 


Die  <Shift>-Taste  haben  Sie  bereits  kennengelernt.  Sie  benutzten 
diese  Taste  zum  Umschalten  der  mit  zwei  Funktionen  belegten 
Tasten.  Zusätzlich  ist  der  C64  mit  einer  zweiten  <Shift>-Taste 
ausgerüstet  (<Shift  Lock>),  die  bei  Betätigung  einrastet. 

Somit  ist  es  überflüssig,  die  <Shift>-Taste  gedrückt  zu  halten. 
Betätigen  Sie  diese  Taste  ein  zweites  Mal,  wird  sie  wieder 
entriegelt. 

Fast  jede  Taste  ist  mit  mehr  als  einem  Zeichen  oder  einer 
Funktion  belegt.  Mit  der  <Shift>-Taste  erreichen  Sie  die  zweite 
Funktion  bzw.  das  zweite  Zeichen  einer  mehrfach  belegten  Ta- 
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ste.  Bei  den  Tasten,  die  zusätzlich  mit  zwei  Grafiksymbolen  be- 
schriftet sind,  wählen  Sie  mit  der  <Shift>-Taste  das  jeweils 
rechte  Grafikzeichen  aus. 

Versuchen  Sie  nun,  die  vier  Spielkartensymbole  der  Tasten 
"AM,"S","ZM  und  "X"  auf  den  Bildschirm  zu  bekommen.  Löschen 
Sie  zuvor  den  Bildschirm  mit  den  beiden  Tasten  <Shift>  und 
<Clr/Home>. 

Das  Herz  z.B.  erscheint  auf  dem  Bildschirm,  wenn  Sie  die  Taste 
<Shift>  gedrückt  halten  und  dann  die  Taste  "S"  betätigen. 


Sicher  ist  es  für  Sie  nun  ein  Kinderspiel,  die  anderen  drei  Sym- 
bole direkt  neben  dem  einsamen  Herzen  auf  den  Bildschirm  zu 
zaubern. 


Das  war  noch  relativ  einfach.  Aber  nun  eine  etwas  schwierigere 
Aufgabe:  Stellen  Sie  nochmals  alle  Buchstaben,  wie  sie  auf  der 
Tastatur  angeordnet  sind,  dar  (vorher  Bildschirm  löschen).  Dann 
positionieren  Sie  den  Cursor  auf  den  Anfang  der  nächsten  Zeile 
und  schreiben  unter  jeden  Buchstaben  das  jeweils  dazugehörige 
Grafikzeichen. 

Ein  Tip:  Wenn  Sie  die  <Shift  Lock>-Taste  einrasten,  haben  Sie 
bei  der  Eingabe  der  Grafikzeichen  eine  Hand  frei,  mit  der  Sie 
z.B.  zur  Kaffeetasse  greifen  können. 


QWERTVU I ÜPR'i'DFGH 
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Entriegeln  Sie  bitte  die  <Shift  Lock>-Taste,  wenn  sie  verwendet 
wurde. 
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Die  Commodore-Taste  <C=  > 
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Mehrfachbelegte  Tasten  sind  für  Sie  nicht  mehr  unbekannt.  Sie 
haben  mit  <Shift>  z.B.  das  rechte  Grafiksymbol  eines  Buchsta- 
bens zum  Vorschein  gebracht.  Sie  wissen  sicher,  worauf  hier  an- 
gespielt wird.  Da  die  Buchstabentasten  zwei  Grafiksymbole  dar- 
stellen können,  muß  natürlich  auch  eine  Möglichkeit  gegeben 
werden,  das  zweite  Grafiksymbol  anzusprechen.  Dazu  wurde  die 
Commodore-Taste  installiert.  Halten  Sie  die  Taste  <C=>  ge- 
drückt, wenn  Sie  eines  der  links  an  der  Vorderseite  der  Tasten 
dargestellten  Grafiksymbole  auswählen  möchten.  Nun  aufgepaßt! 
Links  neben  den  schon  bekannten  Spielkartensymbolen  sind 
Grafikzeichen  angebracht,  die  jeweils  einen  Winkel  darstellen. 
Halten  Sie  nun  die  Taste  <C=>  gedrückt,  und  stellen  Sie  die  zwei 
Winkel  der  Tasten  "AM  und  ”S"  auf  dem  Bildschirm  dar.  Bitte 
löschen  Sie  auch  hier  wieder  vorher  den  Bildschirm. 


Nun  eine  etwas  schwierigere  Aufgabe:  Versuchen  Sie,  das  in 
Bild  2 dargestellte  Muster  nachzuzeichnen.  Nein,  nicht  mit  Blei- 
stift und  Papier,  sondern  mit  den  Tasten  Ihres  Rechners  auf  dem 
Bildschirm.  Ein  Tip:  Dieses  Muster  besteht  aus  zwei  Zeilen! 


nnnnjurnnnjuiruurnnnimrir 
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Schreiben  Sie  nun  die  drei  mit  der  Taste  "A"  darstellbaren  Zei- 
chen nebeneinander  auf  dem  Bildschirm.  Zuerst  den  Buchstaben, 
dann  das  rechte  und  schließlich  das  linke  Grafikzeichen.  Lö- 
schen Sie  bitte  vorher  den  Bildschirm. 


A*r" 


Mit  einiger  Übung  können  Sie  allein  mit  den  Grafikzeichen 
hübsche  Bilder  auf  den  Bildschirm  zaubern.  Vielleicht  starten  Sie 
in  Ihrer  Familie  einen  Wettbewerb  nach  dem  Motto  "Wer  tastet 
das  schönste  Bild  auf  den  Bildschirm?". 

Diese  einfarbigen  Bilder  können  Sie  auch  noch  in  16  Farben 
darstellen,  doch  dazu  erfahren  Sie  an  späterer  Stelle  mehr. 

Der  Textmodus 
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Die  beiden  Tasten  <Shift>  und  <C=>  haben  zusammen  noch  eine 
weitere  Aufgabe:  Sie  ermöglichen  die  Groß-/und  Kleinschrei- 
bung. In  diesem  Modus  gleicht  die  Tastatur  noch  mehr  einer 
Schreibmaschine.  Bei  normaler  Betätigung  werden  Kleinbuchsta- 
ben und  mit  Hilfe  der  Umschalt-Taste  (bei  uns  die  <Shift>-Ta- 
ste)  Großbuchstaben  angezeigt.  Die  Grafiksymbole,  die  norma- 
lerweise mit  <Shift>  angesprochen  werden,  stehen  nun  nicht 
mehr  zur  Verfügung.  Sie  schalten  den  Textmodus  ein,  indem  Sie 
die  beiden  Tasten  <Shift>  und  <C=>  gleichzeitig  drücken.  Wollen 
Sie  wieder  im  Normalmodus  arbeiten,  so  drücken  Sie  nochmals 
diese  beiden  Tasten.  Schalten  Sie  nun  den  Textmodus  ein  und 
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beobachten  Sie,  was  aus  den  drei  Zeichen  der  letzten  Übung  ge- 
worden ist.  Sie  werden  sofort  dem  Textmodus  angepaßt.  Aus 
dem  großem  MAM  wurde  ein  kleines  Ha",  aus  dem  PIK  wurde  ein 
großes  "A"  und  das  zweite  Sonderzeichen  ist  erhalten  geblieben. 


aAf* 


Es  gibt  also  zwei  verschiedene  Möglichkeiten,  die  Tastatur  zu 
nutzen: 

1.  Den  Groß/Graf ikmodus. 

2.  Den  Groß/Kleinmodus. 

Wollen  Sie  also  Kleinbuchstaben  darstellen,  so  müssen  Sie  auf 
die  Grafikzeichen,  die  mit  <Shift>  angesprochen  werden,  ver- 
zichten und  umgekehrt. 

Schreiben  Sie  nun  einmal  im  Textmodus  den  Namen  "Karl 
Schmidt"  auf  den  Bildschirm.  Die  Großbuchstaben  werden  mit 
der  <Shift>-Taste  eingegeben. 


Karl  Schmidt- 


Was  meinen  Sie,  tut  sich  auf  dem  Bildschirm,  wenn  Sie  nun  den 
Textmodus  wieder  ausschalten?  Überzeugen  Sie  sich  selbst. 
Schalten  Sie  den  Textmodus  wieder  aus,  indem  Sie  wiederum 
<Shift>  und  <C=>  gleichzeitig  drücken. 


- rtRL  «CHM IDT» 


Aus  den  Großbuchstaben  wurden  wieder  Grafikzeichen  und  aus 
den  Kleinbuchstaben  wurden  Großbuchstaben. 

In  der  Praxis  hat  sich  erwiesen,  daß  man  im  Textmodus  besser 
arbeiten  kann.  Der  Text  erscheint  in  Kleinbuchstaben  nicht  so 
gedrängt  wie  in  Großbuchstaben.  Programmlisten  z.B.  sind  we- 
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sentiich  übersichtlicher,  wenn  sie  im  Textmodus  auf  dem  Bild- 
schirm angezeigt  werden.  Ein  ständig  eingeschalteter  Textmodus 
ist  selbstverständlich  nur  geeignet,  wenn  ohne  Grafikzeichen 
gearbeitet  wird. 


Außer  den  vielen  Grafikzeichen  auf  den  Buchstabentasten  fin- 
den Sie  weitere  Grafikzeichen  auf  diesen  fünf  Tasten.  Sie  wer- 
den entsprechend  mit  den  Tasten  <Shift>  und  <C=>  angespro- 
chen. Die  Tasten  +,  -,  £,  @ und  * haben  jedoch  eine  Besonder- 
heit: Sie  sind  sowohl  im  Textmodus  als  auch  im  Normalmodus 
identisch. 

Überzeugen  Sie  sich  davon,  und  geben  Sie  die  Zeichenfolge  "+- 
£@*H  ein,  nachdem  Sie  den  Bildschirm  gelöscht  haben. 


+-£S*B 


Schalten  Sie  nun  den  Textmodus  ein,  so  werden  Sie  feststellen, 
daß  die  Zeichen  unverändert  geblieben  sind. 


+-£3*« 


Verlassen  Sie  wieder  den  Textmodus  (wiederum  mit  <Shift>  und 
<C=>).  Im  Textmodus  werden  bekanntlich  aus  den  <Shift>-Gra- 
fikzeichen  Großbuchstaben.  Da  auch  die  hier  behandelten  fünf 
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Tasten  <Shift>-Grafikzeichen  enthalten,  geben  wir  diese  Zeichen 
ein,  um  festzustellen,  ob  der  Textmodus  hier  etwas  verändert. 
Löschen  Sie  also  nochmals  den  Bildschirm  und  betätigen  Sie 
diese  fünf  Tasten,  diesmal  zusammen  mit  <Shift>. 


+ ir_HB 


Wenn  Sie  nun  den  Textmodus  einschalten,  werden  Sie  feststellen, 
daß  zwei  Tasten  im  Textmodus  andere  Grafikzeichen  zum  Vor- 
schein bringen.  Dies  sind  zwei  Zeichen,  die  Sie  auf  der  Tastatur 
zwar  nicht  finden,  die  aber  im  Textmodus  plötzlich  erscheinen. 


+ i» 


Schalten  Sie  den  Textmodus  bitte  aus,  bevor  Sie  fortfahren. 

Die  Leertaste 
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Auch  diese  Taste  finden  Sie  an  jeder  Schreibmaschine  wieder. 
Auch  bei  Ihrem  Computer  brauchen  Sie  nicht  darauf  zu  ver- 
zichten, Leerzeichen  zwischen  die  Wörter  zu  setzen.  Befindet 
sich  an  der  Stelle,  an  der  ein  Leerzeichen  erscheinen  soll,  bereits 
ein  anderes  Zeichen,  so  wird  dieses  natürlich  gelöscht.  Löschen 
Sie  den  Bildschirm,  und  geben  Sie  den  folgenden  Satz  ein: 


UEBUNG  MACHT  DEN  MEISTER 
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Hier  müssen  Sie  zwischen  den  einzelnen  Wörtern  die  Leertaste 
drücken.  Sie  können  auch  den  Cursor  um  eine  Stelle  nach  rechts 
rücken,  doch  dies  ist  sehr  umständlich  und  somit  nicht  ange- 
bracht. 


UEBUNG  MACHT  DEN  MEISTER 


Mit  der  Leertaste  können  auch  Zeichen  von  links  nach  rechts 
gelöscht  werden.  Versuchen  Sie  es  selbst:  Drücken  Sie  die  Taste 
<Clr/Home>,  um  zum  linken  Rand  der  obersten  Bildschirmzeile 
zu  gelangen. 


■EBUNG  MACHT  DEN  MEISTER 


Halten  Sie  nun  die  Leertaste  gedrückt,  so  werden  alle  eingegebe- 
nen Zeichen  durch  Leerzeichen  ersetzt,  also  gelöscht. 


■STER 


Die  < inst/Del  > -Taste 


IS 

IM 

3JP1 

IJ1DJ 

Mi 

mi 

tat 

in 

mal 

[Bi 

IS! 

3)10)11 

HOI 

[□II 

illtaiia 

IUI 

MU 

pi 

SBUUBUaBIBIBjUB 

mul 

HD 

HD 

frei 

HD 

rs 


Die  Abkürzungen  dieser  Taste  sagen  bereits  viel  über  die  Funk- 
tion aus.  <Del>  bedeutet  Delete  (Löschen)  und  <Inst>  bedeutet 
Insert  (Einsetzen).  Sie  verfügen  somit  über  zwei  komfortable 
Hilfen  zum  Editieren  von  Texten. 
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<Del>  - Löschen 

Ohne  <Shift>  ist  die  Funktion  DEL  aktiv.  Im  letzten  Beispiel 
haben  wir  bereits  mit  der  Leertaste  Zeichen  auf  dem  Bildschirm 
gelöscht.  Doch  dies  war  nur  in  einer  Richtung  - nach  rechts  - 
möglich.  Mit  DEL  können  nun  Zeichen  links  vom  Cursor  ge- 
löscht werden.  Dies  ist  besonders  hilfreich  beim  Korrigieren  von 
Tippfehlern.  Ein  Druck  auf  die  Taste  <Inst/Del>,  und  das  falsch 
eingetippte  Zeichen  ist  wieder  gelöscht.  Löschen  Sie  nun  den 
Bildschirm,  und  tippen  Sie  den  folgenden  Satz  ab: 

TIPPFEHLER  SIND  UNVERZEIHLICJ 

Bei  der  Eingabe  des  letzten  Buchstabens  ist  ein  Fehler  passiert: 


TIPPFEHLER  SIND  UNVERZEIHLICJ" 


Tipp-Ex  ist  hier  nicht  notwendig.  Auf  Tastendruck  wird  der 
zuletzt  eingegebene  Buchstabe  gelöscht.  Drücken  Sie  dazu  die 
Taste  <Inst/Del>. 


TIPPFEHLER  SIND  UNVERZEIHLIC" 


Nun  können  Sie  hier  den  richtigen  Buchstaben  einsetzen,  und 
der  Tippfehler  ist  vergessen. 


TIPPFEHLER  SIND  UNVERZEIHLICH* 


Doch  dieses  Beispiel  zeigt  nicht  den  überragenden  Vorteil  dieser 
Taste.  Spielen  wir  ein  weiteres  Beispiel  durch.  Geben  Sie,  nach- 
dem Sie  den  Bildschirm  gelöscht  haben,  den  folgenden  Satz  ein: 

TIPPFEHLER  SIND  UNVERRZEIHLICH 

Auch  hier  hat  sich  ein  Tippfehler  eingeschlichen:  Zwei  "R"  sind 
hier  nicht  angebracht. 
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TIPPFEHLER  SIND  UNVERRZEIHLICH* 


Es  ist  nicht  notwendig,  das  letzte  Wort  ab  dem  Tippfehler 
nochmal  zu  schreiben.  Wird  nämlich  ein  Zeichen  links  vom 
Cursor  mit  der  Taste  <Inst/Del>  gelöscht,  so  werden  automatisch 
alle  Zeichen  in  dieser  Zeile,  die  sich  rechts  vom  Cursor  befin- 
den, nachgerückt.  Das  ist  nicht  einfach  zu  erklären,  sehen  Sie 
darum  selbst: 

Bewegen  Sie  den  Cursor  auf  das  zu  löschende  "R”  des  fehlerhaf- 
ten Satzes.  Dazu  drücken  Sie  die  Tasten  <Shift>  und  <Cursor 
links/rechts>  gleichzeitig. 


TIPPFEHLER  SIND  UNVERZEIHLICH 


Wenn  Sie  nun  die  Taste  <Inst/Del>  drücken,  wird  das  "R"  links 
neben  dem  Cursor  gelöscht  und  der  Rest  einschließlich  des 
Zeichens  unter  dem  Cursor  nach  links  aufgerückt. 


TIPPFEHLER  SIND  UNVERZEIHLICH 


Wenn  Sie  nun  den  Cursor  zum  Ende  dieses  Satzes  bringen,  kön- 
nen Sie  mit  dem  Schreiben  fortfahren.  Halten  Sie  dazu  so  lange 
die  <Cursor  links/rechts>-Taste  gedrückt,  bis  der  richtige  Punkt 
erreicht  ist. 


TIPPFEHLER  SIND  UNVERZEIHLICH 


<Inst>  - Einfügen 

Die  <Inst/Del>-Taste  hat  wie  gesagt  zwei  Funktionen:  Einmal  - 
wie  bereits  beschrieben  - die  DEL-Funktion,  mit  der  Sie  Zei- 
chen links  vom  Cursor  löschen  können.  Die  zweite  Funktion 
wird  wie  üblich  mit  der  <Shift>-Taste  aktiviert.  Die  Einfüge- 
funktion  Ihres  C64  ist  sehr  beliebt,  doch  überzeugen  Sie  sich 
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selbst  an  dem  folgenden  Beispiel.  Geben  Sie  zunächst  den  fol- 
genden Satz  ein,  nachdem  Sie  den  Bildschirm  gelöscht  haben: 

ICH  MACHE  NIMALS  FEHLER 

Hierin  ist  ein  Fehler  enthalten,  der  mit  der  <Inst/Del>-Taste 
wieder  korrigiert  werden  kann. 


ICH  MACHE  NIMALS  FEHLER® 


Jedem,  der  in  der  Schule  ein  wenig  aufgepaßt  hat,  wird  dieser 
Fehler  sicher  sofort  ins  Auge  gefallen  sein.  Es  wäre  nun  sehr 
umständlich,  wenn  man  alle  Zeichen  bis  zum  Fehler  löschen  und 
neu  eingeben  müßte.  Da  gerade  diese  Einfügefunktion  sehr  oft 
benötigt  wird,  ist  sie  mit  den  Tasten  <Shift>  und  <Inst/Del>  so- 
fort abrufbereit.  Bewegen  Sie  dazu  den  Cursor  hinter  das  Zei- 
chen, nach  dem  weitere  Zeichen  eingefügt  werden  sollen,  in 
unserem  Fall  hinter  das  MI",  also  auf  das  "M". 


ICH  MACHE  NI®ALS  FEHLER 


Beobachten  Sie  nun,  was  passiert,  wenn  Sie  die  <Shift>-Taste 
gedrückt  halten  und  die  <Inst/Del>-Taste  einmal  betätigen.  Es 
wird  Platz  für  das  einzufügende  Zeichen  geschafft  wobei  der 
Cursor  auf  diesem  Platz  verbleibt. 


ICH  MACHE  NIMALS  FEHLER 


Nun  geben  Sie  das  gewünschte  Zeichen  ein,  in  unserem  Beispiel 
also  das  fehlende  "E".  Wenn  Sie  den  Cursor  nun  nach  rechts  zum 
Ausgangspunkt  bewegen,  können  Sie  die  Texteingabe  fortsetzen. 

Selbstverständlich  können  Sie  auch  mehrere  Zeichen  einfügen. 
Dazu  drücken  Sie  an  der  entsprechenden  Positition  mehrmals  die 
<Inst/Del>-  mit  der  <Shift>-Taste.  Wenn  Sie  beide  Tasten  ge- 
drückt halten,  tritt  eine  automatische  Wiederholung  in  Kraft. 
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Die  Taste  <Inst/Del>  wird  dann  selbständig  so  lange  betätigt,  bis 
Sie  beide  Tasten  wieder  loslassen.  Gerade  die  Bedienung  der 
Taste  <Inst/Del>  bereitet  am  Anfang  Schwierigkeiten.  Doch  Sie 
werden  selbst  feststellen,  daß  Sie  mit  der  Zeit  sehr  viel  Routine 
beim  Umgang  mit  dieser  Taste  entwickeln  werden. 


Die  < Ctrl  > -Taste  bringt  Farbe  ins  Spiel 
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Sicher  ist  Ihnen  bekannt,  daß  Ihr  C64  16  Farben  darstellen  kann. 
Sicher  warten  Sie  auch  schon  lange  darauf,  diese  selbst  hervor- 
zuzaubern. Nichts  leichter  als  das.  Jede  der  Zifferntaste  1 bis  8 
schaltet  zusammen  mit  der  <Ctrl>-(Control-)Taste  auf  eine  an- 
dere Zeichenfarbe  um.  Halten  Sie  z.B.  <Ctrl>  gedrückt  und  tip- 
pen auf  die  Taste  <1>,  so  schreiben  Sie  ab  sofort  in  schwarzer 
Schrift. 

Die  acht  Tasten  und  die  zugehörigen  Farben: 


Taste 

Beschriftung 

Farbe 

< 1 > BLK 

black 

schwarz 

<2>  WHT 

white 

weiß 

<3>  RED 

red 

rot 

<4>  CYN 

cyan  j 

türkis 

<5>  PUR 

purple 

violett 

<6>  GRN 

green 

grün 

<7>  BLU 

blue 

blau 

<8>  YEL 

yellow 

gelb 
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Wenn  Sie  nun  alle  Farben  austesten,  so  werden  Sie  feststellen, 
daß  die  ein  oder  andere  Farbe  auf  dem  blauen  Hintergrund 
schlecht  lesbar  ist.  Man  sagt  dann,  der  Kontrast  stimmt  nicht. 

Doch  dies  ist  nicht  weiter  tragisch,  da  Sie  die  Farbe  des  Hinter- 
grunds mit  einem  BASIC-Befehl,  den  Sie  an  späterer  Stelle  noch 
kennenlernen  werden,  ändern  können. 

Probieren  Sie  nun  einmal  folgendes  aus:  Drücken  Sie  die  <Ctrl>- 
Taste  zusammen  mit  der  Taste  <7>.  Was  passiert  und  wie  ist  dies 
zu  erklären?  Ganz  einfach:  Die  Farbe  der  Taste  <7>  ist  die 
Farbe  blau  und  somit  mit  dem  Hintergrund  identisch. 

Der  Cursor  ist  wie  alle  anderen  Zeichen  zwar  vorhanden,  aber 
unsichtbar.  Man  könnte  nun  sogar  Befehle  eingeben,  die  man 
aber  auf  dem  Bildschirm  nicht  sieht.  Innerhalb  von  Programmen 
nutzt  man  dies  oft  aus,  um  Meldungen  des  Rechners  für  den 
Benutzer  unsichtbar  zu  machen. 

Weitere  Farbenpracht  mit  der  < C = > -Taste 
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Viele  vergleichbare  Computer  sind  zumeist  mit  acht  Farben  aus- 
gerüstet. Doch  Ihr  C64  gibt  sich  damit  nicht  zufrieden.  Mit  der 
<Commodore>-Taste  und  den  Zifferntasten  1 bis  8 können  wei- 
tere acht  brillante  Farben  ausgewählt  werden.  Diese  Farben  sind 
aber  auf  den  Tasten  nicht  ausgewiesen.  Drücken  Sie  nun  einmal 
die  <C=>-Taste  und  die  Taste  <1>  gleichzeitig.  Der  Cursor 
wechselt  zur  Farbe  "Orange",  und  alle  Zeichen,  die  Sie  nun  ein- 
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geben,  erscheinen  ebenfalls  in  der  Farbe  Orange.  Der  folgenden 
Tabelle  können  Sie  alle  16  Farben  und  die  dazu  zu  bedienenden 
Tasten  entnehmen: 


Ta  st« 

Beschriftung 

<CtrlxC=> 

<1>  BLK 
<2>  WHT 
<3>  RED 
<4>  CYN 
<5>  PUR 
<6>  GRN 
<7>  BLU 
<8>  YEL 

schwarz 

weiß 

rot 

türkis 

violett 

grün 

blau 

gelb 

orange 
braun 
hellrot 
grau  1 
grau  2 
hellgrün 
hellblau 
grau  3 

Versuchen  Sie  nun  einmal,  die  ersten  16  Zeilen  des  Bildschirms 
mit  jeweils  einer  Farbe  und  dem  Zeichen  "A"  zu  füllen.  Achten 
Sie  auf  den  rechtzeitigen  Farbwechsel.  Die  Zeile  mit  der  Farbe 
"Blau"  ist  natürlich  nicht  zu  erkennen,  da  Sie  mit  der  Hinter- 
grundfarbe identisch  ist. 

Reverse  Zeichendarstellung 
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Die  deutsche  Übersetzung  für  "REVERSE"  ("rivörs"  gesprochen) 
ist  sinngemäß  "UMGEKEHRT".  Doch  was  sind  "umgekehrte" 
Zeichen?  Sicher  haben  Sie  schon  einmal  Negative  von  Schwarz- 
weiß-Fotos betrachtet  und  festgestellt,  daß  die  Farben  vertauscht 
sind.  Ein  dunkler  Hintergrund  des  Fotos  ist  auf  dem  Negativ 
hell. 
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Wenn  Sie  die  Zeichen  auf  dem  Bildschirm  genau  betrachten,  so 
merken  Sie,  daß  sie  aus  einzelnen  Punkten  zusammengesetzt 
sind.  Alle  Zeichen  werden  in  einer  Matrix  von  8 mal  8 Bild- 
schirmpunkten dargestellt.  Der  Buchstabe  "B"  z.B.  sieht  dann 
etwa  so  aus: 

J0|§ 


Wenn  dieses  Zeichen  nun  "reverse"  dargestellt  wird,  werden  alle 
gesetzten  Punkte  der  8x8-Matrix  gelöscht  und  umgekehrt.  Das 
"B"  sieht  demnach  dann  so  aus: 


oooooo< 


Wenn  Sie  bei  der  Farbauswahl  zufällig  die  Taste  <9>  zusammen 
mit  <Ctrl>  betätigt  haben,  sind  Sie  schon  unfreiwillig  mit  den 
reversen  Zeichen  konfrontiert  worden.  Die  reverse  Zeichendar- 
stellung wird  mit  den  Tasten  <Ctrl>  und  <9>  eingeschaltet. 

Löschen  Sie  nun  den  Bildschirm,  und  schreiben  Sie  in  die  erste 
Zeile  den  Text 

REVERSE  IST  NUN  AUSGESCHALTET 

Nachdem  Sie  den  Cursor  zum  Anfang  der  zweiten  Zeile  beför- 
dert haben,  halten  Sie  bitte  die  Taste  <Ctrl>  gedrückt  und  betä- 
tigen kurz  die  Taste  <9>.  Schreiben  Sie  danach  den  folgenden 
Text  auf  den  Bildschirm: 

REVERSE  IST  NUN  EINGESCHALTET 

Jetzt  sehen  Sie  bestens,  was  reverse  Zeichendarstellung  bedeutet. 
Natürlich  muß  dies  auch  wieder  auszuschalten  sein.  Die  Taste 
rechts  neben  der  <9>,  also  die  Taste  <0>  schaltet  diesen  Rever- 
semodus zusammen  mit  <Ctrl>  wieder  aus.  Halten  Sie  dazu  die 
<Ctrl>-Taste  gedrückt,  und  tippen  Sie  kurz  auf  die  Taste  <0>. 
Sie  können  in  der  gewohnten  Art  und  Weise  weiterschreiben. 
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Wozu  benötigt  man  diese  ungewohnte  Zeichendarstellung?  Eine 
berechtigte  Frage,  die  jedoch  leicht  zu  beantworten  ist.  Wenn  Sie 
schon  einmal  Programme  aus  dem  Handel  gestartet  und  bedient 
haben,  werden  Sie  sicher  hier  und  da  reverse  Zeichen  erkannt 
haben.  Z.B.  wird  die  letzte  Bildschirmzeile  gerne  dazu  benutzt, 
den  Benutzer  des  Programms  auf  Fehler  hinzuweisen.  Diese 
Fehlermeldungen  werden  dazu  "reverse"  ausgegeben,  damit  sie 
sofort  ins  Auge  fallen.  Eine  weitere  Möglichkeit  ist,  die  ersten 
ein  oder  zwei  Buchstaben  von  aufgelisteten  Teilprogrammen  "re- 
verse" darzustellen.  Der  Benutzer  wählt  dann  das  entsprechende 
Teilprogramm  aus,  indem  er  die  zugehörigen  reversen  Zeichen 
eingibt.  Ein  Beispiel: 


RRUURRHMF  UNKT  I Ol  ICH 

giNGEEEM 
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»ESCHEN 

gjCHEN 

HU  -•.•.MH! . ' ' 


Hier  sind  die  jeweils  ersten  Zeichen  der  auszuwählenden  Teil- 
programme "reverse"  dargestellt.  Sie  geben  nun  einen  der  Buch- 
staben "E",  "A",  "L"  oder  "S"  ein,  und  das  gewünschte  Teilpro- 
gramm wird  aktiv.  Übrigens:  So  etwas  nennt  man  in  der  Fach- 
sprache "MENÜ",  in  diesem  Fall  ein  "MENÜ"  in  vier  Gängen. 

Tips  zum  Computerarbeitsplatz 

Wahrscheinlich  haben  Sie  Ihren  Commodore  64  jetzt  gerade  auf 
dem  Wohnzimmertisch  stehen  und  die  verschiedenen  Anschluß- 
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kabel  laden  zum  Darüberstolpern  ein.  Das  ist  natürlich  nicht 
gerade  der  ideale  Computerarbeitsplatz. 

Wenn  es  sich  irgendwie  einrichten  läßt,  sollten  Sie  schauen,  daß 
Sie  einen  dauerhaften  Platz  für  Ihre  Anlage  finden.  Ein  kleiner 
Tisch  von  etwa  1,20  Meter  Länge  und  0,60  Meter  Breite  reicht 
dazu  schon  aus.  Falls  Sie  nicht  auf  den  Familienfernseher  ange- 
wiesen sind  oder  über  einen  eigenen  Monitor  verfügen,  sollten 
Sie  den  Bildschirm  direkt  hinter  den  Commodore  64  stellen. 
Ideal  ist  ein  zusätzlicher  Monitorständer,  der  sich  drehen  und 
kippen  läßt.  Solche  Ständer  sind  mit  etwa  30  Mark  nicht  allzu 
teuer  und  in  jedem  Fall  eine  lohnende  Anschaffung. 

Rechts  und  links  neben  dem  Commodore  64  sollten  Sie  ausrei- 
chend Platz  lassen.  Auf  der  rechten  Seite  brauchen  Sie  evtl.  Platz 
für  einen  Joystick  oder  eine  Maus.  Auf  der  linken  Seite  sollte 
sich  zumindest  ein  auf  geschlagenes  Buch,  wie  zum  Beispiel  die- 
ses, unterbringen  lassen. 

Falls  Sie  über  eine  Datasette  oder  eine  Floppy  verfügen,  so  stel- 
len Sie  diese  am  besten  etwas  abseits,  auf  keinen  Fall  aber  un- 
mittelbar neben  den  Fernseher  oder  den  Monitor.  Insbesondere 
ältere  Fernsehgeräte  strahlen  unter  Umständen  Störfelder  aus, 
die  zu  einem  Datenverlust  auf  der  Kassette  oder  Diskette  führen 
können.  Überhaupt  sollten  Sie  alles,  was  evtl,  magnetische  Felder 
ausstrahlt,  weit  aus  dem  Umkreis  Ihrer  Datasette  oder  Floppy 
bannen. 

Daß  Ihr  Commodore  64  auf  Flüssigkeiten  jeder  Art  sehr  aller- 
gisch reagiert,  braucht  wohl  nicht  extra  erwähnt  zu  werden. 
Kaffeetassen,  Colas  und  ähnliches  gehören  daher  auf  keinen  Fall 
auf  den  Computertisch.  Schneller  als  man  denkt  hat  man  ein 
Glas  umgestoßen!  Eine  unter  Umständen  sehr  teuere  Reparatur 
ist  dann  die  unvermeidliche  Folge. 

Ein  weiterer  wichtiger  Punkt  ist  die  Sonnenbestrahlung  bzw.  die 
Beleuchtung.  Wie  alle  elektronischen  Geräte  reagiert  der  Com- 
modore 64  auch  auf  zu  starke  Hitzeeinwirkung  sehr  empfindlich. 
Man  sollte  das  Gerät  daher  nicht  so  aufstellen,  daß  es  stunden- 
lang der  Sonne  ausgesetzt  ist.  Auf  der  anderen  Seite  sollten  Sie 
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auf  eine  ausreichende  Beleuchtung  des  Arbeitsplatzes  achten. 
Eine  kleine  Steh-  oder  Tischlampe  eignet  sich  dazu  am  besten. 
Ganz  wichtig:  Die  Lampe  nicht  so  aufstellen,  daß  sie  direkt  auf 
den  Bildschirm  strahlt!  Als  guter  Platz  erweist  sich  eine  Position 
rechts  oder  links  neben  dem  Bildschirm. 

Ein  kleiner  Tip  am  Rande:  Auch  wenn  Sie  für  Ihre  Commodore- 
64- Anlage  ein  dauerhaftes  Plätzchen  gefunden  haben,  werfen  Sie 
auf  keinen  Fall  die  ganzen  Verpackungen  weg!  Wenn  Sie  die 
Geräte  später  einmal  wieder  transportieren  müssen  (etwa  zur 
Reparatur)  werden  Sie  froh  sein,  wenn  Sie  noch  die  Originalver- 
packung haben. 


1.2  Fernseher  oder  Monitor? 

Einen  Fernseher  wird  wohl  jeder  zu  Hause  herumstehen  haben. 
Daher  dürfte  ein  Fernseher  das  erste  Sichtgerät  sein,  an  das  man 
seinen  Commodore  64  anschließt.  Spätestens  wenn  man  mit 
schmerzenden  und  tränenden  Augen  vor  dem  Gerät  sitzt,  wird 
man  sich  aber  fragen,  ob  es  nicht  etwas  besseres  gibt.  Und  das 
gibt  es  in  der  Tat:  einen  Monitor! 

Im  Gegensatz  zu  einem  Fernseher  ist  ein  Monitor  ganz  auf  den 
Betrieb  an  einem  Computer  ausgerichtet.  Das  zeigt  sich  unter 
anderem  darin,  daß  er  über  kein  Antennenemfangsteil  verfügt. 
Allerdings  gibt  es  seit  einiger  Zeit  für  etwa  200  bis  300  Mark 
Zusatzgeräte,  mit  denen  sich  ein  Monitor  zu  einem  Fernseher 
erweitern  läßt.  Bedenkt  man  aber,  daß  es  gute  Fernsehportables 
heutzutage  schon  für  um  die  500  Mark  gibt,  so  dürfte  die  An- 
schaffung eines  derartigen  Zusatzgerätes  kaum  lohnend  sein. 

Welche  Arten  von  Monitoren  gibt  es  nun? 

Da  sind  zunächst  die  sogenannten  Monochrom-Monitore.  Diese 
Monitore  erlauben  nur  eine  einfarbige  Darstellung,  entweder  in 
grün,  weiß  oder  bernstein.  Die  tatsächlich  eingestellten  Farben 
werden  aber  in  entsprechenden  Farbabstufungen  dargestellt.  Bei 
einem  Grün-Monitor  erscheint  beispielsweise  die  Farbe  blau 
dann  als  mittelgrün  und  die  Farbe  weiß  als  hellgrün.  Solange  ein 
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Programm  nicht  zu  viele  Farben  verwendet,  hat  man  daher  auch 
auf  einem  Monochrom-Monitor  eine  ausreichend  kontrastreiche 
Darstellung. 

Gute  Monochrom-Monitore  gibt  es  schon  ab  etwa  250  Mark. 
Beim  Kauf  sollten  Sie  darauf  achten,  daß  Sie  ein  Gerät  mit  ei- 
nem sogenannten  Composite-Eingang  bekommen.  Diese  Geräte 
können  Sie  bei  einem  späteren  Systemwechsel  problemlos  auch 
an  einen  Amiga  oder  einen  PC  anschließen.  Im  Gegensatz  zu  den 
Monochrom-Monitoren  erlauben  Farbmonitore  eine  farbige 
Darstellung,  wie  am  Fernseher,  nur  eben  mit  einer  höheren 
Auflösung  und  einem  flimmerfreieren  Bild. 

Probleme  gibt  es  allerdings  beim  Anschluß  an  den  Commodore 
64.  Professionelle  Geräte  aus  dem  PC-Bereich  können  in  der 
Regel  am  Commodore  64  nicht  ohne  größere  Umstände  ange- 
schlossen werden.  Diese  dürften  allerdings  auch  schon  wegen 
ihres  hohen  Preises  (zum  Teil  über  2000  Mark)  von  vorneherein 
ausscheiden. 

Für  etwa  600  Mark  wird  von  Commodore  selbst  ein  Farbmonitor 
für  den  Commodore  64  angeboten,  der  über  ein  recht  gutes  Bild 
und  zusätzlich  über  einen  Stereoton-Ausgang  verfügt.  Nun  stellt 
sich  natürlich  die  Frage,  soll  man  sich  einen  Monitor  zulegen 
und  wenn  ja,  welchen? 

Eine  generelle  Antwort  auf  diese  Frage  läßt  sich  nicht  geben. 
Letztendlich  kommt  es  darauf  an,  mit  welchen  Anwendungen  Sie 
auf  dem  Commodore  64  arbeiten  möchten.  Wenn  Sie  sich  bei- 
spielsweise hauptsächlich  für  grafische  Anwendungen  oder  für 
Spiele  interessieren,  sollten  Sie  sich  einen  Farbmonitor  zulegen. 
Wenn  Sie  dagegen  mehr  "ernsthafte"  Anwendungen,  wie  etwa 
Textverarbeitung  oder  Programmieren,  betreiben  möchten,  emp- 
fiehlt sich  die  Anschaffung  eines  Monochrom-Monitors.  Am 
"augenfreundlichsten"  erweist  sich  dabei  ein  sogenannter  Grün- 
Monitor. 

Allerdings  sollte  man  - auch  mit  dem  besten  Monitor  ausgerüstet 
- nicht  zu  lange  vor  dem  Computer  sitzen.  Ihre  Augen  werden 
es  Ihnen  danken! 
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1.3  Datasette  und  Floppy 

Egal,  ob  Sie  nur  mit  fertiger  Software  arbeiten  oder  auch  selbst 
programmieren  wollen.  Sie  benötigen  ein  (dauerhaftes)  Spei- 
chermedium. Eine  Möglichkeit  ist  die  Anschaffung  einer  soge- 
nannten Datasette.  Eine  Datasette  ist  im  Grunde  genommen 
nichts  anderes  als  ein  umgebauter  Kassettenrekorder.  Anstelle 
der  Musik  werden  eben  Computerdaten  aufgezeichnet  bzw.  wie- 
dergegeben. 

Eine  Datasette  ist  sehr  günstig  (für  etwa  50-70  Mark)  zu  haben. 
Um  es  aber  gleich  vorweg  zu  sagen:  Wenn  Sie  auch  nur  halbwegs 
vernünftig  mit  Ihrem  Commodore  64  arbeiten  möchten,  werden 
Sie  früher  oder  später  nicht  um  den  Kauf  einer  sogenannten 
Floppy  herumkommen.  Diese  ist  mit  knapp  400  Mark  allerdings 
nicht  gerade  billig. 

Eine  Floppy,  auch  Diskettenlaufwerk  genannt,  ist  im  weiteren 
Sinne  mit  einem  Plattenspieler  vergleichbar.  Anstelle  von  Schall- 
platten benötigt  man  sogenannte  Disketten.  Das  sind  kleine,  ma- 
gnetisch beschichtete  Scheiben,  die  sich  aber  im  Gegensatz  zur 
Schallplatte  beliebig  oft  beschreiben  lassen.  Die  Diskette  dreht 
sich  in  der  Floppy  mit  sehr  hoher  Geschwindigkeit  und  erlaubt 
daher  einen  schnellen  Zugriff  auf  die  gespeicherten  Daten. 

Hier  liegt  auch  der  wesentliche  Unterschied  zur  Datasette.  Mit 
einer  Datasette  können  die  Daten  nur  sequentiell,  d.h.  der  Reihe 
nach,  gelesen  werden.  Wenn  Sie  sich  zum  Beispiel  gerade  am 
Anfang  einer  Kassette  befinden  und  die  zu  ladenden  Daten  ganz 
am  Ende  stehen,  kann  es  bis  zu  einer  halben  Stunde  dauern,  bis 
die  Daten  geladen  werden!  Bei  der  Floppy  dagegen  ist  es  völlig 
egal,  an  welcher  Stelle  auf  der  Diskette  die  Daten  stehen.  Jeder 
Punkt  der  Diskette  läßt  sich  in  Sekundenschnelle  ansteuern.  Ein 
weiteres  Problem  bei  der  Datasette  ist  die  langsame  Übertra- 
gungsgeschwindigkeit. Diese  beträgt  nur  etwa  300  Baud,  das  sind 
etwa  60  Zeichen  je  Sekunde,  d.h.,  in  einer  Sekunde  werden  nur 
etwa  60  Zeichen  von  der  Datasette  in  den  Speicher  des  Commo- 
dore  64  geladen.  Bei  der  Floppy  ist  die  Übertragungsgeschwin- 
digkeit über  zehnmal  so  hoch!  Auch  das  längste  Programm  wird 
daher  in  wenigen  Minuten  in  den  Rechner  geholt. 
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Natürlich  stellt  eine  Anschaffung  in  Höhe  von  rund  400  Mark 
keine  Kleinigkeit  dar.  Manch  einer  wird  daher  notgedrungen 
zunächst  mit  einer  Datasette  arbeiten  müssen.  Für  all  diejenigen 
gibt  es,  sozusagen  als  Trostpflaster,  das  Kapitel  10.  In  Kapitel  10 
erfahren  Sie,  wie  man  aus  seiner  Datasette  durch  geschickte 
Kniffe  und  Tricks  wirklich  das  Letzte  herausholen  kann. 


1.4  Der  richtige  Drucker 

Wenn  Sie  die  Ergebnisse  Ihrer  Arbeit  am  Commodore  64 
"Schwarz  auf  Weiß"  haben  wollen,  benötigen  Sie  einen  Drucker. 
Was  die  Preise  anbelangt,  reicht  das  Spektrum  von  rund  300 
Mark  bis  weit  über  2000  Mark.  Des  hohen  Preises  sollte  man  den 
Druckerkauf  sehr  sorgfältig  planen.  Entscheidend  ist,  für  welche 
Art  von  Ausdrucken  Sie  den  Drucker  benötigen. 

Wenn  Sie  den  Drucker  nur  für  den  "Hausgebrauch"  einsetzen 
wollen,  also  zum  Beispiel  nur  gelegentlich  Programm-Listings 
ausdrucken  möchten,  dann  sind  die  Druckqualität  und  die 
Druckgeschwindigkeit  nicht  so  wichtig.  In  diesem  Fall  reicht  ein 
einfacher  9-Nadel-Matrixdrucker  für  300  bis  400  Mark. 

Wenn  Sie  dagegen  mit  dem  Commodore  64  beispielsweise  Briefe 
schreiben  möchten,  dann  sollen  diese  natürlich  auch  in  anspre- 
chender Qualität  und  nicht  zu  langsam  zu  Papier  gebracht  wer- 
den. In  diesem  Fall  empfiehlt  sich  der  Kauf  eines  24-Nadel- 
Matrixdruckers,  der  allerdings  mit  knapp  1000  Mark  zu  Buche 
schlägt. 

Ein  anderes  Problem  ist  der  Anschluß  des  Druckers  an  den 
Commodore  64.  Die  von  Commodore  selbst  angebotenen  Drucker 
für  den  Commodore  64  verfügen  über  eine  spezielle  Schnitt- 
stelle, mit  der  man  den  Drucker  direkt  an  den  Rechner  an- 
schließen kann.  Dafür  verträgt  sich  diese  Schnittstelle  aber  mit 
keinen  anderen  Computern,  d.h..  Sie  können  diesen  Drucker  nur 
am  Commodore  64  betreiben.  Das  mag  zwar  für  den  Augenblick 
ausreichen,  wenn  Sie  aber  später  auf  einen  anderen  Rechner 
umsteigen,  können  Sie  mit  dem  Drucker  nichts  mehr  anfangen. 
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Professionelle  Drucker,  wie  die  angesprochenen  24-Nadel-Ma- 
trixdrucker,  verfügen  in  der  Regel  über  eine  sogenannte  Centro- 
nics-Schnittstelle,  mit  der  sie  problemlos  an  alle  Personalcompu- 
ter (PC),  aber  eben  nicht  an  den  Commodore  64  angeschlossen 
werden  können.  In  diesem  Fall  hilft  ein  sogenanntes  Interface, 
das  zwischen  den  Drucker  und  den  Rechner  geschaltet  wird. 
Solch  ein  Interface  ist  separat  erhältlich  und  kostet  bis  zu  etwa 
100  Mark. 

Dank  der  weiten  Verbreitung  des  Commodore  64  sind  einige 
Druckerhersteller  in  der  Zwischenzeit  dazu  übergegangen,  ihre 
Drucker  werksmäßig  mit  einer  zusätzlichen  Commodore-64- 
Schnittstelle  auszustatten.  Der  Aufpreis  beträgt  dann  meist  nicht 
mehr  als  etwa  50  Mark.  So  gibt  es  zum  Beispiel  den  EPSON  LX 
800  komplett  mit  Centronics-  und  Commodore-64-Interface  für 
knapp  550  Mark. 


1 .5  Joysticks  und  Mäuse 

Zwei  sehr  nützliche  und  im  Gegensatz  zu  Monitor,  Floppy  und 
Drucker  relativ  preisgünstige  Peripheriegeräte  sind  der  soge- 
nannte Joystick  und  die  Maus. 

Der  Joystick  ist  natürlich  ein  unentbehrliches  Hilfsmittel  für  je- 
den Spiele-Programmierer.  Hier  eine  konkrete  Kaufempfehlung 
zu  geben  fällt  schwer.  Zu  groß  und  vielfältig  ist  das  Angebot. 
Wer  viel  spielen  möchte,  sollte  sich  aber  unbedingt  vor  Billigan- 
geboten hüten.  Sonst  sind  nach  der  ersten  größeren  Schlacht 
nicht  nur  die  gegnerischen  Raumschiffe  zerstört,  sondern  gleich 
auch  der  Joystick! 

Als  äußerst  robust  erweisen  sich  Joysticks  mit  sogenannten  Mi- 
kroschaltern zur  internen  Steuerung.  Außerdem  sollte  man  vor 
dem  Kauf  in  jedem  Fall  einen  "Grifftest"  machen,  d.h.  prüfen, 
wie  der  Joystick  in  der  Hand  liegt  und  wie  leicht  oder  schwer  er 
sich  bewegen  läßt. 

Joysticks  lassen  sich  aber  nicht  nur  bei  Spielen  sinnvoll  einset- 
zen.  Auch  viele  Grafikprogramme  erlauben  die  Steuerung  über 
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einen  Joystick.  Damit  kann  man  dann  zum  Beispiel  Freihand- 
zeichnen oder  Farben  und  Muster  auswählen  usw... 

Der  dritte  Anwendungsbereich  für  einen  Joystick  ist  GEOS.  In 
GEOS,  der  grafischen  Benutzeroberfläche  des  Commodore  64, 
haben  Sie  einen  sogenannten  Maus-Cursor  (ähnlich  dem  norma- 
len Text-Cursor),  den  Sie  mit  einem  Joystick  steuern  können. 

Als  Alternative  zum  Joystick  bietet  sich  eine  sogenannte  Maus 
an.  Beide  Zusatzgeräte  werden  am  Joystick-Port  angeschlossen. 
Worin  liegen  also  die  Unterschiede? 

Der  Joystick  ist  in  erster  Linie  auf  eine  schnelle  Reaktion  auf 
Richtungsänderungen  ausgelegt.  Wenn  Sie  aber  zum  Beispiel 
einmal  versuchen,  den  Mauszeiger  von  GEOS  von  der  linken 
unteren  in  die  rechte  obere  Bildschirmecke  zu  bewegen,  werden 
Sie  feststellen,  daß  das  ganz  schön  lange  dauert. 

Eine  Maus  dagegen  reagiert  unmittelbar  auf  die  Bewegung.  So, 
wie  Sie  die  Maus  auf  dem  Tisch  bewegen,  bewegt  sich  auch  der 
Mauszeiger  am  Bildschirm.  Gleichzeitig  erlaubt  die  Maus  auch 
eine  feinere  Steuerung,  etwa  beim  Freihandzeichnen  in  einem 
Grafikprogramm. 

Allerdings  gibt  es  für  den  Commodore  64  zwei  verschiedene 
Maustypen.  Wenn  Sie  sich  eine  Maus  kaufen  möchten,  sollten  Sie 
unbedingt  darauf  achten,  daß  es  sich  auch  um  eine  sogenannte 
Proportional-Maus  handelt.  Andere  Mäuse  verhalten  sich  näm- 
lich wie  ein  ganz  normaler  Joystick! 

Die  von  Commodore  angebotene  Maus  "C  1351"  kostet  etwa  90 
Mark.  Für  einen  guten  Joystick  muß  man  50  Mark  hinblättern. 

Ein  kleiner  Tip  für  alle  Maus-Interessierten:  Wenn  Ihnen  zufällig 
auch  ein  Amiga-Rechner  zur  Verfügung  stehen  sollte,  so  können 
Sie  dessen  Maus  problemlos  am  Commodore  64  anschließen!  Die 
Amiga-Maus  ist  nämlich  mit  der  Proportional-Maus  C 1351 
identisch. 
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1.6  Mit  Software  arbeiten 

Software  gibt  es  ganz  allgemein  in  vielerlei  "Form":  auf  Steck- 
modulen, auf  Kassette,  auf  Diskette  oder  in  gedruckter  Form  als 
sogenanntes  Listing. 

Programm- Listings  müssen  Sie  zunächst  einmal  in  den  Rechner 
eintippen,  bevor  Sie  die  Programme  nutzen  können.  Ein  sehr 
mühseliges  und  vor  allem  fehlerträchtiges  Unterfangen.  Pro- 
gramm-Listings  haben  aber  auch  einen  großen  Vorteil:  Sie  kön- 
nen daraus  lernen  und  Ihre  Programmierkenntnisse  verbessern  - 
vorausgesetzt  natürlich.  Sie  wollen  überhaupt  selbst  program- 
mieren. Aus  diesem  Grund  finden  Sie  auch  in  diesem  Buch  eine 
Vielzahl  von  Listings  in  den  beiden  Programmiersprachen  BASIC 
und  Assembler.  Zunächst  wollen  wir  uns  aber  ausschließlich  mit 
"gebrauchsfertiger"  Software  befassen. 


1.6.1  Software  auf  Steckmodulen 

Software  auf  Steckmodulen  findet  man  mittlerweile  nur  noch 
relativ  selten.  Das  liegt  nicht  zuletzt  an  den  Preisen  für  die 
Hardware.  Das  Steckmodul  allein  (d.h.  ohne  die  Software)  kostet 
schon  etwa  SO  Mark,  eine  Diskette  dagegen  weniger  als  2 Mark! 
Kaum  ein  Anwender  ist  heute  noch  bereit,  diesen  Mehrpreis  zu 
bezahlen. 

Steckmodule  werden  daher  nur  noch  dann  verwendet,  wenn  ein 
Programm  derart  groß  und  umfangreich  ist,  daß  es  mit  einer 
Diskette  nicht  mehr  sinnvoll  eingesetzt  werden  kann.  Ein  Bei- 
spiel dafür  ist  das  Programm  "Pagefox",  ein  sogenanntes  Desk- 
top-Publishing-Programm,  das  ich  Ihnen  in  Kapitel  2 vorstellen 
werde. 

Die  Arbeit  mit  einem  Steckmodul  gestaltet  sich  denkbar  einfach. 
Das  Steckmodul  muß  dazu  nur  in  den  Modul-Steckplatz  auf  der 
Rückseite  des  Commodore  64  ganz  rechts  eingesteckt  werden. 

Aber  Vorsicht!  Der  Commodore  64  muß  beim  Ein-  oder  Aus- 
stecken eines  Moduls  unbedingt  ausgeschaltet  sein.  Ansonsten 
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riskieren  Sie  eine  Beschädigung  des  Moduls  und  im  schlimmsten 
Fall  sogar  des  Rechners  selbst.  Beim  Einschalten  des  Rechners 
prüft  der  Commodore  64  automatisch,  ob  sich  im  Modulschacht 
ein  Modul  befindet.  Falls  ja,  übergibt  er  die  Rechnerkontrolle 
an  das  Modulprogramm,  das  sich  dann  meist  mit  irgendeiner 
speziellen  Einschaltmeldung  bemerkbar  macht.  Wie  Sie  an- 
schließend weiterverfahren  müssen,  erfahren  Sie  aus  der  Bedie- 
nungsanleitung zu  dem  Programm. 


1 .6.2  Software  von  Datasette  und  Floppy  laden 

Um  Software  von  Kassette  oder  Diskette  zum  Laufen  zu  brin- 
gen, ist  schon  etwas  mehr  Aufwand  erforderlich.  Der  ganze 
Vorgang  gliedert  sich  in  zwei  wesentliche  Schritte:  Zunächst 
müssen  Sie  das  Programm  in  den  Speicher  des  Commodore  64 
laden.  Anschließend  müssen  Sie  das  Programm  starten.  Manche 
Programme  starten  sich  nach  dem  Laden  auch  automatisch.  Im 
folgenden  müssen  Sie  nun  einige  Kommandos  eingeben,  die 
Ihnen  im  Augenblick  vielleicht  noch  nicht  sehr  viel  sagen.  Das 
läßt  sich  leider  nicht  vermeiden.  Bei  allen  Kommandos  handelt 
es  sich  um  Anweisungen  in  der  Programmiersprache  BASIC. 
Bitte  achten  Sie  darauf,  daß  Sie  jede  Anweisung  jeweils  in  eine 
leere  Bildschirmzeile  schreiben  und  zum  Schluß  die  <Return>- 
Taste  drücken. 

Falls  Sie  einmal  die  Meldung  SYNTAX  ERROR  bekommen 
sollten,  haben  Sie  vermutlich  etwas  falsch  eingetippt.  Bitte  über- 
prüfen und  verbessern  Sie  in  diesem  Fall  Ihre  Eingabe,  und 
versuchen  Sie  es  noch  einmal.  Der  Commodore  64  ist  etwas  pin- 
gelig, was  die  Eingaben  betrifft.  Schon  ein  einzelnes  vergessenes 
Komma  oder  Anführungszeichen  führt  in  der  Regel  zu  einer 
Fehlermeldung. 

Mit  der  Datasette  arbeiten 

Die  Datasette  arbeitet  grundsätzlich  wie  ein  Kassettenrekorder. 
Nachdem  Sie  die  Programmkassette  in  die  Datasette  eingelegt 
und  gegebenenfalls  bis  zum  Anfang  zurückgespult  haben,  kann 
es  losgehen.  Bitte  geben  Sie  ein: 
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LOAD 

Der  Commodore  64  antwortet  Ihnen  daraufhin  mit: 


PRESS  PLAY  ON  TAPE 


Sie  sollen  also  die  <Play>-Taste  der  Datasette  drücken.  Bitte  tun 
Sie  dies,  aber  erschrecken  Sie  nicht!  Daß  der  Bildschirm  nun  die 
Rahmenfarbe  annimmt  und  der  Text  vom  Bildschirm  verschwin- 
det, ist  völlig  normal  und  hat  technische  Gründe.  Immer  wenn 
der  Commodore  64  etwas  von  der  Datasette  lädt,  schaltet  er,  um 
Zeit  zu  sparen,  den  Bildschirm  ab.  Das  Laden  von  Datasette 
dauert  aber  auch  so  noch  lange  genug,  wie  Sie  schon  bald  fest- 
stellen werden. 

Der  Commodore  64  sucht  nun  das  erste  auf  der  Kassette  ge- 
speicherte Programm.  Hat  er  es  gefunden,  meldet  er  sich  wieder 
am  Bildschirm: 


FOUND  PROGRAMMNAHE 


Hinter  FOUND  steht  der  Name  des  gefundenen  Programms. 
Jetzt  müssen  Sie  nur  noch  die  <Commodore>-Taste  links  unten 
auf  der  Tastatur  drücken  und  das  Programm  wird  geladen. 

Falls  sich  das  Programm  nicht  selbst  startet,  meldet  sich  der 
Rechner  nach  Beendigung  des  Ladevorgangs  wieder  mit  einer 
READY.-Meldung.  Das  Programm  befindet  sich  nun  im  Spei- 
cher des  Commodore  64  und  muß  nur  noch  gestartet  werden. 
Dazu  geben  Sie  ein: 

RUN 

Der  gesamte  Vorgang  läßt  sich  auch  abkürzen:  Drücken  Sie  die 
<Shift>-  und  die  <Run/Stop>-Taste  zusammen.  Der  Commodore 
64  fordert  Sie  dann  wieder  auf,  die  <Play>-Taste  der  Datasette 
zu  drücken,  lädt  das  gefundene  Programm  und  startet  es  auto- 
matisch. 
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Es  kann  auch  sein,  daß  das  Programm  eine  spezielle  Startanwei- 
sung benötigt.  Diese  finden  Sie  dann  in  der  Bedienungsanleitung 
zu  dem  Programm,  meist  auf  den  ersten  paar  Seiten. 

Falls  sich  auf  der  Kassette  mehrere  Programme  befinden  und  Sie 
ein  bestimmtes  Programm  laden  möchten,  müssen  Sie  hinter 
LOAD  den  Namen  des  zu  ladenden  Programms  angeben: 

LOAD  "PROGRAMMNAME" 

Bitte  beachten  Sie,  daß  der  Programmname  in  Anführungszei- 
chen stehen  muß!  Die  weitere  Vorgehensweise  ist  dieselbe  wie 
gerade  eben  beschrieben.  Wenn  sich  das  Programm  weiter  hinten 
auf  der  Kassette  befindet,  kann  die  Suche  aber  sehr  lange  dau- 
ern. Besser  ist  es  da,  das  Band  ungefähr  bis  zu  der  Stelle  vorzu- 
spulen, an  der  man  das  Programm  vermutet. 

Nicht  mehr  lange  und  Sie  werden  sicher  Ihre  ersten  eigenen 
BASIC-Programme  schreiben.  Um  diese  dann  dauerhaft  zu  si- 
chern, müssen  Sie  sie  auf  Kassette  speichern.  Dazu  benötigen  Sie 
das  SAVE-Kommando: 

SAVE  "PROGRAMMNAME" 

Der  Name  Ihres  Programms  darf  bis  zu  16  Zeichen  lang  sein. 
Bei  längeren  Namen  werden  nur  die  ersten  16  Zeichen  berück- 
sichtigt, Sie  erhalten  also  bei  zu  langen  Namen  keine  Fehlermel- 
dung. 

Nachdem  Sie  die  <Return>-Taste  gedrückt  haben,  erhalten  Sie 
vom  Commodore  64  die  Aufforderung: 


PRESS  PLAr  AND  RECORD  ON  TAPE 


Sie  sollen  also  die  <Play>-  und  die  <Record> -Taste  der  Datasette 
gleichzeitig  drücken,  wie  man  es  auch  beim  Auf  nehmen  bei  ei- 
nem "normalen"  Kassettenrekorder  gewohnt  ist.  Anschließend 
wird  das  Programm  auf  Kassette  gespeichert.  Auch  dabei  schal- 
tet der  Commodore  64  wieder  den  Bildschirm  ab. 
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Mit  LOAD  "PROGRAMMNAME"  können  Sie  Ihr  Programm 
jetzt  jederzeit  wieder  in  den  Rechner  laden.  Diese  Informationen 
zur  Datasette  sollen  fürs  erste  genügen.  Viele  weitere  Informa- 
tionen zur  Handhabung  der  Datasette  finden  Sie  in  Kapitel  10. 

Mit  der  Floppy  arbeiten 

Die  Arbeit  mit  der  Floppy  1541  gestaltet  sich  etwas  anders  als 
mit  der  Datasette.  Zunächst  einige  Worte  zum  Speichermedium, 
den  Disketten.  Disketten  sind  sehr  empfindlich!  Man  sollte  sie 
daher  sehr  pfleglich  behandeln,  insbesondere,  was  die  Aufbe- 
wahrung betrifft.  Keinesfalls  dürfen  Disketten  in  der  Nähe  von 
Magnetfeldern  gelagert  werden.  Auch  gegen  Hitze  und  Feuch- 
tigkeit reagieren  sie  sehr  allergisch. 

Leere  Disketten,  auf  denen  Sie  selbstgeschriebene  Programme 
oder  Daten  speichern  können,  erhalten  Sie  im  Fachhandel  im 
1 Oer-Pack  und  in  Preislagen  von  knapp  10  Mark  bis  über  40 
Mark.  Die  billigsten  Disketten  mit  der  Bezeichnung  "1S/1D" 
können  Sie  zwar  prinzipiell  verwenden,  im  Hinblick  auf  die 
Datensicherheit  empfehlen  sich  aber  Disketten  der  Qualität 
"2S/1D"  oder  "2S/2D",  die  für  etwa  20  bis  25  Mark  zu  haben 
sind  (wohlgemerkt  10  Stück).  Das  ist  zwar  mehr  als  doppelt  so- 
viel wie  bei  den  Billig-Disketten.  Spätestens  nach  dem  ersten 
Programm-  oder  Datenverlust  werden  Sie  aber  feststellen,  daß 
Billigangebote  auch  ihre  Nachteile  haben. 

Ein  Vorgang,  mit  dem  sich  jeder  Einsteiger  etwas  schwertut,  ist 
das  Einlegen  einer  Diskette  in  das  Laufwerk: 

► öffnen  Sie  zunächst  das  Laufwerk.  Die  Art  des  Verschlusses 
ist  etwas  unterschiedlich,  je  nach  dem  Alter  Ihres  Floppy- 
Modells.  Bei  den  älteren  Modellen  mit  einem  länglichen 
Verschluß  müssen  Sie  diesen  leicht  nach  hinten  drücken.  Al- 
les weitere  besorgt  dann  eine  im  Gehäuse  eingebaute  Feder. 
Die  neueren  Floppy-Modelle  verfügen  über  einen  sogenann- 
ten Knebelverschluß,  den  man  ähnlich  einem  Schalter  nach 
oben  drehen  muß. 

► Nun  kommt  das  Wichtigste,  das  "Ausrichten"  der  Diskette. 
Nehmen  Sie  einmal  eine  Diskette  zur  Hand,  am  besten  die 
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GEOS-Diskette,  die  Sie  auf  jeden  Fall  haben  müßten,  und 
sehen  sie  sich  etwas  genauer  an.  Bitte  fassen  Sie  die  Diskette 
am  Etikett  an,  und  halten  Sie  sie  vom  Körper  weg.  Wenn  Sie 
jetzt  auf  die  Diskette  sehen,  müßte  sich  das  Etikett  rechts 
vorne  befinden  (oder  sich  über  die  gesamte  Vorderseite  er- 
strecken). 

Auf  der  linken  Seite  der  Diskette  sehen  Sie  eine  rechteckige 
Einkerbung.  Das  ist  die  sogenannte  Schreibschutzkerbe.  Wenn  Sie 
diese  Kerbe  zukleben  (passende  Aufkleber  finden  Sie  in  jeder 
Packung  mit  leeren  Disketten),  kann  auf  die  Diskette  nichts 
mehr  geschrieben  werden.  Das  ist  sehr  wichtig,  wenn  Sie  wich- 
tige Daten  vor  dem  versehentlichen  Überschreiben  oder  Löschen 
schützen  wollen. 

Manche  Disketten  mit  gekauften  Programmen  haben  auch  auf 
der  rechten  Seite  eine  Einkerbung,  so  z.B.  die  GEOS-Disketten. 
In  diesem  Fall  sind  die  Disketten  auch  auf  der  Rückseite  be- 
schrieben. Leere  Disketten,  die  über  nur  eine  Schreibschutzkerbe 
verfügen,  können  mit  einer  Schere  leicht  mit  einer  zusätzlichen 
Kerbe  versehen  werden.  Dadurch  erreichen  Sie  die  doppelte 
Speicherkapazität.  Allerdings  ist  die  Floppy  1541  an  sich  nur  auf 
die  Arbeit  mit  einseitig  beschreibbaren  Disketten  eingerichtet.  In 
seltenen  Fällen  kann  es  daher  bei  zweiseitigen  Disketten  zu  ei- 
nem Datenverlust  kommen.  Besser  also.  Sie  verwenden  Ihre  Dis- 
ketten nur  einseitig. 

Auf  der  dem  Etikett  gegenüberliegenden  Seite  sehen  Sie  einen 
größeren  Einschnitt  in  die  Diskettenhülle.  Dort  werden  die  Da- 
ten gelesen  bzw.  geschrieben.  Bitte  achten  Sie  unbedingt  darauf, 
daß  Sie  diese  Stellen  nie  berühren.  Dadurch  könnten  unter  Um- 
ständen nicht  nur  Ihre  Daten  verloren  gehen,  auch  die  Floppy 
selbst  könnte  Schaden  nehmen!  Der  Schreib-/Lesekopf  der 
Floppy  reagiert  schon  auf  kleinste  Schmutzpartikel  (Staub,  Zi- 
garettenasche, Fingerabdrücke)  sehr  empfindlich.  Disketten  ge- 
hören daher,  sofern  sie  sich  nicht  im  Laufwerk  befinden,  immer 
in  ihre  Hülle! 

So,  wie  Sie  die  Diskette  gerade  in  der  Hand  halten,  wird  Sie 
auch  in  das  Laufwerk  eingeführt.  Je  nachdem,  ob  Sie  die  Vor- 
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der-  oder  Rückseite  verwenden  wollen,  entweder  mit  dem  Eti- 
kett nach  oben  oder  nach  unten.  Bitte  schieben  Sie  die  Diskette 
langsam  in  die  Floppy,  bis  Sie  einen  leichten  Widerstand  spüren. 

► Zum  Schluß  müssen  Sie  nur  noch  das  Laufwerk  schließen. 
Jetzt  ist  die  Diskette  "betriebsbereit",  d.h.,  sie  kann  gelesen 
oder  beschrieben  werden. 

Um  die  Diskette  wieder  aus  dem  Laufwerk  zu  bekommen,  ver- 
fahren Sie  analog.  Sobald  Sie  den  Laufwerksverschluß  öffnen, 
wird  die  Diskette  automatisch  "ausgeworfen",  d.h.,  sie  wird 
durch  eine  Feder  etwa  um  die  Hälfte  ihrer  Länge  aus  dem 
Laufwerk  geschoben,  so  daß  Sie  sie  leicht  entnehmen  können. 
Und  dann  sofort  ab  in  die  Papierhülle  damit! 

Nehmen  wir  jetzt  einmal  an.  Sie  haben  eine  Diskette  ins  Lauf- 
werk eingelegt.  Um  nun  ein  Programm  zu  laden,  geben  Sie  ein: 

LOAD  "PROGRAHMNAME" ,8 

Bitte  vergessen  Sie  nicht,  die  <Return>-Taste  zu  drücken!  Als 
Programmnamen  geben  Sie  den  Namen  an,  den  Sie  in  der  Bedie- 
nungsanleitung zu  Ihrem  Programm  finden.  Viele  kommerzielle 
Programme  verwenden  anstelle  eines  langen  Namens  einfach 
einen  Stern  (*).  Es  kann  auch  sein,  daß  Sie  an  die  (8)  (dabei 
handelt  es  sich  übrigens  um  die  sogenannte  Geräteadresse  der 
Floppy)  noch  ein  (,1)  anhängen  müssen.  In  diesem  Fall  startet 
sich  das  Programm  dann  automatisch. 

Wenn  Sie  alles  richtig  gemacht  haben,  müßten  nun  folgende 
Bildschirmmeldungen  erscheinen: 


SEARCHING  FOR  PROGRAHMNAME 
LOAD ING 


Wenn  sich  anschließend  der  Rechner  wieder  mit  einer  READY- 
Meldung  meldet,  müssen  Sie  das  Programm  noch  starten.  Dazu 
geben  Sie  ein:  > 
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RUN 

Zum  Abspeichern  von  selbstgeschriebenen  oder  abgetippten 
BASIC-Programmen  benötigen  Sie  das  SAVE-Kommando: 

SAVE  "PROGRAMMNAHE11, 8 

Der  Programmname  darf  maximal  16  Zeichen  umfassen,  über- 
zählige Zeichen  werden  vom  Rechner  automatisch  "abgeschnit- 
ten"; eine  Fehlermeldung  erhalten  Sie  nicht. 

Bitte  beachten  Sie,  daß  sich  auf  einer  Diskette  keine  zwei  Pro- 
gramme oder  Dateien  mit  demselben  Namen  befinden  dürfen. 
Das  hätte  ja  auch  keinen  Sinn,  denn  gerade  der  Name  dient  ja 
zur  Unterscheidung  der  einzelnen  Programme. 

Wenn  Sie  versuchen,  ein  Programm  unter  einem  Namen  abzu- 
speichern, der  auf  der  eingelegten  Diskette  bereits  existiert,  rea- 
giert die  Floppy  mit  einer  Fehlermeldung.  Daß  etwas  nicht 
stimmt,  erkennen  Sie  auch  daran,  daß  die  rote  LED  an  der  Vor- 
derseite der  Floppy  hektisch  blinkt.  In  diesem  Fall  ändern  Sie 
bitte  den  Namen  des  Programms  und  versuchen  noch  einmal,  es 
abzuspeichern.  Klappt  es  nun  immer  noch  nicht,  so  liegt  ver- 
mutlich ein  anderer  Fehler  vor.  Es  würde  hier  zu  weit  führen. 
Ihnen  alle  möglichen  Fehler  und  vor  allem  deren  Abhilfe  zu  er- 
klären, da  dazu  zumindest  Grundkenntnisse  in  der  Program- 
miersprache BASIC  erforderlich  sind,  die  Sie  ja  im  Moment 
noch  nicht  haben. 

Auf  zwei  wichtige  Vorgänge  möchte  ich  aber  trotzdem  kurz  ein- 
gehen:  das  Formatieren  einer  Diskette  und  das  Löschen  von  Pro- 
grammen. 

Daß  es  mit  dem  Speichern  eines  Programms  nicht  klappt,  kann 
einen  ganz  einfachen  Grund  haben.  Vielleicht  haben  Sie  eine 
neu  gekaufte  Diskette  ins  Laufwerk  eingelegt,  und  diese  ist  nun 
natürlich  noch  nicht  formatiert.  Was  versteht  man  nun  darunter 
schon  wieder? 
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Die  Disketten,  die  Sie  für  Ihre  Floppy  1541  kaufen,  lassen  sich 
auch  für  verschiedene  andere  Computer  bzw.  deren  Laufwerke 
verwenden.  Jedes  Laufwerk  hat  aber  sein  spezielles  Aufzeich- 
nungsformat. Damit  bezeichnet  man  die  Art  und  Weise,  wie  die 
Daten  vom  Laufwerk  auf  der  Diskette  gespeichert  werden.  Um 
sich  nun  später  auf  der  Diskette  "zurechtzufinden",  muß  das 
Laufwerk  zunächst  eine  Reihe  von  Markierungen  auf  die  Dis- 
kette schreiben.  Diesen  Vorgang  bezeichnet  man  als  "Formatie- 
ren" der  Diskette. 

Aber  Vorsicht:  Durch  das  Formatieren  einer  Diskette  gehen  alle 
auf  der  Diskette  eventuell  gespeicherten  Daten  unwiederbring- 
lich verloren!  Bitte  achten  Sie  also  darauf,  daß  Sie  nicht  eine 
Diskette  mit  wichtigen  Programmen  oder  Daten  aus  Versehen 
neu  formatieren.  Um  eine  Diskette  zu  formatieren,  geben  Sie  die 
folgende  Zeile  ein: 

OPEN  1,8,15, ,lN:DISKETTENNAME,ID":CLOSE  1 

Als  Diskettenname  dürfen  Sie  einen  beliebigen,  bis  zu  16  Zei- 
chen langen  Text  verwenden.  Die  ID  dient  der  Floppy  zur  Un- 
terscheidung der  einzelnen  Disketten.  Jede  Ihrer  Disketten  sollte 
daher  über  eine  andere  ID  verfügen.  Als  ID  sind  beliebige  zwei- 
stellige Buchstaben-  oder  Ziffernkombinationen  erlaubt,  bei- 
spielsweise "AB",  "Al",  "01"  usw...  Am  einfachsten  ist  es.  Sie 
"numerieren"  sich  Ihre  Disketten  von  "01"  bis  "99"  durch.  Wenn 
es  dann  irgendwann  mehr  als  100  Disketten  sind,  können  Sie  ja 
mit  dem  Alphabet  weitermachen. 

Nachdem  Sie  die  obige  Zeile  eingetippt  und  die  <Return>-Taste 
gedrückt  haben,  beginnt  die  Floppy  mit  dem  Formatieren.  Bitte 
erschrecken  Sie  nicht!  Das  laute  Rattern  am  Anfang  ist  völlig 
normal.  Dabei  wird  nur  der  Schreib-/Lesekopf  der  Floppy  ju- 
stiert. Der  gesamte  Formatiervorgang  dauert  etwa  90  Sekunden. 
Während  dieser  Zeit  ist  auch  der  Commodore  64  nicht  "an- 
sprechbar". Die  READY-Meldung  erscheint  erst,  nachdem  auch 
die  rote  LED  der  Floppy  erloschen  ist. 

Die  rote  LED  der  Floppy  leuchtet  übrigens  immer  dann,  wenn 
sich  die  Floppy  in  irgendeiner  Weise  mit  der  eingelegten  Dis- 
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kette  befaßt.  Solange  die  LED  leuchtet,  sollte  man  die  eingelegte 
Diskette  daher  keinesfalls  aus  dem  Laufwerk  entfernen,  das 
könnte  fatale  Folgen  haben! 

Wenn  man  längere  Zeit  an  einem  BASIC-Programm  arbeitet, 
kommt  man  nicht  umhin,  das  Programm  von  Zeit  zu  Zeit  abzu- 
speichern. Dazu  möchte  man  dann  natürlich  nicht  immer  wieder 
einen  neuen  Namen  verwenden.  Sonst  wäre  die  Diskette  schon 
bald  mit  vielleicht  10  oder  15  verschiedenen  Programmversionen 
überfüllt.  Das  Programm  einfach  unter  dem  alten  Namen  abzu- 
speichern geht  aber,  wie  Sie  ja  inzwischen  wissen,  auch  nicht. 
Die  Lösung:  Das  alte  Programm  muß  auf  der  Diskette  gelöscht 
werden.  Dazu  geben  Sie  die  folgende  Zeile  ein: 

OPEN  1 , 8, 1 5 , "S : PROGRAMMNAME " : CLOSE  1 

Das  "S"  vor  dem  Programmnamen  steht  für  das  englische 
"Scratch",  also  "Löschen".  Anschließend  können  Sie  das  Pro- 
gramm mit  dem  üblichen  SAVE  "PROGRAMMNAME", 8 ab- 
speichern. Damit  möchte  ich  es  fürs  erste  bewenden  lassen.  Viele 
weitere  Informationen  zur  Arbeit  mit  der  Floppy  finden  Sie  in 
Kapitel  5. 

Egal,  ob  Sie  mit  einer  Datasette  oder  einer  Floppy  arbeiten.  Sie 
sollten  sich  nach  Möglichkeit  immer  eine  Sicherheitskopie  Ihrer 
Programme  erstellen.  Eine  Kassette  oder  Diskette  ist  schnell  be- 
schädigt! Wenn  Sie  dann  über  keine  Kopie  verfügen,  ist  das  Pro- 
gramm verloren. 

Voraussetzung  für  das  Kopieren  ist  allerdings,  daß  die  betref- 
fenden Programme  über  keinen  Kopierschutz  gegen  das 
Raupkopieren  verfügen.  Falls  dies  der  Fall  sein  sollte,  besteht 
meistens  die  Möglichkeit,  beim  Hersteller  des  Programms  für 
einen  kleinen  Unkostenbetrag  eine  Ersatzdiskette  anzufordern. 

Das  Kopieren  selbst  geht  ganz  einfach.  Eine  Kassette  kopieren 
Sie  wie  eine  normale  Musikkassette  mit  Hilfe  zweier  Kassetten- 
rekorder oder  Ihrer  Stereoanlage.  Zum  Kopieren  einer  Diskette 
benötigen  Sie  ein  Kopierprogramm,  am  besten  ein  sogenanntes 
Backup-Programm,  das  in  der  Lage  ist,  eine  komplette  Diskette 
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zu  kopieren.  Wenn  Sie  es  vielleicht  auch  noch  nicht  wissen,  solch 
ein  Programm  haben  Sie  schon!  Der  Benutzeroberfläche  GEOS 
ist  nämlich  ein  Backup-Programm  beigefügt,  das  an  sich  zum 
Kopieren  der  GEOS- Disketten  gedacht  ist,  sich  aber  auch  für 
beliebige  Disketten  verwenden  läßt.  Die  genaue  Vorgehensweise 
erfahren  Sie  im  nächsten  Abschnitt.  Mit  GEOS  kann  man  übri- 
gens auch  sehr  komfortabel  einzelne  Programme  kopieren.  Und 
nicht  nur  das:  GEOS  bietet  einiges,  das  einem  die  Verwaltung 
seiner  Disketten  wesentlich  vereinfacht.  Grund  genug,  sich 
GEOS  einmal  genauer  anzuschauen. 


1.6.3  Selbst  programmieren 

Die  vielleicht  interessanteste  Tätigkeit  im  Zusammenhang  mit 
Computern  ist  das  Programmieren.  Doch,  was  versteht  man  ei- 
gentlich unter  "programmieren"? 

Zum  Programmieren  benötigen  Sie  eine  sogenannte  Program- 
miersprache. Ähnlich  wie  in  einer  "natürlichen"  Sprache  teilen 
Sie  dem  Computer  in  dieser  Sprache  mit,  was  er  machen  soll. 
Auf  dem  Commodore  64  stehen  Ihnen  zwei  Programmierspra- 
chen zur  Verfügung:  BASIC  und  Assembler. 

BASIC  steht  für  "Beginners  All  Symbolic  Instruction  Code",  was 
soviel  heißt  wie  "symbolische  Sprache  für  Einsteiger".  BASIC  ist 
die  ideale  Einsteigersprache.  Schon  mit  sehr  wenigen  Sprachele- 
menten  lassen  sich  komplette  Programme  schreiben.  Außerdem 
ist  BASIC  eine  sehr  anschauliche,  anwendungsorientierte  Spra- 
che. 

Die  Sprache  "Assembler"  orientiert  sich  stark  am  internen  Auf- 
bau des  Commodore  64  und  ist  daher  wesentlich  schwerer  zu 
verstehen  als  BASIC.  Bevor  man  sich  mit  Assembler  befaßt, 
sollte  man  sich  unbedingt  genau  mit  BASIC  auskennen.  Bleiben 
wir  also  einmal  bei  BASIC.  Wenn  Sie  Ihren  Commodore  64  ein- 
geschaltet haben  und  der  Cursor  am  Bildschirm  blinkt,  ist  der 
Rechner  zum  Programmieren  in  BASIC  bereit. 
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Wie  sieht  nun  ein  BASIC-Programm  aus? 

Nehmen  wir  dazu  ein  ganz  einfaches  Beispiel.  Sie  wollen  zwei 
Zahlen  addieren.  Geben  Sie  nun  einmal  folgendes  ein: 

PRINT  10+2 

Bitte  vergessen  Sie  nicht,  die  <Return>-Taste  zu  drücken!  Nach- 
dem Sie  dies  getan  haben,  müßte  der  Bildschirm  wie  folgt  aus- 
schauen: 


PRINT  10+2 
12 

READY. 

■ 


Der  Commodore  64  hat  die  beiden  Zahlen  10  und  2 addiert  und 
das  Ergebnis  auf  dem  Bildschirm  ausgegeben.  Die  Anweisung 
PRINT  signalisiert  dem  Rechner,  das  er  etwas  drucken  soll:  in 
unserem  Fall  das  Ergebnis  der  Addition. 

Hinter  PRINT  dürfen  beliebige  Ausdrücke  stehen.  Probieren  Sie 
doch  einmal: 

PRINT  "HALLO'1 

Die  beiden  Anführungszeichen  zeigen  dem  Rechner  an,  das  er 
einen  Text  ausgeben  soll. 

Das  Ganze  ist  zwar  schon  recht  nett,  aber  wenig  dauerhaft. 
Wenn  Sie  die  «Cursor  down>-Taste  lange  genug  drücken,  ver- 
schwindet die  PRINT- Anweisung  für  immer  vom  Bildschirm. 
Wie  sichert  man  die  PRINT- Anweisung  dauerhaft?  Dazu  stellen 
Sie  dem  PRINT  eine  Nummer  voran,  zum  Beispiel  100: 

100  PRINT  "HALLO" 

Wenn  Sie  das  eingegeben  haben  und  dann  die  <Return>-Taste 
drücken,  passiert  zunächst  gar  nichts.  Nur  der  blinkende  Cursor 
wandert  an  den  Anfang  der  nächsten  Bildschirmzeile. 
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Geben  Sie  nun  aber  einmal  folgendes  ein: 

LIST 

Und  siehe  da!  Die  gerade  eingegebene  Zeile  erscheint  noch  ein- 
mal auf  dem  Bildschirm.  Der  Commodore  64  hat  diese  Zeile  in 
seinem  internen  Speicher  abgelegt,  von  wo  sie  mit  LIST  jederzeit 
abgerufen  werden  kann.  Diese  eine  Zeile  stellt  im  Grunde  ge- 
nommen schon  ein  vollwertiges,  wenn  auch  sehr  simples  BASIC- 
Programm  dar.  Geben  Sie  nun  einmal  ein: 

RUN 

Der  Bildschirm  müßte  anschließend  so  aussehen: 


100  PRINT  "HALLO" 

RUN 

HALLO 

READY. 

■ 


Durch  die  RUN-Anweisung  haben  Sie  das  BASIC-Programm 
gestartet.  Nachdem  der  Commodore  64  das  Programm  abgear- 
beitet hat,  kehrt  er  in  den  Direktmodus  zurück,  was  er  Ihnen 
durch  die  READY-Meldung  anzeigt. 

Doch  kommen  wir  auf  unser  Eingangsproblem  zurück.  Wir 
wollten  ja  zwei  Zahlen  addieren.  Die  Addition  mit  Hilfe  der 
PRINT- Anweisung  durchzuführen  ist  zwar  nicht  schlecht,  viel 
bequemer  wäre  es  aber  doch,  wenn  der  Rechner  nach  den  zu 
addierenden  Zahlen  fragen  und  anschließend  das  Ergebnis  aus- 
geben würde. 

Dazu  benötigen  wir  eine  weitere  Anweisung:  INPUT.  INPUT 
(englisch  für  Eingabe)  signalisiert  dem  Rechner,  das  er  vom 
Anwender  etwas  erfragen  soll.  Bitte  geben  Sie  einmal  folgendes 
kleine  Programm  ein: 
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100  INPUT  »BITTE  GEBEN  SIE  DIE  ERSTE  ZAHL  EIN:";Z1 
110  INPUT  »BITTE  GEBEN  SIE  DIE  ZWEITE  ZAHL  EIN:»;Z2 
120  EG=Z1*Z2 

130  PRINT  »ERGEBNIS:  ";EG 


Wenn  Sie  dieses  Programm  mit  RUN  starten,  ergibt  sich  folgen- 
der Dialog: 


BITTE  GEBEN  SIE  DIE  ERSTE  ZAHL  EIN:  ? 1000 
BITTE  GEBEN  SIE  DIE  ZWEITE  ZAHL  EIN:  ? 267 
ERGEBNIS:  1267 


Die  beiden  Zahlen  hinter  den  Fragezeichen  müssen  Sie  selbst 
eingeben  und  anschließend  die  <Return>-Taste  drücken.  Mit 
diesem  Programm  können  Sie  zwei  beliebige  Zahlen  sehr  kom- 
fortabel addieren  lassen.  Damit  wollen  wir  es  fürs  erste  bewen- 
den lassen.  Wie  Sie  gesehen  haben,  ist  das  Ganze  doch  gar  nicht 
so  schwer.  Wenn  ich  Sie  jetzt  auf  den  Geschmack  gebracht  ha- 
ben sollte  und  Sie  nun  darauf  brennen,  Ihre  ersten  eigenen  Pro- 
gramme zu  schreiben,  so  können  Sie  gleich  zu  Kapitel  3 weiter- 
blättern. 


1.7  Mit  GEOS  arbeiten 

GEOS  ist  die  erste  "professionelle"  Software,  mit  der  Sie  arbeiten 
werden.  In  diesem  Zusammenhang  kann  ich  Ihnen  gleich  noch 
einige  Fachbegriffe  und  Verfahrensweisen  erklären: 

► GEOS  läßt  sich  leider  nur  mit  einem  Diskettenlaufwerk  ein- 
setzen,  Datasetten-Besitzer  können  mit  GEOS  nichts  anfan- 
gen. 

GEOS  steht  für  "Graphic  Environment  Operating  System",  also 
ein  Betriebssystem  mit  grafischer  Bedienungsumgebung.  Im  Ge- 
gensatz zum  "normalen"  Betriebssystem  des  Commodore  64,  mit 
dem  Sie  schon  etwas  Bekanntschaft  gemacht  haben,  zum  Bei- 
spiel, als  Sie  eine  Diskette  formatierten,  arbeitet  GEOS  fast 
vollständig  grafisch  und  läßt  sich  intuitiv  bedienen.  Was  das  im 
einzelnen  genau  bedeutet,  werden  Sie  gleich  sehen. 
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Bekanntlich  gibt  es  ja  nichts,  was  man  nicht  noch  verbessern 
könnte.  Das  gilt  insbesondere  für  Software.  Auch  wenn  ein  Pro- 
gramm noch  so  sorgfältig  getestet  wurde,  bevor  es  in  den  Ver- 
kauf geht,  irgendein  Fehler  findet  sich  später  garantiert  immer. 
Und  natürlich  haben  auch  die  Programmierer  immer  wieder 
neue  Ideen,  wie  sie  ihre  Programme  noch  leistungsfähiger  ma- 
chen können.  Aus  diesem  Grund  gibt  es  von  Programmen  in  der 
Regel  mehrere  Versionen,  so  auch  bei  GEOS. 

Die  GEOS-Version,  die  Ihrem  Commodore  64  beiliegt,  trägt  die 
Versionsnummer  1.2.  Mittlerweile  gibt  es  aber  schon  die  Version 
2.0,  die  gegenüber  der  Version  1.2  zahlreiche  Verbesserungen 
aufweist.  Das  zeigt  sich  schon  am  Lieferumfang:  GEOS  2.0  wird 
auf  vier  Disketten  und  mit  einem  über  300  Seiten  umfassenden 
Handbuch  ausgeliefert.  Ein  zusätzlicher  Vorteil:  GEOS  2.0  ist  im 
Gegesatz  zur  Version  1.2  komplett  eingedeutscht,  empfängt  Sie 
also  am  Bildschirm  mit  deutschen  Meldungen  und  Bezeichnun- 
gen anstatt  mit  englischen. 

Als  Besitzer  der  Version  1.2  haben  Sie  die  Möglichkeit,  ein 
Update  auf  die  Version  2.0  zu  machen.  Was  ist  nun  das  schon 
wieder,  ein  Update?  Da  wohl  kaum  ein  Anwender  bereit  ist, 
eine  neue  Programmversion  jedesmal  neu  zu  kaufen,  bieten  die 
meisten  Software-Hersteller  ihren  alten  Kunden  neue  Pro- 
grammversionen zu  Vorzugskonditionen  an.  Solch  ein  "Update" 
gibt  es  meist  deutlich  billiger  als  das  Programm  für  Neukunden. 
Das  Update  auf  GEOS  2.0  kostet  beispielsweise  nur  49  Mark, 
während  ein  Neukunde  89  Mark  bezahlen  muß. 

Nun  stellt  sich  natürlich  die  Frage,  ob  es  sich  überhaupt  lohnt, 
die  49  Mark  für  GEOS  2.0  auszugeben.  Um  Ihnen  die  Entschei- 
dung zu  erleichtern,  werde  ich  am  Ende  dieses  Abschnitts  auf 
die  Erweiterungen  und  Neuheiten  in  GEOS  2.0  besonders  einge- 
hen.  Bevor  wir  uns  GEOS  genauer  anschauen,  sollten  Sie  sich 
zuallererst  eine  Sicherheitskopie  sowie  eine  Arbeitsdiskette  der 
GEOS-Originaldiskette  erstellen.  Dazu  gibt  es  auf  der  GEOS- 
Diskette  ein  spezielles  Kopierprogramm,  das  Sie,  wie  schon 
weiter  oben  erwähnt,  zum  Kopieren  beliebiger  Disketten  ver- 
wenden können. 
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Zunächst  müssen  Sie  das  Kopierprogramm  laden  und  starten. 
Bitte  legen  Sie  dazu  die  GEOS-Diskette  ins  Laufwerk,  und  ge- 
ben Sie  die  folgenden  zwei  Zeilen  ein: 

LOAD  "BACKUP" ,8 
RUN 


Nachdem  das  Programm  gestartet  wurde,  müßte  auf  dem  Bild- 
schirm folgender  Text  erscheinen: 


DISK  BACKUP/RESTORE  UTILITY 

INSERT  DESTINATION  DISK  TO  BE  FORMATED 

AND  ENTER  'F1  TO  FORMAT,  OR  'Q'  TO  QUIT  (F/Q) 


Legen  Sie  eine  leere  Diskette  ins  Laufwerk,  und  drücken  Sie 
anschließend  die  Taste  <F>  sowie  die  <Return> -Taste.  Die  Dis- 
kette wird  nun  formatiert,  was  Ihnen  der  Commodore  64  auch 
am  Bildschirm  mitteilt: 


FORMATTING  DESTINATION  DISK 


Anschließend  fordert  Sie  der  Rechner  auf,  wieder  die  Original- 
diskette einzulegen,  damit  der  Kopiervorgang  gestartet  werden 
kann: 


INSERT  SOURCE  DISK  AND  ENTER  'C'  TO 
COPY  (C) 


Drücken  Sie  also  die  Taste  <C>  und  anschließend  die  <Return>- 
Taste.  Sie  erhalten  dann  auf  dem  Bildschirm  die  Meldung: 


READ  ING  SOURCE  DISK 


Nach  einiger  Zeit  fordert  Sie  der  Rechner  dazu  auf,  die  gerade 
formatierte  Diskette  einzulegen: 
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PLEASE  INSERT  DESTINATION  DISK 


Nachdem  sie  das  getan  haben,  erscheint  die  Meldung: 


URITING  DESTINATION  DISK 


Die  von  der  Originaldiskette  (Quelldiskette  oder  Source  Disk) 
gelesenen  Daten  werden  nun  auf  die  Sicherheitskopie  (Zieldis- 
kette oder  Destination  Disk)  geschrieben.  Da  der  Inhalt  einer 
Diskette  nicht  komplett  in  den  Speicher  des  Commodore  64 
paßt,  wiederholt  sich  dieser  Vorgang  noch  zweimal,  d.h..  Sie 
werden  noch  zweimal  auf  gefordert,  die  "Source  Disk"  und  an- 
schließend wieder  die  "Destination  Disk”  einzulegen.  Die  Be- 
zeichnungen "Source  Disk"  und  "Destination  Disk"  für  die  Quell- 
bzw.  die  Zieldiskette  werden  auch  von  anderen  Programmen, 
sofern  diese  nicht  eingedeutscht  sind,  sehr  häufig  verwendet.  Sie 
sollten  sich  diese  Bezeichnungen  merken. 

Nachdem  der  Kopiervorgang  beendet  ist,  erscheint  die  Meldung: 


BACKUP  COMPLETE! 
INSERT  GEOS  BOOT  DISK 
AND  PRESS  RESTORE 


Legen  Sie  also  wieder  die  GEOS-Originaldiskette  ins  Laufwerk, 
und  drücken  Sie  die  <Restore>-Taste  (diese  befindet  sich  direkt 
über  der  <Return>-Taste  auf  der  Tastatur). 

GEOS  wird  nun  gebootet!  Wieder  so  ein  englischer  Fachaus- 
druck. "Booten"  heißt  nichts  anderes,  als  daß  das  Programm  in 
den  Rechnerspeicher  geladen  und  gestartet  wird. 

Leider  verfügt  GEOS  über  einen  etwas  eigenwilligen  Kopier- 
schutz, der  den  Ladevorgang  mitunter  auch  bei  einer  ordnungs- 
gemäß erworbenen  Originaldiskette  abbrechen  läßt.  In  diesem 
Fall  erhalten  Sie  nach  einigen  Sekunden  wieder  die  gewohnte 
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Einschaltmeldung  des  Commodore  64.  Versuchen  Sie  nun,  GEOS 
noch  einmal  zu  starten,  indem  Sie  eingeben: 

LOAD  "GEOS“, 8,1 

Sollte  es  auch  nach  mehreren  Versuchen  nicht  klappen,  hilft  nur 
noch  der  Gang  zum  Fachhändler.  Entweder  die  GEOS-Diskette 
ist  defekt  oder  Ihr  Laufwerk  ist  verstellt. 

Hat  alles  geklappt,  so  müßten  Sie  jetzt  eine  doch  recht  anspre- 
chende Grafik  auf  dem  Bildschirm  haben.  Das  sieht  doch  schon 
ganz  anders  aus  als  die  normale  Einschaltmeldung  des  Commo- 
dore 64! 

Wenn  Sie  jetzt  allerdings  versuchen,  etwas  über  die  Tastatur 
einzutippen,  werden  Sie  feststellen,  daß  Sie  keine  Reaktion  be- 
kommen. Nehmen  Sie  nun  aber  einmal  den  Joystick  zur  Hand 
(der  Joystick  muß  sich  im  Control  Port  1 befinden),  und  bewe- 
gen Sie  ihn.  Wie  Sie  sehen,  bewegt  sich  der  kleine,  schrägge- 
stellte Pfeil  am  Bildschirm  entsprechend  der  Joystick-Bewegung. 
Diesen  Pfeil  bezeichnet  man  als  Maus-Cursor  oder  Mauszeiger. 
"Maus"  deshalb,  weil  man  ihm  am  besten  mit  einer  sogenannten 
Proportional-Maus  steuert  (die  aber  deutlich  teurer  als  ein  Joy- 
stick ist).  Für  den  Moment  reicht  aber  ein  einfacher  Joystick 
völlig  aus. 

Der  Mauszeiger  läßt  sich  am  ehesten  mit  dem  gewohnten  Cursor 
vergleichen.  Wie  Ihnen  ja  auch  der  Cursor  anzeigt,  an  welcher 
Bildschirmposition  Sie  sich  gerade  befinden,  so  markiert  Ihnen 
auch  der  Mauszeiger  die  Bildschirmstelle,  an  der  Ihre  "Eingaben" 
etwas  bewirken. 

Das,  was  Sie  jetzt  gerade  am  Bildschirm  sehen,  bezeichnet  man 
als  den  Desktop  von  GEOS,  was  man  am  ehesten  mit  "Schreib- 
tisch" übersetzen  könnte.  Links  oben  sehen  Sie  eine  sogenannte 
Menüzeile,  über  die  Ihnen  die  verschiedenen  Programmfunktio- 
nen angeboten  werden.  In  der  rechten  unteren  Ecke  "steht"  ein 
Papierkorb,  mit  dem  man  Programme  löschen  kann. 
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In  der  großen,  hell  unterlegten  Fläche  finden  Sie  verschiedene 
Informationen  zu  der  im  Laufwerk  eingelegten  Diskette.  In  der 
obersten  Zeile  steht  der  Name  der  Diskette,  in  der  Zeile  darun- 
ter, wie  viele  Dateien  sich  auf  der  Diskette  befinden,  wieviel 
Speicherplatz  belegt  ist  und  wieviel  Speicher  noch  frei  ist. 

Auf  der  großen  Fläche  darunter  sehen  Sie  die  einzelnen  Pro- 
gramme, dargestellt  durch  ihren  Namen,  und  eine  ihre  Funktion 
verdeutlichende  Kleingrafik,  ein  sogenanntes  Piktogramm  oder 
Icon.  Wegen  der  Icons  können  auf  der  Fläche  maximal  acht  Da- 
teien auf  einmal  untergebracht  werden.  Da  auf  einer  Diskette 
natürlich  wesentlich  mehr  Dateien  Platz  finden,  gibt  es  mehrere 
"Seiten",  die  Sie  mit  Hilfe  der  Zifferntasten  auf  der  Tastatur 
"durchblättern"  können.  Im  Augenblick  befinden  wir  uns  auf 
Seite  1. 

Das  Programm  rechts  unten  wird  Ihnen  schon  bekannt  Vorkom- 
men, es  ist  unser  Kopierprogramm  BACKUP.  Das  kommt  uns 
gerade  recht,  denn  wir  benötigen  ja  noch  eine  zweite  Kopie  der 
GEOS-Originaldiskette,  eine  Arbeitsdiskette.  Nun  lernen  Sie 
auch  gleich,  wie  man  unter  GEOS  ein  Programm  startet: 

Bitte  bewegen  Sie  den  Mauszeiger  (mit  Hilfe  des  Joysticks  oder 
einer  Maus)  etwa  in  die  Mitte  des  BACKUP-Icons.  Nun  drücken 
Sie  - kurz  hintereinander  - zweimal  den  Feuerknopf  des  Joy- 
sticks (oder  die  linke  Taste  der  Maus).  Das  ist  schon  alles!  Das 
BACKUP-Icon  wird  jetzt  invertiert  dargestellt,  und  am  Arbeits- 
geräusch der  Floppy  erkennen  Sie,  daß  das  Programm  geladen 
wird.  Nach  einiger  Zeit  sehen  Sie  die  bekannte  Einschaltmeldung 
des  Kopierprogramms  am  Bildschirm.  Nun  verfahren  Sie  analog 
zur  Erstellung  der  Sicherheitskopie.  Nachdem  der  Kopiervorgang 
beendet  ist,  müßten  Sie  über  drei  Disketten  verfügen: 

► GEOS-Originaldiskette.  Diese  werden  Sie  künftig  nur  noch 
zum  Booten  von  GEOS  benötigen. 

► Sicherheitskopie.  Diese  bewahren  Sie  bitte  an  einem  sicheren 
Ort  auf.  Sollte  Ihre  Originaldiskette  einmal  beschädigt  wer- 
den, so  können  Sie  sie  evtl,  mit  Hilfe  der  Sicherheitskopie 
"reparieren". 
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► Arbeitsdiskette.  Wie  der  Name  schon  sagt,  werden  Sie  mit 
dieser  Diskette  in  Zukunft  arbeiten. 

Konkret  sieht  das  so  aus:  Zunächst  booten  Sie  GEOS  mit  der 
Originaldiskette.  (Wegen  des  Kopierschutzes  geht  das  leider  nicht 
von  der  Arbeitsdiskette.)  Anschließend  nehmen  Sie  die  Original- 
diskette aus  dem  Laufwerk  und  legen  anstelle  dieser  die  Ar- 
beitsdiskette ein. 

Tun  Sie  das  gleich  einmal!  Nach  Beendigung  des  Kopiervorgangs 
müßten  Sie  sich  ja  wieder  im  GEOS-Desktop  befinden. 

Wenn  Sie  die  Diskette  im  Laufwerk  wechseln,  so  müssen  Sie  das 
GEOS  auch  mitteilen.  Bewegen  Sie  dazu  den  Mauszeiger  auf  das 
Wort  "Disk"  in  der  Menüzeile  links  oben.  Wichtig  ist,  daß  die 
Pfeilspitze  auf  das  Wort  zeigt.  Drücken  Sie  nun  den  Feuerknopf 
des  Joysticks  (oder  die  linke  Taste  Ihrer  Maus).  Daraufhin  "rollt" 
ein  Untermenü  herunter  und  der  Mauszeiger  befindet  sich  auf 
dem  ersten  Menüpunkt  "Open".  Bitte  drücken  Sie  jetzt  noch 
einmal  den  Joystick-Knopf. 

Daraufhin  verschwindet  das  Untermenü  wieder,  die  Floppy  ar- 
beitet einige  Zeit  und  anschließend  wird  der  Bildschirminhalt 
neu  aufgebaut.  Was  Sie  gerade  getan  haben,  bezeichnet  man  als 
das  öffnen  einer  Diskette. 

Wo  wir  schon  bei  den  Fachbegriffen  sind:  Das  Bewegen  des 
Mauszeigers  an  eine  bestimmte  Stelle  (ein  Icon  oder  ein  Menü- 
punkt) bezeichnet  man  auch  als  "Anwählen",  das  Drücken  des 
Joystick-Knopfes  nennt  man  "Anklicken".  Um  nun  ein  Pro- 
gramm zu  starten,  muß  man  es  "Doppelklicken",  also  zweimal 
kurz  hintereinander  anklicken,  wie  Sie  es  ja  schon  vorhin  beim 
BACKUP-Programm  getan  haben. 

Diese  wenigen  Bedienungselemente  reichen  schon  aus,  um  mit 
GEOS  zu  arbeiten!  Während  Sie  beim  normalen  Betriebssystem 
immer  irgend  etwas  eintippen  müssen  (ganz  kompliziert  wurde 
es  beispielsweise  beim  Formatieren  einer  Diskette),  präsentiert 
Ihnen  GEOS  (und  auch  alle  Anwendungsprogramme,  die  unter 
GEOS  arbeiten)  seine  Programmfunktionen  in  Form  von  Icons 
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und  Menüs,  die  Sie  nur  noch  auswähien  (also  mit  dem  Mauszei- 
ger daraufzeigen)  und  anklicken  müssen. 

Der  Vorteil  liegt  klar  auf  der  Hand:  Man  muß  nicht  erst  kom- 
plizierte Befehle  auswendig  lernen,  sondern  kann  sofort  mit  ei- 
nem Programm  loslegen.  Da  ja  Zeit  (hier:  Einarbeitungszeit)  be- 
kanntlich Geld  ist,  haben  solche  Benutzeroberflächen,  wie 
GEOS,  auch  im  professionellen  Bereich  weite  Verbreitung  ge- 
funden. Bekannte  Namen  sind  beispielsweise  "GEM"  und  "Win- 
dows" für  Personalcomputer  unter  dem  Betriebssystem  MS-DOS 
oder  "X-Windows"  für  das  Betriebssystem  Unix.  Diese  Pro- 
gramme bieten  natürlich  entsprechend  der  höheren  Leistungsfä- 
higkeit der  Rechner,  auf  denen  sie  eingesetzt  werden,  einiges 
mehr  als  GEOS.  Die  grundsätzliche  Bedienungsweise  ist  aber 
dieselbe! 

Zurück  zu  unserer  GEOS-Arbeitsdiskette:  Im  Moment  ist  diese 
mit  der  Originaldiskette  noch  vollkommen  identisch;  das  soll  sich 
gleich  ändern. 

Zunächst  benötigen  wir  einen  anderen  Namen,  damit  GEOS  die 
Arbeitsdiskette  von  der  Originaldiskette  unterscheiden  kann. 
Klicken  Sie  dazu  bitte  das  Menü  "Disk"  und  anschließend  den 
Menüpunkt  "Rename"  an.  GEOS  baut  nun  ein  sogenanntes  Fen- 
ster auf  dem  Bildschirm  auf  und  fordert  Sie  mit  PLEASE 
ENTER  NEW  DISK  NAME  zur  Eingabe  des  neuen  Disketten- 
namens auf.  Eine  Zeile  darunter  steht  der  alte  Name  der  Dis- 
kette, den  Sie,  wie  gewohnt,  mit  der  <Inst/Del>-Taste  löschen 
können.  Der  neue  Name  darf  bis  zu  16  Zeichen  lang  sein,  bei- 
spielsweise "GEOS-Arbeitsdisk". 

Wie  Sie  schon  bald  feststellen  werden,  ist  der  freie  Speicherplatz 
auf  der  Diskette  unter  GEOS  chronisch  knapp.  Die  GEOS-Ar- 
beitsdiskette ist  sogar  "randvoll".  Höchste  Zeit  also,  etwas  Platz 
zu  schaffen.  Die  drei  Programme  "GEOS",  "GEOS  BOOT"  und 
"GEOS  KERNAL"  werden  nur  zum  Booten  von  GEOS  benötigt. 
Da  Sie  mit  der  Arbeitsdiskette  ja  ohnehin  nicht  booten  können, 
dürfen  Sie  diese  Programme  löschen.  Wie  wird  nun  ein  Pro- 
gramm unter  GEOS  gelöscht? 
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Um  die  drei  Programme  überhaupt  löschen  zu  können,  müssen 
wir  zunächst  deren  "Löschschutz"  entfernen.  Bitte  klicken  Sie 
dazu  das  Icon  eines  Programms  an,  beispielsweise  das  GEOS- 
Icon,  und  wählen  Sie  anschließend  den  Menüpunkt  "Info"  im 
Menü  "File".  Nachdem  Sie  den  Menüpunkt  angeklickt  haben, 
erzeugt  GEOS  einen  sogenannten  Info-Bildschirm,  der  zahlreiche 
Informationen  zu  dem  betreffenden  Programm  enthält.  Für  uns 
im  Augenblick  am  wichtigsten  ist  die  Zeile  "Write  Protect".  Vor 
dem  Wort  "Write"  befindet  sich  ein  kleines,  schwarzes  Quadrat, 
das  Sie  nun  bitte  anklicken.  Der  Inhalt  des  Quadrats  wird  nun 
weiß,  das  Programm  ist  zum  Löschen  freigegeben. 

Um  das  Programm  wieder  gegen  Löschen  zu  schützen,  klicken 
Sie  einfach  (aber  bitte  nicht  jetzt!)  das  Quadrat  noch  einmal  an; 
sein  Inhalt  wird  dann  wieder  schwarz. 

Um  den  Info-Bildschirm  zu  verlassen,  müssen  Sie  das  Schließ- 
symbol in  der  rechten  oberen  Ecke  (neben  dem  Namen  des  Pro- 
gramms) des  Info-Schirms  anklicken.  Der  alte  Bildschirminhalt 
wird  nun  wiederhergestellt  und  gleichzeitig  die  durchgeführten 
Änderungen  auf  der  Diskette  abgelegt. 

Mit  den  beiden  anderen  Programmen  (GEOS  KERNAL  und 
GEOS  BOOT)  verfahren  Sie  analog;  auch  sie  sind  gegen  verse- 
hentliches Löschen  geschützt. 

Alles  weitere  ist  ganz  einfach:  Bitte  klicken  Sie  das  Icon  des 
Programms  an.  Das  Icon  wird  jetzt  invertiert  dargestellt.  Nun 
klicken  Sie  noch  einmal.  Jetzt  haben  Sie  "unter"  dem  Mauszeiger 
ein  invertiertes  Abbild  des  Programm-Icons,  das  Sie  mit  dem 
Joystick  oder  der  Maus  bewegen  können.  Fahren  Sie  mit  dem 
Icon  nun  in  die  rechte  untere  Bildschirmecke,  und  bringen  Sie  es 
über  den  "Papierkorb".  Anschließend  drücken  Sie  nochmals  den 
Joystick-Knopf.  Das  Programm  wird  daraufhin  gelöscht.  Sie  ha- 
ben es  sozusagen  in  den  Papierkorb  geworfen.  Genauso  wichtig 
wie  das  Löschen  ist  das  Kopieren  von  Programmen.  Auch  dies 
ist  bei  GEOS  auf  sehr  elegante  Weise  gelöst. 

Wie  Sie  vielleicht  schon  wissen,  befinden  sich  auf  der  GEOS- 
Diskette  zwei  komplette  Anwendungsprogramme:  GEOPAINT 


Einführung 


77 


und  GEOWRITE.  GEOPAINT  ist  ein  Mal-  und  Zeichenpro- 
gramm, GEOWRITE  eine  Textverarbeitung.  Damit  Sie  mit  die- 
sen überhaupt  sinnvoll  arbeiten  können,  benötigen  Sie  eine  oder 
am  besten  zwei  weitere  Disketten.  Eine  für  GEOPAINT  und 
eine  für  GEOWRITE. 

Zunächst  müssen  wir  die  beiden  Disketten  formatieren.  Erinnern 
Sie  sich  noch  an  die  komplizierte  Befehlszeile,  die  weiter  oben 
zum  Formatieren  erforderlich  war?  Mit  GEOS  geht  das  viel 
einfacher:  Bitte  klicken  Sie  im  Menü  "Disk"  den  Menüpunkt 
"Format"  an. 

GEOS  fordert  Sie  nun  in  einem  Fenster,  übrigens  eine  soge- 
nannte "Dialogbox",  dazu  auf,  die  zu  formatierende  Diskette  ins 
Laufwerk  einzulegen  und  außerdem  einen  Namen  für  die  neue 
Diskette  einzugeben.  Nachdem  Sie  dies  getan  und  die  <Return>- 
Taste  gedrückt  haben,  wird  die  Diskette  formatiert.  Das  dauert 
wie  üblich  etwa  90  Sekunden.  Danach  fordert  GEOS  Sie  auf, 
wieder  die  alte  Diskette  einzulegen. 

Mit  der  zweiten,  leeren  Diskette  verfahren  Sie  analog.  Als  Na- 
men für  die  beiden  Disketten  empfehlen  sich  "GEOPAINT"  und 
"GEOWRITE".  Sie  können  natürlich  auch  jeden  anderen  Namen 
verwenden:  Hauptsache  er  ist  nicht  länger  als  16  Zeichen.  Jetzt 
kann  es  ans  eigentliche  Kopieren  gehen.  Zuerst  kopieren  wir 
GEOPAINT: 

► Klicken  Sie  das  Icon  von  GEOPAINT  an.  Es  wird  nun  in- 
vertiert dargestellt. 

► Klicken  Sie  das  Icon  noch  einmal  an.  Unter  dem  Mauszeiger 
befindet  sich  jetzt  ein  Abbild  des  Icons,  das  Sie  zusammen 
mit  dem  Zeiger  bewegen  können. 

► Fahren  Sie  mit  dem  Icon  zum  unteren  Rand  des  Bildschirms, 
der  sogenannten  "Border",  und  klicken  Sie  dort  ein  drittes 
Mal. 

Das  Icon  wird  nun  aus  dem  hellen  Bereich  entfernt  und  dauer- 
haft auf  der  Border  abgelegt.  Das  war  der  erste  Schritt.  Von  der 
Border  aus  können  Sie  das  Programm  jetzt  auf  jede  andere  Dis- 
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kette  kopieren.  Dazu  müssen  Sie  die  betreffende  Diskette  (in 
diesem  Fall  die  GEOPAINT-Diskette)  nur  ins  Laufwerk  einlegen 
und  wie  folgt  verfahren: 

► öffnen  Sie  die  Diskette,  indem  Sie  im  Menü  "Disk"  den  Menü- 
punkt "Open"  anklicken. 

► Klicken  Sie  das  GEOPAINT-Icon  auf  der  Border  an.  Nach 
kurzer  Pause  klicken  Sie  ein  zweites  Mal.  Das  Icon  kann  jetzt 
wieder  frei  bewegt  werden. 

► Fahren  Sie  mit  dem  Icon  nach  oben  in  das  hell  unterlegte 
Fenster,  und  klicken  Sie  ein  drittes  Mal. 

Das  war  es  in  Grunde  genommen  schon!  GEOS  fordert  Sie  nun 
in  einer  Dialogbox  dazu  auf,  die  Arbeitsdiskette  ins  Laufwerk 
einzulegen.  Sobald  Sie  der  Aufforderung  nachgekommen  sind, 
klicken  Sie  das  OK-Icon  in  der  Dialogbox  an.  Anschließend 
müssen  Sie  wieder  die  GEOPAINT-Diskette  einlegen.  Bei  län- 
geren Programmen,  wie  GEOPAINT,  sind  mehrere  Disketten- 
wechsel erforderlich,  bis  das  Programm  komplett  kopiert  ist. 
Halten  Sie  sich  einfach  an  die  Anweisungen,  die  Ihnen  GEOS 
gibt,  und  Sie  können  nichts  falsch  machen. 

Nachdem  das  Programm  kopiert  ist,  ist  das  Icon  von  der  Border 
verschwunden  und  befindet  sich  im  hell  unterlegten  Fenster  der 
GEOPAINT-Diskette. 

Kopieren  Sie  nun  GEOWRITE  auf  die  andere  Diskette.  Dazu 
müssen  Sie  zuerst  wieder  die  Arbeitsdiskette  öffnen.  Vielleicht 
überrascht  es  Sie,  daß  das  GEOPAINT-Icon  jetzt  wieder  auf  der 
Border  auftaucht.  Es  steht  dort  für  weitere  Kopieraktionen  zur 
Verfügung.  Da  wir  es  im  Moment  aber  nicht  mehr  brauchen, 
können  Sie  es  unbesorgt  in  das  Fenster  zurückverfrachten.  Wie 
das  geht,  wissen  Sie  ja  in  der  Zwischenzeit  (Icon  anklicken,  kurz 
warten,  nochmal  klicken,  Icon  verschieben  und  wieder  klicken). 

Nachdem  Sie  GEOWRITE  ebenfalls  kopiert  haben,  sind  die  Ar- 
beitsdisketten fertig.  Wie  Sie  die  Programme  starten  können, 
wissen  Sie  ja  inzwischen  (einfach  ihre  Icons  doppelklicken).  In 
Kapitel  2 werde  ich  auf  GEOWRITE  und  GEOPAINT  noch  ge- 
nauer eingehen.  Sehen  Sie  sich  die  Programme  ruhig  aber  schon 
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vorher  einmal  an,  und  versuchen  Sie,  die  einzelnen  Funktionen 
herauszufinden.  GEOS  lädt  ja  durch  seine  intuitive  Bedienugs- 
struktur  dazu  ein,  auf  "Entdeckungstour"  zu  gehen,  ohne  groß 
Handbücher  zu  wälzen. 

Neben  kompletten  Anwendungsprogrammen,  wie  die  beiden 
eben  vorgestellten,  verfügt  GEOS  noch  über  eine  Reihe  soge- 
nannter "Accessories",  das  sind  kleinere  Hilfsprogramme.  Das 
Besondere  an  diesen  Accessories:  Sie  lassen  sich  jederzeit  von  ei- 
nem anderen  Programm  aus  (DESKTOP,  GEOPAINT  oder 
GEOWRITE)  aufrufen! 

So  kann  man  beispielsweise  auf  einem  "Notizblock"  (NOTE 
PAD)  wichtige  Termine  notieren  oder  einen  "Wecker"  (ALARM 
CLOCK)  stellen,  um  sich  an  eben  diese  Termine  vom  Rechner 
erinnern  zu  lassen. 

Aufgerufen  werden  die  Accessories  über  das  ganz  links  stehende 
Menü  der  Menüleiste.  Dieses  Menü  trägt  in  allen  Applikationen 
den  Namen  "Geos".  Klicken  Sie  einmal  das  Menü  "Geos"  im 
Desktop  an. 

Im  unteren  Bereich  der  Menüpunkte  sehen  Sie  die  Namen  der 
verfügbaren  Hilfsprogramme:  ALARM  CLOCK,  CALCULA- 
TOR,  NOTE  PAD,  PREFERENCE-MGR  usw...  Starten  Sie 
versuchshalber  einmal  die  ALARM  CLOCK,  indem  Sie  den 
entsprechenden  Menüpunkt  anklicken.  Nach  kurzer  Zeit  haben 
Sie  eine  kleine  Digitaluhr  mit  Stunden-,  Minuten-  und  Sekun- 
denanzeige auf  dem  Bildschirm.  Da  es  sich  um  eine  12-Stunden- 
Uhr  handelt,  steht  hinter  den  Ziffern  noch  AM  für  vormittags 
(0  bis  12  Uhr)  oder  PM  für  nachmittags  (12  bis  24  Uhr). 

Im  Augenblick  geht  die  Uhr  natürlich  falsch.  Wir  müssen  Sie 
erst  noch  stellen.  Den  Cursor,  der  im  Moment  auf  dem  "P"  steht, 
können  Sie  mit  Hilfe  der  Leertaste  über  die  Ziffern  bewegen, 
ohne  etwas  zu  verändern.  Die  genaue  Uhrzeit  läßt  sich  nun  mit 
den  Zifferntasten  der  Tastatur  einstellen.  Unsinnige  Angaben, 
wie  etwa  "34"  für  die  Stunde,  werden  von  GEOS  erst  gar  nicht 
angenommen. 
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Wenn  Sie  das  mittlere  der  drei  Symbole  unterhalb  der  Zif- 
fernanzeige anklicken,  wird  die  eingestellte  Uhrzeit  von  GEOS 
übernommen.  Durch  Anklicken  des  rechten  Symbols  können  Sie 
die  Uhr  verlassen. 

Vielleicht  möchten  Sie  ja  aber  auch  eine  Alarmzeit  einstellen,  zu 
der  Sie  GEOS  durch  einen  Signalton  "wecken"  soll.  In  diesem 
Fall  klicken  Sie  das  linke  Symbol  an.  Dessen  Darstellung  wech- 
selt nun  von  der  Uhr  zum  Klingelsymbol.  Jetzt  können  Sie  - 
wieder  über  die  Ziffernanzeige  - die  Alarmzeit  einstellen.  An- 
schließend klicken  Sie  wieder  das  SET-Symbol  in  der  Mitte  und 
dann  das  rechte  Schließsymbol,  um  die  Uhr  zu  verlassen. 

Verbesserungen  in  GEOS  2.0 

Wie  schon  eingangs  erwähnt,  wird  GEOS  2.0  auf  insgesamt  vier 
Disketten  geliefert.  Die  Version  1.2,  mit  der  Sie  gerade  arbeiten, 
kommt  mit  nur  einer  Diskette  aus.  Da  muß  also  einiges  hinzuge- 
kommen sein! 

Die  meisten  Erweiterungen  und  Verbesserungen  stehen  in  Zu- 
sammenhang mit  GEOWRITE,  der  Textverarbeitung  von  GEOS. 
Nicht  nur  das  Programm  selbst  wurde  überarbeitet,  es  sind  auch 
einige  interessante  Hilfsprogramme  hinzugekommen.  Beispiels- 
weise GEOMERGE,  mit  dem  sich  sogenannte  "Serienbriefe"  er- 
stellen lassen.  GEOSPELL  ist  ein  Rechtschreibprüfer,  mit  dem 
man  seine  Texte  auf  Tippfehler  überprüfen  lassen  kann.  Mit 
GEOLASER  steht  sogar  ein  Programm  zur  Verfügung,  daß  in 
der  Lage  ist,  Texte  auf  einem  Laserdrucker  auszugeben. 

Auch  das  DESKTOP,  dessen  Funktionen  ich  Ihnen  ja  gerade 
ausschnittsweise  vorgestellt  habe,  wurde  gründlich  überarbeitet. 
Es  unterstützt  nun  die  Arbeit  mit  zwei  Laufwerken  und  erlaubt 
auch  den  Zugriff  auf  die  von  Commodore  angebotene  "RAM- 
Erweiterung"  für  den  Commodore  64.  Die  RAM-Erweiterung 
kann  von  GEOS  wie  ein  Diskettenlaufwerk  verwaltet  werden, 
d.h.,  man  kann  auf  ihr  Programme  oder  Daten  abspeichern  und 
wieder  laden.  Im  Gegensatz  zu  einer  "normalen"  Floppy,  läuft 
das  Ganze  aber  blitzschnell  ab,  da  sich  ja  alles  im  internen 
Speicher  des  Rechners  abspielt.  Die  RAM-Erweiterung  ist  aller- 
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dings  recht  teuer  und  dürfte  daher  nur  für  Anwender  geeignet 
sein,  die  sehr  intensiv  mit  GEOS  arbeiten  möchten.  Ohne  GEOS 
läßt  sich  mit  der  RAM-Erweiterung  nicht  allzu  viel  anfangen, 
da  die  meisten  anderen  Anwendungsprogramme  keine  Unter- 
stützung dafür  bieten. 

Die  anderen  Änderungen  am  DESKTOP  liegen  mehr  im  Detail. 
So  kann  man  nun  mehrere  Dateien  gleichzeitig  bearbeiten,  etwa, 
um  sie  zu  löschen  oder  zu  kopieren.  Ganz  wichtig:  Versehentlich 
gelöschte  Dateien  lassen  sich  unter  gewissen  Umständen  wieder- 
herstellen. Interessant  ist  auch  die  rechts  oben  angebrachte  Uhr 
mit  Datumsanzeige.  Wer  des  Englischen  nicht  so  mächtig  ist, 
kann  sich  besonders  freuen:  GEOS  2.0  ist  komplett  einge- 
deutscht, wenn  auch  die  deutschen  Texte  mitunter  etwas  "abge- 
hakt" aussehen.  Im  Deutschen  läßt  sich  vieles  eben  nicht  so  kurz 
und  prägnant  ausdrücken  wie  im  Englischen. 

Im  nächsten  Kapitel  werden  wir  uns  zunächst  einmal  anschauen, 
was  man  mit  Hilfe  kommerzieller  Software  mit  dem  Commodore 
64  alles  machen  kann. 


1.8  Anwendungen  mit  GEOS  2.0 

Wenden  wir  uns  nun  einmal  den  Zusatzdisketten  zu,  die  nicht  im 
normalen  Lieferumfang  von  GEOS  enthalten  sind,  sondern  zu- 
sätzlich gekauft  werden  können. 

Dabei  handelt  es  sich  zunächst  um  eine  Diskette,  die  zwei  An- 
wenderprogramme enthält:  zum  einen  eine  Art  Adressenverwal- 
tung mit  dem  Namen  GEODEX  und  zum  anderen  das  Programm 
GEOMERGE,  mit  dem  man  Serienbriefe  erstellen  kann. 


1.8.1  GEODEX 

Schauen  wir  uns  zunächst  einmal  an,  wie  GEODEX  aufgebaut 
ist  und  was  es  bietet.  Bei  GEODEX  handelt  es  sich  um  ein  soge- 
nanntes Accessory,  d.h.  ein  zusätzliches  Hilfsprogramm,  das  man 
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jederzeit  laden  kann,  wenn  man  nicht  schon  ein  anderes  Acces- 
sory  geladen  hat.  Man  kann  es  also  z.B.  aus  GEOWRITE  heraus 
laden.  Schauen  wir  uns  nun  im  folgenden  einmal  genau  an,  wie 
man  an  GEODEX  herankommt,  vor  allem  beim  ersten  Mal,  denn 
da  sind  - wie  überhaupt  bei  den  neuen  GEOS-Schöpfungen  - 
besondere  Spielregeln  und  Gesetzmäßigkeiten  zu  beachten. 

Zugang  zu  GEODEX 

Auf  jeden  Fall  müssen  Sie  - wie  bei  jedem  Accessory  - zunächst 
einmal  GEOS  selbst  laden,  bevor  Sie  auf  GEODEX  zugreifen 
können.  Dabei  müssen  Sie  unbedingt  die  Version  von  GEOS 
nehmen,  mit  der  Sie  auch  in  der  nächsten  Zeit  arbeiten  wollen. 
Denn  aufgrund  des  neuen  Kopierschutzverfahrens  von  GEOS 
können  Sie  alle  Zusatzprogramme,  die  wir  Ihnen  hier  vorstellen 
(GEODEX,  GEOMERGE  und  GEOWRITE  2.0),  nur  mit  der 
GEOS-Version  verwenden,  die  Sie  auch  beim  ersten  Ausprobie- 
ren dieser  Programme  verwendet  haben.  Denn  so,  wie  Sie  GEOS 
VI. 3 vor  dem  ersten  Gebrauch  "installieren"  müssen,  müssen  Sie 
das  auch  mit  den  Zusatzprogrammen  tun.  Führen  wir  das  jetzt 
einmal  gemeinsam  für  GEODEX  durch: 


Installierung  von  GEODEX 

Wir  gehen  davon  aus,  daß  Sie  GEOS  geladen  haben  und  sich  im 
DESKTOP  befinden.  Nehmen  Sie  nun  die  Original-GEODEX- 
Diskette,  entfernen  Sie  einen  hoffentlich  darauf  befindlichen 
Schreibschutzkleber,  legen  Sie  die  Diskette  ein,  "öffnen"  Sie  sie, 
etwa  durch  Anklicken  des  Untermenüs  "öffnen"  (OPEN)  unter 
"Diskette"  (DISK),  und  laden  Sie  anschließend  GEODEX  (am 
einfachsten  durch  Doppelklicken).  Nach  kurzer  Zeit  erscheint 
ein  Fenster  mit  der  Inschrift  "GEODEX  wurde  installiert",  und 
Sie  können  ab  jetzt  GEODEX  ganz  normal  in  Verbindung  mit 
der  GEOS-Version,  die  Sie  bei  dem  eben  beschriebenen  Vorgang 
benutzt  haben,  laden,  kopieren  und  damit  arbeiten.  Klicken  Sie 
"OK"  an,  und  nach  kurzer  Zeit  sehen  Sie  wieder  das  DESKTOP. 
Bitte  bringen  Sie  auch  hier  sofort  wieder  den  Schreibschutzkle- 
ber auf,  damit  es  auf  Ihrer  Original-GEODEX-Diskette  keine 
Datenverluste  gibt. 
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Arbeitsdiskette 

Für  die  weiteren  Experimente  und  Untersuchungen  an  GEODEX 
sollten  Sie  natürlich  möglichst  bald  ein  oder  zwei  Kopien  der 
installierten  GEODEX-Version  anfertigen  und  ab  sofort  mit 
diesen  Arbeitsdisketten  arbeiten.  Wie  Sie  dieses  Kopien  anferti- 
gen können,  ist  ja  weiter  vorne  in  diesem  Buch  erklärt  worden. 


Erster  Eindruck  von  GEODEX 

Was  sich  nach  dem  Doppelklicken  des  GEODEX-Symbols  nach 
kurzer  Zeit  präsentiert,  ist  ein  überaus  eindrucksvoller  Bild- 
schirm, der  einen  recht  gut  getroffenen  Karteikasten  darstellt. 
Im  Zusammenhang  damit  sind  alle  wichtigen  Zugangs-  und 
Verwaltungsmöglichkeiten  vorhanden.  Schauen  wir  uns  daher 
diesen  Karteikasten  und  sein  Umfeld  genauer  an. 


qeos  ’j  file  j ^iem  j disk  I special 


Bild  1.8.1.1:  Der  GEODEX-Karteikasten 


Die  Stirnfläche  des  GEODEX-Karteikastens  enthält  die  Kartei- 
karten-Maske,  bzw.  man  kann  dort  die  jeweils  aktuelle  Datei  se- 
hen. Über  dieser  Maske  sieht  man  insgesamt  28  Registerkarten 
mit  jeweils  einem  kleinen  Reiter  (so  nennt  man  das  wohl  in  der 
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Bürosprache),  mit  deren  Hilfe  man  auf  die  alphabetisch  geord- 
neten Karteikarten  zugreifen  kann.  Die  Register  und  die  Reiter 
sind  in  insgesamt  vier  Reihen  angeordnet,  wobei  die  unteren 
drei  jeweils  acht  enthalten  und  in  der  obersten  Reihe  noch  vier 
vorhanden  sind. 

Wichtig  ist  das  Zeichen,  das  Sie  in  der  untersten  Reihe  ganz 
links  sehen  (über  dem  Wort  "last"  bei  "last  name").  Hier  erkennt 
man  allein  schon  an  der  Anordnung,  daß  dieses  Register  zur 
Vorderfront-Maske  gehört.  Wenn  Sie  mit  der  Maus  ein  anderes 
Register  anklicken,  rutscht  dieses  in  die  Vorderfront,  und  die 
anderen  ordnen  sich  entsprechend  an,  so  daß  insgesamt  die  rich- 
tige Reihenfolge  erhalten  bleibt. 

Da  das  Alphabet  nur  26  "ordentliche"  Buchstaben  enthält  und 
GEODEX  auf  28  Register  kommt,  müssen  zwei  zusätzliche  eine 
besondere  Bedeutung  haben. 

Zum  einen  haben  wir  da  ein  Register,  auf  dessen  zugehörigem 
Reiter  "NEW"  steht.  Dieses  Register  klicken  Sie  an,  wenn  Sie 
eine  beliebige  Adresse  neu  eingeben  wollen.  Dementsprechend 
benutzt  man  es  auch  beim  Beginn  der  Arbeit  mit  GEODEX, 
wenn  man  die  ersten  Eintragungen  vornimmt. 

Das  zweite  aus  dem  Rahmen  fallende  Register  enthält  auf  dem 
Reiter  eine  Art  "Sternchen".  Unter  bzw.  hinter  ihm  verbergen 
sich  alle  Einträge,  die  nicht  mit  einem  Buchstaben,  sondern  z.B. 
mit  einer  Zahl  oder  einem  anderen  Zeichen  beginnen.  Auch  die 
müssen  ja  schließlich  irgendwo  untergebracht  werden.  Verlassen 
wir  nun  zunächst  einmal  die  "Reiterei"  und  wenden  uns  der  Ein- 
gabemaske zu. 

Aufbau  der  Maske  auf  der  Vorderseite 

Ganz  oben  links  finden  Sie  ein  Feld  "LAST  NAME",  in  das  Sie 
einen  Familiennamen  mit  maximal  13  Buchstaben  eingeben  kön- 
nen. Wenn  Sie  das  getan  haben,  kommen  Sie  mit  der  <Return>- 
Taste  zum  nächsten  Feld  (FIRST),  wo  Sie  bis  zu  11  Buchstaben 
lange  Vornamen  eingeben  können.  Sollten  Sie  jetzt  feststellen, 
daß  im  ersten  Feld  etwas  falsch  ist,  können  Sie  mit  «Cursor 
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links>  grundsätzlich  immer  in  das  vorangehende  Feld  zurück- 
kehren. Dementsprechend  kommen  Sie  jetzt  auch  mit  <Cursor 
rechts»  in  das  nächste  Feld,  das  den  Namen  "MIDDLE"  trägt. 
Hier  können  Sie,  falls  Sie  jemanden  kennen,  der,  wie  in  Ame- 
rika z.T.  üblich,  zwischen  Vor-  und  Familiennamen  noch  einen 
(abgekürzten)  gewissermaßen  "mittleren"  Namen  trägt,  einen 
Buchstaben  eintragen. 

Falls  Ihnen  dies  im  Augenblick  etwas  seltsam  vorkommt,  so  den- 
ken Sie  etwa  an  Beispiele  wie  John  F.  Kennedy  oder  Richard  M. 
Nixon. 

Das  nächste  Feld,  das  Sie  dann  mit  <Cursor  rechts»  oder  mit 
Hilfe  der  <Return»-Taste  erreichen,  ist  "ADDR",  wo  Sie  zum 
Beispiel  Straße  und  Hausnummer  eingeben  können.  Dafür  haben 
Sie  einen  Raum  von  24  Zeichen  zur  Verfügung.  Den  Ort  können 
Sie  in  das  Feld  "CITY"  eintragen  (maximal  15  Zeichen).  Für 
deutsche  Verhältnisse  unnötig  ist  die  Eintragung  des  Kennzei- 
chens eines  Bundesstaates  in  das  Feld  "STATE"  (zwei  Zeichen). 
Das  folgende  Feld  "ZIP"  mit  seinen  10  Zeichenmöglichkeiten 
sollten  Sie  - ähnlich  wie  die  Amerikaner  - für  die  Eingabe  der 
Postleitzahl  benutzen.  Für  freie  Einträge  haben  Sie  das  Feld 
"MISC"  zur  Verfügung,  das  auch  bei  den  amerikanischen  Be- 
nutzern dafür  gedacht  ist,  Bemerkungen  unterschiedlichster  Art 
(maximale  Länge  11  Zeichen)  einzutragen  (etwa  "nett",  oder  "hat 
C64",  was  hoffentlich  zusammengehört). 

Was  dann  zu  einer  vollständigen  Adresse  noch  gehört,  nämlich 
die  Telefonnummer,  können  Sie  in  das  nächste  Feld  "PHONE" 
eintragen.  Der  dafür  vorgesehene  Platz  von  höchstens  17  Ziffern 
dürfte  wohl  für  unsere  Verhältnisse  ausreichen  (hoffentlich  ist 
die  Telefonnummer  Ihres  besten  Freundes  nicht  so  lang!).  Ganz 
am  Schluß  haben  Sie  noch  drei  Felder  mit  der  Bezeichnung 
"group",  in  die  Sie  jeweils  drei  Zeichen  eintragen  können.  Sie 
dienen  dem  Sortieren  und  werden  in  diesem  Kapitel  später  er- 
klärt. 

Hier  sei  aber  schon  darauf  hingewiesen,  daß  es  sich  empfiehlt, 
eines  der  Felder,  etwa  das  erste,  für  die  Unterscheidung  nach 
"männlich"  und  "weiblich"  zu  verwenden.  Tragen  Sie  also  ent- 
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sprechend  bei  jeder  Adresse  ein  "m"  oder  "w"  ein.  Sie  werden 
das  später  vor  allem  für  Serienbriefe  brauchen,  wo  sich  etwa  die 
Anrede  bei  männlichen  und  weiblichen  Adressaten  unterscheidet 
(vgl.  dazu  das  Kapitel  über  GEOMERGE). 

Falls  Sie  jetzt  schon  ein  paar  Namen  eingeben  wollen  (indem  Sie 
mit  der  Maus  auf  "NEW"  gehen,  falls  dies  nicht  schon  eingestellt 
ist),  sollten  wir  an  dieser  Stelle  auch  bereits  die  Befehle  aufli- 
sten, mit  denen  Sie  sich  innerhalb  eines  Datensatzes  oder  in  der 
Kartei  insgesamt  bewegen  können. 

Dabei  wiederholen  wir  noch  einmal  zum  besseren  Gesamtüber- 
blick die  Hinweise,  die  wir  oben  schon  gegeben  haben.  Von  ei- 
nem Eingabefeld  zum  nächsten  kommen  Sie  durch  Drücken  der 
<Return>-Taste.  Das  gleiche  erreichen  Sie  auch  durch  Drücken 
der  «Cursor  rechts>-Taste.  Die  Gegenrichtung  steht  Ihnen  offen, 
wenn  Sie  dementsprechend  die  «Cursor  links>-Taste  drücken. 

Gespeichert  wird  die  ganze  neue  Eintragung,  indem  Sie  am 
Schluß  oder  auch  aus  jedem  anderen  Eingabefeld  heraus  klicken. 
Wollen  Sie  in  Ihrer  Kartei  zurückblättern,  also  den  vorherigen 
Eintrag  sehen,  können  Sie  das  mit  Hilfe  der  «Cursor  hoch>-Ta- 
ste  erreichen.  Ebenso  können  sie  weiterblättern,  indem  Sie  die 
«Cursor  tief>-Taste  drücken. 

Dies  funktioniert  natürlich  nur,  solange  Einträge  vorhanden  sind. 
Vor-  und  Zurückblättern  können  Sie  auch  durch  das  Anklicken 
des  Eselsohrs  in  der  Eingabemaske  erreichen.  Dies  funktioniert 
so,  wie  Sie  es  auch  sonst  von  GEOS  her  gewöhnt  sind. 

Wollen  Sie  die  Einträge  zu  einem  bestimmten  Buchstaben  sehen, 
so  erreichen  Sie  das  durch  Anklicken  des  entsprechenden  Reiters 
mit  der  Maus. 

Gezeigt  wird  Ihnen  dann  der  alphabetisch  erste  Eintrag  unter 
diesem  Buchstaben.  Sie  kommen  dann  zum  nächsten  Eintrag  un- 
ter diesem  Buchstaben,  aber  auch  darüber  hinaus,  indem  Sie 
wieder  mit  Cursor  oder  Eselsohr  blättern.  Wie  oben  schon  er- 
wähnt, erscheint  dabei  der  jeweils  aktuelle  Buchstabe  immer 
oben  links  in  der  Eingabemaske,  und  die  anderen  ordnen  sich 
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entsprechend  an.  Kommen  wir  nun  zu  den  Befehlsmöglichkeiten 
auf  der  rechten  Seite  der  Vorderfront  des  GEODEX-Kartei- 
kastens,  die  von  der  Anordnung  her  etwas  an  GEOPAINT  erin- 
nern. 

Die  Menüleiste  von  GEODEX 

Im  folgenden  sollen  Ihnen  die  einzelnen  Menüfelder  in  der  Rei- 
henfolge von  oben  nach  unten  vorgestellt  werden.  Zur  leichteren 
Orientierung  haben  wir  die  Zahlen  jeweils  dazugedruckt. 


Menüfeld  1:  Schließsymbol 

Wenn  Sie  dieses  Feld  anklicken,  verlassen  Sie  GEODEX. 


Menüfeld  2:  Liegendes  Kreuz 

Hier  können  Sie  den  gerade  aktuellen  Eintrag  löschen.  Wenn  Sie 
hier  klicken,  erscheint  ein  Fenster  mit  der  Frage,  ob  Sie  das 
wirklich  wollen  (Delete  the  current  record?),  und  Sie  haben  die 
Möglichkeit,  das  mit  "Yes"  oder  "No"  zu  beantworten. 


Menüfeld  3:  Das  Fragezeichen 

Dieses  Feld  dient  allgemein  zum  Durchsuchen  Ihres  GEODEX- 
Karteikastens  nach  bestimmten  Einträgen. 

Wenn  Sie  hier  klicken,  erscheint  ein  Fenster  mit  der  Inschrift 
"Enter  last  name  to  find:”.  An  dieser  alleinigen  Aufforderung, 
den  Familiennamen  (=  last  name)  einzugeben,  nach  dem  Sie  su- 
chen wollen,  können  Sie  schon  erkennen,  daß  GEODEX  nur  in 
der  Lage  ist,  Familiennamen  nach  dem  Alphabet  zu  suchen. 
Nicht  möglich  sind  zum  Beispiel  die  Suche  nach  Telefonnum- 
mern oder  ähnliche  Sortiervorgänge  (etwa  das  Heraussuchen  aller 
Telefonnummern  aus  einem  bestimmten  Bereich). 

Haben  Sie  den  gesuchten  Familiennamen  eingegeben,  müssen  Sie 
die  <Return>-Taste  drücken,  und  schon  geht  die  Sucherei  los. 
Findet  GEODEX  zu  dem  Namen,  den  Sie  eingegeben  haben, 
keinen  Eintrag,  dann  erscheint  ein  Fenster  mit  der  Meldung: 
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"There  ist  no  one  with  that  last  name  in  the  GEODEX  file."  Und 
anschließend  können  Sie  eine  neue  Suche  ausprobieren. 

(Übrigens:  Falls  Sie  schon  mit  den  "groupH-Feldern  gearbeitet 
haben,  kann  die  erfolglose  Suche  natürlich  auch  daran  liegen, 
daß  GEODEX  (siehe  das  unterste  Feld  "Lassoschlinge")  nur  noch 
nach  Einträgen  sucht,  die  entsprechende  Einträge  in  den 
"group"- Feldern  haben.  Sie  müssen  dann  dort  erst  wieder  in  den 
Modus  gehen,  bei  dem  alle  Daten  berücksichtigt  werden.) 

Probieren  Sie  das  Suchen  nach  Einträgen  jetzt  ruhig  einmal  bei 
etwa  drei  oder  vier  Einträgen  selbst  aus. 

Vielleicht  haben  Sie  schon  selbst  dabei  an  die  Verwendung  des 
Jokers  * gedacht,  den  Sie  ja  von  der  tagtäglichen  Nutzung  Ihres 
C64  her  kennen.  Und  tatsächlich,  er  funktioniert  auch  hier.  Sie 
können  damit  den  Rest  des  gesuchten  Namens  weglassen. 

Suchen  Sie  also  etwa  nach  "Mei*",  so  finden  Sie  unter  Umstän- 
den (je  nach  Ihren  Einträgen  natürlich)  Meier,  Meiers,  Meister- 
kamp usw...  Wenn  Sie  auf  den  Joker  allerdings  verzichten,  sucht 
GEODEX  genau  nach  der  Zeichenkombination,  die  Sie  eingege- 
ben haben. 

Aber  es  gibt  noch  eine  weitere,  gerade  im  Falle  unseres  Herrn 
Meier  nicht  uninteressante  Möglichkeit.  Stellen  wir  uns  vor.  Sie 
wissen  nicht  mehr,  ob  Ihr  "Meier"  mit  "i"  oder  mit  "y"  geschrie- 
ben wird.  Hier  kann  GEODEX  Ihnen  helfen,  wenn  Sie  anstelle 
des  unbekannten  Buchstabens  ein  Fragezeichen  einfügen. 

Suchen  Sie  also  nach  "Me?er",  so  findet  Ihr  Programm  entweder 
Meier  oder  Meyer  - oder  beides.  "Meier"  ist  insofern  ein  gutes 
Beispiel,  weil  es  ja  im  Umfeld  dieses  Namens  Leute  gibt,  die  so- 
gar so  weit  gehen,  sich  mit  "ay"  zu  schreiben. 

Wollen  Sie  auch  diesen  Leuten  eine  Chance  geben,  zumindest 
gemeinsam  erfolgreich  gesucht  zu  werden,  so  geben  Sie  doch 
einfach  zwei  Fragezeichen  an  der  Stelle  ein,  wo  Sie  sich  alle 
Möglichkeiten  offenhalten  wollen.  Am  Ende  steht  also  im  Such- 
feld "M??er". 
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Und  wenn  Sie  jetzt  einen  "Meier",  einen  "Meyer",  einen  "Mayer" 
oder  gar  einen  "Maier"  in  Ihrer  Kartei  haben,  werden  sie  gefun- 
den, wetten?! 


Menüfeld  4:  Telefon 

Um  dieses  Feld  erfolgreich  benutzen  zu  können,  benötigen  Sie 
einen  Akustikkoppler,  der  amerikanischem  Standard  entspricht. 
Sollten  Sie  das  nicht  glauben,  klicken  Sie  dieses  Feld  doch  ein- 
fach einmal  an. 

Schnell  erscheint  ein  Fenster,  auf  dem  Ihnen  das  Programm  zu 
seinem  Kummer  mitteilt:  "Cannot  access  modern  to  dial"  (zu 
Deutsch  etwa:  "Ich  komm’  nicht  ins  Telefonnetz  rein!"). 


Menüfeld  5:  Drucker 

GEODEX  bietet  Ihnen  eine  ganze  Palette  von  Druckmöglichkei- 
ten. Wenn  Sie  dieses  Feld  anklicken,  erscheint  in  einem  Fenster 
ein  Auswahlmenü  mit  der  Inschrift  "Select  desired  output",  die 
Sie  einfach  auffordert,  eine  Wahl  zu  treffen. 

Als  erste  Möglichkeit  können  Sie  "Phone  list"  anklicken.  Dann 
werden  linksbündig  Vorname  und  Nachname  und  rechtsbündig 
die  Telefonnummer  gedruckt,  der  Rest  der  Zeile  wird  durch 
Pünktchen  aufgefüllt. 

Wählen  Sie  "Adress  labels  (1  inch)",  so  werden  jeweils  Vorname 
und  Nachname  in  die  erste  Zeile,  die  Adresse,  d.h.  bei  uns  die 
Straße,  in  die  nächste  Zeile  und  Ort,  Staat  und  ZIP-Postleitzahl 
in  die  dritte  Zeile  gedruckt.  Wählen  Sie  "Adress  labels  (1  1/2 
inch)",  so  ergibt  sich  nur  ein  anderer  Zeilenabstand  zwischen 
den  Angaben.  Klicken  Sie  "list  all  field  data"  an,  so  werden  alle 
Daten  der  Karteikarte  gedruckt. 

Und  zwar  geschieht  das  in  folgender  Reihenfolge: 

1.  Zeile:  Vorname,  Middle,  Familienname  und  (rechtsbündig) 
Telefonnumer 

2.  Zeile:  Adresse  = Straße 
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3.  Zeile:  Ort,  Staat,  ZIP-Postleitzahl 

4.  Zeile:  der  Eintrag  unter  "MISC".  sowie  die  Einträge  in  den 
"group"-Feldern 

Die  von  Ihnen  angewählte  Ausgabeart  bekommt,  wie  Sie  gesehen 
haben,  jeweils  ein  schwarzes  Kästchen. 

Sehr  komfortabel  ist,  daß  es  sich  um  einen  Textmodusdruck, 
nicht  um  Grafikdruck  handelt,  das  heißt,  der  Druck  ist  sehr 
schnell. 

Sie  können  daher  GEODEX  nur  mit  den  neuen  Druckertreibern 
verwenden,  die  sich  auf  der  Rückseite  der  GEODEX- Diskette 
befinden,  da  nur  sie  im  Textmodus  drucken  können.  Der  Druck 
beginnt,  sobald  Sie  "OK"  angeklickt  haben. 


Menüfeld  6:  Bild  einer  Karteikarte  und  eines  Blattes  Papier 

Wenn  Sie  dieses  Feld  wählen,  erscheint  ein  Fenster  mit  der 
Aufforderung  "Enter  merge  file  name",  d.h..  Sie  sollen  also  den 
Namen  einer  Datei  eingeben,  die  Sie  jetzt  hersteilen  und  die  es 
Ihnen  ermöglicht,  Serienbriefe  zu  schreiben. 

Wir  werden  auf  diese  Möglichkeit  näher  im  Zusammenhang  mit 
GEOMERGE  eingehen. 

Menüfeld  7:  Lasso 

Hier  werden  Sie  aufgefordert,  eine  "group"  anzugeben:  "Enter  the 
group  to  view". 

GEODEX  zeigt  Ihnen  jetzt  nur  noch  die  Adresseneinträge  in  ei- 
nem der  drei  "group"-Felder,  die  sich  ganz  unten  auf  jeder 
Karteikarte  befinden.  Auf  diese  Art  und  Weise  können  Sie  also 
Ihre  gesamten  Karteikarten  in  Unterkarteien  ordnen. 

Nehmen  wir  einmal  an.  Sie  möchten  gerne  bei  Ihren  Adressen 
zwischen  denen  privater  und  denen  beruflicher  Natur  unter- 
scheiden (etwa  weil  Sie  Ihren  Chef  nicht  unbedingt  per  Serien- 
brief zu  Ihrer  Samstagabendfete  einladen  wollen).  Dann  sollten 
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Sie  allen  denjenigen,  die  Sie  zu  Ihren  privaten  Bekannten  oder 
Freunden  zählen,  etwa  die  Abkürzung  "pri"  für  "privat"  in  eines 
der  Gruppenfelder  schreiben. 

Noch  einmal:  Es  ist  dabei  gleichgültig,  in  welchem  der  drei 
Gruppenfelder  die  Eintragung  auftaucht.  Das  Feld,  nach  dem 
gesucht  wird,  wird  invertiert,  und  schon  sehen  Sie  nur  noch  die 
Einträge  Ihrer  Kartei,  die  die  "group"-Bedingung  erfüllen.  Das 
Blättern  in  dieser  eingeschränkten  Kartei  geschieht  auf  die  oben 
erklärte  Weise  (Cursor-Steuerung  oder  Eselsohr-Klick). 

Wollen  Sie  hinterher  den  Gruppen-Sortiermodus  verlassen,  gehen 
Sie  wieder  auf  das  Lassofeld  und  klicken  "View  all"  an.  Und 
schon  sind  Sie  wieder  im  Normal-Anzeigemodus. 

Mit  "Cancel"  können  Sie  sich  übrigens  - wie  immer  - aus  einem 
Fenster  entfernen,  wenn  Sie  es  sich  nur  anschauen,  aber  in  die- 
sem Falle  keine  Gruppe  angeben  wollten. 

Übersicht  über  die  Möglichkeiten  bei  der  Tastatureingabe 

Im  folgenden  möchten  wir  Ihnen  noch  einmal  einen  Gesamt- 
überblick über  die  Eingabemöglichkeiten  bei  GEODEX  geben. 
Wie  Sie  schon  gesehen  haben,  haben  Sie  bei  der  Eingabe  von 
Daten  in  die  Felder  alle  Zeichentasten  zur  Verfügung,  außerdem 
die  <Del>-Taste,  um  Zeichen  zu  löschen. 

Was  nun  die  Befehlseingaben  angeht,  so  finden  Sie  hier  eine  Ta- 
belle der  Tastenbelegung  bei  GEODEX,  wobei  es  uns  vor  allem 
auf  Kurzbefehle  ankommt.  Aber  wir  präsentieren  Ihnen  auch 
noch  einmal  einige  andere  wichtige  Tasten  (in  alphabetischer 
Reihenfolge). 

Cursor 

Cursor  hoch 

Wechsel  zur  vorhergehenden  Karteikarte 
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Cursor  tief 

Wechsel  zur  nachfolgenden  Karteikarte 
Cursor  rechts 

Wechsel  zum  nächsten  Eingabefeld  innerhalb  der  Maske 
Cursor  links 

Wechsel  zum  vorausgehenden  Eingabefeld  innerhalb  der  Maske 

Maus 

Direktwahl  des  alphabetischen  Bereichs  durch  Anklicken  des 
entsprechenden  Reiters,  außerdem  Wahl  der  Menüfunktionen 
sowie  Blättern  mit  dem  Eselsohr  an  der  Vorderseite  des  Kartei- 
kastens. 

< Return  > -Taste 

Wechsel  zum  nächsten  Eingabefeld  innerhalb  der  Maske,  außer- 
dem Ausführung  der  Funktionen  innerhalb  der  Fenster  des 
Menübereichs,  wo  Sie  keine  Anklick-Möglichkeit  finden. 

Und  nun  die  Kurzbefehle  (in  alphabetischer  Reihenfolge): 

<Commodore>-Taste  und  <D> 

Telefon  wählen  (bei  uns  nicht  zu  gebrauchen) 

<Commodore>-Taste  und  <G> 

Gruppe  auswählen  (groups) 

<Commodore>-Taste  und  <M> 

Merge-File  erzeugen  (vgl.  dazu  die  Ausführungen  oben) 
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<Commodore> -Taste  und  <P> 

Drucken 

<Commodore>-Taste  und  <Q> 

GEODEX  verlassen 

<Commodore>-Taste  und  <X> 

Aktuellen  Eintrag  ("record")  löschen 

<Commodore> -Taste  und  <S> 

Suchen  nach  einem  Dateieintrag 

<Commodore>-Taste  und  <Y> 

Style  wählen  zwischen  "plain"  und  "bold"  (Normalschrift  oder 
Fett,  wird  auf  Bildschirm  nicht  angezeigt) 


<Commodore>-Taste  und  <Shift>  und  Buchstabe  von  A-Z 

Bewirkt  das  Suchen  nach  Einträgen  zu  dem  entsprechenden  An- 
fangsbuchstaben (entspricht  dem  Anklicken  eines  Reiters  mit  der 
Maus) 

Liste  der  Fehlermeld  ungen 

Im  folgenden  möchten  wir  Ihnen  eine  weitere  tabellarische  Hilfe 
an  die  Hand  geben,  indem  wir  alle  englischen  Fehlermeldungen 
zusammenstellen  und  gleichzeitig  übersetzen  bzw.  erklären: 


There  is  insufficient  memory  to  save  more  than  24  names  that  Start  with 
thatletter 

Es  gibt  nicht  genügend  Speicher,  um  mehr  als  24  Namen  mit  demsel- 
ben Buchstaben  zu  speichern 

Lösung:  Kopieren  Sie  GEODEX  und  GEOMERGE  auf  eine 

andere  Arbeitsdiskette.  Sie  erhalten  dadurch  einen 
weiteren  (leeren)  Karteikasten 
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There  is  insufficient  room  to  load  the  printer  driver 

Es  gibt  nicht  genügend  Speicherplatz,  um  den  Druckertreiber  zu  laden 

Lösung:  Löschen  Sie  nicht  benötigte  Files  auf  der  Diskette. 

There  is  insufficient  room  to  save  the  merge  file 
Es  gibt  nicht  genügend  Speicherplatz,  um  das  Merge-File  auf  der  Dis- 
kette zu  erzeugen 

Lösung:  Löschen  Sie  nicht  benötigte  Files  auf  der  Diskette. 

There  is  insufficient  room  to  save  the  previous  entry 

Es  gibt  nicht  genügend  Speicherplatz,  um  den  vorhergehenden  Eintrag 

zu  speichern 

Lösung:  Löschen  Sie  nicht  benötigte  Files  auf  der  Diskette. 

There  is  no  one  with  that  last  name  in  the  geodex  file: 

Es  gibt  in  der  Datei  keinen  Eintrag  mit  diesem  Familiennamen 

Lösung:  Erstellen  Sie  doch  einfach  eine  entsprechende  Kar- 

teikarte, dann  kann  GEODEX  sie  auch  finden. 

Im  übrigen  prüfen  Sie,  ob  Sie  sich  nicht  in  einem  "group"- Aus- 
wahlmodus (Menüpunkt  "Lassoschlinge")  befinden,  der  es  GEO- 
DEX unmöglich  macht.  Ihnen  einen  Eintrag  zu  präsentieren,  den 
Sie  zwar  haben,  der  aber  Ihre  gewählte  "group"- Bedingung  nicht 
erfüllt.  Sollte  das  die  Lösung  für  Ihr  Suchproblem  sein,  klicken 
Sie  unter  "Lassoschlinge"  wieder  ( ???  ) an. 


1.8.2  GEOWRITE  2.0 

Im  folgenden  Kapitel  wollen  wir  Ihnen  nun  die  neueste  uns  be- 
kannt gewordene  Version  von  GEOWRITE  vorstellen.  Sie  trägt 
die  Entwicklungsnummer  2.0,  was  schon  andeutet,  daß  hier 
massivere  Änderungen  gegenüber  den  verschiedenen  1. -Versio- 
nen vorgenommen  worden  sind. 
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Überblick  über  die  Diskette 

Die  Diskette,  auf  der  sich  GEOWRITE  2.0  befindet,  heißt  "Wri- 
ter’s  Workshop”  und  zeigt  damit  schon  ihren  Anspruch,  einen 
kompletten  Arbeitsplatz  für  jemanden  zu  bieten,  der,  sei  es  pri- 
vat - sei  es  beruflich  - viel  schreibt. 

Auf  der  Vorderseite  der  Diskette  finden  sich  auf  der  ersten  Seite 
des  Inhaltsverzeichnisses  neben  GEOWRITE  2.0  noch  das  schon 
in  diesem  Buch  beschriebene  Serienbrief-Programm  GEO- 
MERGE,  außerdem  ein  Programm  mit  Namen  TEXT  GRAB- 
BER,  wobei  es  sich  hier  um  ein  Programm  zur  Konvertierung 
von  Texten  ins  GEOWRITE-Format  handelt,  und  schließlich 
GEOLASER,  mit  dem  Sie  GEOWRITE-Texte  mit  einem  Laser- 
drucker ausgeben  können. 

Auf  der  zweiten  Seite  des  Inhaltsverzeichnisses  sehen  Sie  5 
Icons,  die  alle  ein  Commodore-Symbol  tragen,  verbunden  mit 
einigen  Blättern  Papier.  Unter  diesen  finden  Sie  die  Bezeichnun- 
gen PAPERCLIP  FORM,  EASYSCRIPT  FORM,  PEEDSCRIPT 
FORM,  ORDWRITER  FORM  und  schließlich  GENERIC 
FORM.  Hinter  diesen  fünf  Icons  verbergen  sich  konkrete  An- 
passungen für  den  TEXT  GRABBER. 

Auf  der  dritten  und  letzten  Seite  des  Inhaltsverzeichnisses  finden 
sich  dann  der  Druckertreiber  LASER  WRITER  und  fünf  neue 
Fonts,  die  alle  ein  LW  und  dann  einen  Unterstrich  haben,  also 
LW_ROMA,  LW_CAL,  LW_GREEK  und  LW_BARROWS. 
Das  sind  die  konkreten  Fonts  für  den  Laserdrucker. 

Der  erste  Eindruck  von  GEOWRITE  2.0 

Schauen  wir  uns  jetzt  GEOWRITE  2.0  einmal  konkret  an,  wobei 
es  uns  nur  auf  die  wesentlichen  Unterschiede  zu  GEOWRITE  1.2 
und  GEOWRITE  1.3  ankommt.  Nachdem  wir  GEOWRITE  2.0 
geladen  und  das  erste  Fenster,  wie  wir  es  gewöhnt  sind,  durch 
die  Eingabe  eines  Textnamens  übersprungen  haben,  sehen  wir 
einen  Bildschirm,  der  grundsätzlich  an  die  früheren  Versionen 
erinnert,  aber  bei  näherem  Hinsehen  zwei  auffällige  Unter- 
schiede präsentiert. 
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1.  Die  Menüleiste  oben  enthält  mehr  Oberbegriffe: 

Hier  finden  sich  nun  Menüs  mit  den  Namen  GEOS,  FILE, 
EDIT,  OPTIONS,  PAGE,  FONT,  STYLE. 

2.  Unter  der  Positionsleiste  mit  Tabulatoren  findet  sich  noch 
eine  weitere  Zeile  mit  den  Begriffen  LEFT,  CENTER, 
RIGHT,  FULL,  jeweils  mit  Anklick-Kästchen  versehen, 
JUSTIFICATION  mit  einem  vorangestellten  Pfeil  nach  links, 
LINE  SPACING  mit  einem  nachgestellten  Pfeil  nach  rechts, 
des  weiteren  die  Möglichkeiten  1,  1 1/2,  2,  wiederum  mit  ei- 
nem Kästchen,  das  nach  Anklicken  durch  dunkle  Färbung 
anzeigt,  daß  es  aktiviert  worden  ist.  Diese  neue  Zeile  wollen 
wir  im  folgenden  "Befehlsleiste"  nennen. 

Erste  Schreibversuche  mit  GEOWRITE  2.0 

Die  nächsten  Neuerungen  tauchen  auf,  wenn  wir  ein  paar  Zeilen 
auf  den  Bildschirm  schreiben  und  dann  den  Cursor  benutzen. 
Grundsätzlich  entspricht  die  Cursor-Bewegung  dabei  erst  einmal 
GEOWRITE  1.3. 

Neu  ist  aber,  daß  man  an  das  Ende  der  vorherigen  Zeile  gelan- 
gen kann,  wenn  man  am  Anfang  einer  Zeile  steht  und  die 
«Cursor  links>-Taste  drückt.  Steht  man  am  Ende  einer  Zeile, 
kann  man  durch  Drücken  der  «Cursor  rechts>-Taste  an  den 
Anfang  der  nächsten  Zeile  gelangen. 

Neu  ist  auch  die  Belegung  der  beiden  anderen  Cursor-Bewegun- 
gen. Wenn  man  mit  dem  Cursor  an  den  oberen  Rand  geht  und 
darüber  befindet  sich  noch  Text,  dann  scrollt  der  Text  nach 
oben.  Entsprechendes  gilt  für  die  andere  Richtung.  Scroll-Pfeile 
braucht  man  jetzt  bei  der  Textverarbeitung  mit  GEOWRITE 
nicht  mehr,  und  so  gibt  es  verständlicherweise  auch  keine 
Scroll-Pfeile  mehr,  wie  wir  beim  ersten  Betrachten  des 
GEOWRITE-2.0-Bildschirms  schon  feststellen  konnten.  Es  gibt 
nur  noch  den  Seitenzeiger,  der  einem  anzeigt,  wo  man  sich  auf 
der  ganzen  Seite  befindet. 

Schauen  wir  uns  nun  als  nächstes  die  Maus  an.  Wir  können  mit 
ihr  wieder  den  Cursor  überall  hinklicken,  wo  Text  ist.  Wenn  wir 
den  Cursor  auf  einer  Zeile  hinter  dem  Text  "anklicken",  wird  er 
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automatisch  hinter  das  letzte  Zeichen  gesetzt.  Geht  man  mit  der 
Maus  ganz  zum  oberen  oder  unteren  Bildschirmrand,  beginnt 
dort  derselbe  Scroll-Vorgang,  wie  wir  ihn  bereits  vom  Cursor 
her  kennen  - unter  der  Voraussetzung,  daß  dort  noch  Text  zu 
finden  ist. 

Insgesamt  ist  damit  durch  die  neuen  Möglichkeiten  des  Cursors 
und  der  Maus  das  Arbeiten  auf  einer  Seite  wesentlich  kom- 
fortabler geworden.  Allerdings  haben  diese  Verbesserungen 
gleichzeitig  auch  eine  - allerdings  kleine  - Kehrseite. 

Wenn  man  schon  oberhalb  des  Bildschirms  Text  hat  und  einen 
Menüpunkt  anklicken  will,  dann  kann  es  einem  plötzlich  passie- 
ren, daß  man  nicht  den  gewünschten  Menüpunkt  erwischt,  son- 
dern vorher  schon  der  Text  anfängt  zu  scrollen. 

Deswegen  sollte  man  mit  der  Maus  nicht  einfach  nach  oben 
fahren  und  irgendwo  klicken,  sondern  wirklich  nur  bis  zum 
Anfang  der  Menüleiste  und  dann  durch  gezieltes  Klicken  das 
entsprechende  Pulldown-Menü  herunterlassen.  Schauen  wir  uns 
als  nächstes  die  Menüleiste  mit  ihren  jeweiligen  Untermenüs  an. 

Menü  1:  GEOS 

Hier  hat  sich  nichts  geändert,  alle  Accessories  erscheinen,  dazu 
das  GEOWRITE-Info,  das  wie  üblich  die  Autoren  von 
GEOWRITE  2.0  nennt. 

Menü  2:  FILE 

Der  nächste  Punkt,  FILE,  hat  sich  auch  nicht  geändert:  Dort 
finden  sich  so  bekannte  Untermenüs  wie  CLOSE,  UPDATE 
usw...  Leider  gibt  es  hier  keine  Kurzbefehle. 


Menü  3:  EDIT 

Unter  EDIT  finden  wir  wieder  CUT,  COPY  und  PASTE,  hier 
finden  sich  auch  wieder  Abkürzungen  über  Tastaturbefehle,  wie 
wir  sie  schon  von  GEOWRITE  1.3  her  kennen. 
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Menü  4:  OPTIONS 

Hier  wird  es  nun  besonders  interessant,  denn  es  tauchen  die 
vielfältigen  Möglichkeiten  der  Textverarbeitung  auf,  die  man  bei 
den  früheren  Versionen  GEOWRITE  1.2  und  GEOWRITE  1.3 
immer  vermißt  hat.  Im  einzelnen  sieht  man  zunächst  folgende 
Untermenüs: 


SEARCH 
FIND  NEXT 
CHANGE,  THEN  FIND 
HIDE  PICTURES 
OPEN  HEADER 
OPEN  FOOTER 
SELECT  PAGE 


Bis  auf  HIDE  PICTURES  sind  alle  über  Tastaturabkürzungen  zu 
erreichen.  Um  die  Möglichkeiten  ausprobieren  zu  können, 
brauchen  wir  hier  natürlich  einen  schon  etwas  längeren  Text. 

Wenn  Sie  unseren  Versuchen  folgen  wollen,  sollten  Sie  jetzt  den 
folgenden  Brief  unter  dem  Namen  "An  Peter  II"  erstellen: 


Lieber  Peter, 

Dies  ist  mein  erster  Brief  mit  dem  neuen  GEOWRITE  2.0,  das  mir  Herr 
Meier  empfohlen  hat.  Eben  habe  gelesen,  daB  man  jetzt  endlich 
professionelle  Text Verarbeitung  machen  kann.  Ich  bin  gespannt,  wie 
das  im  einzelnen  so  aussehen  wird. 

Es  ist  doch  erstaunlich,  was  aus  dem  alten  C64  so  noch  alles 
herausgeholt  worden  ist.  Wer  hätte  das  vor  ein,  zwei  Jahren  gedacht, 
daB  es  für  ein  64-KByte-Gerät  einmal  eine  Benutzeroberfläche  geben 
würde. 

Ich  bin  doch  froh,  daB  ich  damals  auf  Herrn  Meier  gehört  und  mich  für 
Commodores  Renner  entschieden  habe. 

Am  meisten  aber  bin  ich  darüber  froh,  daB  es  nicht  bei  dem  einmaligen 
Wurf  geblieben  ist,  sondern  daB  ständig  Verbesserungen  und 
Erweiterungen  zu  GEOS  konnten. 

So,  jetzt  habe  ich  genug  Text  für  meine  Versuche,  ich  verabschiede 
mich  daher  zunächst  einmal. 


Bis  bald 
Dein  Gerd 
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Liebef  Peter, 

Dies  ist  mein  erster  Brief  mit  dem  neuen  GEOWRITE  2.6,  dciss  mit  Herr 
Meier  empfohlen  hat.  Eben  habe  ich  im  GROSSEN  GEOSBuch  gelesen, 
dass  man  jetzt  endlich  professionelle  Textverarbeitung  mit  GEOS 
machen  kann.  Ich  bin  gespannt,  wie  dass  im  einzelnen  so  aussehen 
wird. 

Es  ist  doch  erstaunlich,  was  aus  dem  alten  C64  so  noch  alles 
herausgeholt  worden  ist.  Her  haette  das  oor  1-2  Jahren  gedacht, 
dass  es  fuer  ein  64-Kbgtes-Geraet  einmal  eine  Benutz  eroberflaeche 
geben  wuerde. 

Ich  bin  doch  froh,  dass  ich  damals  auf  Herrn  Meier  gehoert  und 
micht  fuer  Commodores  Renner  entschieden  haben. 

Am  meisten  aber  bin  ich  darueber  froh,  dass  es  nicht  bei  dem 


Bild  1.8.11:  Brief  an  Peter  (GEOWRITE  2.0) 

Wählen  wir  unter  OPTIONS  zunächst  das  Untermenü  SEARCH 
an.  Nun  erscheint  ein  Fenster  mit  der  Überschrift  "Search/ 
Replace".  Darunter  finden  sich  zwei  Zeilen,  in  die  man  zunächst 
das  zu  suchende  ("Search  For")  und  anschließend  das  Wort  ein- 
geben kann,  das  anstelle  des  ersten  erscheinen  soll  ("Replace 
"with").  Der  Cursor  blinkt  bereits  in  der  ersten  Zeile. 

Also  geben  wir  doch  einfach  zur  Probe  "Brief  ein.  Achten  Sie 
hierbei  darauf,  daß  der  Cursor  am  Anfang  des  Textes  steht. 

Wenn  wir  jetzt  die  <Return>-Taste  drücken,  dann  sucht 
GEOWRITE  2.0  und  markiert  das  gefundene  Wort,  indem  es 
dieses  invertiert,  wie  wir  es  auch  mit  der  Maus  tun  können.  In 
unserem  Fall  geschieht  das  in  der  ersten  Zeile. 

Als  nächstes  wollen  wir  "Brief  durch  "Versuch"  ersetzen.  Dafür 
gehen  wir  mit  dem  Cursor  wieder  an  den  Anfang  des  Textes, 
wählen  unter  OPTIONS  das  Untermenü  SEARCH  an  und  klicken 
nun  das  zweite  Eingabefeld  an. 
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Hinweis:  Versuchen  Sie  nicht,  das  erste  Feld  mit  Hilfe  der 

<Return>-Taste  zu  verlassen,  wie  Sie  es  von  GEO- 
DEX  her  gewohnt  sind,  denn  dann  beginnt 
GEOWRITE  2.0  bereits  zu  suchen.  Klicken  Sie  also 
mit  der  Maus  das  REPLACE-WITH-Feld  an,  und 
tippen  Sie  dort  "Versuch"  ein. 

In  zwei  weiteren  Zeilen  des  Eingabefensters  können  wir  jetzt 
wählen  zwischen  WHOLE  WORD  und  PARTIAL  WORD.  D.h., 
im  ersten  Falle  sucht  GEOWRITE  2.0  so  lange,  bis  es  genau  die 
eingetippte  Zeichenkombination  als  Wort  vorfindet.  Im  zweiten 
Falle  markiert  es  jedes  Wort,  in  dem  sich  die  Zeichenkombina- 
tion findet,  auch  wenn  das  ganze  Wort  länger  ist.  Nehmen  wir 
unser  Beispiel: 

Im  ersten  Fall  würde  nur  "BrieP  gefunden  und  dann  gegebe- 
nenfalls ersetzt,  im  zweiten  Falje  etwa  auch  ein  Wort  wie 
"Briefmarke".  (Auf  die  Wortschöpfung  "Versuchsmarke"  verzich- 
ten wir  natürlich  gerne.).  In  der  nächsten  Auswahlzeile  können 
wir  GEOWRITE  2.0  den  Umfang  seiner  Arbeit  signalisieren.  Ist 
das  linke  Feld  ALL  PAGES  angeklickt,  so  werden  wirklich  alle 
Seiten  des  Textes  durchsucht,  im  anderen  Fall  "THIS  PAGE 
ONLY"  nur  die  gerade  aktuelle  Seite.  Ganz  unten  in  unserem 
Eigabefenster  finden  wir  noch  drei  Anklickmöglichkeiten: 

NEXT,  ALL  und  CANCEL. 

Wenn  Sie  kein  ALL  sehen,  so  liegt  das  nur  daran,  daß  Sie  noch 
nichts  unter  REPLACE  WITH  eingetragen  haben. 

NEXT:  GEOWRITE  sucht  das  nächste  passende  Wort  ab 

Cursor-Position. 

ALL:  GEOWRITE  sucht  alle  passenden  Wörter  ab  Cursor- 

Position. 

CANCEL:  Mit  diesem  Feld  können  Sie  wie  immer  die  Einga- 
bemaske verlassen,  ohne  GEOWRITE  2.0  irgend- 
welche Suchaufträge  zu  erteilen. 
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Wir  klicken  in  unserem  Beispiel  "Brief/Versuch"  die  Felder 
WHOLE  WORD,  ALL  PAGES  und  ALL  an,  und  siehe  da,  es 
klappt:  In  der  ersten  Zeile  steht  jetzt  "Dies  ist  mein  erster  Ver- 
such...” 

Probieren  wir  nun  die  Möglichkeiten  gleich  noch  einmal  aus,  in- 
dem wir  uns  daran  erinnern,  daß  Herr  Meier  eigentlich  mit  "ay” 
geschrieben  wird.  Diese  Änderung  können  wir  nun  vornehmen, 
indem  wir 

1.  den  Cursor  an  den  Anfang  des  Textes  setzen, 

2.  unter  OPTIONS  SEARCH  anwählen, 

3.  in  das  erste  Feld  "Meier"  eingeben, 

4.  Mit  der  Maus  das  zweite  Feld  anwählen  und  dort  Mayer 
eintragen. 

5.  Außerdem  wählen  wir  jetzt  PARTIAL  WORD,  damit  auch 
eine  Wendung  wie  "Meiers  Vorschlag"  ersetzt  wird. 

6.  Zusätzlich  wählen  wir  ALL  PAGES  und  ganz  unten  ALL  an. 


geos  i file  j edit  j options  j page  j font  j stgle  | i 


An  Peter 


JIj. 


LEFT  □ lENTCW 


niiTUTn  rill  i » A-  ineTirirnTim.1  i i».ir  enariHi:. 


Dies  ist  mein 
Meier  empfohll 

dass  man  jetj  Replace  Milh 
machen  kann, 
ujird. 

Es  ist  doch 
herausgeholt  i 
dass  es  fuer  ■en 
geben  uuuerde. 


Search  / Replace 
Search  For 


Meier 


Mager 


GMhole  Mord  ■ Partial  Mord 
■ All  Paqes  □ This  Paqe  Onlq 

Next  | 


All  | iCancell 


mit  Herr 
gelesen, 
it  GEOS 
aussehen 

och  alles 
gedacht, 
:>erflaeche 


Ich  bin  doch  froh,  dass  ich  damals  auf  Herrn  Meier  gehoert  und 
michl  fuer  Commodores  Renner  entschieden  haben. 

Am  meisten  aber  bin  ich  darueber  froh,  dass  es  nicht  bei  dem 


Bild  1.&.2.2:  Suchen  und  Ersetzen  mit  GEOWRJTE  2.0 

Während  jetzt  Ihr  Diskettenlaufwerk  arbeitet,  möchten  wir  Sie 
beruhigen:  Daß  der  Vorgang  so  kompliziert  aussieht  (6  Punkte), 
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hängt  nur  damit  zusammen,  daß  wir  Ihnen  die  Möglichkeiten  im 
einzelnen  erklären  wollten.  Normalerweise  sind  die  Auswahl- 
möglichkeiten schon  richtig  voreingestellt,  und  Sie  haben  sich 
rasch  an  den  Ablauf  gewöhnt. 

Zum  Schluß  dieses  Abschnitts  noch  ein  paar  kleine  Tips: 

1.  GEOWRITE  2.0  beachtet  beim  Suchen  Groß-  und  Klein- 
schreibung, d.h.,  Sie  müssen  dementsprechend  sorgfältig  bei 
der  Eingabe  des  zu  ersetzenden  Wortes  sein. 

2.  Wenn  Sie  unter  "Replace"  etwas  eingetragen  haben,  sollten  Sie 
zum  Schluß  NEXT  oder  ALL  anklicken.  Nur  dann  ersetzt 
GEOWRITE  in  Ihrem  Sinne.  Wenn  Sie  dagegen  die 
<Return>-Taste  drücken,  dann  sucht  GEOWRITE  2.0  nur 
und  markiert  die  gewünschte  Stelle,  ohne  die  Veränderung 
auch  durchzuführen. 

3.  Beachten  Sie  außerdem  beim  Suchen,  daß  der  Cursor  mög- 
lichst am  Anfang  des  Textes  steht,  denn  gesucht  wird  immer 
ab  Cursor-Position! 

Kommen  wir  nun  zu  den  weiteren  Untermenüs  von  OPTION: 


Untermenü : FIND  NEXT 

Wenn  GEOWRITE  2.0  ein  Wort  gefunden  hat  und  darstellt,  dann 
kann  man  es  mit  FIND  NEXT  übergehen  und  das  nächste  su- 
chen lassen. 

Voraussetzung  ist  natürlich,  daß  in  der  SEARCH-Maske  etwas 
eingegeben  ist,  sonst  geschieht  wie  auch  beim  nächsten  Punkt 
gar  nichts. 


Untermen ü:  CHANGE,  THEN  FIND 

Hier  wird  im  Gegensatz  dazu  das  gefundene  Wort  erst  ersetzt, 
bevor  weitergesucht  wird. 

Somit  hat  man  ein  kontrolliertes  und  bestätigtes  Ersetzen.  Über 
Tastatureingaben  kann  dieser  Vorgang  abgekürzt  werden. 
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Untermenü:  HIDE  PICTURES 

Dieses  Untermenü  kennen  wir  schon  von  den  früheren  Versio- 
nen von  GEOWRITE. 

Wenn  Grafiken  in  den  Text  eingeklebt  sind,  dann  braucht 
GEOWRITE  2.0  die  Bilder  nicht  anzuzeigen  was  unnötig  Zeit 
kosten  würde.  Das  Programm  reserviert  nur  die  entsprechende 
freie  Fläche,  markiert  ein  Rechteck  an  die  Stelle,  wo  später  die 
Grafik  ausgedruckt  wird. 

Das  spart  Zeit  und  Diskettenzugriff.  Nach  dem  Anklicken  von 
HIDE  PICTURES  steht  dort  SHOW  PICTURES,  womit  Sie  die 
eingeklebten  Grafiken  wieder  sichtbar  machen  können. 

Unter menü:  OPEN  HEADER 

Hier  können  Sie  einen  Kopfbereich  definieren.  Wenn  Sie  dieses 
Feld  anklicken,  wird  Ihr  Bildschirm  freigemacht,  unten  wird  ein 
kleiner  Bereich  durch  einen  durchgehenden,  waagrechten 
schwarzen  Strich  abgetrennt,  und  darunter  steht  in  großen 
Buchstaben  "HEADER".  Oberhalb  der  schwarzen  Linie  können 
Sie  nun  die  Eingaben  machen,  die  Sie  auf  jeder  Seite  als  Kopf- 
zeile bzw.  Kopfzeilen  vorfinden  wollen.  Tragen  wir  also  in  un- 
serem Beispiel  ein  "An  Peter  II".  Wir  tun  jetzt  einfach  einmal  so, 
als  ob  der  Brief  an  Peter  noch  sehr  stark  ausgebaut  würde.  (Das 
hätte  er  natürlich  wie  GEOS  selbst  durchaus  verdient!) 

Besonders  interessant  sind  jetzt  einige  weitere  Möglichkeiten,  die 
GEOWRITE  2.0  bietet.  So  kann  z.B.,  was  ja  bei  einem  Seiten- 
kopf besonders  sinnvoll  ist,  in  großen  Buchstaben  PAGE  einge- 
geben werden.  Dann  wird  an  dieser  Stelle  immer  die  aktuelle 
Seitennummer  ausgedruckt.  Bevor  wir  das  nun  aber  abschließen 
und  zur  Probe  einmal  ausdrucken,  sollten  Sie  noch  die  weiteren 
Möglichkeiten  zumindest  zur  Kenntnis  nehmen.  Sie  können  ne- 
ben PAGE  nämlich  noch  DATE  und  TIME  eingeben.  (Bitte  un- 
bedingt auf  die  großen  Buchstaben  achten!)  Auf  jeder  Seite 
werden  nun  das  aktuelle  Datum  und  die  aktuelle  Zeit  ausge- 
druckt, falls  Sie  die  Werte  richtig  zu  Beginn  Ihrer  täglichen  Ar- 
beit mit  GEOS  eingestellt  haben. 
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Insgesamt  haben  Sie  für  Eingaben  im  HEADER  mehrere  Zeilen 
zur  Verfügung.  Wenn  Sie  mit  Ihren  Eingaben  fertig  sind,  gehen 
Sie  bitte  wieder  auf  OPTIONS,  wo  Sie  jetzt  - das  Programm  ist 
halt  "intelligent"  - einen  CLOSE  HEADER  vorfinden.  Wenn  Sie 
diesen  angeklickt  haben,  verschwindet  der  gesamte  Kopfbereich, 
und  Sie  können  Ihren  Brief  o.ä.  weiterschreiben. 

Wundern  Sie  sich  bitte  nicht,  wenn  Sie  beim  Scrollen  an  den 
Anfang  des  Textes  Ihren  Kopf  bereich  nicht  sehen,  es  handelt 
sich  um  Informationen,  die  nur  für  den  Druckvorgang  gedacht 
sind.  Nach  dem  Ausdrucken  werden  Sie  es  auf  jeder  Seite  vor- 
finden. 

Wenn  Sie  übrigens  Ihre  erste  Seite,  also  die  Titelseite,  nicht  mit 
dem  HEADER  bedrucken  wollen,  sei  schon  hier  darauf  hinge- 
wiesen, daß  Sie  das  erreichen,  wenn  Sie  unter  PAGE  den  Pro- 
grammpunkt TITLE  PAGE  anklicken.  Was  das  Löschen  des 
Kopfbereichs  angeht,  lesen  Sie  bitte  entsprechendes  unter  OPEN 
FOOTER  nach. 

Untermenü:  OPEN  FOOTER 

Wenn  Sie  nun  pro  Seite  nicht  nur  oben  immer  einen  abgetrenn- 
ten und  sich  bis  auf  die  Seitennummer  wiederholenden  Bereich 
haben  wollen,  sondern  auch  jeweils  unten  etwas  Entsprechendes 
präsentieren  wollen,  so  können  Sie  das  ganz  sinngemäß  machen, 
indem  Sie  unter  OPTIONS  den  Programmpunkt  OPEN  FOOTER 
anklicken  und  nach  Ihren  Eingaben  das  ganze  wieder  durch 
CLOSE  FOOTER  abschließen. 

Übrigens  können  Sie  auch  hier  wieder  auf  PAGE,  DATE  und 
TIME  zurückgreifen.  Dies  ist  ja  auch  sinnvoll  ist,  arbeiten  doch 
auch  viele  Bücher  erfolgreich  mit  Seitenangaben  unten  auf  den 
Blättern. 

Auch  für  den  FOOTER,  also  Ihren  "Fußbereich"  gilt,  daß  Sie 
ihn  erst  nach  dem  Ausdruck  sehen  können. 

Hinweis:  Wenn  Sie  Ihren  Fußbereich  immer  ganz  unten  auf 

der  Seite  haben  wollen,  müssen  Sie,  falls  der  Text 
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nur  einen  kleinen  Teil  des  Blattes  füllt,  den  Rest 
durch  Leerzeilen  auffüllen.  GEOWRITE  2.0  setzt  den 
Fußbereich  nicht  automatisch  ganz  nach  unten. 

Sollten  Sie  Ihren  Kopf-  und/oder  den  Fußbereich  wieder  entfer- 
nen wollen,  geht  das  nur  durch  Löschen  des  entsprechenden 
Textes,  nachdem  Sie  wieder  OPEN  FOOTER  bzw.  OPEN  HEA- 
DER angeklickt  haben.  Wenn  Sie  dann  mit  CLOSE  FOOTER 
bzw.  CLOSE  HEADER  diese  Bereiche  verlassen,  haben  Sie  beim 
Ausdruck  keine  sich  wiederholenden  Bereiche  mehr. 

Untermenü:  SELECT  PAGE 

Mit  diesem  Programmpunkt  können  Sie  die  ganze  Seite  markie- 
ren, um  sie  z.B.  in  der  Schrift  zu  ändern.  Dies  ist  besonders  in- 
teressant, wenn  Sie  unserem  Ratschlag  gefolgt  sind  und  zunächst 
eine  kleine  Schrift  verwenden,  um  möglichst  viel  zu  sehen,  be- 
vor Sie  dann  auf  die  gewünschte  Schrift  umschalten. 

Sehr  angenehm  ist  in  diesem  Zusammenhang  auch,  daß  Sie  beim 
Markieren  von  Textpassagen  mit  der  Maus  nicht  mehr  auf  den 
sichtbaren  Text  beschränkt  sind.  Im  Gegensatz  zu  GEOWRITE 
1.2/ 1.3  scrollt  GEOWRITE  2.0  nämlich,  wenn  Sie  beim  Markie- 
ren von  Text  an  den  unteren  Bildschirmrand  kommen. 

Menü:  PAGE 

Mit  PREVIOUS  PAGE  können  Sie  auf  die  vorherige  Seite  um- 
schalten, mit  NEXT  PAGE  dementsprechend  auf  die  folgende. 
Wenn  Sie  GOTO  PAGE  anklicken,  erscheint  ein  Fenster,  wo  die 
gewünschte  Zahl  eingegeben  werden  kann. 

PAGE  BREAK  erzeugt  Ihnen  eine  neue  Seite,  die  alte  wird  mit 
einem  waagrechten  Strich  auf  dem  Bildschirm  abgeschlossen.  Die 
nächsten  drei  Untermenüs  können  Sie  nicht  durch  Tastaturbe- 
fehle abkürzen: 

Mit  SET  FIRST  PAGE  haben  Sie  die  Möglichkeit,  den  Ausdruck 
Ihres  Textes  mit  jeder  beliebigen  Seitennummer  beginnen  zu 
lassen.  Voraussetzung  ist  natürlich,  daß  Sie  eine  Kopf zeile  defi- 
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niert  haben,  die  PAGE  enthält.  Wichtig  ist  dies,  wenn  Sie 
größere  Texte  in  Teilen  ausdrucken  lassen  wollen  und  jeder  Teil 
natürlich  nicht  wieder  mit  Seite  1 beginnen,  sondern  sich  mit 
der  Seitennummer  an  das  vorangehende  Kapitel  anschließen  soll. 

Wenn  Sie  SET  FIRST  PAGE  anklicken,  erscheint  ein  Fenster  mit 
der  Bitte  um  Eingabe  der  Seitennummer,  mit  der  Sie  beginnen 
wollen  ("Please  enter  page  number  for  first  page!").  Anschließend 
drücken  Sie  die  <Return>-Taste.  Wenn  Sie  später  den  Text  aus- 
drucken, beginnt  er  mit  der  eingegebenen  Seitennummer. 

TITLE  PAGE  gibt  Ihnen  die  Möglichkeit,  die  erste  Seite  Ihres 
Textes  ohne  Kopf-  und  Fußbereich  ausdrucken  zu  lassen,  was 
aus  optischen  Gründen  (Titelblatt)  oft  sehr  sinnvoll  ist.  Wenn  Sie 
diesen  Programmpunkt  anklicken,  erscheint  davor  ein  Sternchen, 
das  Ihnen  anzeigt,  daß  er  aktiviert  ist. 

Beachten  Sie  bitte,  daß  GEOWRITE  2.0  diese  Anweisung  wirk- 
lich nur  für  die  erste  Seite  akzeptiert.  Das  heißt,  wenn  Sie  Ihr 
zweites  Kapitel  mit  SET  FIRST  PAGE  beispielsweise  auf  S.  15 
starten  lassen,  erscheint  dort  auf  S.  15  trotz  TITLE  PAGE  der 
Kopf-  bzw.  Fußbereich. 

NLQ  SPACING  sollten  Sie  aber  erst  aktivieren,  bevor  Sie  im 
Druckermenü  "NLQ-Druck"  anwählen.  Näheres  können  wir  Ih- 
nen zu  diesem  Punkt  leider  nicht  sagen,  weil  dieser  Programm- 
punkt bei  unserem  FX85  nicht  funktioniert  hat:  GEOWRITE  be- 
gann dann,  leere  Blätter  zu  poduzieren,  bis  wir  den  Rechner  ab- 
stellten. Vielleicht  haben  Sie  mehr  Glück. 

Was  Sie  auf  jeden  Fall  auch  beachten  sollten:  Für  "NLQ-Druck" 
muß  der  gesamte  Text  mit  dem  FONT  "COMMODORE  10"  ge- 
schrieben sein. 

Was  auch  noch  zu  beachten  ist:  Der  NLQ-Druck  funktioniert 
nur  mit  den  neuen  Druckertreibern,  die  Sie  zusammen  mit 
GEOWRITE  2.0  bekommen.  Denn  nur  diese  neuen  Druckertrei- 
ber verfügen  neben  Grafikdruck  auch  über  die  Möglichkeit  des 
einfachen  Textdrucks. 
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Menü  FONT 

Hier  erscheinen  die  Schriftarten,  die  Sie  auf  Ihrer  Diskette  ha- 
ben. Auch  wenn  Sie  meinen,  hier  bereits  alles  zu  kennen:  Pro- 
bieren Sie  doch  einmal  LW_GREEK  aus,  und  lassen  Sie  sich 
überraschen. 

Menü  STYLE 

Hier  finden  sich  neben  den  bekannten  Möglichkeiten  PLAIN 
TEXT,  BOLD,  ITALIC,  OUTLINE  und  UNDERLINE  zwei 
neue,  nämlich  SUPERSCRIPT  und  SUBSCRIPT. 

SUPERSCRIPT  ermöglicht  Ihnen  das  Hochstellen  von  Zeichen, 
was  etwa  bei  Anmerkungen  sehr  wichtig  ist.  SUBSCRIPT  er- 
möglicht Ihnen  dementsprechend  das  Tiefstellen.  Darüber  wer- 
den Sie  z.B.  froh  sein,  wenn  Sie  etwa  chemische  Formeln  zu  Pa- 
pier bringen  müssen.  Wasser  wird  eben  chemisch  erst  richtig  als 
Wasser  akzeptiert,  wenn  Sie  mit  GEOWRITE  2.0  mehr  können 
als  wir  mit  unserer  Textverarbeitung:  Sie  erlaubt  es  uns  nämlich 
nur,  die  Formel  so  wiederzugeben:  Wasser  = H O. 

Probieren  Sie  das  doch  jetzt  einmal  mit  GEOWRITE  2.0  und 
SUBSCRIPT  aus.  Und  wenn  Sie  es  sich  besonders  angenehm 
machen  wollen,  verwenden  Sie  noch  den  Kurzbefehl  für  SUB- 
SCRIPT, nämlich  die  Verbindung  von  <Commodore>-Taste  und 
spitzer  Klammer  links. 

Die  Formatierleiste 

Kommen  wir  nun  zur  Formatierleiste,  die  vor  allem  für  die  op- 
tische Gestaltung  des  Textes  zuständig  ist.  D.h.,  hier  finden  Sie 
vielfältige  Möglichkeiten,  Ihren  Text  speziell  zu  "layouten".  Und 
im  Vergleich  zu  früheren  Versionen  ist  hier  einiges  hinzuge- 
kommen. 


Linker  und  rechter  Rand 

Was  Sie  schon  von  GEOWRITE  1.2  und  GEOWRITE  1.3.  her 
kennen,  ist  die  Möglichkeit,  den  linken  und  rechten  Rand  zu 
verändern.  Dies  können  Sie  erreichen,  indem  Sie  eines  der  bei- 
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den  "M"  auf  der  Formatierleiste  anklicken  und  dorthin  setzen, 
wo  Sie  den  Text  in  der  Breite  enden  lassen  wollen.  Damit  haben 
Sie  vor  allem  die  Möglichkeit,  durch  entsprechende  Randwahl 
ständig  den  Text  zu  sehen  und  erst  kurz  vor  dem  Druck  über  die 
Bildschirmbreite  hinauszuschieben. 


n 

C Pfobetext  1 = 

^LEFTB  &NTERO  RIGHT  □ FULLO  4-  JU5TIFICHTI0N 

LINE  5PHEING-R  !■  1X0  20 

So  sieht  ein  Text  aus,  wenn  Sie  GEOWRITE  2.0  geladen  haben  und 
direkt  losschreiben.  Wir  haben  selbst  darauf  geachtet,  nicht  ueber 
den  rechten  Rand  hinauszuschreiben. 


Achten  Sie  in  der  MENU-Zeile  auf  den  neuen  Oberpunkt  PAGE  sowie 
auf  die  neu  hinzugekommene  Formatierleiste  direkt  ueber  diesem 
Text. 

Uoreingestellt  sind  Linksbuendigkeit  (LEFT)  sowie  der  Zeilenabstand  (1). 
Auf  der  skalierten  Tabulatorleiste  sehen  Sie  ganz  links  ein  'M',  das 
den  linken  Randmarkierer  darstellt.  Darunter,  nicht  sichtbar,  befindet 
sich  noch  der  Abschnittstabulator  ’P',  den  Sie  erst  erreichen,  wenn 
Sie  das  'M‘  nach  rechts  versetzt  haben. 


Bild  1.8.2.3:  GEOWRITE  2.0-GrundeinstelIung 


Tabulatoren 

GEOWRITE  2.0  bietet  Ihnen  auf  derselben  Leiste  insgesamt  acht 
Tabulatoren  an,  die  wie  kleine  Dächer  aussehen  und  die  Sie  an 
beliebigen  Stellen  anklicken  können. 

Wenn  Sie  zu  Beginn  einer  Zeile  die  <Ctrl>-Taste  und  gleichzeitig 
<I>  drücken,  springt  der  Cursor  zur  nächsten  Tabulatorposition. 
Neben  diesen  normalen  und  bekannten  Tabulatoren  bietet  Ihnen 
GEOWRITE  2.0  noch  zwei  weitere  Arten  an: 

1.  den  Abschnittstabulator:  Er  versteckt  sich  hinter  einem  "P" 
auf  der  Formatierleiste.  Wenn  Sie  ihn  anklicken,  beginnt  dort 
jeder  neue  Absatz,  d.h.,  dieser  wird  eingerückt. 
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2.  den  Dezimaltabulator,  einen  schwarzen  Kreis:  Mit  Dezimalta- 
bulatoren kann  man  Zahlen  formatiert  untereinander  schrei- 
ben. Dadurch  steht  jeweils  ein  Dezimalpunkt  unter  dem  an- 
deren. 

Als  erstes  müssen  wir  einen  Dezimaltabulator  an  der  gewünsch- 
ten Stelle  setzen.  Klicken  Sie  dazu  auf  der  Tabulatorleiste  an  der 
gewünschten  Stelle,  und  Sie  erhalten  einen  normalen  Tabulator. 
Drücken  Sie  nun  die  <Shift>-Taste,  und  er  verwandelt  sich  in 
einen  schwarzen  Dezimaltabulator.  Durch  erneutes  Drücken  der 
<Shift>-Taste  können  Sie  ihn  wieder  zurückverwandeln. 

Um  nun  dort  Zahlen  untereinander  zu  positionieren,  müssen  Sie 
jeweils  mit  <Ctrl>  plus  <I>  den  Cursor  auf  die  Tabulatorposition 
setzen  und  die  Zahlen  eingeben.  Denken  Sie  dabei  daran,  daß 
statt  des  deutschen  Kommas  der  amerikanische  Punkt  erwartet 
wird. 

Jede  Zahleneingabe  beenden  Sie  bitte  mit  <Return>  und  setzen 
mit  <Ctrl>  plus  <I>  den  Cursor  erneut  auf  die  Tabulatorposition. 
Das  sieht  dann  etwa  so  aus: 

512.56 

4.70 

1000.00 

80.65 

usu. 


Sollten  Sie  wie  wir  an  dieser  Stelle  Schwierigkeiten  erhalten,  weil 
GEOWRITE  2.0  nur  zwei  Ziffern  vor  dem  Punkt  anzeigt,  so 
können  Sie  das  Problem  folgendermaßen  lösen: 

Schreiben  Sie  die  Zahlen  einfach  am  linken  Rand  untereinander. 
Wenn  Sie  mit  allen  Zahlen  fertig  sind,  setzen  Sie  den  Cursor  je- 
weils vor  die  erste  Ziffer  an  den  Anfang  der  Zeile,  und  drücken 
Sie  dann  <Ctrl>  + <I>.  Dadurch  "springen"  die  Zahlen  dann  in 
die  richtige  Position.  Zum  Abschluß  dieses  Teils  der  Benutzung 
der  Formatierleiste  noch  ein  wichtiger  Hinweis.  Da  Sie  mehrere 
verschiedene  Einstellmöglichkeiten  haben,  müssen  Sie  immer 
damit  rechnen,  daß  sich  hinter  einer  Einstellung  noch  eine  an- 
dere verbirgt. 
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Suchen  Sie  also  nicht  mit  den  Augen  nach  Ihrem  vierten  Nor- 
maltabulator, er  könnte  sich  hinter  dem  Dezimalstellentabulator 
verbergen  und  durch  dessen  Verschieben  leicht  zu  finden  sein. 

Anders  ist  das  nun  einmal  nicht  zu  machen,  wenn  Sie  nicht  die 
Hälfte  des  Bildschirms  mit  speziellen  Formatierleisten  gefüllt  ha- 
ben wollen.  Sie  werden  sich  schnell  daran  gewöhnen. 

Die  nächsten  vier  Formatiermöglichkeiten  sind  zusammengefaßt 
unter  dem  Begriff  "Justification".  Übersetzt  werden  könnte  es 
etwa  mit  "Justierung"  (des  Textes).  Was  damit  genau  gemeint  ist, 
werden  Sie  am  besten  verstehen,  wenn  Sie  sich  auf  die  folgenden 
vier  Möglichkeiten  einmal  einlassen  und  sie  ausprobieren. 

LEFT 

Ist  das  zugehörige  Kästchen  schwarz,  d.h.,  aktiviert,  beginnt 
jede  Zeile  linksbündig,  d.h.,  am  linken  Rand.  Das  ist  keineswegs 
aufregend,  aber  als  Normalfall  muß  es  eben  anwählbar  sein. 

CENTER 

Nicht  "normal"  im  Sinne  von  "gewöhnlich"  schreiben  Sie,  wenn 
Sie  dieses  Kästchen  aktiviert  haben.  Denn  dann  wird  Ihr  Text, 
je  nach  Ihrer  Randeinstellung,  um  seine  Mitte  zentriert. 

RIGHT 

Mit  diesem  Kästchen  erreichen  Sie  das  Gegenstück  zur  Links- 
bündigkeit. Das  heißt,  GEOWRITE  schreibt  von  rechts  nach 
links.  (Schauen  Sie  sich  diesen  interessanten  Effekt  einmal  an!) 
Als  Ergebnis  stehen  nun  am  linken  Rand  die  Zeilenanfänge 
nicht  mehr  direkt  untereinander. 

FULL 

Klicken  Sie  dieses  Kästchen  an,  haben  Sie  einen  Randausgleich 
(Blocksatz).  Das  heißt.  Sie  schreiben  links-  und  rechtsbündig, 
wie  Sie  es  von  professionellen  Druckwerken  gewöhnt  sind. 
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LINE  SPACING 

Mit  diesem  Begriff  ist  der  Zeilenabstand  gemeint.  Sie  können 
hier  also  auf  dem  Bildschirm  das  erreichen,  was  Sie  auch  an  ei- 
ner Schreibmaschine  (mit  denselben  Werten)  einstellen  können. 
Wählen  können  Sie  zwischen  einfachem  (1),  anderthalbfachem  (1 
1/2)  und  zweifachem  (2)  Zeilenabstand. 

Eine  außergewöhnliche  Fähigkeit  von  GEOWRITE  2.0  besteht 
wohl  darin,  daß  man  abschnittsweise  formatieren  kann,  womit 
sich  eine  Fülle  von  Layout- Möglichkeiten  ergeben.  So  können 
Sie  beispielsweise  die  Überschrift  zentrieren,  die  ersten  zwei 
Abschnitte  einrücken,  dann  ein  wenig  rechtsbündig  schreiben 
und  anschließend  für  den  Rest  Ihres  Schreibens  zum  allgemein 
üblichen  Blocksatz  übergehen,  bevor  Sie  am  Ende  dem  Empfän- 
ger die  Rechnung  mit  Hilfe  der  Dezimaltabulatoren  präsentieren. 


ihühü 

edit 

options  j page 

font 

stgle  | i 

. . i ....  12.  ...  i ....  1?.  ...  i ....  14-,  ...  i ....  15.  .1 

Eiei  diesem  Bild  hoben  wir  den  linken  Rand  auf  T und 
den  fechten  Rand  auf  ‘5'  gesetzt.  Ausserdem  haben  wir  den 
Abschnittstabulator  ’P‘  auf  '2'  gesetzt.  Daher  beginnt  die  erste 
Zeile  "Bei  diesem  Bild..."  entsprechend  eingerueckt. 

Dasselbe  passiert  natuerlich  in  dieser  Zeile,  weil  wir 
einen  neuen  Absatz  gemacht  haben. 


Diesen  Abschnitt  haben  wir  zentriert. 

Das  CENTER  ist  nur  deshalb  weiss,  weil  nur  die  aktuelle 
Formatierung 
angezeigt  wird. 


Bei  diesem  Text 
war  Rechtsbuendigkeit  (RIGHT)  angeklickt. 


Bild  1.8.2.4:  Layout  mit  GEOWRITE  2.0 

Unsere  Gesamteinschätzung  von  GEOWRITE  2.0: 

Insgesamt  zeigt  sich  GEOWRITE  in  der  neuen  Version  2.0  deut- 
lich verbessert.  Gefallen  haben  uns  vor  allem  die  neuen  Bewe- 
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gungsmöglichkeiten  mit  den  Cursor-Tasten.  Durch  den  rechten 
Randausgleich  (Blocksatz),  die  Zentriermöglichkeit  und  die  Su- 
chen/Ersetzen-Funktion  ist  professionelles  Arbeiten  möglich. 

Sollten  Sie  zu  denen  gehören,  die  als  erste  in  die  neue  Laser- 
drucktechnik einsteigen,  werden  Sie  auch  hier  GEOWRITE  2.0 
zu  schätzen  wissen.  (Oder  kennen  Sie  ein  anderes  Programm,  das 
es  ermöglicht,  mit  dem  C64  einen  Laserdrucker  anzusteuern?) 

Noch  verbessert  werden  könnte  unserer  Meinung  nach  die 
Schreibgeschwindigkeit.  Dazu  gehört  beispielsweise  die  Schnel- 
ligkeit der  REPEAT-Funktion  (Dauerdruck  von  Buchstaben). 

Tabelle  der  Tastatur-Kurzbefehle  für  GEOWRITE  2.0 

Einige  der  folgenden  Kurz-Tastaturbefehle  sind  Ihnen  schon  von 
GEOWRITE  1.3  her  bekannt.  Wir  haben  sie  der  Vollständigkeit 
halber  noch  einmal  aufgeführt. 


EDIT-Menü 

<Comnodore>- Taste  plus  <X>  = CUT 

<Coamodore>-Taste  plus  <C>  = COPY 

<Commodore>-Taste  plus  <T>  = PASTE  (TEXT) 

<Conmodore>- Taste  plus  <U>  = PASTE  (PICTURE) 


OPTIONS-Menü 

<Conmodore>- Taste  plus  <S>  = SEARCH 
<Comnodore>- Taste  plus  <N>  = FIND  NEXT 
<Comnodore>- Taste  plus  <Y>  = CHANGE,  THEN  FIND 
<Conmodore>- Taste  plus  <H>  = OPEN  HEADER 
<Commodore>- Taste  plus  <F>  = OPEN  FOOTER 
<Coranodore>-Taste  plus  <V>  = SELECT  PAGE 


PAGE-Menü 

<Comnodore>-Taste  plus  <Pfeil  nach  links  > = PREVIOUS  PAGE 
<Commodore>-Taste  plus  <+>  = NEXT  PAGE 
<Commodore>-Taste  plus  <G>  = GOTO  PAGE 
<Commodore>-Taste  plus  <L>  = PAGE  BREAK 
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STYLE-Menü 


<Commodore»-Taste  plus 
<Caanodore>-Ta8te  plus 
<Comaodore>-Taste  plus 
<Coaiaodore>-Taste  plus 
<Coawodore>- Taste  plus 
<Coaiaodore>  - Taste  plus 
<Coamodore»-Taste  plus 


<P>  = PLAIN  TEXT 
<B>  = BOLD 
<I>  = ITALIC 
<0>  = OUTLINE 
<U>  = UNDERLINE 

«spitze  Kl  armer  rechts»  = SUPERSCRIPT 
«spitze  Klammer  links»  = SUBSCRIPT 


Befehlszeile  oben  auf  jedem  Blatt 

<Coamodore»-Taste  plus  <A»  = LEFT  JUSTIFY 
«Commodo re» -Taste  plus  <E»  = CENTER  JUSTIFY 
<Coaiaodore»-Taste  plus  <R»  = RIGHT  JUSTIFY 
<Commodore»-Taste  plus  <J»  = FULL  JUSTIFY 
«Comnodore»- Taste  plus  <K»  = SINGLE  SPACE 
<Commodore»-Taste  plus  <M»  = ONE  AND  A HALF  SPACE 
<Commodore»-Taste  plus  <D»  = DOUBLE  SPACE 


1.8.3  Serienbriefe 

Im  folgenden  wollen  wir  Ihnen  nun  die  verschiedenen  Möglich- 
keiten demonstrieren,  wie  man  mit  Hilfe  von  GEOWRITE  und 
GEOMERGE  Serienbriefe  herstellen  kann.  Dabei  werden  wir 
insgesamt  drei  grundsätzliche  Möglichkeiten  kennenlernen. 

Bei  der  ersten  erstellen  Sie  zunächst  den  Brief  und  geben  dann 
jeweils  zum  Drucken  die  Adresse  ein,  an  die  Sie  den  Brief  ge- 
schickt haben  möchten. 

Serienbriefe  mit  fortlaufender  Eingabe  der  Adresse 

Wir  wählen  also  jetzt  zunächst  GEOWRITE  an  und  schreiben 
einen  kurzen  Brief.  Solche  Texte,  die  später  an  verschiedene 
Adressaten  in  Serie  gehen  sollen,  nennen  wir  hier  jetzt  ab  sofort 
"FORMBRIEF".  Als  Namen  für  unseren  ersten  und  sehr  kurzen 
FORMBRIEF  wählen  wir  hier  "formbrief  1". 

Wir  schreiben  jetzt  also  unseren  "formbrief  1":  Und  bitte,  über- 
nehmen Sie  das,  wenn  Sie  sich  noch  nicht  sicher  fühlen,  bis  auf 
die  Klammern  genauso! 
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»firstNames«,ich  mag  Dich  wirklich  sehrl 

Anschließend  verlassen  wir  GEOWRITE  und  klicken  Geomerge 
an.  Sollten  Sie  GEOMERGE  jetzt  erstmals  benutzen,  müssen  Sie 
es  genauso  wie  GEODEX  installieren. 

Nachdem  GEOMERGE  geladen  ist,  erscheint  ein  Fenster,  das 
uns  an  das  entsprechende  Fenster  von  GEOWRITE  erinnert  und 
uns  die  Auswahl  von  Briefen  ermöglicht;  nennen  wir  es  daher 
GEOMERGE-Auswahlfenster.  Wir  klicken  unseren  Beispieltext 
"formbrief  1"  und  anschließend  ÖFFNEN  (OPEN)  an. 

Es  erscheint  ein  zweites  Fenster,  das  uns  fragt:  "Use  geowrite 
file  for  merge  information?'',  also  ob  wir  für  die  Serienbriefin- 
formation  ein  mit  GEOWRITE  erstelltes  File  verwenden  wollen. 
Dieses  müßte  dann  die  Adresse  enthalten.  Auf  diese  Möglichkeit 
gehen  wir  weiter  unten  ein. 

Da  wir  noch  keine  entsprechende  GEOWRITE- Adressensamm- 
lung haben,  klicken  wir  jetzt  "no"  an  und  geraten  in  ein  drittes 
Fenster,  das  uns  verschiedene  Druckmöglichkeiten  anbietet. 

In  der  obersten  Zeile  können  wir  wählen  zwischen  "High", 
"Draft"  und  "NLQ",  dabei  ist  "High"  vorbesetzt.  Wir  wählen  jetzt, 
weil  das  am  schnellsten  geht,  durch  Anklicken  "Draft"  an. 

("NLQ"  nutzt,  falls  vorhanden,  die  "Near  Letter  Quality"- Eigen- 
schaften Ihres  Druckers  aus,  "High"  ergibt  Grafikdruck.  Außer- 
dem können  wir  in  der  nächsten  Zeile  die  Seite  angeben,  von 
der  und  bis  zu  der  gedruckt  werden  soll  ("from  page  to  page"). 
Beide  Möglichkeiten  sind  mit  "1"  vorbesetzt,  und  wir  lassen  diese 
Einstellung  auch  bestehen. 

In  der  nächsten  Zeile  können  wir  wählen  zwischen  "single  sheet" 
= Einzelblatt  und  "tractor  feet"  = Endlospapier.  Anschließend 
klicken  wir  das  OK  in  der  untersten  Zeile  an.  Es  erscheint  ein 
weiteres  Fenster  mit  der  Frage  : "Enter  data  to  Substitute  for  la- 
bel  "firstNames":". 
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Damit  deutet  das  Programm  an,  daß  es  sich  jetzt  die  Anschrif- 
ten, an  die  der  Serienbrief  geschickt  werden  soll,  über  die  ma- 
nuelle Eingabe  mit  Hilfe  der  Tastatur  holen  will.  Und  zwar  geht 
es  bei  unserem  "formbrief  1"  nur  um  Vornamen,  sonst  würde  der 
Text  wenig  Sinn  ergeben.  Wenn  Sie  es  nicht  glauben,  so  geben 
Sie  ruhig  Vor-  und  Familiennamen  direkt  aufeinander  folgend 
ein.  Sie  werden  schon  sehen,  was  dabei  herauskommt. 

Wenn  Sie  hier  jetzt  einen  Vornamen  eingeben,  etwa  "Peter",  so 
bekommen  Sie  gleich  unseren  Serienbrief  entsprechend  ausge- 
druckt, da  in  unserem  "formbrief  1"  nur  ein  label  (=  Platzhalter) 
zu  ersetzen  war.  Es  steht  dann  da: 

"Peter,  ich  mag  dich  wirklich  sehr." 


Ob  Sie  Ihre  Zuneigung  nun  in  Serie  gehen  lassen  möchten,  kön- 
nen Sie  entscheiden,  wenn  Sie  die  nächste  Frage:  "Do  another 
merge  of  this  document"  mit  "Yes"  beantworten.  Dann  können 
Sie  nämlich  einen  neuen  Namen  eingeben,  und  ein  zweiter  Se- 
rienbrief wird  gedruckt.  Unten  werden  übrigens  die  gedruckten 
Briefe  gezählt.  Oben  links  in  der  Ecke  hinter  der  Bezeichnung 
"document:"  finden  Sie  auch  immer  zur  Kontrolle  den  Namen 
des  Textes,  den  Sie  in  Serie  gehen  lassen. 

Nachdem  wir  an  diesem  einfachen  Beispiel  das  grundsätzliche 
Verfahren  kennengelernt  haben,  mit  dem  man  Serienbriefe  er- 
stellen kann,  wenden  wir  uns  nun  einer  zweiten  Möglichkeit  zu, 
die  schon  sehr  viel  professioneller  und  wirklichkeitsnäher  ist. 

Serienbriefe  mit  Hilfe  von  GEOOEX 

Stellen  wir  uns  nun  einmal  vor.  Sie  möchten  Freunde  zu  einer 
Geburtstagsfeier  einladen  und  sich  dabei  von  GEOS  unterstützen 
lassen.  Zu  diesem  Zweck  laden  Sie  zunächst  GEODEX  und 
gehen  auf  den  zweituntersten  Punkt  in  der  Menüleiste.  Es  er- 
scheint dann  ein  Fenster,  das  Sie  auffordert,  einen  Namen  für 
eine  Serienbrief-Adreßsammlung  einzugeben  ("enter  merge  file 
name").  Wir  geben  unserem  Beispiel  einfach  den  Namen  "adres- 
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Damit  stehen  alle  Einträge  der  GEODEX- Kartei  jetzt  für  einen 
Serienbrief  zur  Verfügung.  Um  diesen  nun  schreiben  zu  können, 
verlassen  wir  GEODEX  und  laden  GEOWRITE.  Als  Namen  für 
unseren  zweiten  Formbrief  wählen  wir  "geburtstag".  Nun  kann  es 
losgehen.  Als  Text  geben  wir  ein  (achten  Sie  auf  die  Klammern): 


»first«  »last« 
»addr« 

»city« 


Lieber  »first« 

Ich  möchte  Dich  gerne  zu  meinem  Geburtstag  am  3.4.87  einladen. 
Hoffentlich  kommst  Du.  Ich  würde  mich  sehr  freuen. 

Dein  Gerd 


Anschließend  verlassen  wir  GEOWRITE  mit  QUIT.  Nachdem 
wir  GEOMERGE  wieder  geladen  haben,  taucht  ein  Fenster  auf, 
das  uns  auffordert,  den  Namen  des  Textes  einzugeben,  den  wir 
als  Serienbrief  ausdrucken  lassen  wollen  (Choose  form  docu- 
ment).  Wir  wählen  natürlich  jetzt  unseren  soeben  geschriebenen 
Formbrief  "geburtstag".  Oben  links  zeigt  uns  das  Programm  auch 
den  gewählten  Text. 

Anschließend  fragt  es  uns,  ob  wir  ein  GEOMERGE-File  ver- 
wenden wollen.  Diesmal  können  wir  das  bejahen.  Im  folgenden 
Fenster  wählen  wir  als  Adreßkartei  ("merge  file")  die  Datei,  der 
wir  vor  kurzem  den  Namen  "adressen"  gegeben  haben. 

Anschließend  zeigt  uns  GEOMERGE  wieder  das  schon  bekannte 
Print  Menü,  in  dem  wir  uns  wieder  für  Draft  (schnelle  Schrift) 
entscheiden.  Sobald  wir  OK  angeklickt  haben,  fängt  der  Drucker 
an  zu  arbeiten.  Bei  einer  entsprechenden  Datei  sieht  der  erste 
Brief  dann  so  aus: 


Jürgen  Becker 
Meierskamp  14 
4430  Bochum 
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Lieber  Jürgen 

Ich  Höchte  Dich  gerne  zu  meinem  Geburtstag  am  3.4.87  einladen. 
Hoffentlich  könnet  Du.  Ich  würde  mich  sehr  freuen 
Dein  Gerd 


Nachdem  nun  alle  Adreßkarten  verwendet  worden  sind,  fragen 
wir  uns,  ob  es  wirklich  richtig  war,  alle  Leute,  deren  Daten  wir 
in  unserem  Karteikasten  haben,  auch  zu  unserer  Geburtstagsfeier 
einzuladen.  Da  unsere  Kellerbar  höchstens  Platz  für  etwa  zwan- 
zig Leute  hat,  überlegen  wir  uns,  ob  man  nicht  gezielter  aus- 
wählen sollte. 

Nun  können  wir  natürlich  alle  Adressen  mit  den  entsprechenden 
Briefen  ausdrucken  lassen,  die  nicht  benötigten  in  den  Papier- 
korb werfen  und  schon  jemanden  losschicken,  um  für  den  kom- 
menden Geburtstag  der  Schwester  mehrere  Kilo  Endlospapier 
kaufen  zu  lassen. 

Doch  halt,  da  fällt  uns  ein,  daß  es  doch  eine  Möglichkeit  gab, 
die  gesamte  Kartei  mit  Hilfe  der  "group"-Felder  zu  Gruppen 
zusammenzufassen. 

Das  bedeutet  also,  daß  wir  aus  der  Gesamtkartei  diejenigen 
heraussuchen,  die  wir  zu  unserem  Geburtstag  einladen  möchten. 
Und  bei  Ihnen  geben  wir  ins  erste  "group"-Feld  die  drei  Buch- 
staben "pri"  ein.  Bei  all  den  Adressen,  die  für  unsere  Lieblings- 
schwester Gabi  interessant  sind,  geben  wir  als  Abkürzung  "gab" 
ein. 

Und  nun  können  wir  neue  Serienbrief-Adreßkarteien  erstellen 
("geb  pri"  und  "geb  gabi"),  die  wir  jetzt  jetzt  entsprechend  auch 
ausdrucken  lassen  können. 

Am  Schluß  haben  wir  einen  Stapel  von  zum  Beispiel  19  Briefen, 
die  unsere  Freunde  zu  unserem  Geburtstag  einladen,  und  einen 
Stapel  von  meinetwegen  17  Briefen,  die  dasselbe  für  unsere 
Lieblingsschwester  Gabi  leisten. 
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Kommen  wir  nun  zur  dritten  Möglichkeit,  Serienbriefe  zu  er- 
stellen, wobei  neben  GEOMERGE  vor  allem  GEOWRITE  be- 
nutzt wird,  d.h.,  mit  diesem  Schreibprogramm  wird  nicht  nur 
der  Text  des  Serienbriefes  erstellt,  nein,  wir  erstellen,  man  höre 
und  staune,  mit  GEOWRITE  auch  die  spezielle  Serienbrief - 
Adreßkartei  der  Leute,  an  die  wir  diesen  Brief  schicken  wollen. 

Serienbriefe  mit  Hilfe  von  GEOWRiTE-Adreßkarteien 

Um  die  Voraussetzungen  für  diese  Möglichkeit  zu  verstehen, 
müssen  wir  uns  zunächst  einmal  ansehen,  wie  ein  "Geomerge- 
File",  d.h.  also  eine  Serienbrief- Adreßkartei  aussieht.  Wenn  man 
sie  sich  mit  GEOWRITE  anguckt  (tatsächlich,  das  geht),  so 
stehen  auf  der  ersten  Seite  untereinander  die  Labels,  d.h.,  die 
Platzhalter  first,  middle,  last,  addr,  city,  state,  zip,  misc,  phone, 
und  am  Schluß  steht  ein  Sternchen. 

Auf  den  nächsten  Seiten  folgt  jeweils  eine  Karteikarte  des 
Merge-Feldes,  in  unserem  Fall  der  Datei  "adressen",  die  wir  uns 
gerade  anschauen,  durch  <Return>  getrennt.  Sollten  Sie  sich  ge- 
rade eine  Ihrer  fortschrittlichen  "Geburtstags-Specials",  d.h.  mit 
"group"  sortierten  Karteien  ansehen  (etwa  "pri"  oder  "gab"),  dann 
finden  Sie  immer  dort  eine  leere  Seite,  wo  in  Ihrer  Gesamtdatei 
eine  Karte  war,  die  die  "group'-Bedingung  nicht  erfüllt.  Wichtig 
ist,  daß  diese  leere  Seite  nicht  ausgedruckt  wird,  so  daß  Sie 
wirklich  eine  Menge  Endlospapier  sparen.  Probieren  wir  das 
doch  einmal  aus: 

Zunächst  laden  wir  GEOWRITE.  Den  neuen  Text  nennen  wir, 
weil  es  eine  mit  GEOWRITE  erstellte  Kartei  ist,  "write  kartei". 
Auf  der  ersten  Seite  geben  wir  einfach  die  allgemeinen  "labels", 
also  die  Platzhalter  ein,  die  später  durch  die  konkreten  Anga- 
ben/Daten ersetzt  werden  sollen.  Also  z.B.: 

Vorname 

Nachname 

Postleitzahl 

Ort 

Straße 

Telefon 
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Das  Sternchen  am  Schluß  zeigt  GEOMERGE  an,  daß  an  dieser 
Stelle  Schluß  ist.  Achten  Sie  darauf,  daß  Sie  hinter  jedem  Tabel" 
bitte  nur  <Return>  drücken  und  hinter  dem  Sternchen  PAGE 
BREAK  wählen,  um  eine  neue  Seite  zu  erhalten.  Auf  der  zwei- 
ten Seite  geben  wir  dann  die  Adressen  in  genau  derselben  Rei- 
henfolge ein,  z.B.: 

Walter 
Meier 
3467 
Neubrück 
Waldauerstr.  15 
02564/456 
• 

So  könnte  man  auf  den  nächsten  Seiten  fortfahren.  Dieses  mit 
Hilfe  von  GEOWRITE  erstellte  Merge-File  "write  kartei"  würde 
schließlich  von  GEOMERGE  in  derselben  Weise  zu  Serienbrie- 
fen verarbeitet  wie  in  dem  Beispiel  oben  mit  GEODEX. 

Der  Vorteil  ist  hier  natürlich,  daß  man  viel  flexibler  ist  (z.B. 
Eingabe  der  deutschen  Platzhalter  (=label)  oder  auch  Eingabe 
von  viel  mehr  und  ganz  anderen  Platzhaltern  usw.). 

Bei  dem  entsprechenden  Fenster  in  GEOMERGE  beantworten 
wir  die  entsprechende  Frage,  ob  wir  ein  "GEOWRITE -File"  be- 
nutzen möchten,  mit  "YES",  und  schon  können  wir  unsere  neue 
Kartei  "write  kartei"  benutzen,  um  Serienbriefe  mit  z.B.  unserem 
Formbrief  "geburtstag"  zu  benutzen.  Kommen  wir  nun  noch  zu 
einer  weiteren  Möglichkeit,  unsere  Serienbriefe  zu  verbessern. 
Wenn  Sie  in  Ihrer  Kartei  männliche  und  weibliche  Adressaten 
gespeichert  haben,  was  wohl  die  Regel  ist,  müssen  Sie  befürch- 
ten, in  einem  der  Serienbriefe  die  folgende  Anrede  vorzufinden. 

Lieber  Beate, 


(...) 

Diese  ärgerliche  Geschlechtsumwandlung  einer  lieben  Freundin 
können  Sie  vermeiden,  indem  Sie  in  Ihren  Formbrief  ein  ent- 
sprechendes Auswahlkommando  eingeben.  Grundsätzlich  gibt  es 
hierfür  den  folgenden  Befehl: 
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»IF  labelName=,,value,,«text1»ELSE«text2»ENDIF« 

Damit  ist  folgendes  gemeint:  Wenn  das  Feld  "labelName"  den 
Eintrag  "value"  enthält,  wird  "textl"  gedruckt,  im  anderen  Fall 
"text2".  Die  Schlußklammer  gibt  nur  das  Ende  des  Vergleichs- 
befehls an. 

Wir  wollen  das  einmal  bei  unserem  Beispiel  benutzen:  Verändern 
wir  also  das  Rundschreiben  zu  unserem  Geburtstag  in  folgender 
Weise:  Bitte  laden  Sie  GEOWRITE  (1.2/1. 3/2.0),  und  erstellen 
Sie  zuerst  den  eigentlichen  Brief  für  das  Schreiben  mit  dem  Na- 
men "Geb.Form": 


»Vorname«  »Machname« 
»Strasse« 

»Ort« 


»IF  Geschlecht  = "m"«Lieber»ELSE«Liebe»EMOIF«  »Vorname« 

Ich  möchte  Dich  gerne  zu  meinem  Geburtstag  am  3.4.87  einladen. 
Hoffentlich  kommst  Du.  Ich  würde  mich  freuen. 

Dein  Gerd 


geos  | file  j edit 

g 

i 12 

. 1*.  ...  1 ....  15,  , 

^ LEFT  ■ rtWTER  □ 

PIGHTO  FULL  □ «-JUSTIFICHTIDN 

LINE  SPREING-P  !■  IX Q Cd 

«Uorncirne»  «Nachname» 
«Strasse» 

«Ort» 


«IF  Geschlecht  = "m"»lieber«ELSE»Liebe«ENDIF»  «Uorname» 

Ich  moechte  Dich  gerne  zu  meinem  Geburtstag  am  3.4.87  einladen. 
Hoffentlich  kommst  Du.  Ich  cuuerde  mich  freuen. 

Dein  Gerd 


Bild  1.83.1:  Serienbrief  mit  Hilfe  von  GEOWRITE-Formbrief 
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Wenn  Sie  mehrere  der  späteren  Formbriefe  auf  einer  Seite  haben 
möchten,  so  beenden  Sie  die  Arbeit  an  "Geb.Form"  mit 
SCHLIESSEN  ( CLOSE),  andernfalls  setzen  Sie  am  Schluß  wie  in 
unserer  Abbildung  noch  einen  Seitenumbruch. 

Nun  benötigen  wir  noch  einen  GEOWRITE-Text,  der  die  Labels 
und  die  Adressen  enthält.  Daher  erstellen  wir  einen  zweiten 
Brief  mit  dem  Namen  "Geb. Daten".  Auf  der  ersten  Seite  schrei- 
ben wir 

Vorname 

Nachname 

Postleitzahl 

Ort 

Strasse 

Telefon 

Geschlecht 

* 


Hinter  dem  fügen  Sie  dann  bitte  mit  <Commodore>  + <L> 
(bzw.  mit  SEITENUMBRUCH  (PAGE  BREAK))  einen  Sei- 
tenumbruch ein,  und  auf  der  nächsten  Seite  beginnt  dann  unser 
erster  "Datensatz": 
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Gerd 

Schmidt 

4400 

Münster 

Kol beweg  13 

0251-147887 

m 

• 


Bitte  fügen  Sie  in  der  Zeile  unter  dem  "*"  wieder  den  nötigen 
Seitenumbruch  ein,  und  beachten  Sie  das  "m"  in  der  Zeile  dar- 
über. Mit  diesem  Label  wird  später  entschieden,  ob  es  "Lieber" 
oder  "Liebe"  heißen  wird.  Nun  wollen  wir  zum  ausprobrieren 
noch  eine  zweite  Adresse  eintragen: 

Petra 

Mayer 

4000 

Düsseldorf 
Rubensstraße  1a 
0211-4512919 
w 
* 


Nun  können  wir  GEOWRITE  verlassen  und  den  neuen,  vollen- 
deten Serienbrief  an  die  beiden  Gäste  drucken  lassen.  Laden  Sie 
GEOMERGE,  wählen  Sie  "Geb.Form"  und  anschließend  ”YES” 
und  "Geb.Daten". 


1.8.4  DESK  PACK  1 

Wenn  Sie  mit  uns  zu  denen  gehören,  die  sich  nicht  nur  an  GEOS 
als  praktische  Benutzeroberfläche  für  den  C64  gewöhnt  haben, 
sondern  sich  auf  Erweiterungen  des  Angebots  freuen,  sollten  wir 
uns  zusammen  einmal  ein  erstes  Zusatzpaket  zur  GEOS- 
Grundausrüstung  ansehen,  das  von  Berkeley  Softworks  unter 
dem  Namen  DESK  PACK  1 entwickelt  worden  ist. 

Umfang  des  Paketes 

Neben  DESKTOP  in  der  Version  1.3  befinden  sich  vier  weitere 
Programme  auf  der  Diskette. 
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Dabei  handelt  es  sich  um  einen  Kalender  (CALENDAR),  ein 
Programm  zur  Erstellung  von  Icons  (ICON  EDITOR),  ein  Pro- 
gramm, mit  dem  Sie  Grafiken  einiger  anderer  Programme  ins 
GEOS-Format  umwandeln  können  (GRAPHICS  GRABBER)  und 
schließlich  ein  Accessory,  das  mit  seinem  verheißungsvollen 
Namen  "BLACK  JACK'\  über  die  Welt  der  harten  Büro-  und 
Schreibtischarbeit  hinausreicht. 

Installierung 

Alle  Programme  auf  dieser  Diskette  müssen  zunächst  installiert 
werden,  d.h.,  sie  werden  mit  der  GEOS-Version  gestartet,  die 
Sie  ständig  benutzen  wollen  und  von  der  sie  anschließend  nicht 
mehr  getrennt  werden  können.  Nähere  Informationen  dazu  fin- 
den Sie  in  dem  Abschnitt,  in  dem  die  GEOS-Version  1.3  vorge- 
stellt wird. 

Der  Kalender 

Bei  der  Vorstellung  des  ersten  Accessories  (CALENDAR)  gehen 
wir  vom  9.  April  1987  als  aktuellem  Tag  aus.  Nach  dem  Laden 
des  Kalenders  durch  zweimaliges  Anklicken  sehen  wir  zunächst 
das  Eröffnungsbild.  Ganz  oben  links  haben  wir  ein  kleines  Menü 
mit  nur  zwei  Punkten.  Zu  FILE  findet  sich  als  Unterpunkt 
QUIT,  bei  CHANGE  haben  wir  die  Möglichkeiten,  MONTH, 
YEAR  und  TO  PRESENT  anzuwählen. 

Im  eigentlichen  Kalenderfenster  findet  sich  oben  rechts  das  be- 
kannte Schließsymbol,  das  bei  uns  aber  nicht  immer  funktioniert 
hat.  Sicherer  verlassen  Sie  den  Kalender  wieder  durch  Anwählen 
des  oben  erwähnten  Menüfeldes  QUIT  unter  FILE. 

In  der  ersten  Zeile  des  eigentlichen  Kalenderblattes  finden  Sie 
die  englischen  Abkürzungen  für  die  Wochentage 

S:  Sunday/Sonntag 
M:  Monday/Montag 
T:  Tuesday/Dienstag 
U:  Uednesday/Mittwoch 
T:  Thursday/Donnerstag 
F:  Friday/Freitag 

S:  Saturday/Samstag  bzw.  Sonnabend 
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Darunter  erscheinen  dann  die  Tage  des  aktuellen  und  im  Vor- 
einsteller (PREFERENCE  MANAGER)  eingestellten  Monats  in 
der  richtigen  Anordnung.  Unter  einer  dreifachen  Querlinie  wer- 
den Monat  und  Jahr  noch  einmal  angezeigt.  Ganz  rechts  auf  dem 
Monatskalenderblatt  finden  Sie  über  der  Dreifachlinie  das  be- 
kannte Eselsohr  und  unter  der  Linie  ein  Fragezeichen. 


Bild  1.8.4.1:  Kalenderblatt  des  laufenden  Monats 


Probieren  wir  nun  ^len  Kalender  erst  einmal  aus.  Er  wird  sich 
dabei  als  überaus  fähig  erweisen.  Zu  diesem  Zwecke  gehen  wir 
auf  CHANGE  und  klicken  YEAR  an.  Jetzt  können  wir  eine 
vierstellige  Zahl  eingeben  und  damit  ein  beliebiges  Jahr 
zwischen  0000  und  9999  wählen.  Probieren  Sie  es  doch  einmal 
mit  Ihrem  Geburtsjahr  aus.  Wenn  Sie  dann  noch  über  MONTH 
den  richtigen  Monat  anklicken,  erscheint  innerhalb  kürzester 
Zeit  der  Monat,  der  Ihren  Eltern  eine  besondere  Freude  gemacht 
hat.  Sie  können  jetzt  schnell  nachschauen,  ob  Sie  etwa  ein 
Sonntagskind  sind.  Sollte  das  nicht  der  Fall  sein,  beweisen  Sie 
dem  Schicksal  das  Gegenteil!  Auf  jeden  Fall  können  Sie  mit 
Hilfe  dieses  Kalenders  erstaunlich  schnell  feststellen,  welcher 
Wochentag  sich  hinter  einem  beliebigen  historischen  Datum  ver- 
birgt. 
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Probieren  wir  es  doch  einmal  mit  einem  Datum  aus,  das  Sie 
wohl  noch  aus  der  Schule  oder  aber  von  Ihrem  letzten  Parisur- 
laub her  kennen.  Am  14.  Juli  jeden  Jahres  feiern  die  Franzosen 
den  Sturm  auf  die  Bastille.  Wenn  Sie  unter  CHANGE/YEAR  das 
Jahr  1789  verlangen  und  anschließend  den  Monat  Juli  wählen, 
wissen  Sie  sehr  schnell,  daß  das  berühmte  Ereignis  an  einem  ... 
Na,  probieren  Sie  es  ruhig  selbst  aus. 

Ein  zweites  Beispiel  möchten  wir  Ihnen  noch  demonstrieren, 
weil  es  uns  einfach  zu  sehr  in  den  Fingern  gejuckt  hat.  Wir  sind 
einfach  einmal  davon  ausgegangen,  daß  Christi  Geburt  wirklich 
im  Jahre  0 stattgefunden  hat  (die  Historiker  und  Theologen  mö- 
gen unsere  Unbedarftheit  verzeihen).  Und  mit  Hilfe  unseres 
Kalenders  haben  wir  festgestellt,  daß  der  erste  "Weihnachtstag" 
ein  ...  war. 


Bild  1.8.4.2:  Beispiel  für  die  Nutzung  des  "ewigen  " Kalenders 


Nun  aber  genug  dieser  (wenn  auch  entzückenden)  Spielereien. 
Fangen  wir  an,  unseren  Kalender  für  die  Gegenwart  zu  verwen- 
den. Wir  möchten  z.B.  einige  Einträge  für  den  9.4.  machen. 
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Also  klicken  wir  das  Feld  mit  der  9 an.  Ein  leeres  Fenster  er- 
scheint mit  drei  Anklickmöglichkeiten  über  der  Dreifachlinie: 
CLEAR,  OK  und  CANCEL.  Außerdem  befindet  sich  rechts  un- 
ten noch  ein  Eselsohr.  Unter  der  Dreifachlinie  ganz  links  finden 
wir  jetzt  nicht  nur  den  Monat,  sondern  auch  den  genauen  Tag, 
den  wir  angewählt  haben.  In  der  amerikanischen  Schreibweise, 
an  die  man  sich  schnell  gewöhnt,  sieht  das  dann  so  aus: 

April  9.  1987 

Für  unsere  Zwecke  geben  wir  jetzt  zum  Beispiel  ein: 

0800  Große  Inspektion  (Auto  Meier) 

1015  Informatik-Klausur 

1300  Treffen  mit  Gabi  in  der  Mensa 

1615  Arbeitsgruppe  PASCAL 

2000  "Im  Namen  der  Rose"  (Apollo-Kino) 


Bild  1.8.4.3:  Beispiel  fir  das  Kalenderblatt  eines  Tages 


Anschließend  gehen  wir  äuf  OK.  Die  Daten  werden  dann  auf 
der  Diskette  abgespeichert.  Mit  CLEAR  könnte  man  das  gesamte 
Blatt  wieder  löschen,  und  mit  CANCEL  kann  man  wie  immer 
den  gesamten  Vorgang  abbrechen  und  zum  Grundbild  des  Ka- 


Einführung 


127 


lenders  zurückkehren.  Dasselbe  geschieht  übrigens,  wenn  man 
auf  dem  Kalenderblatt  eins  der  beiden  Eselsohren  rechts  unten 
anklickt. 

Wenn  Sie  die  Daten  unter  dem  9.  April  eingetragen  haben  und 
ins  Monatsgrundbild  zurückgekehrt  sind,  können  Sie  an  einem 
Sternchen  erkennen,  daß  zu  einem  bestimmten  Tag  eine  Eintra- 
gung vorhanden  ist.  So  behält  man  leichter  den  Überblick.  In 
unserem  Fall  befindet  sich  das  Sternchen  im  Feld  mit  der  9. 

Notieren  wir  uns  nun  zu  zwei  weiteren  Tagen  etwas.  Uns  ist 
eben  die  Benachrichtung  unseres  fürsorglichen  Zahnarztes  zu 
Gesicht  gekommen.  Da  wir  gerade  dessen  Termine  gerne  und 
schnell  vergessen,  wählen  wir  über  CHANGE  und  MONTH  den 
Mai  1987  an  und  vermerken  dort  ebenfalls  unter  dem  9: 

0915  Zahnarzt. 

Endgültig  verbucht  wird  die  Eintragung  wieder  durch  Anklicken 
von  OK.  Als  nächstes  wollen  wir  einmal  überprüfen,  wie  der 
Kalender  auf  Daten  reagiert,  die  vor  dem  heutigen  Tag  liegen. 
Wir  klicken  unter  CHANGE  und  MONTH  den  Januar  an  und 
geben  dort  für  den  1.  Januar  ein:  08.00  Seminar. 

(An  dieser  sicher  ungewöhnlichen  Verwendung  des  Neujahrsta- 
ges mögen  Sie  zum  einen  unseren  Fleiß,  zum  anderen  die  Unbe- 
kümmertheit erkennen,  mit  der  GEOS  alles  akzeptiert.)  Nachdem 
wir  den  Eintrag  mit  OK  abgespeichert  haben,  wählen  wir  einen 
kürzeren  Weg  zurück  in  die  Gegenwart,  und  zwar  unter  dem 
Menüpunkt  CHANGE  durch  Anklicken  von  TO  PRESENT. 

Wenn  wir  jetzt  im  Monatsgrundbild  das  Fragezeichen  unten 
rechts  anklicken,  nennt  das  Programm  uns  in  der  zeitlich  richti- 
gen Reihenfolge  alle  Tage,  zu  denen  Einträge  vorhanden  sind.  In 
unserem  Falle  also: 

Januar  1,  1987 
April  9,  1987 
Mai  9,  1987. 
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Auf  einem  solchen  Blatt  würden  uns  maximal  20  Einträge  an- 
gezeigt. Mit  Hilfe  des  Eselsohrs  kann  man  dann  vor-  bzw.  zu- 
rückblättern. 

Möchte  man  nun  die  Einträge  zu  einem  der  Tage  sehen,  braucht 
man  ihn  nur  in  dieser  Übersicht  anzuklicken,  und  anschließend 
erscheint  der  entsprechende  Tag  mit  seinen  Kalendernotizen. 

Verlassen  wir  nun  zunächst  einmal  den  Kalender,  der  Ihnen 
hoffentlich  in  Zukunft  eine  große  Hilfe  ist.  Dazu  wählen  wir 
unter  FILE  QUIT  an  und  geraten  so  wieder  dorthin,  von  wo  wir 
ausgegangen  sind,  etwa  zum  DESKTOP.  Ebenso  wäre  es  natür- 
lich auch  möglich,  das  Accessory  CALENDAR  aus  GEOWRITE 
heraus  anzuwählen  und  hinterher  auch  dorthin  zurückzukehren. 

ICON  EDITOR 

Mit  dem  ICON  EDITOR  bietet  Ihnen  Berkeley  Softworks  nun 
auch  eine  Möglichkeit,  Files  mit  einem  individuellen  ICON  zu 
versehen.  Dies  ist  besonders  interessant  bei  den  Files,  die  nur 
mit  einem  ziemlich  ausdruckslosen  und  allgemeinen  Standard- 
Icon  auf  dem  Bildschirm  erscheinen,  etwa  alle  selbst  erstellten 
BASIC-  oder  auch  Assembler-Programme. 

Installation  und  Einstieg 

Wir  gehen  davon  aus,  daß  Sie  auch  den  ICON  EDITOR  so  in- 
stalliert haben,  wie  wir  es  bei  der  Vorstellung  von  GEOS  VI. 3 
beschrieben  haben.  Nach  dem  Laden  erscheint  zunächst  ein  Ein- 
gangsbild, wo  Sie  entsprechend  ein  File  wählen  können,  das  Sie 
mit  einem  ICON  versehen  wollen  (File-Select-Box). 

Werden  nicht  alle  Files,  die  Sie  auf  der  Diskette  haben,  im 
Fenster  angezeigt,  können  Sie  hoch-  und  runterscrollen.  Wichtig 
ist,  daß  es  in  diesem  Eingangsbild  ein  "Disk-Feld"  gibt,  das 
Ihnen  erlaubt,  jederzeit  die  Diskette  zu  wechseln. 

In  unserem  Falle  wählen  wir  ein  Programm,  das  noch  nicht  ins 
GEOS-Format  gebracht  worden  ist.  Nach  dem  Anklicken  und 
dem  öffnen  mit  "OPEN"  erscheint  ein  neues  Fenster  mit  dem 
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schon  erwarteten  Hinweis:  "This  File  is  not  a Geos  File.  Convert 
to  Geos  File  Type?".  Das  heißt,  wir  werden  jetzt  gefragt,  ob  wir 
unser  File  ins  GEOS-Format  umwandeln  wollen.  Nach  dem  An- 
klicken von  "YES"  wird  es  umgewandelt.  Dazu  müssen  noch  ei- 
nige Angaben  gemacht  werden.  Ein  neues  Fenster  erscheint,  auf 
dem  nach  dem  Typ  unseres  Files  gefragt  wird:  "What  Type  of 
File  is  this?".  Drei  Möglichkeiten  zur  Wahl  werden  uns  angebo- 
ten:  Links  "BASIC",  dann  "ASM"  für  "Assembler"  und  ganz 
rechts  "DATA"  für  "Daten-Files". 


geos  | f'ilö 


OQ0EI  B(3flQ0G 


Icon  Ed 


Select  File: 


DESK  TOP 
calendar 
blackjack 
ICON  EDITOR 
GRAPHICS  GRABBER 
Date  Book 


I 


Open 


■er 


Disk  | 


Quit 


Actual  Size: 


sis 

HEI® 


Actual  Size: 


Bild  l.S.4.4:  Die  FUe-Select-Box  des  ICON  EDITORS 


Was  hier  schon  deutlich  wird,  ist,  daß  wir  mit  dem  ICON  EDI- 
TOR nicht  den  File-Typ  eines  Accessories  oder  einer  Applica- 
tion wählen  können.  Das  geht  nur  mit  dem  FILEMASTER,  den 
Sie  ja  weiter  vorne  in  diesem  Buch  finden. 

Wir  wählen  jetzt  BASIC  an.  Ein  neues  Fenster  fragt  uns  nach 
dem  "PERMANENT  NAME,  d.h.  nach  dem  Namen,  der  später 
auch  immer  im  INFO-Bildschirm  auftaucht.  Hier  können  Sie 
z.B.  Ihre  eigene  Entwicklungsnummer  des  Programms  mit  ange- 
ben (z.B.  "HARDCOPY  1.3").  Dieser  hier  einzugebende  Name  ist 
nicht  der,  der  später  unter  dem  ICON  erscheint. 
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Ein  neues  Eingabefenster  verlangt  entsprechend  dem  INFO- 
Bildschirmaufbau  den  Namen  des  Autors  des  Programms  ("Enter 
Name  of  Author!").  Wir  wählen  jetzt  als  Beispiel  "Werner". 

Die  Floppy  arbeitet  kurz,  und  anschließend  erscheint  das  ICON- 
EDITOR-Grundbild,  das  folgendermaßen  aussieht: . 

Ganz  oben  links  haben  wir  eine  Menüzeile,  bestehend  aus  GEOS 
und  FILE.  Unter  dem  Menüpunkt  GEOS  finden  wir  das  Info 
zum  ICON  EDITOR,  außerdem  wie  üblich  alle  Accessories,  da 
der  ICON  EDITOR  ein  Application  ist. 

Unter  FILE  haben  wir  "Save  ICON",  "Recover  ICON",  "Remove 
ICON"  und  "QUIT".  Unter  der  Menüzeile  findet  sich  der  Name 
des  Files,  zu  dem  wir  das  ICON  erzeugen  wollen,  und  rechts  da- 
von wird  noch  einmal  der  Name  der  Diskette  angezeigt,  mit  der 
wir  arbeiten. 

Darunter  finden  wir  zwei  große  Quadrate.  Über  dem  linken 
steht  "ICON  EDIT  WINDOW"  und  rechts  finden  wir  "ICON 
BUFFER".  Das  linke  ist  das  eigentliche  Arbeitsfeld,  in  dem  man 
zeichnet.  Rechts  hat  man  die  Möglichkeit,  etwas  kurzzeitig  zu 
sichern. 

Zwischen  den  beiden  Quadraten  finden  sich  zwei  Pfeile.  Der 
obere  heißt  "Copy  to  Buffer".  Wenn  man  diesen  Pfeil  anklickt, 
kopiert  man  den  Inhalt  des  linken  Quadrates  in  das  rechte.  Der 
untere  zeigt  die  umgekehrte  Richtung  an  und  heißt  dement- 
sprechend "Load  from  Buffer". 

Darunter  in  der  Mitte  gibt  es  acht  Anklickfelder.  Fünf  davon 
bilden  ein  Kreuz  mit  einem  Mittelfeld.  Jeweils  an  den  Kreuzar- 
men haben  wir  die  Möglichkeit,  das  Bild  nach  oben,  unten,  nach 
rechts  und  nach  links  zu  scrollen.  Das  Feld  in  der  Mitte  ermög- 
licht uns  das  Invertieren  des  ICONS,  an  dem  wir  arbeiten. 

Unter  diesen  fünf  Feldern  sind  noch  drei  Anklickfelder  hori- 
zontal angeordnet.  Links  kann  man  an  der  vertikalen  Achse 
spiegeln.  Das  heißt,  was  vorher  links  war,  erscheint  dann  rechts. 
Mit  dem  rechten  Feld  kann  man  an  der  horizontalen  Achse  spie- 
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geln,  d.h.  ein  Bild  auf  den  Kopf  stellen.  Und  mit  dem  mittleren 
Feld  kann  man  das  Bild  löschen.  Damit  stellt  der  ICON  EDITOR 
komfortable  Bearbeitungsmöglichkeiten  zur  Verfügung.  Unter 
den  beiden  Arbeitsfenstern  gibt  es  auch  noch  jeweils  eine  An- 
gabe namens  "Actual  size".  Hier  ist  im  Augenblick  noch  nichts 
zu  sehen,  aber  sobald  wir  anfangen  zu  zeichnen,  würde  das  Er- 
gebnis hier  in  Echt-Ausführung  gezeigt,  wie  Sie  es  auch  vom 
FILEMASTER  her  schon  kennen. 

Um  nun  mit  dem  Erstellen  eines  ICONS  zu  beginnen,  fahren  wir 
mit  der  Maus  in  das  links  Arbeitsfenster.  Sofort  geht  es  lang- 
samer, und  der  Pfeil  wird  zu  einem  hellen  kleinen  Quadrat,  wie 
man  es  auch  vom  Einzelpunktmodus  (PIXEL  EDIT)  in  GEO- 
PAINT  kennt.  Auch  das  Setzen  und  Löschen  von  Punkten  ge- 
schieht wie  im  entsprechenden  Modus  bei  GEOPAINT:  Durch 
einmaliges  Klicken  kommt  man  in  den  Malmodus,  kann  dann 
entsprechend  so  lange  Striche  ziehen,  wie  man  will.  Klickt  man 
noch  einmal,  hebt  man  den  Schreibmodus  auf  und  hat  den  Zei- 
chenstift gewissermaßen  vom  Papier  abgehoben.  Klickt  man  an 
einer  Stelle,  wo  schon  ein  Punkt  ist,  kommt  man  in  den 
Löschmodus. 


Bild  1.8.4. 5:  Arbeiten  mit  dem  ICON  EDITOR 
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Wir  malen  jetzt  einmal  ein  Bild,  das  wie  eine  Kamera  aussieht 
und  uns  als  ICON  für  ein  Hardcopy-Programm  dienen  kann. 
Vergleichen  Sie  hierzu  die  entsprechende  Abbildung  im  Buch. 
Das  fertige  Bild  kann  man  nun  durch  Anklicken  des  entspre- 
chenden Pfeiles  zwischen  den  Arbeitsfenstern  in  den  ICON 
BUFFER  verlegen,  um  es  im  gegenwärtigen  Stand  dort  zu  si- 
chern und  links  noch  weitere  Veränderungen  auszuprobieren. 
Sollten  diese  uns  nicht  gefallen,  können  wir  durch  Anklicken  des 
Gegenpfeils  den  alten  Zustand  wiederherstellen. 

Bleiben  wir  also  bei  unserem  Kamera-ICON.  Durch  Anklicken 
des  Feldes  "Save  Icon"  unter  FILE  kann  man  es  nun  abspeichern. 
Dadurch  hat  dann  das  vorher  ausgewählte  File  das  gerade  er- 
stellte ICON  bekommen.  Durch  "Recover  ICON"  können  Sie  eine 
schon  früher  abgespeicherte  Version  wieder  hervorholen. 

Und  durch  das  Anklicken  des  "Remove  ICON"-Feldes  erscheint 
ein  Dialogfenster  mit  der  Frage:  "Are  you  sure  you  want  to  de- 
lete  this  file’s  header?".  Its  Icon  and  file  attribute  Information 
will  be  lost."  Das  bedeutet: 

Wenn  man  also  z.B.  ein  File  in  die  ursprüngliche  Nicht-GEOS- 
Version  zurückverwandeln,  d.h.  auch  den  Info-Sektor  löschen 
will,  erreicht  man  das  durch  Anklicken  von  "YES".  Anschließend 
hat  man  dann  wieder  ein  ganz  normales  C64-File.  Das  heißt, 
man  ist  dann  wieder  im  Ausgangszustand,  bevor  man  begonnen 
hat,  mit  dem  ICON  EDITOR  zu  arbeiten.  Der  letzte  Punkt  unter 
FILE  heißt  "QUIT",  und  mit  dem  kann  man  dann  den  ICON 
EDITOR  auch  wieder  verlassen.  Man  kehrt  dann  ins  DESKTOP 
zurück. 

GRAPHICS  GRABBER 

Mit  diesem  Programm  haben  Sie  die  Möglichkeit,  Grafiken,  die 
Sie  mit  anderen  Malprogrammen  als  GEOPAINT  erstellt  haben, 
an  GEOS  anzupassen.  Anschließend  können  Sie  sie  dann  etwa 
mit  GEOPAINT  weiterbearbeiten. 

Was  den  Namen  angeht,  so  kommt  er  von  dem  englischen  Wort 
"to  grab",  was  soviel  bedeutet  wie  "an  sich  reißen"  oder  "schnap- 
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pen".  Das  klingt  zwar  etwas  dramatisch,  ist  aber  eine  grundsolide 
Angelegenheit.  In  der  Version,  die  wir  hier  im  DESK  PACK  1 
vorfinden,  kann  der  GRAPHICS  GRABBER  Grafiken  der  fol- 
genden Mal-  und  Zeichenprogramme  konvertieren: 

► PRINTMASTER 

► PRINTSHOP  und 

► NEWSROOM. 

Nach  der  Installation  (vgl.  dazu  die  Beschreibung  bei  der  Vor- 
stellung von  GEOS  VI. 3!)  und  dem  Laden  durch  Doppelklicken 
erscheint  ein  leeres  Bild.  Oben  hat  man  eine  Menüleiste  mit  den 
Punkten  GEOS,  FILE,  SAVE  und  OPTIONS. 

Unter  GEOS  wird  Ihnen  zunächst  ein  GRABBER-Info  angebo- 
ten.  Anschließend  sind  die  übrigen  Accessories  aufgelistet,  die 
noch  da  sind.  In  diesem  Falle  handelt  es  sich  zum  Beispiel  um 
das  schon  vorgestellte  Kalenderprogramm  sowie  um  das 
BLACK-JACK-Spielprogramm.  Nachdem  wir  nun  FILE  an- 
geklickt haben,  haben  wir  folgende  Felder  zur  Auswahl: 

► PRINTMASTER, 

► PRINTSHOP  und 

► NEWSROOM. 

► Ganz  unten  haben  wir  noch  das  bekannte  QUIT-Feld. 

Wir  wählen  z.B.  PRINTSHOP  und  werden  anschließend  auf- 
gefordert, eine  Diskette  mit  PRINTSHOP-Grafiken  einzulegen 
(Insert  a disk  containing  a printshop  graphik  in  drive  A!).  An- 
schließend sehen  wir  in  einer  Box  die  auf  der  Diskette  vorhan- 
denen entsprechenden  Grafiken  und  können  eine  auswählen. 
Sollte  die  von  uns  gewünschte  unter  den  fünf  angezeigten  Files 
nicht  sein,  können  wir  durch  Betätigen  der  Scroll-Pfeile  auch 
die  übrigen  sehen. 

Sollten  Sie  entgegen  unseren  Voraussagen  keinen  einzigen  Ein- 
trag in  der  File-Select-Box  sehen,  so  befindet  sich  auch  keine 
PRINTSHOP-Grafik  auf  dieser  Diskette.  Und  nur  die  werden 
hier  angezeigt.  Als  Auswahlmöglichkeit  haben  wir  jetzt: 
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GRAB  und  CANCEL. 

Wir  klicken  natürlich  GRAB  an,  weil  wir  ja  eine  Grafik  um- 
wandeln wollen.  Links  neben  der  nun  auftauchenden  ausge- 
wählten Grafik  erscheint  nun  eine  neue  Menüleiste  mit  folgen- 
den Punkten  (in  der  Reihenfolge  von  oben  nach  unten): 

1.  Schließsymbol:  Mit  ihm  kommen  Sie  wieder  zur  File-Select- 
Box,  d.h.,  eine  Ebene  höher,  können  dann  also  neue  Grafi- 
ken auswählen. 

2.  Schere:  Hier  können  Sie  aus  der  Grafik  etwas  ins  PHOTO 
SCRAP  ausschneiden. 

Dasselbe  erreichen  Sie  auch  mit  Hilfe  des  Menüpunktes 
SAVE,  wenn  Sie  dort  "in  a scrap"  anklicken. 

3.  Album:  Hier  können  Sie  etwas  aus  der  Grafik  direkt  in  ein 
vorher  ausgewähltes  PHOTO  ALBUM  einkleben. 

Dasselbe  erreichen  Sie  auch  mit  Hilfe  des  Menüpunktes 
SAVE,  wenn  Sie  dort  "in  an  album"  anklicken. 

4.  Hier  sehen  Sie  eine  Art  auf geschlagenen  Kalender  mit  den 
Begriffen  "first",  "prev",  "next"  und  "last"  und  können  ent- 
sprechend zur  ersten,  zur  vorausgehenden,  zur  nächsten  und 
zur  letzten  der  (in  diesem  Falle)  PRINTSHOP-Grafiken 
wechseln. 

Was  das  Obermenü  "SAVE"  angeht,  so  können  wir  einmal  die 
konvertierte  Grafik  "in  a scrap",  d.h.  also  ins  PHOTO  SCRAP, 
bzw.  "in  an  album",  d.h.  in  ein  Fotoalbum  legen. 

Diesen  Menüpunkten  entsprechen  in  der  Menüleiste  links  zwei 
Anwählfelder  (s.o.).  Unter  OPTIONS  können  Sie  einmal  ein  be- 
reits existierendes  Album  wählen,  CHOOSE  AN  ALBUM,  oder 
ein  neues  Album  anlegen,  CREATE  A NEW  ALBUM. 

BLACK JACK 

Stellen  Sie  sich  vor.  Sie  haben  an  einem  Tag  hunderte  von 
PRINTSHOP-Bildern  mit  Hilfe  des  GRAPHICS  GRABBERS 
konvertiert.  Dann  haben  Sie  sicherlich  Entspannung  nötig.  Und 
genau  dafür  ist  das  BLACK  JACK  DESK  ACCESSORY  gedacht. 
So,  wie  PC-Besitzer  z.B.  ihren  "Flight  Simulator"  haben,  können 
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Sie  nun  unter  GEOS  gegen  den  Computer  Karten  spielen  und 
(hoffentlich)  gewinnen.  Nach  der  Installation  (vgl.  dazu  die  Be- 
schreibung bei  der  Vorstellung  von  GEOS  VI. 3!)  und  dem  Laden 
durch  Doppelklicken  erscheint  zunächst  ein  Fenster  als  Grund- 
bild. Oben  links  haben  Sie  eine  Menüzeile  mit  den  Punkten 
FILE  und  PLAY. 

Wenn  man  FILE  anklickt,  hat  man  die  Möglichkeit,  das  Spiel 
über  QUIT  (im  Gegensatz  zu  dem  realen  'Black-Jack-Spiel  "un- 
geschoren") zu  verlassen.  Unter  PLAY  verbirgt  sich  nur  der  Pro- 
grammpunkt START. 

Die  Fläche  des  Fensters  wird  wieder  durch  die  uns  schon  von 
anderen  GEOS-Erweiterungen  her  bekannte  waagrechte  Drei- 
fachlinie in  zwei  Teile  geteilt. 

Klickt  man  unter  PLAY  das  Feld  START  an,  werden  unsicht- 
bar, aber  gut  hörbar  die  Karten  gemischt  und  abgehoben.  Daß 
der  Rechner  zugange  ist,  erfährt  man  als  Spieler  nicht  nur  durch 
charakteristische  Geräusche,  sondern  auch  durch  kurz  unter  der 
Dreifachlinie  eingeblendete  Mitteilungen  ("SHUFFELING"  für 
Mischen  und  "CUTTING"  für  Abheben). 

(Was  das  korrekte  Mischen  und  Abheben  angeht,  müssen  wir  al- 
lerdings Berkeley  Softworks  vertrauen.)  Unter  der  Dreifachlinie 
finden  sich  links  dann  anschließend  zwei  Anzeigen:  zum  einen 
BET,  was  den  Einsatz  darstellt  (am  Anfang:  10),  zum  anderen 
ACCT  für  das  noch  vorhandene  Vermögen  des  Spielers  (am 
Anfang:  1000).  Rechts  davon  erscheint  noch  einmal  BET,  hier 
jetzt  zunächst  ohne  Betrag.  Ganz  rechts  gibt  es  noch  zwei  An- 
klickfelder  ALTER  und  SAME.  Klickt  man  SAME  an,  bedeutet 
das,  daß  Sie  als  Spieler  mit  dem  Einsatz  einverstanden  sind. 
Klickt  man  dagegen  ALTER  an,  kann  anschließend  per  Tastatur 
ein  Teil  des  Vermögens  nach  freier  Wahl  eingesetzt  werden. 

In  unserem  ersten  Probedurchgang  klicken  wir  erst  einmal 
SAME  an.  Begleitet  von  anheimelnden  Tönen  fliegen  dann  von 
rechts  quer  über  den  Bildschirm  je  zwei  Karten  heran  und  ord- 
nen sich  links  auf  dem  Bildschirm  zu  zwei  Paaren  an. 
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Bild  1.8.4.6:  BLACK  JACK  - Spielbeginn 

Das  obere  Paar,  von  dem  die  linke  Karte  verdeckt  ist,  gehört 
dabei  dem  Gegenspieler,  d.h.  dem  Computer.  Die  beiden  unteren 
sollte  man  so  sorgfältig  betrachten,  daß  man  entscheiden  kann, 
ob  man  jetzt  rechts  HIT  anklickt  oder  STAY. 

Im  ersten  Fall  möchte  man  eine  weitere  Karte  (HIT),  im  zweiten 
Fall  (STAY)  ist  man  mit  seinen  bisherigen  Karten  zufrieden  und 
der  Computer  beginnt  zu  ziehen.  Ist  auch  der  Computer  zufrie- 
den, wird  der  Gewinner  durch  ein 

* Winner  * 


angezeigt.  Durch  Anklicken  von  DEAL  schiebt  der  Computer 
dann  auch  die  zugehörigen  Beträge  auf  das  entsprechende  (hof- 
fentlich unser)  Konto.  Neben  den  Grundmöglichkeiten  gibt  es 
einige  Besonderheiten,  die  dem  Spiel  besonderen  Pfiff  geben:  So 
kann  man  z.B.  seine  Karten  auf  zwei  Hände  verteilen  (SPLIT- 
TING THE  HAND).  Das  ist  möglich,  sobald  man  zwei  gleiche 
Karten  hat,  mit  ihnen  kann  einzeln  weitergespielt  werden. 
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In  unserem  Falle  haben  wir  das  bei  zwei  Assen  natürlich  sofort 
gemacht,  prompt  bei  beiden  21  gemacht  und  so  doppelt  gegen 
die  Computerbank  gewonnen.  Dieser  seltene  Fall  war  uns  natür- 
lich sofort  eine  Abbildung  wert.  Wann  hat  man  sonst  schon  mal 
die  Möglichkeit,  Glück  im  Spiel  so  zu  verewigen? 


Als  zweite  Möglichkeit  gibt  es  noch  DOUBLE  DOWN.  Wenn 
man  mit  den  ersten  beiden  Karten  10  oder  11  Punkte  hat,  wird 
man  gefragt,  ob  man  DOUBLE  DOWN  möchte. 

Obwohl  DOUBLE  DOWN  ja  eigentlich  "Doppelt  abwärts"  heißt, 
wird  in  diesem  Falle  die  Wette  verdoppelt  und  automatisch  eine 
einzige  weitere  Karte  gezogen.  Dann  ist  der  Gegenspieler  dran. 
Als  letzte  besondere  Möglichkeit  kann  INSURANCE  auf  tauchen. 
Wenn  die  gezeigte  Karte  der  Bank  ein  "As"  ist,  kann  man  diese 
Möglichkeit  anwählen.  Das  kostet  zwar  die  Hälfte  des  Wettein- 
satzes. Schafft  die  Bank  aber  einen  BLACK  JACK,  so  ist  man 
dagegen  versichert  (INSURANCE)  und  verliert  nichts  außer  der 
Versicherungssumme.  Macht  die  Bank  keinen  BLACK  JACK, 
dann  verliert  man  das  INSURANCE,  aber  das  Spiel  geht  ganz 
normal  weiter,  d.h.  man  kann  die  Wette  auch  gewinnen. 
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Insgesamt  hat  man  mit  diesem  Accessory  nun  auch  unter  GEOS 
den  Einstieg  in  die  Spielwelt  gefunden,  getreu  wohl  dem 
Grundsatz:  Wer  hart  arbeitet,  soll  auch  seinen  Spaß  haben.  Be- 
sonders gut  gefallen  hat  uns  bei  diesem  Spiel  das  grafische  und 
akustische  Drumherum,  das  dem  Spiel  einen  zusätzlichen  Reiz 
verleiht  und  zu  einer  netten  Form  der  Entspannung  macht,  vor 
allem  wird  man  unter  GEOS  natürlich  auch  vor  den  unter  Um- 
ständen problematischen  Folgen  eines  Spielbankbesuchs  bewahrt. 
Man  kann  nur  die  1000  Dollar  verlieren,  die  man  sich  vorher 
unter  START  geholt  hat. 


1.8.5  GEOPUBLISH 

GEOPUBLISH  ist  ein  Desktop-Publishing-Programm  für  die 
GEOS-Serie.  Desktop  Publishing,  was  übersetzt  so  viel  wie  Ver- 
öffentlichungen vom  Schreibtisch  aus  heißt,  ist  eine  Pro- 
grammart, mit  der  man  Zeitungen,  Bücher  und  Plakate  - kurz 
gesagt,  alles,  bei  dem  man  layouten  muß  - erstellen  kann.  Sie 
können  Texte  und  Grafiken  zusammen  in  einem  Dokument  ver- 
arbeiten, beliebig  miteinander  in  Verbindung  bringen,  ja  sogar 
übereinanderlegen.  Diese  Art  der  Anwendung  war  bis  jetzt  nur 
auf  größeren  Rechnern  mit  mehr  "Rechenkraft"  möglich,  doch 
GEOPUBLISH  zeigt,  daß  es  auch  mit  dem  C64  und  GEOS  gut 
möglich  ist.  Da  GEOPUBLISH  sehr  umfangreich  ist,  würde  eine 
genaue  Beschreibung  der  Funktionen  den  Rahmen  dieses  Kapi- 
tels sprengen.  Deshalb  erläutere  ich  hier  nur  die  wichtigsten 
Funktionen. 

Installation  von  GEOPUBLISH 

Die  Installation  von  GEOPUBLISH  ist  recht  einfach:  Starten  Sie 
GEOS  ganz  normal,  nehmen  Sie  die  Systemdiskette  aus  dem 
Laufwerk  und  legen  Sie  die  Orginaldiskette  von  GEOPUBLISH 
ohne  Schreibschutz  ins  Laufwerk  und  "ÖFFNEN"  sie.  Starten  Sie 
nun  GEOPUBLISH  durch  einen  Doppelklick.  Das  Laufwerk 
läuft  nun  an,  und  nach  einiger  Zeit  erscheint  die  Meldung,  daß 
GEOPUBLISH  installiert  wurde.  Das  Programm  wird  nun  aber 
abgebrochen.  Nachdem  Sie  wieder  auf  dem  Desktop  angelangt 
sind,  können  Sie  GEOPUBLISH  ganz  normal  starten. 
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Arbeiten  mit  GEOPUBUSH 

Laden  Sie  nun  GEOPUBLISH  durch  einen  Doppelklick  auf  des- 
sen Icon.  Nach  kurzer  Ladezeit  meldet  sich  das  schon  von  GEO- 
PAINT  und  GEOWRITE  bekannte  Fenster,  in  dem  Sie  entschei- 
den müssen,  ob  Sie  ein  neues  Dokument  erstellen  wollen 
(CREATE),  ein  schon  existierendes  öffnen  wollen  (ÖFFNEN) 
oder  GEOPUBLISH  verlassen  wollen.  Klicken  Sie  nun  bitte 
CREATE  an,  und  tragen  Sie  einen  Namen  für  Ihr  Dokument 
ein.  Daraufhin  meldet  sich  GEOPUBLISH  mit  folgendem  Bild: 


Oben  sehen  Sie  die  für  GEOS- Programme  schon  traditionelle 
Menüzeile,  die  folgende  Punkte  enthält:  GEOS,  FILE,  MODE, 
DISK,  OPTIONS.  Hier  sei  gleich  schon  angemerkt,  daß  es  nicht 
immer  möglich  ist,  alle  Punkte  anzuwählen.  Ist  ein  Punkt  nicht 
anwählbar,  so  wird  der  Menüpunkt  "kursiv"  geschrieben.  Auf  die 
einzelnen  Punkte  werde  ich  später  noch  einmal  eingehen.  Dar- 
unter sehen  Sie  einen  Werkzeugkasten,  der  dem  aus  GEOPAINT 
in  machen  Dingen  ähnlich  ist.  Darunter  ist  ein  Kästchen,  in  dem 
der  Name  des  Dokumentes  angegeben  ist.  Darunter  befindet  sich 
die  Seitennummer  und  ein  Koordinatenfeld,  in  dem  bis  jetzt 
noch  nichts  steht  außer  einem  einsamen  X und  einem  Y.  Die 
ganze  rechte  Hälfte  wird  von  einer  Übersicht  über  Ihr  Doku- 
ment belegt,  welches  jetzt  noch  logischerweise  leer  ist. 
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Fahren  Sie  nun  einmal  mit  der  Maus  über  das  Blatt,  und  Sie 
werden  sehen,  daß  sich  die  Zahlen  im  Koordinatenfeld  ändern. 

Wir  sollten  zuerst  einmal  das  Layout  des  Dokumentes  festlegen. 
Klicken  Sie  dazu  bitte  den  Punkt  PAGE  LAYOUT  in  dem  Menü 
MODE  an.  Es  erscheint  wieder  eine  leere  Seite  und  ein  anderer 
Werkzeugkasten.  Sie  können  schon  fertige  Layouts  laden,  indem 
Sie  im  Menü  FILE  den  Punkt  LIBRARY  anklicken.  Es  erscheint 
ein  Fenster,  in  dem  Sie  sich  ein  Layout  aussuchen  können.  Sie 
haben  die  Wahl  zwischen  ein-  bis  vierspaltigen  Layouts.  Am  be- 
sten wird  es  sein,  einfach  einmal  die  verschiedenen  auszupro- 
bieren, indem  Sie  den  Namen  und  dann  das  Feld  ÖFFNEN  an- 
klicken. Es  erscheint  noch  eine  Warnung,  die  besagt,  daß  das 
schon  bestehende  Layout  gelöscht  wird.  Klicken  Sie  bitte  das 
Feld  OK  an.  Die  Floppy  läuft  nun  kurz  an,  und  es  wird  das 
Layout  auch  auf  der  Seite  dargestellt 

Um  nun  wieder  zu  unserem  alten  Bildschirm  zurückzukommen, 
aktivieren  Sie  bitte  PAGE  GRAPHICS  im  Menü  MODE.  Sie  se- 
hen dann  das  noch  leere  Dokument,  auf  dem  die  Spalten  ange- 
zeigt werden. 

Da  wir  aber  nicht  immer  ein  leeres  Blatt  haben  wollen,  werden 
wir  ein  paar  Kreise  und  Striche  ziehen.  Klicken  Sie  bitte  das 
Kreissymbol  im  Werkzeugkasten  an  und  fahren  Sie  mit  der  Maus 
auf  das  Blatt.  Der  Mauszeiger  ändert  sich  in  ein  Fadenkreuz. 
Wenn  Sie  die  Maustaste  drücken,  so  läuft  die  Floppy  kurz  an 
und  Sie  können  - genauso  wie  in  GEOPAINT  - einen  Kreis 
zeichnen.  Ist  der  Kreis  nach  Ihren  Wünschen,  so  drücken  Sie  die 
linke  Maustaste,  und  er  wird  entgültig  gezeichnet.  Die  Linien- 
und  Viereckfunktionen  funktionieren  genauso  wie  in  GEO- 
PAINT, weshalb  ich  sie  hier  nicht  noch  einmal  extra  erkläre. 
Das  Freihandzeichnen  ist  im  Gegensatz  zu  GEOPAINT  etwas 
anders.  Klicken  Sie  bitte  das  Symbol  dafür  an  (es  ist  das  2.  von 
links  in  der  zweiten  Reihe),  fahren  Sie  mit  der  Maus  auf  das 
Blatt,  und  drücken  Sie  den  Feuerknopf.  Die  Floppy  läuft  wieder 
kurz  an.  Sie  können  nun  eine  Linie  ziehen.  Soll  dort  Ihr  erster 
Wendepunkt  sein  (warum  ich  diesen  Punkt  so  nenne,  werden  Sie 
gleich  selber  sehen),  so  drücken  Sie  bitte  den  Knopf.  Die  Linie 
verschwindet  daraufhin.  Fahren  Sie  mit  der  Maus  zum  zweiten 
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Wendepunkt.  Wie  Sie  sehen,  wird  die  Ecke  nun  abgerundet,  so 
daß  der  Eindruck  einer  von  Hand  gezeichneten  Linie  entsteht. 
Sie  können  bei  dieser  Funktion  beliebig  viele  Wendepunkte  be- 
stimmen. Soll  die  Linie  die  endgültige  Form  annehmen,  drücken 
Sie  bitte  den  Feuerknopf  am  Endpunkt  zweimal  kurz  hinterein- 
ander. Die  Linie  wird  nun  entgültig  gezeichnet.  Nach  dem  glei- 
chen Prinzip  arbeitet  auch  die  Funktion  links  neben  der  Frei- 
handfunktion mit  dem  Unterschied,  daß  Anfangs-  und  End- 
punkt miteinander  verbunden  werden.  Ähnlich  sind  die  Funktio- 
nen unter  den  Freihandfunktionen,  nur  daß  hier  die  Ecken  nicht 
abgerundet  werden. 

Ich  werde  nun  etwas  genauer  auf  die  Funktionen  eingehen,  die 
ein  DTP-Programm  (DTP  ist  die  Abkürzung  für  Desktop  Publis- 
hing) charakterisieren.  Das  wichigste  ist,  daß  ein  gemaltes  Ob- 
jekt (z.B.  eine  Linie)  nicht  zur  Gesamtzeichnung  gehört,  sondern 
ein  eigenes  Objekt  für  sich  ist.  Nur  dadurch  ist  es  möglich, 
einzelne  Zeichnungen  oder  Textpassagen  zu  verschieben.  Klicken 
Sie  nun  bitte  das  Pfeilsymbol  oben  links  im  Werkzeugkasten  an. 
Fahren  Sie  dann  bitte  mit  der  Maus  auf  einen  gerade  gezeichne- 
ten Kreis,  und  klicken  Sie  ihn  einmal  an.  Sofort  bildet  sich  ein 
Viereck  um  ihn,  in  dessen  oberen  linken  und  unteren  rechten 
Ecke  je  ein  kleines  Quadrat  ist.  Klicken  Sie  bitte  zuerst  das 
obere  an.  Die  Floppy  läuft  kurz  an,  und  daraufhin  verschwindet 
der  Kreis.  Bewegen  Sie  nun  die  Maus,  so  bewegt  sich  auch  das 
Viereck.  Haben  Sie  das  Quadrat  an  die  neue  Stelle  gebracht,  so 
drücken  Sie  noch  einmal  den  Knopf.  Die  Floppy  läuft  kurz  an, 
und  der  Kreis  wird  an  der  neuen  Stelle  gezeichnet.  So  lassen  sich 
leicht  alle  Objekte  verschieben. 

Mit  dem  unteren  kleinen  Quadrat  läßt  sich  ein  Objekt  in  alle 
möglichen  Richtungen  dehnen.  Klicken  Sie  dazu  das  untere 
Quadrat  an,  und  bewegen  Sie  die  Maus.  Es  erscheint  daraufhin 
wieder  ein  Viereck,  welches  sich  nun  durch  Bewegen  der  Maus 
beliebig  vergrößert  oder  verkleinert.  Wenn  Sie  wieder  den  Knopf 
drücken,  so  wird  das  Objekt  - der  Größe  des  Vierecks  entspre- 
chend - gezeichnet. 

Ihr  Bildschirm  sieht  nun  bestimmt  konfus  aus,  denn  hat  man  ein 
Objekt  bewegt,  so  werden  die  Teile  von  anderen  Objekten,  die 
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im  gleichen  Bereich  lagen  gelöscht,  nach  dem  Verschieben  je- 
doch nicht  wieder  hergestellt.  Um  das  zu  tun,  gibt  es  eine 
Funktion,  die  das  Blatt  wieder  richtig  herstellt.  Klicken  Sie  es 
einfach  an  (es  ist  das  Symbol  unten  rechts),  und  nach  kuzem 
Laufen  der  Floppy  ist  das  Blatt  wieder  hergestellt. 

Objekte  lassen  sich  auch  sehr  einfach  löschen.  Klicken  Sie  dazu 
das  auszuschneidende  Objekt  und  dann  das  Symbol  an,  welches 
eine  Schere  darstellt,  und  das  Objekt  verschwindet  sofort. 

Eine  Möglichkeit,  Grafiken  einzubinden,  besteht  darin,  die  ein- 
zubindende Grafik  ins  PHOTO  SCRAP  abzulegen  (das  muß  na- 
türlich schon  vor  dieser  Sitzung  geschehen  sein)  und  dann  das 
dritte  Symbol  von  links  in  der  ersten  Reihe  anzuklicken.  Fahren 
Sie  nun  mit  der  Maus  auf  die  Stelle,  an  der  die  Grafik  einge- 
bunden werden  soll,  und  drücken  Sie  den  Feuerknopf.  Die  Gra- 
fik wird  nun  in  Ihr  Dokument  eingebunden.  Gab  es  jedoch  kein 
PHOTO  SCRAP,  so  erscheint  folgende  Fehlermeldung: 

NO  PHOTO  SCRAP 

Wollen  Sie  mehrere  Objekte  auf  einmal  bearbeiten,  können  Sie 
mit  dem  Markierer  gleich  mehrere  Objekte  auswählen.  Klicken 
Sie  einfach  dessen  Symbol  an  (1.  Reihe;  2.  von  links),  und  mar- 
kieren Sie  die  Objekte  auf  die  gleiche  Art,  wie  Sie  in  GEO- 
PAINT  auch  Bildbereiche  markieren.  Nun  können  Sie  diese  Ob- 
jekte alle  auf  einmal  bearbeiten. 

Texte  in  GEOPUBLISH 

Bisher  haben  Sie  nur  Bilder  malen  bzw.  verarbeiten  können, 
doch  sollten  Zeitungen  oder  Plakate  auch  Texte  enthalten.  Kein 
Problem,  denn  wir  haben  ja  GEOPUBLISH.  Sie  haben  zwei 
Möglichkeiten,  Text  in  Ihr  Dokument  zu  bekommen.  Klicken  Sie 
im  Werkzeugkasten  bitte  auf  das  Symbol,  welches  ein  T darstellt. 
Fahren  Sie  nun  mit  der  Maus  auf  die  Stelle  am  Bildschirm,  an 
der  der  Text  stehen  soll.  Drücken  Sie  wieder  den  Feuerknopf. 
Daraufhin  erscheint  ein  Fenster,  in  dem  ein  Cursor  steht.  Unten, 
am  Rand  des  Fensters,  gibt  es  drei  Felder  zum  Anklicken:  OK, 
ATTR,  ABBRUCH.  Wie  unschwer  zu  erraten,  ist  das  OK-Feld 
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dazu  da,  Ihre  Eingaben  zu  bestätigen,  während  das  ABBRUCH- 
Feld  die  ganze  Sache  abbläst.  Klicken  Sie  auf  das  ATTR-Feld  so 
erscheint  folgendes  Fenster: 


Hier  können  Sie  nun  eingeben,  welche  Schriftart  (Font)  Sie  be- 
nutzen wollen,  wie  groß  Ihre  Schrift  (Pointsize)  ist,  aus  welchem 
Muster  (Pattern)  Ihre  Schrift  sein  soll  (ja.  Sie  haben  richtig  ge- 
hört), in  welche  Richtung  geschrieben  werden  soll  (Orientation), 
wie  der  Text  justiert  werden  kann  (Justification)  und  in  wel- 
chem Stil  geschrieben  werden  soll.  Um  die  verschiedenen  Punkte 
einzustellen,  gibt  es  Scroll-Pfeile  oder  einfach  Schalter.  Die 
Scrollpfeile  funktionieren  genauso  wie  beim  Dokumentauswahl- 
Fenster  in  GEOPAINT.  Die  Schalter  sind  einfach  anzuklicken, 
und  schon  ändert  sich  diese  Einstellung  entsprechend.  Andere 
Schalter  werden  beim  Anklicken  mit  einem  Kreuz  versehen, 
welches  anzeigt,  daß  diese  Option  nun  aktiviert  ist.  Noch  ein 
Wort  zu  "Pointsize"  und  "Pattern",  da  diese  Optionen  wirklich 
neu  sind.  Mit  Pointsize  haben  Sie  die  Möglichkeit,  die  Größe  der 
Schrift  beliebig  zu  ändern.  Mit  Pattern  können  Sie  Ihre  Schrift 
durch  Muster  ersetzen  lassen.  Haben  Sie  zum  Beispiel  als  Muster 
Rauten  ausgewählt,  so  wird  Ihre  Schrift  aus  lauter  kleinen  Rau- 
ten zusammengesetzt. 
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Um  nun  auch  einen  Text  schreiben  zu  können,  müssen  Sie  wie- 
der ins  Editierfenster  zurück.  Klicken  Sie  dazu  das  Feld  EDIT 
an,  und  Sie  sind  wieder  im  altbekannten  Editierfenster.  Sie  kön- 
nen hier  Ihre  Texte  schreiben  und  editieren.  Klicken  Sie  im  At- 
tributfenster jedoch  nicht  EDIT,  sondern  OK  an,  so  verlassen 
Sie  das  Attributfenster  und  befinden  sich  wieder  auf  der  Ar- 
beitsfläche. Ihre  Änderungen  bleiben  jedoch  erhalten.  Wählen  Sie 
ABBRUCH,  so  werden  alle  Änderungen  ignoriert,  und  Sie  be- 
finden sich  wieder  auf  der  Arbeitsfläche.  Diese  Attributände- 
rungen können  Sie  übrigens  auch  bei  anderen  Werkzeugen  ma- 
chen. Klicken  Sie  dazu  einfach  das  entsprechende  Symbol  im 
Werkzeugkasten  an,  und  klicken  Sie  dann  auf  das  rechte  Feld  in 
der  dritten  Reihe.  Nun  können  Sie  für  dieses  Werkzeug  ver- 
schiedene Änderungen  vornehmen. 

Die  zweite  Art,  Texte  in  Ihr  Dokument  einzubinden,  besteht 
darin,  schon  fertige  Texte,  die  z.B.  mit  GEOWRITE  erstellt 
wurden,  zu  nutzen.  Um  dieses  zu  tun,  klicken  Sie  bitte  den 
Menüpunkt  PAGE  LAYOUT  in  dem  Menü  MODE  an.  Es  er- 
scheint wieder  der  Werkzeugkasten  für  die  Layouterstellung. 
Klicken  Sie  bitte  das  Symbol  an,  welches  ein  T darstellt.  Die 
Floppy  lädt  nun  die  Namen  der  Text-Files,  die  sich  auf  der  Dis- 
kette befinden,  und  zeigt  sie  an.  Sie  können  sich  wie  bei 
GEOWRITE  einen  Text  aussuchen  und  laden.  Das  Fenster  ver- 
schwindet wieder,  doch  wo  ist  der  Text?  Kein  Problem!  Klicken 
Sie  einfach  in  der  Spalte,  in  der  der  Text  erscheinen  soll.  Sie 
wird  dann  mit  einem  Muster  gefüllt,  was  heißt,  das  in  dieser 
Spalte  nun  Text  steht. 

Kehren  Sie  bitte  zu  unserem  Arbeitsblatt  zurück,  in  dem  Sie  im 
Menü  MODE  den  Punkt  PAGE  GRAPHICS  anklicken. 

Sonderfunktionen  von  GEOPUBLISH 

Hier  werde  ich  nun  noch  einige  Sonderfunktionen  von  GEOPU- 
BLISH erläutern.  An  dieser  Stelle  sei  noch  einmal  erwähnt,  daß 
nicht  alle  Features  angesprochen  werden  können,  da  das  den 
Rahmen  dieses  Buches  sprengen  würde. 
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Im  Menü  FILE  wurde  schon  ein  neuer  Menüpunkt  erklärt.  Ein 
zweiter  neuer  ist  der  Punkt  DOC  SETUP.  Klicken  Sie  ihn  an,  so 
können  Sie  verschiedene  Voreinstellungen  für  Ihr  Dokument 
einstellen.  Die  restlichen  Menüpunkte  sind  die  gleichen  wie  un- 
ter GEOWRITE  bzw.  GEOPAINT. 

Im  Menü  MODE  können  Sie  noch  eine  MASTER  PAGE  erstel- 
len, mit  der  Sie,  wenn  Sie  mehrere  Seiten  erstellen  wollen,  ein 
Grundlayout  festlegen  können,  welches  dann  für  jede  Seite  gilt. 

Im  Menü  DISP  können  Sie  beeinflussen,  was  während  Ihrer  Ar- 
beit angezeigt  werden  soll.  Außerdem  haben  Sie  die  Möglichkeit, 
Ihr  Dokument  zu  vergrößern,  um  Feinarbeiten  auszuführen.  Dies 
geschieht  mit  dem  Menüpunkt  ZOOM.  Die  Übersicht  über  Ihr 
Dokument  bekommen  Sie  wieder  durch  PREVIEW.  Mit  den  an- 
deren Funktionen  können  Sie  einstellen,  ob  z.B.  die  Grafiken 
während  Ihrer  Arbeit  angezeigt  werden  sollen  oder  ob  an  deren 
Stelle  nur  ein  Quadrat  steht,  was  jedoch  schneller  ist.  Diese 
Menüpunkte  haben  auch  eine  Schalterfunktion.  Ist  ein  Punkt  ak- 
tiv, so  steht  ein  Sternchen  vor  dem  entsprechenden  Punkt.  Ist  er 
inaktiv,  so  steht  - man  höre  und  staune  - kein  Sternchen  vor 
diesem  Punkt.  Im  Menü  OPTIONS  haben  Sie  noch  die  Möglich- 
keit, direkt  zu  bestimmten  Seiten  zu  springen  (existierte  die  Seite 
vorher  noch  nicht,  so  werden  Sie  gefragt,  ob  sie  erstellt  werden 
soll),  den  Werkzeugkasten  ein-  und  auszublenden  (TOOLBOX), 
die  Koordinatenanzeige  auszustellen  (SNAP),  ein  Gitter  zu  er- 
stellen (SET  RATCHET),  in  dem  sich  die  Maus  nur  bewegen 
kann  (wodurch  symmetrisches  Arbeiten  vereinfacht  wird)  und 
die  Abstände  von  den  Rändern  zur  Spalte  festzusetzen  (SET 
GUTTERS)  und  den  Rahmen  auszublenden  (RULERS). 

Fazit 

Alles  in  allem  halten  wir  GEOPUBLISH  für  eine  lohnende  An- 
schaffung, da  es  nun  mit  dem  C64  möglich  ist,  Texte  professio- 
nell zu  gestalten,  was  bisher  nur  auf  größeren  (und  teureren) 
Systemen  möglich  war.  Mit  GEOPUBLISH  stößt  man  in  einen 
ganz  neuen  Bereich  der  Textbe-  und  -Verarbeitung,  was  sich  in 
jedem  Falle  für  den  Anwender  lohnen  wird. 


146 


Das  große  Commodore  64-Buch 


1.8.6  GEOCALC 

GEOCALC  ist  ein  weiteres  Produkt  aus  der  GEOS-Reihe.  Bei 
GEOCALC  handelt  es  sich  um  eine  Tabellenkalkulation.  "Was  ist 
eigentlich  eine  Tabellenkalkulation?"  werden  sich  nun  vielleicht 
manche  Leser  fragen.  Nun,  teilt  man  das  Wort  "Tabellenkalkula- 
tion", so  erhält  man  das  Wort  Tabelle  und  Kalkulation.  Was  eine 
Tabelle  ist,  brauche  ich  wohl  nicht  weiter  zu  erklären.  Unter  ei- 
ner Tabellenkalkulation  versteht  man  also  eine  Tabelle,  mit  der 
man  kalkulieren  oder  - anders  ausgedrückt  - rechnen  kann.  Sie 
können  also  einzelne  Rechenfelder  miteinander  logisch  ver- 
knüpfen. Als  Beispiel  sei  hier  ein  Kassenbon  angeführt: 

10.34  DM 
+20.49  DM 


30.73  DM 
40.00  DM 

- 9.27  DM 

In  den  ersten  beiden  Zeilen  sind  hier  die  Preise  für  zwei  Artikel 
angegeben.  Die  dritte  Zeile  gibt  daraufhin  die  Summe  aus,  die 
sich  aus  der  Addition  von  Zeile  1 und  Zeile  2 ergab.  In  der 
vierten  Zeile  wird  eingetragen,  welche  Summe  man  der  Kassie- 
rerin gegeben  hat.  In  der  fünften  Zeile  wird  die  Geldsumme  an- 
gegeben, die  der  Kunde  nun  wiederbekommt.  Diese  Geldsumme 
errechnet  sich  aus  folgender  Formel:  3.  Zeile  - 4.  Zeile.  Genauso 
wird  auch  bei  einem  Kalkulationsprogramm  vorgegangen,  was 
wir  uns  nun  genauer  anschauen  werden. 

Installation  von  GEOCALC 

Die  Installation  von  GEOCALC  verläuft  genauso  wie  die  von 
GEOPUBLISH.  Starten  Sie  also  GEOCALC  mit  einem  Doppel- 
klick. Nach  einiger  Zeit  erscheint  dann  die  Meldung,  daß  GEO- 
CALC installiert  ist.  Daraufhin  kehrt  GEOS  wieder  zum  Desktop 
zurück.  Von  nun  an  können  Sie  GEOCALC  ganz  normal  starten. 
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Funktionen  von  GEOCALC 

Haben  Sie  GEOCALC  durch  einen  Doppelklick  gestartet,  so  er- 
scheint das  bekannte  Fenster,  in  dem  Sie  entscheiden  müssen,  ob 
Sie  ein  neues  Dokument  erstellen  wollen  (CREATE),  ob  Sie  ein 
schon  bestehendes  öffnen  wollen  (ÖFFNEN)  oder  ob  Sie  zum 
Desktop  zurückkehren  wollen.  Klicken  Sie  das  Feld  CREATE 
an,  und  geben  Sie  dem  Dokument  den  Namen  Kassenzettel,  denn 
wir  werden  nun  versuchen,  eine  solches  Beispiel  in  die  Tat  um- 
zusetzen. Es  erscheint  folgender  Bildschirm: 


Bild  1.8.S.3:  Grundbildschirm  GEOCALC 

Oben  am  Bildschirmrand  sind  wieder  fünf  Menüs  angegeben: 
GEOS,  FILE,  EDIT,  OPTIONS,  DISPLAY.  Darunter  ist  eine 
Zeile  zu  sehen,  in  der  Al,  zwei  Symbole  und  der  Cursor  stehen. 
Wir  werden  diese  Zeile  im  folgenden  "Eingabezeile"  nennen. 
Darunter  sehen  Sie  ein  Koordinatenfeld,  welches  wir  einfach  als 
"Arbeitsblatt"  bezeichnen  werden.  Ganz  unten  am  Bildschirmrand 
sind  noch  einzelne  Symbole  zu  erkennen. 

Das  Prinzip  einer  Tabellenkalkulation  ist  folgendermaßen:  Das 
Arbeitsblatt  ist  eingeteilt  in  einzelne  Felder,  die  wie  beim 
Schachbrett  durch  eine  Zahl,  welche  für  die  Zeile  steht,  und 
einen  Buchstaben,  welcher  für  die  Spalte  steht,  benannt  sind.  In 
diese  Felder  kann  man  nun  Formeln,  wodurch  sich  dann  der 
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"Feldinhalt"  ergibt,  Texte  oder  einfach  Zahlen  eingeben.  Diese 
Felder  lassen  sich  nun  beliebig  miteinander  verknüpfen. 

Die  Zeichenkombination  Al  gibt  an,  welches  Feld  gerade  aktuell 
ist.  Dieses  Feld  ist  auch  auf  dem  Arbeitsplatz  schwarz  umrandet. 
Dies  ist  nach  dem  Start  immer  das  Feld  Al.  Um  nun  ein  anderes 
Feld  zu  aktivieren,  müssen  Sie  nur  mit  der  Maus  auf  das  ge- 
wünschte Feld  fahren  und  es  anklicken.  Daraufhin  wird  dieses 
schwarz  umrandet  und  dessen  Koordinaten  stehen  nun  in  der 
Eingabezeile. 

Da  wir  auch  später  noch  wissen  wollen,  um  was  für  ein  Doku- 
ment es  sich  hier  handelt,  sollten  wir  ihm  erst  einmal  die  Über- 
schrift "Kassenbon"  geben.  Aktivieren  Sie  bitte  Feld  Al,  und 
tippen  Sie  das  Wort  "Kassenbon"  ein.  Ihre  Eingaben  erscheinen 
zuerst  in  der  Eingabezeile.  Haben  Sie  sich  vertippt,  so  können 
Sie  Zeichen  durch  die  <Backspace>-Taste  löschen.  Wollen  Sie 
nur  einen  Buchstaben  einfügen,  so  klicken  Sie  einfach  die  Stelle 
an  und  schreiben  Sie  den  neuen  Text.  Um  Ihre  Eingaben  zu  be- 
stätigen, müssen  Sie  die  <Return>-Taste  drücken.  Das  Wort 
Kassenbon  wird  im  Feld  Al  angezeigt,  und  Feld  A2  wird  nun 
aktiviert.  In  diesem  Feld  sollte  nichts  stehen,  da  sich  die  Über- 
schrift ja  von  dem  restlichen  Kassenbon  abheben  soll.  Drücken 
Sie  deshalb  einfach  nur  <Return>.  In  das  dritte,  vierte  und 
fünfte  Feld  können  Sie  nun  "Ihre"  Preise  für  Kaffee,  Milch  und 
Kuchen  eintragen.  Tippen  Sie  jeweils  einfach  nur  die  jeweilige 
Zahl  ein.  Im  sechsten  Feld  tragen  wir  einen  Strich  ein,  da  sich 
die  Summe  ja  von  den  restlichen  Feldern  abheben  soll.  Mittler- 
weile sind  wir  im  Feld  A7  angelangt.  Nun  wird’s  erst  richtig  in- 
teressant, denn  hier  soll  der  zu  bezahlende  Betrag  stehen,  sprich: 
die  Summe  von  Feld  A3,  A4  und  A5.  Tippen  Sie  nun  folgendes 
ein: 


=A3+A4+A5 


Diese  Zeile  bedeutet,  das  in  diesem  Feld  die  Summe  von  A3,  A4 
und  A5  stehen  soll.  Daß  es  sich  hierbei  um  eine  Formel  und 
nicht  um  einen  einfachen  Text  handelt,  erkennt  GEOCALC  an 
dem  vorangegangenen  =-Zeichen.  Übersetzen  könnte  man  diese 
Formel  mit:  "Feld  A7  ist  gleich  A3  plus  A4  plus  A5."  Sie  sehen. 
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es  ist  gar  nicht  so  schwer,  GEOCALC  rechnen  zu  lassen.  Sobald 
Sie  <Return>  drücken,  steht  im  Feld  A7  die  Summe  von 
A3+A4+A5. 

Im  Feld  A8  sollten  wir  die  Summe  angeben,  die  der  Kunde  be- 
zahlt hat.  Im  Feld  A9  soll  wieder  eine  Querlinie  stehen,  denn 
nun  folgt  das  Restgeld,  welches  der  Kunde  wiederbekommt. 
Sind  wir  nun  im  Feld  A10  angelangt,  so  werden  wir  unseren 
Kassenbon  fertigstellen.  Hier  soll  also  das  Rückgeld  angegeben 
werden,  welches  der  Kunde  wiederbekommt.  Es  errechnet  sich 
aus  folgender  Formel: 

Gegebener  Betrag  - zu  bezahlender  Betrag 

Überlegen  Sie  einmal,  was  wir  in  die  Eingabezeile  für  dieses 
Feld  schreiben  könnten.  Na,  genau!  Dort  muß  folgendes  stehen: 


=A8-A7 


Haben  Sie  <Return>  gedrückt,  so  erscheint  der  Restbetrag  sofort 
im  Feld  A9.  Dieses  einfache  Beispiel  sollte  Sie  in  die  Tabellen- 
kalkulation einführen.  Im  folgenden  werden  nur  noch  die  Funk- 
tionen der  einzelnen  Menüpunkte  angegeben.  Hier  noch  ein  Bild 
des  fertigen  Kassenbons: 


Bild  1.8.S.4:  Kassenbon 
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Funktionsübersicht 

Fangen  wir  mit  der  Menüzeile  an: 

GEOS 

Hier  stehen  die  einzelnen  Applikationen,  die  Sie  auf  der  Diskette 
haben. 

FILE 

Hier  stehen  alles  nur  alte  Bekannte,  weshalb  ich  hier  auch  nichts 
erläutern  muß.  Eine  Änderung  gibt  es  bei  dem  Punkt  PRINT. 
Hier  erscheint  nach  dem  Anklicken  ein  Menü,  in  dem  Sie  die 
Schriftqualität  und  noch  einige  andere  druckerspezifischen  Sa- 
chen einstellen  können. 

EDIT 

Hier  ist  zu  den  alten  Bekannten  CUT,  COPY  und  PASTE  noch 
ein  neuer  Punkt  hinzugekommen:  Mit  CLEAR  können  Felder 
schnell  und  einfach  gelöscht  werden.  CUT,  COPY  und  PASTE 
funktionieren  genauso  wie  bei  GEOPAINT  und  GEOWRITE, 
mit  dem  einzigen  Unterschied,  daß  es  sich  hier  um  CALC 
SCRAPS  handelt.  Es  werden  - wenn  vorhanden  - die  Formeln, 
nicht  die  sich  daraus  ergebenden  Werte  abgespeichert! 

OPTIONS 

Hier  werde  ich  die  einzelnen  Punkte  kurz  erklären. 

PASTE  FUNCTION 

Sie  können  Funktionen  (z.B.  SIN,  COS  etc.)  in  Ihre  Formeln 
einfügen.  Klicken  Sie  dazu  diesen  Punkt  an,  und  wählen  Sie  sich 
die  geeignete  Funktion  aus. 
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PASTE  NAME 

Die  Felder  können  auch  statt  der  Koordinatenbezeichnungen 
"Namen"  erhalten.  Sie  können  sich  hiermit  Namen,  die  Sie  vor- 
her eingegeben  haben,  aus  einer  Bibliothek  aussuchen. 

DEFINE  NAME 

Klicken  Sie  dieses  Feld  an,  so  eröffnet  sich  ein  Fenster,  in  dem 
Sie  einen  Namen  für  das  aktuelle  Feld  eingeben  können.  Dieser 
Name  wird  dann  automatisch  in  die  Bibliothek  auf genommen. 

COPY  TEXT  SCRAP 

Hiermit  können  Texte  ins  TEXT  SCRAP  zwischengespeichert 
werden. 

PASTE  TEXT  SCRAP 

Die  Texte  aus  dem  TEXT  SCRAP  können  hiermit  in  das  Doku- 
ment eingefügt  werden. 

NAMES  OFF/ON 

Die  Namensgebungen  werden  mit  diesem  Menüpunkt  aktiviert 
bzw.  deaktiviert. 

DISPLAY 

Auch  hier  werde  ich  die  einzelnen  Punkte  kurz  erläutern. 
FORMAT 

Hiermit  kann  das  Format  bestimmt  werden,  in  dem  die  Zahlen 
dargestellt  werden  sollen  (z.B.  als  Prozentzahl  mit  x Nachkom- 
mastellen usw.). 

STYLE 

Hiermit  können  die  Inhalte  der  Textfelder  in  Kursivschrift 
und/oder  Fettschrift  ausgegeben  werden. 
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ALIGNMENT 

Die  Justierung  des  Textes  der  Felder  kann  bestimmt  werden.  Zur 
Auswahl  stehen  zentriert  (CENTERED),  linksbündig  (LEFT 
JUSTIFIED)  und  rechtsbündig  (RIGHT  JUSTIFIED). 

WIDTH 

Hiermit  kann  die  Breite  der  Felder  eingestellt  werden. 

SCROLL  ON/OFF 

Bei  ON  erscheint  links  unten  ein  Fenster,  welches  das  Blatt  dar- 
stellt. Mit  Hilfe  eines  kleinen  Quadrates  kann  nun  schnell  an 
eine  gewünschte  Stelle  gescrollt  werden  (siehe  GEOPAINT).  Bei 
OFF  ist  diese  Funktion  inaktiv. 

In  der  ersten  Zeile  gibt  es  noch  zwei  Symbole,  die  ich  noch  kurz 
erläutern  möchte:  Beim  Anklicken  des  "Kreuzes"  wird  eine  Ein- 
gabe wieder  rückgängig  gemacht.  Das  Anklicken  des  "Hakens" 
bewirkt  das  gleiche  wie  die  <Return>-Taste,  jedoch  bleibt  das 
gerade  behandelte  Feld  noch  aktuell. 

Wird  das  Feld  angeklickt,  welches  das  aktuelle  Feld  anzeigt,  so 
erscheint  an  dessen  Stelle  ein  Cursor.  Gibt  man  nun  eine  Koor- 
dinate an,  so  wird  direkt  zu  diesem  Feld  gesprungen. 

Es  können  auch  gleichzeitig  mehrere  Felder  markiert  werden, 
um  bei  allen  z.B.  die  Schrift  abzuändern.  Klicken  Sie  dazu  ein- 
fach das  erste  Feld  an,  halten  Sie  den  Knopf  gedrückt,  und 
fahren  Sie  nun  zum  Endfeld.  Die  markierten  Felder  werden 
schwarz  unterlegt.  Durch  Anklicken  eines  Buchstabens  in  der 
waagerechten  Koordinatenreihe  wird  eine  ganze  Spalte  markiert. 
Durch  das  Anklicken  einer  Zahl  in  der  senkrechten  Koordina- 
tenreihe wird  eine  Zeile  markiert.  Klicken  Sie  das  gestreifte 
Feld  an,  wird  das  ganze  Dokument  markiert.  Durch  Anklicken 
von  CLEAR  im  EDIT-Menü  kann  so  ein  ganzes  Dokument  ge- 
löscht werden.  Klicken  Sie  das  linke  Symbol  in  der  unteren 
Reihe  an,  so  verwandelt  sich  der  Pfeil  in  ein  undefinierbares 
Objekt.  Sie  können  ihn  nur  hoch  und  runter  bewegen.  Drücken 
Sie  nun  den  Knopf,  so  wird  Ihr  Dokument  ab  dieser  Zeile  zwei- 
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geteilt.  Sie  können  zwei  Stellen  Ihres  Dokumentes  im  Auge  be- 
halten. Da  diese  Funktion  so  einzigartig  ist,  habe  ich  sie  für  Sie 
im  Bild  festgehalten: 


A 1 B 1 C | D | E 1 

i 

Kassenbon 

2 

■o 

1 8.  99:  1 

4 

9.  391  | 

5 

4.  35!  ! ! 

WB 

- _ i ! \ 

WB 

(1  J . t!  J : I • • : 

A -1  ' B ~ 1 C 1 P 1 E 1 

i 

2 

3 

1 0.  '?9!  : : ! I 

4 

9.  39!  j : : ) 

5 

4.  35!  ! 

Bild  1.&S.5:  Splitting  Screen 


Rechts  neben  dem  Symbol  für  den  gespaltenen  Bildschirm  gibt 
es  noch  zwei  weitere  Symbole.  Das  erste,  welches  zwei  Vierecke 
darstellt,  ist  ein  Schalter,  mit  dem  Sie  die  Darstellungsart  von 
Feldern  beeinflussen  können.  Hat  ein  Feld  einen  längeren  Inhalt 
als  das  Feld  selbst,  so  werden  nämlich  die  restlichen  Zeichen  bei 
der  Darstellung  im  Dokument  abgeschnitten.  Klickt  man  nun 
dieses  Symbol  an,  so  werden  diese  Zeichen  nicht  mehr  abge- 
schnitten. Es  werden  also  auch  die  "Überlängen"  dargestellt. 

Der  Querstrich  daneben  ist  einfach  eine  Anzeige,  ob  GEOCALC 
zur  Zeit  rechnet  oder  nicht.  Da  GEOCALC  häufig  viele  Berech- 
nungen durchführen  muß,  die  dann  auch  ihre  Zeit  dauern, 
könnte  man  manchmal  meinen,  daß  der  Rechner  abgestürzt  ist. 
Dieses  Symbol  schafft  in  diesem  Punkt  Klarheit.  Ist  es  invertiert, 
so  wird  gerade  gerechnet,  und  der  Rechner  ist  in  dieser  Zeit 
nicht  mehr  ansprechbar.  Mit  den  vier  Pfeilen  rechts  in  der  letz- 
ten Zeile  kann  der  Ausschnitt  gescrollt  werden.  Das  Fahren  der 
Maus  an  den  Bildschirmrand,  in  dessen  Richtung  gescrollt  wer- 
den soll,  bewirkt  das  gleiche.  Ich  hoffe  damit,  allen  Lesern  einen 
Einblick  in  die  Tablienkalkulation  gegeben  zu  haben.  Vielleicht 
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ist  damit  dem  ein-  oder  anderen  klar  geworden,  daß  ihm  mit  so 
einem  Programm  eine  Menge  Arbeit  abgenommen  werden  kann. 
Insgesamt  kann  man  sagen,  daß  dieses  Programm  eine  gute  Er- 
gänzug  zu  der  GEOS-Reihe  darstellt,  aber  nicht  unbedingt  für 
jedermann  nötig  ist.  Hat  man  jedoch  eine  Menge  zu  tabellieren, 
ist  dieses  Programm  unerläßlich. 


1.8.7  FONT  PACK  1:  Zwanzig  Schriftarten  unter  GEOS 

Sollten  Sie  sich  nun  mit  BLACK  JACK  genügend  entspannt  ha- 
ben und  wieder  daran  denken,  die  Möglichkeiten  von 
GEOWRITE  zu  nutzen,  haben  die  Programmierer  von  Berkley 
Softworks  Ihnen  auch  hier  noch  einiges  anzubieten.  Bisher 
konnten  Sie  bei  GEOWRITE  (und  dementsprechend  natürlich 
auch  bei  GEOPAINT)  neben  BSW  noch  fünf  weitere  Schriftarten 
verwenden.  Mit  dem  neuen  FONT  PACK  1 werden  Ihnen  sage 
und  schreibe  gleich  zwanzig  neue  Möglichkeiten  zur  Verfügung 
gestellt.  Um  Ihnen  einen  ersten  Eindruck  zu  verschaffen,  de- 
monstrieren wir  Ihnen  auf  den  folgenden  beiden  Seiten  ein  paar 
von  ihnen.  Sie  können  dann  selbst  entscheiden,  welche  Schrift 
Ihnen  am  besten  gefällt. 
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Font  Knox  ist  sehr  gut  geeignet  für  Überschriften.  Channing 
wirkt  dagegen  etwas  gequetscht.  Boalt  ist  genauso  wuchtig  wie 
Font  Knox.  Bubble  erinnert  stark  an  Kaugummis!  Elmwood  ist 
sehr  "spinnenartig"  und  gibt  es  sogar  in  36  Punkten! 


1 qeoj  ; Datei  : 

dif  ! Upt  i Sch 

imift  ; .:>til  j 1 li:  |:^=|ie=1  i er.  i'.i. '■'! 



.__i .. .. . . 

IltE. 

|S|ij|[fiJfbJ[l|[Ü][M 

mykonos  wirkt 

CDr^TTiomcd  qiliD't  es  in  IE?  und 
F^Ljnkzt! 


liies  ist  Hormon  in  IO  Punkt. 

Hier  in  20  Punkt! 


Bild  1.8.7.2:  Neue  Schriftarten:  Stadium,  Mykonos,  Ormond,  Hormon 


Auch  Stadium  ist  für  Überschriften  sehr  gut  geeignet.  Es  erin- 
nert stark  an  Fahnen.  Mykonos  wirkt  dagegen  geheimnisvoll  und 
ist  wohl  gut  für  Ihren  nächsten  Horror-Roman  geeignet.  Ormond 
sieht  sehr  utopisch  aus.  Harmon  wirkt  im  Gegensatz  zu  Elmwood 
sehr  harmonisch. 

1.8.8  GEOPAINT 
Inhalt  der  Arbeitsdisketten 

Ihre  Arbeitsdiskette  sollte  folgende  Programme  enthalten.  So  ha- 
ben Sie  immer  alles,  was  sie  brauchen,  auf  einer  Diskette. 

Desktop 

Geowrite 

Geopaint 

Voreinstei lung 

Druckertreiber 

Schriftfonts  cory  ge 

Dwinel le  ge 
California  ge 
Roma  ge 
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Voreinstellung 

Bei  der  Arbeit  mit  GEOPAINT  ist  es  besonders  beim  punkt- 
genauen Zeichnen  ratsam,  die  Anfangsgeschwindkeit  des  Maus- 
pfeils zu  reduzieren,  da  man  sonst  ständig  am  gewünschten 
Punkt  vorbeifährt  und  sich  somit  unnötige  Arbeit  macht. 

Aber  man  kann  das  Programm  VOREINSTELLUNG  ja  auch  aus 
GEOPAINT  und  GEOWRITE  laden,  um  die  Einstellungen  zu 
korrigieren.  Nehmen  Sie  sich  ruhig  Zeit,  die  Uhr  und  das  Datum 
richtig  zu  stellen.  Denken  Sie  daran,  das  jede  Grafik  und  jeder 
Text  mit  den  eingestellten  Daten  gespeichert  werden.  Sie  haben 
hiermit  jederzeit  einen  Überblick,  was  Sie  wann  gemacht  haben. 

Visitenkarten 

Auch  hier  habe  ich  Ihnen  noch  einmal  die  einzelnen  Arbeits- 
schritte zur  Herstellung  einer  Visitenkarte  aufgeführt. 


► GEOPAINT-Icon  doppelklicken 

-►GEOPAINT  wird  geladen, 
Auswahlfenster  erscheint. 

► Option  NEUES  DOKUMENT 
ERSTELLEN  anwählen 
Name  'VISITENKARTE'  eingeben 
und  mit  < Return  > bestätigen 

-►Frage  nach  Dokumentname. 

-►GEOPAINT-Zeichenblatt  erscheint 
auf  dem  Bildschirm. 

► Werkzeug  leiste/Text  anwählen 

-►Hilfsmenü  Style  erscheint  unten  links. 

► Menüleiste/Schrlftarten/Roma/ 
24  Punkte  anwählen 

► Hilfsmenü/Fett  anwählen 
Den  Cursor  bis  fast  In  die 
obere  linke  Ecke  bewegen 
klicken 

-►Das  Textfenster  wird  aktiviert. 

► Textfenster  mit  dem  Joystick 
nach  rechts  unten  öffnen 
klicken 

Text  eingeben  "Manfred  Müller" 

-►Text-Cursor  erscheint  im  Textfenster. 

Einführung 


157 


► Werkzeugleiste/Unien  anwählen 

-»Hilfsmenü  ändert  sich  von 
Style  auf  MaSeinheiten. 

»-Cursoren.  1 cm  unter  das 
M von  Manfred  bewegen 
klicken 

-»Linienfunktion  wird  aktiv. 

* Waagerechte  Linie  mit  Joystick 
bis  an  den  rechten  Rand  ziehen 

»-  Werkzeugleiste  /T ext  anwählen 

► Monüleiste/Schrlftarten/ 
Roma/12  Punkte  anwählen 

»-  Hllfsmenü/Fett  anwählen 
Cursor  In  Blldausschnitt- 
mltte  bewegen 
klicken 

Das  Textfenster  wird  aktiviert. 

► Textfenster  mit  dem  Joystick 
nach  rechts  unten  öffnen 
klicken 

-»Text-Cursor  erscheint  im  Textfenster. 

► Text  eingeben 
"Mühlenstraße  13“ 

< Return  > drücken, 
um  einen  Zeilenvorschub 
durchzuführen  und  in  die 
nächste  Zeile  zu  gelangen 
Text  eingeben  "4000  Düsseldorf 
2 mal  < Return  > (Zeilenvorschub), 
damit  man  eine  Leerzeile  erhält 


»-Text  eingeben  Telefon  0211/654321" 


»-Werkzeug lei ste/Rahmen  anwählen  -»Hilfsmenü  ändert  sich  von 

Style  auf  Editiermodus. 


► Hllfsmenü/Kopleren  anwählen 
Cursor  knapp  links  Uber 
die  Linie  positionieren 
klicken 


Markierungsfunktion  wird  aktiv. 
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► Mit  dem  Joystick  den  Rahmen  so 
weit  öffnen,  bis  Linie  eng 
eingerahmt  ist 
klicken 

-►Markierung  ist  fixiert. 

»-Cursor  in  den  Rahmen  bewegen 
klicken 

-►Die  im  Hilfsmenü  gewählte  Funktion  ist 
aktiv,  der  Cursor  ist  hell  gefärbt. 

► MH  dem  Joystick  Cursor  zwischen 
Ort  und  Telefon  bewegen 
klicken 

-►Der  markierte  Rahmen  folgt  dem  Cursor. 
-►Die  kopierte  Linie  ist  fixiert. 

»Werkzeugleiste/Bleistift  anwählen 
Den  Bleistift  mit  dem  Joystick 
ganz  an  den  linken  Rand  setzen. 
(Es  muß  genau  sein,  da  aus  dem 
Bleistift  sonst  wieder  der 
Mauspfeil  wird.) 
klicken 

-►Der  Bleistift  wird  aktiv. 

► Bewegen  Sie  den  Stift  mit  Joystick 
ganz  nach  oben.  Wenn  der  Stift  Jetzt 
zum  Mauspfeil  wird,  ändert  es 
nichts  an  der  Funktion. 

Bewegen  Sie  den  inzwischen 
entstandenen  Mauspfeil  einmal 
um  das  ganze  Arbeitsblatt  herum. 
Der  Bildausschnitt  wird  damH 
komplett  eingerahmt 

»Werkzeugleiste/ 

Bewegungspfeile  anwähien 
Mit  dem  Joystick  den  Bildausschnitt 
so  weit  nach  rechts  verschieben, 
bis  der  Bildschirm  wieder  leer  ist 

»Werkzeugleiste/Text  anwählen 

► Menüleiste/Schriftarten/ 

LW  Cal/18  Punkte  anwählen 
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► HUfsmenü/Fett/Kurelv/ 

Kontur  anwählen 

klicken  -►Das  Textfenster  wird  aktiviert. 


►Textfenster  von  oben  links 
anfangend  Uber  ganze  Breite  öffnen 
kDcfcen 

Text  eingeben  'Manfred  Müller* 


-►Text-Cursor  erscheint  im  Textfenster. 
-►Zwischen  Vor-  und  Nachname 
3 Leerzeichen. 


► Werkzeugleiste /Text  anwählen 

► Menüleiste/Schriftarten/ 
LW  Cal/12  Punkte  anwählen 

► HUfsmenü/normal/Fett  anwählen 

-►Nach  dem  Anwählen  des  Punktes 
“Normal“  werden  alle  vorher  getroffenen 
Einstellungen  gelöscht. 

► Cursor  unter  das  M von 
Manfred  positionieren 
klicken 


-►Das  Textfenster  wird  aktiviert. 
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►Textfenster  Uber  die 
ganze  Breite  öffnen 
klicken 

-♦Text-Cursor  erscheint  im  Textfenster. 

►Text  eingeben 
"Versicherungen  aller  Art“ 

►Werkzeugleiste/Text  anwählen 

► Menüleiste/Schriftarten/ 

LW  Cal/12  Punkte  anwählen 

► Hilfsmenü/Fett/Kursiv  anwählen 
Cursor  In  die  Bildmitte  bewegen 
klicken 

-♦Das  Textfenster  wird  aktiviert. 

► Textfenster  bis  in  die 
rechte  untere  Ecke  öffnen 
klicken 

-♦Text-Cursor  erscheint  im  Textfenster. 

► Text  eingeben  "MühlenstraBe  13" 
< Return  > drücken  zum 
Zeilenvorschub 

Text  eingeben  "4000  Düsseldorf 
Zweimal  < Return  > drücken, 
um  eine  Leerzeile  zu  erhalten 


►Text  eingeben  "021 1/654321" 


► Werkzeugleiste/ 

Linien  anwählen 
Zwei  Unlen  ziehen  über 
und  unter  dem  Text 
VERSICHERUNGEN  ALLER  ART 


►Werkzeugleiste/Bleistift  anwählen 


► Menüleiste/Optionen/  -♦Einzelpunktrahmen  erscheint  oben 

Elnzelpunkt  anwählen  links  im  Bild. 


► Den  Rahmen  mit  dem  Joystick 
vor  die  Telefonnummer  bewegen, 
klicken 


-»'Der  Inhalt  des  Rahmens  wird  im 
Bildausschnittfenster  gezeigt. 
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► MM  dem  Stift  ein  Telefon  zeichnen  -»Hier  sind  der  eigenen 

Phantasie  keine  Grenzen  gesetzt. 


► Menüleiste/Optionen/ 

Normalmodus  anwählen  -»Bild  wird  wieder  in  Normalgröße  gezeigt 


► Werkzeug  leiste/ 

Bleistift  anwählen 

Den  Bleistift  mH  dem  Joystick 

an  den  linken  Rand  setzen. 

(Es  muß  genau  sein,  da  aus 
dem  Bleistift  sonst  wieder 
der  Mauspfeil  wird.) 

klicken  -»Der  Bleistift  wird  aktiv. 


►Bewegen  Sie  den  Stift  mH  dem 
Joystick  ganz  nach  oben. 
Wenn  der  Stift  jetzt  zum 
Mauspfeil  wird,  ändert  es 
nichts  an  der  Funktion. 
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► Bewegen  Sie  den  entstandenen 
MauspfeH  einmal  um  das  ganze 
Ar  bettsblatt  herum. 

Der  Blldausschnitt  wird 
damit  komplett  eingerahmt 


► Werkzeugleiste/ 
Bewegungspfeile  anwählen 
Bildausschnitt  ganz  nach  links 
verschieben,  bis  die  erste 
Karte  Im  Bild  Ist 
Bildausschnitt  nach  unten 
verschieben,  bis  der 
Bildausschnitt  ganz  frei  Ist 


►Werkzeugleiste/Text  anwählen 


► Menüleiste/Schriftarten/ 
Roma/24  Punkte 


► Hllfsmenü/Fett  anwählen 
Cursor  oben  links  postieren 

klicken  -"Das  Textfenster  wird  aktiviert. 


►Textfenster  von  oben  links 
über  die  ganze  Breite  öffnen 

klicken  -"Text-Cursor  erscheint  im  Textfenster. 

Text  eingeben  "Manfred  Müller" 


►Werkzeugleiste/Text  anwählen 


► Menüleiste/Schriftarten/ 
LW  Cal/10  Punkte 


► Hllfsmenü/Normal  anwählen 
Cursor  rechts  neben  das  Feld 
FARBE  der  Werkzeugleiste 
bewegen 
klicken 


-"Das  Textfenster  wird  aktiviert. 
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►Textfenster  In  waagerechter 
Verlängerung  des  FARBE-Feldes 
der  Werkzeug  leiste 
über  die  ganze  Breite  nach 
unten  rechts  öffnen 
kicken 

-►Text-Cursor  erscheint  im  Textfenster. 

►Text  eingeben: 
"Mühlenstrafle  13 
4000  Düsseldorf 
Tei.021 1/654321' 

►Werkzeugleiste/ Pinsel  anwählen 
MH  dem  Joystick  den  Pinsel 
unter  M des  Vornamens  bewegen 
klicken 

-►Pinselfunktion  ist  aktiv. 

►Waagerechte  Linie  nach 
rechts  ziehen 
Auf  beiden  Seiten  ca. 

2 Pinselbreiten  frei  lassen 
Eine  zweite  identische  Unle 
über  die  Adresse  ziehen 

►Werkzeugleiste/Text  anwählen 
Cursor  über  der  unteren  Unle 
In  Höhe  des  Wortes  Tel.  postieren 
klicken 

-►Das  Textfenster  wird  aktiviert. 

► Textfenster  nach  rechts  über  die 
ganze  Breite  und  nach  unten 
bis  knapp  Uber  die  Unle  öHnen 
klicken 

Text  eingeben  "Optische  Geräte“ 

-►Text-Cursor  erscheint  im  Textfenster. 

►Werkzeug  leiste /Kreis  anwählen 
Cursor  zwischen  die  beiden 
Union  bi  Höhe  des  Buchstabens 
A vom  Vornamen  positionieren 
klicken 


-*■  Kreisfunktion  ist  aktiv. 
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► Mit  dem  Joystick  den 
Kreis  nach  rechts 
öffnen,  bis  der  Kreis  fast 
an  die  Linien  stößt 
klicken 

-►Der  Kreis  ist  fixiert. 

► Den  Cursor  jetzt  bis  unter  den 
Buchstaben  N des  Vornamens 
wieder  nach  links  bewegen, 
klicken 

-►Kreisfunktion  ist  aktiv. 

► Mit  dem  Joystick  den  Kreis  nach 
rechts  öffnen,  bis  der  Kreis  fast 
an  den  äußeren  Kreis  stößt 
klicken 

-►Der  Kreis  ist  fixiert. 

►Cursor  zwischen  die  beiden  Linien 
In  Höhe  des  Leerzeichens  zwischen 
Vorname  und  Nachname 
positionieren 
klicken 

-►Kreisfunktion  ist  aktiv. 

► Mit  dem  Joystick  den  Kreis  nach 
links  öffnen,  bis  der  Kreis 
fast  an  die  Linien  stößt 
klicken 

-►Der  Kreis  ist  fixiert. 

► Den  Cursor  jetzt  bis  unter  den 
Buchstaben  D des  Vornamens 
wieder  nach  rechts  bewegen, 
klicken 

-►Kreisfunktion  ist  aktiv. 

► Mit  dem  Joystick  den  Kreis  nach 
links  öffnen,  bis  der  Kreis  fast  an 
den  äußeren  Kreis  stößt 
klicken 

-►Der  Kreis  ist  fixiert. 

► Werkzeugleiste/Bleistift  anwählen 
Den  Bleistift  mit  dem  Joystick 
ganz  an  den  linken  Rand  setzen. 
(Es  muß  genau  sein,  da  aus  dem 
Bleistift  sonst  der  Mauspfeil  wird.) 
klicken 


-►Der  Bleistift  wird  aktiv. 
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►Bewegen  Si«  den  Stift  mit  Joystick 
ganz  nach  oben.  Wenn  dor  Stift  jetzt 
zum  Mauspfeil  wird,  ändert  es 
nichts  an  der  Funktion. 

Bewegen  Sie  den  Inzwischen 
entstandenen  Mauspfeil  einmal 
um  das  ganze  Arbeitsblatt  herum. 
Der  Ndausschnltt  wird  damit 
komplett  eingerahmt 


► Werkzeugleiste/ 

Bewegungspfeile  anwählen 

Bildausschnitt  nach 

rechts  verschieben, 

bis  der  Bildausschnitt  ganz  frei  ist 


►Werkzeug  leiste /Text  anwählen 


► Menüleists/Schriftarten/ 
Cory/24  Punkte  anwählen 


► Hilfsmenü/Fett  anwählen 
Den  Cursor  bis  fast  In  die 
obere  linke  Ecke  bewegen 

klicken  -►  Das  T extfenster  wird  aktiviert. 


►Textfenster  mit  dem  Joystick 
nach  rechts  unten  öffnen 

klicken  -►Text-Cursor  erscheint  im  Textfenster. 

Text  eingeben  "Manfred  Müller" 


► Menüleiste/Schriftarten/ 
Cory/12  Punkte  anwählen 


► Hllfsmenü/Fett  anwählen 
Cursor  unter  das  M von 
Manfred  positionieren 

klicken  -►Das  Textfenster  wird  aktiviert. 


► Textfenster  Uber  ganze  Breite  öffnen 
klicken 

Text  eingeben 
“Gebrauchtwagenhandel" 


-►Text-Cursor  erscheint  im  Textfenster. 
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►Werkzeugleiste /Text  anwählen 

► Menüleiste/Schriftarten/ 
Cory/12  Punkte  anwählen 

► Hilfsmenü/Normal  anwählen 
Cursor  In  die  Bildmitte  bewegen 
klicken 

-»Das  Textfenster  wird  aktiviert. 

► Textfenster  bis  In  rechte 
untere  Ecke  öffnen 
klicken 

Text  eingeben  "Mühlenstraße  13" 
< Return  > drücken 
zum  Zeilenvorschub 
Text  eingeben  "4000  Düsseldorf 
Zweimal  < Return  > drücken, 
um  eine  Leerzeile  zu  erhalten 

-»Text-Cursor  erscheint  im  Textfenster. 

► Text  eingeben  "0211  /654321 " 

►Werkzeugleiste/Rechtecke  anwählen 
Cursor  links  über  Namen  bewegen 
klicken 

-»Rechteckfunktion  ist  aktiv. 

► Mit  dem  Joystick  das  Rechteck  bis 
rechts  unter  den  Namen  öffnen 
Klicken 

Das  gleiche  mR  den 
restlichen  Texten 

-»Rechteck  ist  fixiert. 

►Werkzeugleiste/Pinsel  anwählen 

► Menüleiste/Optionen/ 
Pinsel  wechseln 
Den  zweiten  Rechteckplnsel 
von  links  wählen. 

► Menüleiste/Optionen/ 
Einzelpunkt  anwählen 
MR  dem  Joystick  Auswahlfenster 

-»Jetzt  kann  Feinarbeit  gemacht  werden. 
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auf  die  erst®  Eck«  bewegen 

klicken  -Mm  Bildausschnittfenster  wird  der 

gewählte  Bereich  gezeigt. 
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Sollte  die  Ecke  bei  Ihnen  nicht  so  aussehen,  kann  sie  jetzt  nach- 
bearbeitet werden.  Hierzu: 


► Werkzeugleiste / Bleistift  anwählen 

-►Stift  ist  aktiv. 

►Werkzeug  leiste/ 
Bewegungspfeile  anwählen 
Mit  dem  Joystick  den 
Auswahlrahmen  zur  nächsten 
Ecke  oder  sonstigen  Stelle, 
welche  nachgebessert  werden 
muß,  bewegen 

-►Wenn  alles  nachgebessert  ist: 

► Menüleiste/Optionen/ 
Normalmodus  anwählen 

►Werkzeugleiste/Bleistift  anwählen 
Den  Bleistift  mit  dem  Joystick 
ganz  an  den  linken  Rand  setzen. 
(Es  muß  genau  sein,  da  aus  dem 
Bleistift  sonst  der  Mauspfeil  wird.) 
klicken 

-►Der  Bleistift  wird  aktiv. 

► Bewegen  Sie  den  Stift  mit  dem 
Joystick  ganz  nach  oben.  Wenn  der 
Stift  zum  Mauspfeil  wird, 
ändert  es  nichts  an  der  Funktion. 
Bewegen  Sie  den  entstandenen 
Mauspfeil  einmal  um  das  ganze 
Arbeitsblatt  herum.  Bildausschnitt 
wird  damit  komplett  eingerahmt 

►Werkzeugleiste/ 

Wasserhahn  anwählen 
Cursor  mit  dem  Joystick  auf  das 
Feld  mit  der  akuellen  Füllfarbe 
unten  links  bewegen, 
klicken 

-►Zur  Auswahl  stehende  Füllarben 
werden  angezeigt. 

► Durch  Anklicken  die  sechste  Farbe  von 
rechts  In  der  oberen  Reihe  wählen  -►Aktuelle  Füllfarbe  wird  angezeigt. 
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»-Den  Cursor  unten  links  Ins 
Bildausschnittfenster  bewegen 
klicken 

-»Das  Feld  wird  mit  gewählter  Farbe  gefüllt. 

► Werkzeugleiste/ 

Bewegungspfeile  anwählen 
Bildausschnittfenster  ganz  nach  links 
verschieben,  bis  die  vorherige  Karte 
wieder  Im  Fenster  Ist 
klicken 

-»Bewegungspfeile  werden  deaktiviert. 

> Werkzeugleiste/Rahmen  anwählen 

»-Werkzeugleiste/ 
Rahmen  doppelklicken 

-»Ganzer  Bildausschnitt  wird  gerahmt. 

► MenttMste/EdWeren/ 
Kopieren  anwählen 

-»Gerahmter  Bildausschnitt 
wird  zwischengespeichert. 

»-Werkzeug  leiste/ 

Bewegungspfeile  anwählen; 

BUdausschnltt  nach  unten 
bewegen,  bis  Fenster  ganz  frei  Ist. 

klicken  -»Bewegungspfeile  werden  deaktiviert. 


> Werkzeuglelste/Rahmen  anwählen 

»-Werkzeugleiste/ 
Rahmen  doppelklicken 

-»Ganzer  Bildausschnitt  wird  gerahmt. 

► Menüleiste/Editieren/ 
Einkleben  anwählen 

-»Der  eben  zwischengespeicherte 
Bildausschnitt  wird  in  das  markierte 
Feld  eingeklebt. 

►Werkzeuglelste/Rahmen  anwählen 

► Werkzeugleiste  / 
Rahmen  doppelklicken 

-»Ganzer  Bildausschnitt  wird  gerahmt. 

► Hilfsmenü/Invertieren  anwählen 

-»Der  gerahmte  Bereich  wird 
invertiert  dargestellt. 
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Hier  nun  noch  einige  Visitenkarten: 


Manfred  Müller 


Muhleustia&e  13 
4000  Düsseldorf 


Telefon  02111654321 


Versicherungen  aller  Art 

MüMenstraße  13 

4000  Düsseldorf 

0211/654321 

Manfred  Müller 


Optische  Geräte 


Mühtenstmße  1 5 4000Dü?.$e)dorf  Tel.  0211  »'B54321 


LShShh 

EebrauctitwageiiliatKiel 


Elühlenstraße  13 
4aaa  Düsseldorf 
Tel.  3311^554331  j 


Manfred  Müller 

■(  ■CiC  ■ ) : 

, Ophv:iie  Gei<?'e' 

'Muhlenstr.Mte,!  b 4UÜU  D« :-e J.a o t:  Tel.  021 1 ^S4?21 


Etiketten 

Sie  benötigen  sicher  manchmal  Etiketten  mit  Ihrem  Namen,  um 
z.B.  Bücher  zu  kennzeichnen,  welche  man  ab  und  zu  an  Freunde 
und  Bekannte  ausleiht.  Zu  diesem  Zweck  habe  ich  mir  mit 
GEOWRITE  Etiketten  erstellt.  Laden  Sie  dazu  als  erstes 
GEOWRITE.  Als  Dokumentname  tippen  Sie  ETIKETTEN  ein. 
Nachdem  das  Programm  geladen  ist,  haben  Sie  das  leere  Blatt 
auf  dem  Bildschirm.  Der  Cursor  steht  in  der  linken  oberen  Ecke. 
Wir  geben  hier  die  erste  Zeile  Text  ein. 

"Dieses  Buch  gehört  in  die  Bibliothek  von:11 
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Der  Text  wird  in  der  Schriftart  BSW  9 Punkt  geschrieben,  da 
diese  Schriftart  voreingestellt  ist.  Nachdem  wir  den  Cursor  durch 
Drücken  von  <Return>  in  die  nächste  Zeile  bewegt  haben,  wäh- 
len wir  nun  eine  größere  Schriftart  aus.  In  diesem  Beispiel  habe 
ich  CALIFORNIA  14  Punkt  gewählt.  Wir  geben  jetzt  unseren 
Namen  und  unsere  Adresse  ein.  Sie  können  selbstverständlich 
Ihren  eigenen  Namen  nehmen: 

"Max  Maier" 

"MühlerstraBe  23” 

"4000  Düsseldorf  1" 

"Telefon  0211/654321" 

Jetzt  müßte  es  auf  Ihrem  Bildschirm  eigentlich  so  aussehen,  na- 
türlich mit  Ihrem  Namen. 


Hü 

etiketten  ' ' |[ 

sa 

Dieses  Buch  gehör»,  in  die  Bibliothek  oori: 

liax  Maier 
Mühlenstraße  23 
4000  Düsseldorf  1 
Telefon  0211/654321 


Danach  geben  wir  in  die  nächsten  beiden  Zeilen  jeweils  einige 
Leerzeichen  ein,  welche  wir  auch  mit  <Return>  abschließen. 
Diese  Leerzeichen  (Leerzeilen)  können  wir  nutzen,  um  unseren 
Ausdruck  den  verwendeten  Etiketten  größenmäßig  anzupassen, 
da  wir  ja  kein  Etikettenmaß  eingeben  können,  sondern  wir  nur 
in  "Pixelmaß"  messen  können.  Um  den  Abstand  zwischen  den 
einzelnen  Adressen  jedoch  genau  einstellen  zu  können,  benötigen 
wir  noch  mindestens  eine  weitere  Adresse.  Selbstverständlich 
brauchen  wir  diese  jetzt  nicht  einzutippen,  sondern  nutzen  hier 
die  Möglichkeit,  Text  auszuschneiden  und  zwischenzuspeichern. 
Markieren  Sie  hierzu  bitte  den  gesamten  Text  incl.  der  beiden 
Leerzeilen,  und  wählen  Sie  unter  der  Option  EDIT  die  Funktion 
KOPIEREN. 
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Nachdem  der  markierte  Text  gespeichert  ist,  bewegen  Sie  den 
Cursor  unter  die  2.  Leerzeile  an  den  Zeilenanfang  und  wählen 
wiederum  unter  der  Option  EDIT  den  Punkt  EINKLEBEN  und 
dann  TEXT.  Sie  sehen,  der  eben  gespeicherte  Text  wird  von  der 
Cursor-Position  an  auf  den  Bildschirm  ausgegeben. 


wwwaawu 

1== 

l etiketten  -■  ^ ^ 

Hemusjchnekten  C=  X 

Text 

m 

m 

Diese;  Buch 

mmmmM 

Bild 

c=w 

Max  Ma 

Einkleben 

Mühlenstraße  23 
4000  Düsseldorf  1 
Telefon  0211/654321 


Damit  ist  der  Text  jedoch  nicht  verschwunden,  sondern  bleibt  so 
lange  zwischengespeichert,  bis  ein  neuer  Text  ausgeschnitten 
oder  kopiert  wird.  Bewegen  Sie  den  Cursor  also  nochmals  an  das 
Textende  unter  die  beiden  Leerzeilen,  und  wählen  Sie  TEXT 
EINKLEBEN.  Es  erscheint  wieder  die  gespeicherte  Adresse. 
Jetzt  sollten  Sie  den  ersten  Probeausdruck  machen.  Da  Etiketten 
einiges  mehr  kosten  als  normales  Papier,  machen  Sie  Ihre  Pro- 
beausdrucke ruhig  auf  Endlospapier  und  halten  es  neben  Ihre 
Etiketten,  um  zu  prüfen,  ob  die  Adressen  den  richtigen  Abstand 
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voneinander  haben.  Sollte  der  Abstand  nicht  korrekt  sein,  haben 
Sie  die  Möglichkeit,  diesen  zu  vergrößern  oder  zu  verkleinern, 
indem  Sie  die  Leerzeilen  markieren  und  eine  andere  Schriftart 
oder  -größe  wählen.  Sobald  der  Abstand  Ihren  Etiketten  ent- 
spricht, kleben  Sie  noch  so  viele  Etiketten  untereinander,  bis  die 
erste  Seite  voll  ist.  Sie  können  jetzt  Etiketten  für  all  Ihre  Bücher 
drucken.  Sie  können  den  Text  aber  auch  erst  mal  speichern,  und 
wann  immer  Sie  wollen,  direkt  vom  Desktop  aus  Ihre  Etiketten 
ausdrucken. 


Dieses  Buch  gehört  in  die  Bibliothek  von: 

Max  Maier 
Mühlenstraße  23 
4000  Düsseldorf  1 
Telefon  0211/654321 


Stadtplan 

Diese  Anwendung  wollte  ich  eigentlich  gar  nicht  mit  ins  Buch 
bringen,  da  hierfür  ein  derart  hoher  Zeitaufwand  notwendig 
ist,daß  es  viel  zu  lange  dauern  würde,  bis  man  alles  beschrieben 
hätte.  Um  Ihnen  jedoch  zu  zeigen,  was  mit  GEOPAINT  machbar 
ist,  werde  ich  wenigstens  kurz  meine  Vorgehensweise  zur  Er- 
stellung eines  - von  den  Proportionen  her  korrekt  gezeichneten  - 
Stadtplanausschnitts  schildern.  Gezeichnet  habe  ich  diesen  Aus- 
schnitt, als  wir  in  eine  neue  Wohnung  eingezogen  sind,  und  je- 
der, der  uns  besuchen  wollte,  nach  einer  genauen  Wegbeschrei- 
bung fragte.  Ich  habe  über  den  Originalplan  eine  dünne  Klar- 
sichtfolie gelegt  und  die  Umrisse  übernommen.  Diese  Folie  habe 
ich  dann  auf  den  Bildschirm  gelegt  (wenn  die  Folie  dünn  genug 
ist,  haftet  diese  sehr  gut)  und  erst  die  Umrisse  mit  GEOPAINT 
gezeichnet.  Die  Folie  habe  ich  mit  dem  Verschieben  des 
Bildausschnitts  identisch  mitverschoben.  Nachdem  die  Umrisse 
fertig  waren,  wurde  ein  Bildausschnitt  nach  dem  anderen  dem 
Originalplan  angepaßt. 
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Vieles  ließe  sich  nur  im  Einzelpunktmodus  erstellen. 


An  eine  freie  Stelle  habe  ich  dann  noch  eine  kleine  Wegbe- 
schreibung eingezeichnet. 
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Sicher  ist  das  Zeichnen  eines  Stadtplans  keine  typische  Anwen- 
dung für  dieses  Programm,  aber  es  erstaunt  mich  immer  wieder, 
wie  einfach  und  vielfältig,  wenn  auch  manchmal  zeitaufwendig 
die  Arbeit  mit  GEOPAINT  sein  kann. 


Was  man  mit  dem  C64  alles  machen  kann 
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2.  Was  man  mit  dem  C64  alles  machen  kann 


Mittlerweile  gibt  es  für  den  Commodore  64  ein  fast  unüber- 
schaubares Angebot  an  Software-  und  Hardware-Erweiterungen. 
Es  ist  schon  erstaunlich,  was  die  Programmierer  in  der  Zwi- 
schenzeit aus  dem  64’er  herausgeholt  haben.  Ein  gutes  Beispiel 
dafür  dürfte  die  Benutzeroberfläche  GEOS  sein. 

Natürlich  kann  man  von  einer  Commodore-64-Anlage  nicht  die 
Leistung  einer  mehrere  tausend  Mark  teuren  Personalcomputer- 
Anlage  erwarten.  Für  private  oder  semiprofessionelle  Anwen- 
dungen reicht  der  Commodore  64  in  der  Regel  aber  allemal  aus. 
Man  benötigt  eben  nur  die  richtige  Software.  Da  die  Software- 
Preise  im  64’er-Bereich  in  der  Zwischenzeit  ein  - zumindest  für 
den  Anwender  - erfreulich  niedriges  Niveau  erreicht  haben, 
dürfte  es  Ihnen  nicht  schwerfallen,  Ihre  individuelle  Software- 
Sammlung  zusammenzustellen.  Während  man  im  PC-Bereich 
beispielsweise  für  eine  Textverarbeitung,  die  wirklich  allen  An- 
forderungen gerecht  wird,  deutlich  über  tausend  Mark  hinblät- 
tern muß,  gibt  es  gute  Textverarbeitungen  für  den  Commodore 
64  schon  für  unter  100  Mark. 

Was  erwartet  Sie  nun  in  diesem  Kapitel?  Wie  die  Überschrift 
schon  erkennen  läßt,  möchte  ich  Ihnen  im  folgenden  zeigen,  was 
man  mit  dem  64’er  - außer  ihn  selbst  zu  programmieren  - alles 
anfangen  kann.  Neben  ernsthaften  Anwendungen,  wie  Daten- 
und  Textverarbeitung,  kommt  dabei  natürlich  auch  das  Spielen 
nicht  zu  kurz. 

Ich  möchte  Ihnen  hier  allerdings  keine  kompletten  Marktüber- 
sichten oder  eine  umfangreiche  Sammlung  von  Testberichten 
präsentieren.  Beide  wären  schon  kurz  nach  Erscheinen  dieses 
Buches  überholt  und  veraltet.  Was  ich  vielmehr  möchte,  ist  es, 
Ihnen  zu  erklären,  über  welche  grundsätzlichen  Eigenschaften 
aber  auch  Unterschiede  die  verschiedenen  Soft-  und  Hardware- 
Produkte  verfügen. 
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Worin  liegt  beispielsweise  der  Unterschied  zwischen  einer  ein- 
fachen Textverarbeitung  und  einem  Desktop-Publishing-Pro- 
gramm?  Sollte  man  seine  Daten  lieber  mit  einer  Dateiverwaltung 
oder  doch  gleich  mit  Hilfe  einer  Datenbank  verwalten?  Welche 
Arten  von  Spiele-Software  gibt  es  für  den  Commodore  64? 
Lohnt  es  sich,  den  Commodore  64  als  Lernhilfe  einzusetzen?  All 
das  sind  Fragen,  die  ich  Ihnen  in  diesem  Kapitel  beantworten 
möchte. 

Natürlich  stelle  ich  Ihnen  dazu  auch  konkrete  Produkte  vor. 
Schließlich  soll  das  Ganze  ja  nicht  in  graue  Theorie  ausarten. 
Alle  vorgestellten  Programme  und  Hardwareerweiterungen  sind 
im  Fachhandel  oder  direkt  beim  Hersteller  erhältlich.  Ein  An- 
bieterverzeichnis finden  Sie  im  Anhang. 

Bevor  wir  mit  unserem  Streifzug  durch  das  Produktangebot  für 
den  Commodore  64  beginnen,  noch  ein  ernstes  Wort:  Wer  unter 
zum  Teil  erheblichen  Arbeitsaufwand  Software  für  den  64’er 
entwickelt,  hat  auch  ein  berechtigtes  Interesse  daran,  durch  den 
Verkauf  dieser  Software  etwas  zu  verdienen.  Im  Gegensatz  zu 
sogenannten  Public-Domain-Programmen,  die  frei  kopiert  wer- 
den dürfen,  sollte  man  kommerzielle  Software  daher  - schon  in 
seinem  eigenen  Interesse  - unbedingt  kaufen  und  nicht  raubko- 
pieren. 


2.1  Textverarbeitung 

Beginnen  wir  mit  der  wohl  häufigsten  Computeranwendung,  zu- 
mindest im  professionellen  Bereich:  der  Textverarbeitung.  Egal, 
ob  es  sich  nur  um  einen  kurzen  Brief  oder  ein  komplettes  Buch 
handelt,  mit  einem  Computer  läßt  sich  jede  Art  von  Text 
"verarbeiten".  Wie  komfortabel  und  in  welcher  Qualität,  das 
hängt  in  erster  Linie  von  dem  verwendeten  Textverarbeitungs- 
programm ab.  Mindestens  genau  so  wichtig  ist  aber  ein  guter 
Drucker.  Während  man  bei  Schreibmaschinen  schon  für  viel- 
leicht 300  bis  400  Mark  eine  brauchbare  Druckqualität  erhält, 
muß  man  bei  Computerdruckern  schon  knapp  800  Mark  anlegen, 
um  einen  Drucker  mit  "Korrespondenz-Qualität",  auch  NLQ 
(Near  Letter  Quality)-  oder  LQ-Qualität  genannt,  zu  bekommen. 
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Eine  nicht  zu  unterschätzende  Investition!  Denn  das  beste  Text- 
verarbeitungsprogramm nützt  Ihnen  nichts,  wenn  die  Texte  dann 
in  miserabler  Qualität  aus  dem  Drucker  kommen.  Dies  gilt  na- 
türlich insbesondere  dann,  wenn  Sie  die  Texte,  beispielsweise 
Briefe,  an  andere  weitergeben  wollen. 

Manch  einer,  der  bisher  häufig  mit  der  Schreibmaschine  gear- 
beitet hat  und  damit  auch  ganz  gut  zurecht  gekommen  ist,  wird 
sich  nun  vielleicht  fragen,  ob  es  sich  überhaupt  lohnt,  auf  den 
Commodore  64  als  neue  "Schreibmaschine"  umzusteigen.  Worin 
liegen  die  Vorteile  einer  Textverarbeitung  mit  dem  Computer? 

Als  vielleicht  wichtigstes  Stichwort  möchte  ich  nur  nennen: 
Tippfehler!  Auch  wer  das  Schreibmaschinenschreiben  perfekt 
beherrscht,  wird  sich  mitunter  vertippen  und  ist  dann  oft  ge- 
zwungen, eine  komplette  Seite  neu  zu  schreiben.  Und  wem  ist  es 
nicht  schon  passiert,  daß  ein  Brieftext  unbedingt  auf  eine  DIN- 
A-4-Seite  passen  sollte,  und  beim  Schreiben  des  letzten  Absatzes 
stellt  man  dann  fest,  daß  es  doch  nicht  ganz  reicht.  Auch  hier 
hilft  meist  nur  ein  komplettes  Neutippen  des  Textes. 

Bei  der  Textverarbeitung  mit  dem  Computer  ist  das  grundsätz- 
lich anders.  Wenn  Sie  mit  dem  Commodore  64  und  einem  Text- 
verarbeitungsprogramm einen  Text  schreiben,  dann  wird  dieser 
zunächst  nur  im  internen  Speicher  des  Rechners  abgelegt  und 
jeweils  ein  Ausschnitt  davon  am  Bildschirm  angezeigt.  Während 
sich  der  Text  im  Rechner  befindet,  können  Sie  ihn  beliebig 
verändern,  also  zum  Beispiel  Tippfehler  korrigieren,  etwas  er- 
gänzen aber  auch  ganze  Absätze  vertauschen. 

Erst,  wenn  der  Text  genauso  ausschaut,  wie  Sie  ihn  haben  woll- 
ten, bringen  Sie  ihn  zu  Papier.  Und  wenn  Sie  dann  auf  dem 
Ausdruck  noch  einen  Fehler  entdecken  sollten,  macht  das  natür- 
lich überhaupt  nichts.  Schließlich  haben  Sie  den  Text  ja  noch  im 
Rechner  und  können  ihn  nach  Durchführung  der  Korrekturen 
jederzeit  noch  einmal  ausdrucken. 

Das  Ausdrucken  mit  dem  Drucker  ist  aber  nicht  die  einzige 
Möglichkeit,  einen  Text  dauerhaft  zu  "speichern".  (Der  Text  im 
Rechnerspeicher  geht  ja  nach  dem  Ausschalten  des  Rechners 
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verloren!)  Zusätzlich  können  Sie  den  Text  auch  noch  auf  einer 
Kassette  (wenn  Sie  über  eine  Datasette  verfügen)  oder  besser  auf 
einer  Diskette  (falls  Sie  eine  Floppy  Ihr  eigen  nennen)  abspei- 
chern. Das  ist  besonders  dann  hilfreich,  wenn  Sie  einen  Text, 
etwa  eine  Stellenbewerbung,  mehrfach  verwenden  möchten. 
Aber  auch  bei  längeren,  nur  einmal  benötigten  Texten  ist  es  sehr 
empfehlenswert,  diese  zwischendurch  immer  wieder  einmal  ab- 
zuspeichern, um  einem  plötzlichen  Stromausfall  zu  begegnen. 

Um  mit  dem  Commodore  64  sinnvoll  Textverarbeitung  betreiben 
zu  können,  benötigt  man  also  neben  einem  guten  Drucker  auch 
ein  dauerhaftes  Speichermedium,  am  besten  ein  Diskettenlauf- 
werk. Eine  Datasette  ist  nur  sehr  bedingt  zu  empfehlen.  Allein 
schon  deshalb,  weil  die  meisten  Textverarbeitungsprogramme 
nur  auf  Diskette  ausgeliefert  werden! 

Und  damit  wären  wir  auch  schon  beim  wichtigsten:  dem 
Textverarbeitungsprogramm.  Welches  Textverarbeitungspro- 
gramm für  Sie  am  besten  geeignet  ist,  hängt  in  erster  Linie  da- 
von ab,  welche  Art  von  Texten  Sie  verarbeiten  wollen.  Soll  es 
beispielsweise  nur  gelegentlich  ein  kurzer  Brief  sein,  oder  wollen 
Sie  auch  größere  Dokumente,  etwa  Referate,  mit  dem  Computer 
verarbeiten?  Vielleicht  haben  Sie  ja  auch  regelmäßig  größere 
Mengen  an  sogenannten  Serienbriefen,  etwa  zur  Vereins  Verwal- 
tung, zu  verarbeiten.  Auch  dafür  gibt  es  bei  den  meisten  Pro- 
grammen eine  spezielle  Funktion,  die  sogenannte  "Mail-Merge- 
Funktion".  Mehr  dazu  etwas  weiter  unten. 

Aus  dem  Meer  an  Textverarbeitungen  möchte  ich  drei  Pro- 
gramme herausgreifen  und  Ihnen  an  diesen  ausschnittsweise  zei- 
gen, über  welche  Fähigkeiten  eine  gute  Textverarbeitung  verfü- 
gen sollte:  Vizawrite,  Textomat  Plus  und  GEOWRITE. 

Vizawrite  und  Textomat  Plus  kosten  jeweils  unter  100,-  Mark, 
GEOWRITE  ist  in  Ihrem  GEOS-Paket  enthalten.  GEOS  2.0  ent- 
hält allerdings  eine  wesentlich  verbesserte  Version  von 
GEOWRITE. 

Die  drei  Programme  verfolgen  jeweils  recht  unterschiedliche 
Konzeptionen,  was  den  Programmablauf  betrifft.  Das  fängt 
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schon  bei  der  Bedienung  an.  Während  man  sich  bei  Vizawrite 
relativ  viele  Kommandos  auswendig  merken  muß,  da  das  Pro- 
gramm über  keine  Menüsteuerung  verfügt,  läßt  sich  Textomat 
Plus  sehr  komfortabel  über  Menüs  bedienen,  wenn  auch  nicht 
über  sogenannte  Pulldown-Menüs,  wie  bei  GEOS.  GEOWRITE 
ist  natürlich  voll  in  das  GEOS-Bedienungskonzept  integriert  und 
bietet  damit  den  größtmöglichen  Bedienungskomfort. 

Ein  ganz  wichtiger  Punkt  bei  der  Textverarbeitung  ist  die  Dar- 
stellung des  eingegebenen  Textes  am  Bildschirm.  Dabei  haben 
alle  Programme  mit  einem  Handikap  in  der  Bildschirmdarstel- 
lung des  Commodore  64  zu  kämpfen:  Wie  Sie  in  der  Zwischen- 
zeit sicher  schon  bemerkt  haben,  kann  der  Commodore  64  in  ei- 
ner Bildschirmzeile  nur  40  Zeichen  darstellen,  eine  Textzeile  in 
einem  Brief  hat  aber  in  der  Regel  eine  Länge  von  80  Zeichen! 
Die  meisten  Textverarbeitungsprogramme  behelfen  sich  hier  mit 
einem  horizontalen  Hin-  und  Herschieben  des  Textes,  d.h.,  so- 
bald Sie  über  die  40.  Spalte  hinausschreiben,  wird  der  gesamte 
am  Bildschirm  sichtbare  Text  um  mehrere  Spalten  nach  links 
"gescrollt",  wie  der  Fachmann  sagt.  Beginnt  man  dann  eine  neue 
Zeile,  so  wird  der  Text  wieder  nach  rechts  gescrollt. 

Dieses  ständige  Hin-  und  Herschieben  wirkt  sich  natürlich  auf 
die  Eingabegeschwindigkeit  aus.  Besonders  bei  GEOWRITE,  das 
ja  ohnehin  nicht  gerade  schnell  ist,  macht  sich  das  deutlich  be- 
merkbar. 

Ein  weiterer  Nachteil:  Man  kann  sich  nur  schwer  einen  Über- 
blick über  den  Gesamttext  verschaffen.  Einige  Programme,  bei- 
spielsweise Textomat  Plus,  bieten  deshalb  eine  spezielle  Über- 
sichtsfunktion, bei  der  der  Text  dann,  in  80-Zeichen-Darstel- 
lung  verkleinert,  aber  noch  gut  lesbar  dargestellt  wird.  Neben 
diesem  grundsätzlichen  Problem  kann  man  zwei  Arten  der  Bild- 
schirmdarstellung unterscheiden: 

Eine  Gruppe  von  Textverarbeitungsprogrammen  versucht,  den 
Text  am  Bildschirm  möglichst  so  darzustellen,  wie  er  später  auf 
dem  Papier  aussieht.  In  diesem  Fall  spricht  man  von 
"WYSIWYG".  Diese  merkwürdige  Abkürzung  steht  für  "What 
You  See  Is  What  You  Get",  also  etwa  "Was  Du  (am  Bildschirm) 
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siehst,  erhälst  Du  (auf  dem  Papier)".  Das  beste  Beispiel  für  diese 
Darstellungsart  ist  GEOWRITE.  Selbst  aufwendige  Schriftarten, 
wie  etwa  kursiv  oder  outline,  werden  direkt  auf  dem  Bildschirm 
dargestellt. 

So  etwas  kostet  natürlich  Zeit.  Andere  Textverarbeitungspro- 
gramme begnügen  sich  deshalb  mit  einer  relativ  schlichten  Bild- 
schirmdarstellung und  stellen  bestimmte  Formatierungen  des 
Textes  durch  spezielle  "Steuerzeichen"  dar.  Besonders  wichtige 
Formatierungen,  wie  etwa  die  Zahl  der  Zeichen  je  Zeile  oder 
die  Anzahl  der  Zeilen  je  Seite,  aber  auch  bestimmte  Schriftarten, 
wie  etwa  Blocksatz  oder  Proportionalschrift,  lassen  sich  zudem  in 
der  Regel  zentral  in  einem  Art  "Formular"  einstellen.  Das  hat 
den  großen  Vorteil,  daß  man  die  Formatierungen  nicht  nur 
blitzschnell  ändern,  sondern  auch  für  mehrere  Texte  verwenden 
kann.  So  läßt  sich  beispielsweise  sehr  leicht  ein  Formular  für 
Standardbriefe  erstellen,  zu  dem  man  dann  jeweils  nur  noch  den 
reinen  Brieftext  hinzufügen  muß. 

Welche  Art  der  Darstellung  man  bevorzugt,  ist  letztendlich  Ge- 
schmackssache. Entscheidend  ist  ja  nachher,  wie  der  Text 
"Schwarz  auf  Weiß"  gedruckt  aussieht.  Und  das  hängt  entschei- 
dend von  der  Qualität  des  Druckers  ab.  Welche  Möglichkeiten 
hat  man  nun,  den  Text  im  Rechner  zu  bearbeiten? 

Nachdem  man  die  gewünschte  Textbreite,  d.h.  die  Anzahl  der 
Zeichen  je  Zeile,  und  evtl,  noch  andere  Werte  eingestellt  hat, 
kann  man  den  Text  eingeben.  Bereits  eingegebener  Text  läßt 
sich  beliebig  korrigieren  und  erweitern.  Mit  Hilfe  des  Cursors 
kann  man  an  jede  beliebige  Stelle  des  Textes  fahren,  um  dort 
etwas  zu  ändern. 

Paßt  am  Ende  einer  Zeile  ein  angefangenes  Wort  nicht  mehr 
ganz  in  die  Zeile,  so  wird  es  automatisch  ganz  in  die  nächste 
Zeile  "hinübergezogen".  Diese  nützliche  Funktion  nennt  man 
"Word-Wrapping",  Manche  Programme  bieten  außerdem  eine 
automatische  Trennhilfe  an,  d.h.,  ein  Wort,  das  nicht  mehr  ganz 
in  eine  Zeile  paßt,  wird  automatisch  getrennt.  Wegen  der  kom- 
plizierten deutschen  Grammatikregeln  klappt  das  aber  nicht  im- 
mer korrekt. 
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Zum  Standard  jeder  Textverarbeitung  gehören  mittlerweile  auch 
Funktionen  zum  Löschen,  Kopieren  und  Verschieben  größerer 
Textblöcke.  Damit  kann  man  dann  beispielsweise  einen  kom- 
pletten Textabsatz  blitzschnell  an  eine  andere  Stelle  des  Textes 
verschieben  oder  mehrfach  vorkommende  Formulierungen  nur 
einmal  schreiben  und  dann  kopieren. 

Insbesondere  bei  längeren  Texten  sind  auch  Such-  und  Ersetz- 
funktionen sehr  hilfreich.  Stellt  man  zum  Beispiel  am  Ende  eines 
Textes  fest,  daß  man  den  Namen  einer  Person,  den  man  viel- 
leicht 20  bis  30  Mal  im  Text  verwendet  hat,  falsch  geschrieben 
hat,  so  wäre  es  sehr  mühsam,  selbst  auf  die  Suche  zu  gehen. 
Diese  Arbeit  kann  man  sich  von  der  Textverarbeitung  abnehmen 
lassen!  Man  ruft  einfach  die  Such-  und  Ersetzfunktion  auf  und 
gibt  den  Suchbegriff  (in  diesem  Fall  den  falsch  geschriebenen 
Namen)  und  den  Ersatzbegriff  (den  richtig  geschriebenen  Na- 
men) an.  Alles  weitere  erledigt  das  Programm. 

Möchte  man  seinem  Text  ein  professionelles  Aussehen  verleihen, 
so  ist  die  richtige  Formatierung  sehr  wichtig.  Im  einfachsten  Fall 
wird  der  Text  im  sogenannten  "Flattersatz"  gedruckt,  d.h.  mit  ei- 
nem ungleichmäßigen  rechten  Rand  wie  bei  der  Schreibma- 
schine. 

Beim  sogenannten  "Blocksatz"  hat  man  einen  ausgeglichenen 
rechten  Rand.  Die  Leerräume  zwischen  den  einzelnen  Wörtern 
einer  Zeile  werden  dazu  von  der  Textverarbeitung  mit  zusätzli- 
chen Leerzeichen  aufgefüllt. 

Das  beste  Schriftbild  ergibt  sich  in  Kombination  mit  der  Pro- 
portionalschrift, wie  sie  auch  manche  moderne  Schreibmaschinen 
bieten.  Bei  der  Proportionalschrift  werden  die  einzelnen  Zeichen 
in  unterschiedlichen  Abständen  gedruckt.  Ein  w beispielsweise 
ist  ja  wesentlich  breiter  als  etwa  ein  i.  Druckt  man  etwa  das 
Wort  wir  in  Normalschrift,  so  hat  man  zwischen  dem  w und  dem 
i einen  relativ  großen  Abstand.  In  Proportionalschrift  wird  das  i 
daher  dichter  neben  das  w gesetzt;  man  erhält  ein  ausgegli- 
cheneres Schriftbild. 
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Bei  einer  Schreibmaschine  hat  man  in  der  Regel  nur  zwei  Mög- 
lichkeiten, Text  besonders  hervorzuheben:  Unterstreichen  und 
Fettdruck.  Ein  moderner  Matrixdrucker  hat  da  schon  wesentlich 
mehr  zu  bieten.  Gehen  wir  die  einzelnen  Möglichkeiten  einmal 
der  Reihe  nach  durch: 

Kursivschrift 

Der  Text  wird  schräggestellt  gedruckt. 

Fettdruck  oder  Doppeldruck 

Der  Text  wird  durch  zweimaliges  Drucken  fett  dargestellt. 

Breitschrift 

Der  Text  wird  doppelt  breit  gedruckt,  d.h.,  jedes  Zeichen  hat 
die  doppelte  Breite  wie  in  Normalschrift. 

Elite-  und  Pica-Schrift 

Bei  diesen  beiden  Schriftarten  werden  die  Zeichen  kleiner  ge- 
druckt, dadurch  passen  mehr  Zeichen  in  eine  Zeile.  Sehr 
hilfreich  beispielsweise  beim  Ausdrucken  von  Tabellen. 

Vergrößerte  Schrift  oder  doppelt  hoher  Druck 

Der  Text  wird  über  die  Höhe  von  zwei  normalen  Zeilen  ge- 
druckt. Interessant  zum  Beispiel  bei  Überschriften. 

Reverser  Druck 

Der  Text  wird  in  Negativschrift,  d.h.  mit  schwarzem  Hinter- 
grund gedruckt. 

Sub-undSuPerscriPt 

Mit  Subscript  bezeichnet  man  das  Tiefstellen  von  Zeichen,  mit 
Superscript  das  Hochstellen.  Diese  beiden  Schriftarten  eignen 
sich  gut  zum  Ausdrucken  von  wissenschaftlichen  Formeln. 
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Unterstreichfunktion 

Der  Text  wird  unterstrichen. 

NLQ-Schrift  oder  Korrespondenzdruck 

NLQ  steht  für  "Near  Letter  Quality",  also  "Fast-Briefqualität".  In 
Normalschrift  sieht  man  bei  einem  Matrixdrucker  deutlich,  daß 
die  Zeichen  aus  einzelnen  Punkten  zusammengesetzt  sind.  Das 
Schriftbild  ist  deshalb  nicht  besonders  gut.  In  NLQ-Schrift  wird 
jede  Zeile  zweimal  gedruckt,  das  zweite  Mal  jedoch  leicht  ver- 
setzt zum  ersten  Mal.  Dadurch  wird  der  Zwischenraum  zwischen 
den  Punkten  weitestgehend  ausgefüllt.  Das  Schriftbild  erreicht 
fast  die  Qualität  einer  Schreibmaschine. 

Manche  Schriftvariationen  können  auch  gemischt  genutzt  wer- 
den, etwa  Kursivschrift  und  Fettdruck. 

Natürlich  muß  die  Textverarbeitung  dem  Drucker  irgendwie 
mitteilen,  auf  welche  Art  und  Weise  er  den  Text  drucken  soll. 
Dazu  gibt  es  spezielle  Steuersequenzen.  Leider  gibt  es  fast  so 
viele  Steuersequenzen  für  die  einzelnen  Druckerfunktionen  wie 
es  verschiedene  Druckerfabrikate  gibt.  Ein  Standard,  der  sich 
halbwegs  durchgesetzt  hat,  ist  der  ESC/P-Standard  des  japani- 
schen Druckerherstellers  EPSON.  Wenn  Ihr  Drucker  also  "EP- 
SON-kompatibel"  ist,  d.h.  die  EPSON-Druckerbefehle  "versteht", 
können  Sie  einigermaßen  sicher  sein,  daß  Ihre  Textverarbeitung 
mit  dem  Drucker  problemlos  zusammenarbeitet.  Für  alle  Fälle 
verfügen  die  meisten  Textverarbeitungsprogramme  über  eine 
spezielle  Druckeranpassungsfunktion,  mit  der  man  notfalls  die 
erforderlichen  Änderungen  und  Ergänzungen  selbst  durchführen 
kann. 

Der  Textspeicher  innerhalb  des  Commodore  64  ist  natürlich 
nicht  unbegrenzt.  Er  schwankt  bei  den  einzelnen  Programmen 
zwischen  17000  und  34000  Zeichen.  Das  ist  nicht  besonders  viel. 
Die  meisten  Textverarbeitungsprogramme  bieten  deshalb  die 
Möglichkeit,  mehrere  Textdateien  als  einen  zusammenhängenden 
Text  aufzufassen.  Mit  dieser  Methode  kann  man  praktisch  belie- 
big lange  Texte  bearbeiten.  Beim  Drucken  wird  dann  zunächst 
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die  eine  Datei  geladen  und  gedruckt  und  anschließend  automa- 
tisch die  nächste  Textdatei  geholt.  Die  Formatanweisungen  in- 
nerhalb der  ersten  Textdatei  gelten  dann  für  den  gesamten  Text, 
so  daß  beispielsweise  auch  eine  Seitennummerierung  korrekt 
funktioniert. 

Nachdem  wir  nun  die  Standardfunktionen,  über  die  jede  gute 
Textverarbeitung  verfügen  sollte,  abgehakt  haben,  möchte  ich 
noch  auf  einige  spezielle  Funktionen  eingehen,  über  die  nicht 
alle  Programme  verfügen. 

Wer  häufig  mit  Floskeln,  wie  "Sehr  geehrte",  oder  "Mit  freund- 
lichen Grüßen"  und  ähnlichem,  hantieren  muß,  wird  sogenannte 
"Floskeltasten"  begrüßen,  wie  sie  zum  Beispiel  Textomat  Plus 
bietet.  Auf  jede  der  insgesamt  acht  Floskeltasten,  läßt  sich  ein 
beliebiger  Text  legen,  der  dann  durch  einen  entsprechenden  Ta- 
stendruck in  den  Text  eingefügt  wird. 

Manche  Programme  bieten  auch  recht  umfangreiche  Dienstfunk- 
tionen zur  Diskettenverwaltung  an,  etwa  zum  Löschen  oder  Um- 
benennen von  Dateien  oder  zum  Formatieren  von  Disketten.  Das 
mag  zwar  vielleicht  recht  unscheinbar  klingen,  kann  aber  sehr 
wichtig  sein,  wenn  Sie  beispielsweise  einen  langen  Text  eingege- 
ben haben  und  dann  feststellen,  daß  Sie  nur  noch  leere,  unfor- 
matierte Disketten  zum  Speichern  haben.  Wenn  die  Textverar- 
beitung jetzt  keine  Funktion  zur  Diskettenformatierung  anbietet, 
sieht  es  mit  Ihrem  Text  sehr  schlecht  aus! 

Eine  überaus  nützliche  Funktion  vieler  Textverarbeitungspro- 
gramme ist  die  sogenannte  Serienbrief-Funktion,  oft  auch  Mail- 
merge-Funktion  genannt. 

Nehmen  wir  einmal  an,  Sie  möchten  für  einen  Verein  von  viel- 
leicht 50  Mitgliedern  ein  Rundschreiben  verfassen,  in  dem  die 
einzelnen  Mitglieder  zu  einer  Versammlung  eingeladen  werden 
sollen.  Da  das  Ganze  ja  nicht  zu  unpersönlich  werden  soll,  soll 
jedes  Mitglied  im  Briefkopf  und  in  der  Anrede  persönlich  an- 
gesprochen werden. 
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Das  einzige,  worin  sich  die  einzelnen  Briefe  unterscheiden,  sind 
also  die  Anschrift  und  die  Anrede  "Sehr  geehrte  Hat  man 
nur  eine  Schreibmaschine  zur  Verfügung,  dann  schreibt  man  den 
Brief  eben  einmal,  läßt  dabei  die  Anschrift  und  die  Anrede  frei, 
kopiert  das  Ganze  anschließend  SO  Mal  und  fügt  dann  die  ein- 
zelnen Adressen  ein.  Das  macht  nicht  nur  eine  Menge  Arbeit, 
man  sieht  den  Briefen  auch  deutlich  an,  wie  sie  erstellt  wurden. 
Wie  geht  man  nun  bei  einer  Textverarbeitung  vor? 

Zunächst  erstellen  Sie  wie  gewohnt  den  Brief text.  Überall  da,  wo 
später  etwas  eingefügt  werden  soll  (etwa  die  Anschrift),  setzen 
Sie  einen  speziellen  "Platzhalter"  ein,  den  die  Textverarbeitung 
dann  später  gegen  den  tatsächlichen  Text  austauscht.  Das  könnte 
zum  Beispiel  so  aussehen: 


Abs.:  

Herrn/Frau 

# 

# 

# 

Liebe#  ! 

Brief text  


Das  erste  "#"  steht  in  diesem  Fall  für  den  Vor-  und  Zunamen, 
das  zweite  für  die  Straße,  das  dritte  für  den  Ort  und  das  letzte 
für  die  Anrede. 

Was  Sie  jetzt  noch  benötigen,  sind  die  einzufügenden  Texte.  Im 
einfachsten  Fall  entnehmen  Sie  diese  aus  einer  Dateiverwaltung, 
in  der  die  Adressen  der  einzelnen  Mitglieder  gespeichert  sind. 

Sie  können  die  Datenliste  aber  auch  mit  der  Textverarbeitung 
erstellen.  Dabei  müssen  Sie  nur  darauf  achten,  daß  die  einzelnen 
Daten  voneinander  getrennt  sind,  damit  das  Programm  weiß,  wo 
der  eine  Datensatz  aufhört  und  der  nächste  beginnt.  Für  das 
Einladungsschreiben  könnte  das  beispielsweise  so  aussehen: 


188 


Das  große  Commodore  64-Buch 


Klaus  Müller 
Irgendwostr.  1 
1000  Irgendingen  1 
r Klaus 
Else  Maier 
Irgendwostr.  2 
2000  Irgendingen  2 
Else 


Diese  Liste  läßt  sich  natürlich  beliebig  fortschreiben.  Sind  alle 
Daten  eingegeben,  dann  speichern  Sie  die  Liste  auf  Diskette. 
Wenn  Sie  nun  das  Rundschreiben  drucken  möchten,  müssen  Sie 
der  Textverarbeitung  nur  noch  mitteilen,  wo  sie  sich  die  einzu- 
fügenden Daten  herholen  soll.  Die  Serienbrief-Funktion  holt  sich 
jetzt  den  ersten  Datensatz,  fügt  die  Daten  an  den  entsprechenden 
Stellen  in  den  Text  ein,  druckt  den  Text,  holt  sich  anschließend 
den  zweiten  Datensatz,  usw... 

Das  eben  geschilderte  Verfahren  stellt  die  einfachste  Möglichkeit 
dar,  einen  Serienbrief  zu  erstellen.  Die  Serienbrief-Funktionen 
einiger  Textverarbeitungen  bieten  aber  noch  wesentlich  mehr. 
Ein  gutes  Beispiel  dafür  ist  das  in  GEOS  2.0  enthaltene  GEO- 
MERGE  in  Verbindung  mit  GEOWRITE. 

Anstelle  eines  einfachen  Platzhalters  kann  man  mit  GEOMERGE 
auch  sogenannte  "Label"  verwenden,  die  dann  vor  dem  Drucken 
durch  das  Programm  vom  Anwender  erfragt  werden.  Interessant 
ist  das  zum  Beispiel,  wenn  Sie  in  einem  Brief  häufig  den  Nach- 
namen, etwa  eines  Kunden,  verwenden  wollen.  In  diesem  Fall 
schreiben  Sie  an  jede  dieser  Stellen  ein  Label  "«Nachname»". 
GEOMERGE  fragt  Sie  dann  am  Anfang  einmal  nach  dem  Nach- 
namen und  fügt  diesen  dort  ein,  wo  das  entsprechende  Label 
steht,  egal,  wie  oft  das  Label  im  Text  vorkommt. 

Wer  es  noch  flexibler  haben  möchte,  dem  steht  eine  spezielle  IF- 
Anweisung  für  bedingte  Texte  zur  Verfügung.  Damit  läßt  sich 
in  gewisser  Weise  sogar  ein  sogenanntes  Textbausteinsystem  ein- 
richten, wie  man  es  sonst  nur  im  professionellen  Bereich  findet. 
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Besonders  im  geschäftlichen  Bereich  ist  die  Arbeit  mit  Textbau- 
steinen sehr  gebräuchlich,  etwa  um  den  laufenden  Kontakt  mit 
Kunden  aufrechtzuerhalten.  Wie  sieht  das  nun  konkret  aus? 


Insbesondere  bei  sehr  großen  Kundenstämmjen  wäre  es  natürlich 
viel  zu  aufwendig  für  jeden  Kunden  immdr  wieder  ein  indivi- 
duelles Anschreiben  zu  verfassen.  Daher  verfügt  der  entspre- 
chende Sachbearbeiter  über  eine  größere  Sammlung  von  Text- 
bausteinen, von  denen  er  sich  jeweils  die  passenden  heraussucht 
und  dann  zu  einem  Brief  zusammensetzt.  Solch  ein  Textbaustein 
ist  in  der  Regel  nicht  mehr  als  ein  oder  zwei  Absätze  groß. 


Aber  auch  das  Heraussuchen  und  Zusammen  setzen  der  passenden 
Bausteine  ist  "von  Hand"  noch  sehr  aufwendig,  das  kann  man 
ebenfalls  der  Textverarbeitung  überlassen.  Nehmen  wir  dazu  ein 
konkretes  Beispiel.  Eine  Firma  möchte  an  zwei  Kunden  einen 
Brief  schreiben.  (Diese  beiden  sollen  jetzt  einmal  stellvertretend 
für  vielleicht  hunderte  stehen.)  Der  eine  Kunde  hat  gerade  eine 
größere  Bestellung  getätigt,  für  die  man  sich  bedanken  will.  Der 
andere  Kunde  hat  schon  lange  nichts  mehr  bestellt  und  soll  des- 
halb zu  einer  Bestellung  ermuntert  werden.  Zwei  mögliche  Text- 
bausteine könnten  beispielsweise  so  aussehen: 


Für  Ihre  Bestellung  möchten  wir  uns  recht  herzlich 
bedanken.  Wir  würden  uns  freuen,  wenn  Sie  auch  wei- 
terhin bei  uns  bestellen  würden. 


Anbei  erhalten  Sie  unseren  neuesten  Katalog.  Sicher 
werden  auch  Sie  etwas  darin  finden,  daß  Ihnen 
gefällt. 


Um  diese  beiden  Bausteine  nun  in  einem  "Formbrief"  unterbrin- 
gen zu  können,  definiert  man  bei  GEQMERGE  ein  Label 
"guterKunde",  das  man  wie  folgt  verwenden  könnte: 


«IF  guterKunde=,,wahrM» 

Für  Ihre  Bestellung  möchten  wir  uns  recht  herzlich 
bedanken.  Uir  würden  uns  freuen,  wem  Sie  auch  wei- 
terhin bei  uns  bestellen  würden. «ENDIF» 
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«IF  guterKunde="falsch"» 

Anbei  erhalten  Sie  unseren  neuesten  Katalog.  Sicher 
werden  auch  Sie  etwas  darin  finden,  daß  Ihnen 
gefällt.«ENDIF» 


Falls  es  sich  bei  dem  einzelnen  Kunden  also  um  einen  guten 
Kunden  handelt  (guterKunde  ist  dann  "wahr"),  wird  der  erste 
Textbaustein  gedruckt,  ansonsten  der  Zweite! 

Soviel  zu  den  Serienbriefen  und  Textbausteinen.  Gerade  bei  "of- 
fiziellen" Texten,  wie  etwa  Einladungen  oder  Geschäftsbriefen, 
ist  man  natürlich  besonders  darauf  bedacht,  daß  diese  möglichst 
fehlerfrei  geschrieben  sind.  Manche  Leichtsinnsfehler  entdeckt 
man  aber  auch  nach  dem  zweiten  oder  dritten  Durchlesen  nicht. 
Da  wäre  es  doch  am  besten,  sich  diese  Arbeit  ebenfalls  vom 
Computer  abnehmen  zu  lassen.  Und  das  geht  - zumindest  in  ge- 
wissem Umfang  - in  der  Tat! 

GEOS  2.0  beispielsweise  verfügt  über  ein  Rechtschreib-Prüfpro- 
gramm  namens  GEOSPELL,  mit  dem  sich  GEOWRITE-Texte 
überprüfen  lassen. 

Die  Arbeitsweise  eines  solchen  Programms  ist  in  Grunde  ge- 
nommen ganz  einfach:  Das  Programm  verfügt  über  ein  mehr 
oder  minder  umfangreiches  Lexikon,  in  dem  die  korrekt  ge- 
schriebenen Wörter  abgelegt  sind.  Der  zu  überprüfende  Text 
wird  nun  Wort  für  Wort  durchgegangen.  Jedes  Wort  wird  dabei 
mit  den  Wörtern  des  Lexikons  verglichen.  Stimmt  es  mit  keinem 
der  Wörter  im  Lexikon  überein,  so  gilt  es  als  falsch  geschrieben, 
und  das  Programm  meldet  sich  mit  einer  entsprechenden  Feh- 
lermeldung. Das  klingt  jetzt  nicht  nur  etwas  umständlich,  son- 
dern ist  es  auch!  Selbst  bei  professionellen  Programmen  im  PC- 
Bereich  ist  die  automatische  Rechtschreibkontrolle  meist  ein  sehr 
zeitraubendes  Unterfangen. 

Besonders  wichtig  sind  der  Umfang  des  Lexikons  und  die  Mög- 
lichkeiten, das  Lexikon  um  neue  Begriffe  zu  erweitern.  GEOS- 
PELL beispielsweise  bringt  bei  einem  nicht  erkannten  Wort 
nicht  einfach  nur  eine  Fehlermeldung,  sondern  erlaubt  es,  das 
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Wort  als  neuen  Begriff  in  das  Lexikon  aufzunehmen.  Mit  der 
Zeit  wird  das  Lexikon  dadurch  immer  umfangreicher  und  die 
Fehlermeldungen  reduzieren  sich  in  immer|  stärkerem  Maße  auf 
wirklich  falsch  geschriebene  Wörter.  Hat 
phase  erst  einmal  überstanden,  dann  wird 
fer  auch  zu  einer  wirklichen  Hilfe. 

Besonders  in  der  letzten  Zeit  hat  ein  Spezialbereich  der  Text- 
verarbeitung zunehmende  Bedeutung  erlangt:  die  Einbindung 
von  Grafik  in  den  Text.  Sieht  man  sich  professionelle  Drucker- 
zeugnisse, wie  etwa  Zeitschriften,  Werbebroschüren  und  ähnli- 
ches, an,  so  findet  man  Text  und  Bilder  meistens  bunt  gemischt. 
Mit  einer  "normalen”  Textverarbeitung  lassen  sich  Grafiken  nur 
sehr  schwer  verarbeiten.  Zwar  bietet  beispielsweise  auch 
GEOWRITE  die  Möglichkeit,  Grafiken  in  den  Text  einzubinden. 
Das  ist  dann  aber  mit  großen  Einschränkungen  verbunden,  so 
daß  es  in  der  Regel  allenfalls  zu  einem  grafisch  gestalteten 
Briefkopf  reicht. 


man  diese  Antangs- 
ier  Rechtschreibprü- 


Besser  ist  es  da,  man  bedient  sich  eines  sogenannten  Desktop- 
Publishing-Programms.  Was  man  darunter  genau  versteht,  das 
erfahren  Sie  im  übernächsten  Abschnitt.  Sehen  wir  uns  zunächst 
einmal  an,  wie  man  zu  ansprechenden  Grafiken  gelangt. 


2.2  Grafik 

Neben  der  Textverarbeitung  erfreut  sich  auch  die  Erstellung  von 
Grafiken  auf  dem  Commodore  64  sehr  großer  Beliebtheit.  Hat 
man  beim  Malen  oder  Zeichnen  eines  Bildet  doch  noch  am  ehe- 
sten die  Möglichkeit,  sich  kreativ  auszutoben. 


Um  die  grafischen  Fähigkeiten  des  Commodore  64  nutzen  zu 
können,  benötigen  Sie  ein  Mal-  bzw.  Zeichenprogramm.  Über 
welche  Eigenschaften  und  Unterschiede  diese  Programme  verfü- 
gen, darüber  möchte  ich  Ihnen  im  folgenden  Auskunft  geben. 

Vielleicht  haben  Sie  ja  aber  auch  Lust,  sich  selbst  mit  der  Gra- 
fikprogrammierung zu  befassen.  In  diesem  Fall  empfiehlt  sich 
die  Lektüre  von  Kapitel  6.  In  diesem  Kapitel  erhalten  Sie  um- 
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fassende  Informationen  zu  allen  Aspekten  der  Grafikprogram- 
mierung. Um  die  Grafik  erfolgreich  zu  programmieren,  sind  al- 
lerdings gute  Assembler-Kenntnisse  erforderlich.  Wenn  Ihnen 
diese  im  Moment  noch  fehlen,  sollten  Sie  zunächst  einmal  Ka- 
pitel 4 durcharbeiten. 

Der  Commodore  64  hat  eine  Grafikauflösung  von  320*200 
Punkten.  Was  meint  man  damit  eigentlich  konkret?  Auf  dem 
normalen  Textbildschirm  können  Sie  maximal  25  Zeilen  zu  je  40 
Zeichen  auf  dem  Bildschirm  unterbringen,  insgesamt  also  2000 
Zeichen.  Man  spricht  hier  von  einer  Auflösung  von  25*40=2000 
Zeichen.  Bei  der  hochauflösenden  Grafik  dagegen  haben  Sie 
64000  (320*200)  Einzelpunkte,  die  jeder  für  sich  gesetzt  oder 
gelöscht  werden  können.  Dadurch  lassen  sich  sehr  feine  Grafi- 
ken erstellen.  In  dieser  Auflösung  kann  man  allerdings  nur  zwei 
Farben  verwenden.  Wer  es  bunter  haben  möchte,  muß  auf  die 
niedrigere  Auflösung  von  160*200  Punkten  zurückgreifen.  Nicht 
alle  Grafikprogramme  unterstützen  diese  Auflösung.  Dafür  ver- 
fügen aber  die  meisten  Programme  über  eine  wesentlich  größere 
"Zeichenfläche"  als  die  eingangs  erwähnten  320*200  Punkte.  Er- 
reicht wird  dies  durch  die  Aufteilung  der  Gesamtfläche  in 
mehrere  Einzelflächen,  die  getrennt  bearbeitet  werden,  am  Ende 
aber  als  eine  große  Fläche  ausgedruckt  werden  können. 

Wenn  Sie  auf  herkömmliche  Art  und  Weise  ein  Bild  malen  oder 
zeichnen  wollen,  nehmen  Sie  dazu  einfach  Papier  und  Bleistift 
oder  Buntstifte.  Wenn  Sie  mit  dem  Commdore  64  eine  Grafik 
erstellen  wollen,  wird  es  schon  etwas  komplizierter.  Sie  können 
ja  nicht  einfach  auf  den  Computerbildschirm  "zeichnen".  Ir- 
gendwie müssen  Sie  also  die  Grafik  in  den  Rechner  bekommen. 
Das  einfachste  Hilfsmittel  dazu  ist  ein  sogenannter  Joystick,  der 
ansonsten  vor  allem  zum  Spielen  eingesetzt  wird.  Besser  ist  (ins- 
besondere dann,  wenn  Sie  auch  "freihändig"  zeichnen  wollen) 
eine  sogenannte  Proportional-Maus. 

Die  meisten  Grafikprogramme  sind  so  aufgebaut,  daß  Sie  mit 
dem  Joystick  oder  der  Maus  einen  Cursor  - ähnlich  dem  ge- 
wohnten Textcursor  - über  den  Bildschirm,  die  "Zeichenfläche", 
bewegen  können.  Drücken  Sie  dann  zusätzlich  auch  noch  die 
Maustaste  oder  den  Feuerknopf  des  Joysticks,  so  werden  an  den 
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Stellen,  über  die  der  Cursor  fährt,  Punkte  gesetzt.  In  diesem  Fall 
spricht  man  dann  vom  "freihändig  zeichnen".  Natürlich  ist  das 
bei  weitem  nicht  alles.  Geometrische  Grundformen,  wie 
Rechtecke  und  Kreise  etwa  lassen  sich  mit  den  meisten  Pro- 
grammen durch  spezielle  Funktionen  erstellen.  Bei  einem 
Rechteck  zum  Beispiel  müssen  Sie  dann  nur  die  linke  obere  und 
die  rechte  untere  Ecke  markieren.  Den  Rest  erledigt  das  Zei- 
chenprogramm. 


Ein  Mal-  und  Zeichenprogramm,  über  das  jeder  Commodore- 
64-Besitzer  verfügt,  ist  GEOPAINT.  Sehen  wir  uns  dieses  also 
einmal  genauer  an.  Wie  man  GEOPAINT  startet,  müßten  Sie 
noch  aus  Kapitel  1 wissen:  einfach  das  GEOPAINT-Icon  im 
Desktop  doppelklicken. 


Nachdem  das  Programm  geladen  wurde 
Bildschirm  eine  sogenannte  Dialogbox.  D 
keiten  erklären  sich  fast  von  selbst.  Bitte  ' 
"Create"  (bzw,  "Erstellen",  falls  Sie  bereits  i 
gen)  zum  Erstellen  eines  neuen  Dokument 
schließend  einen  beliebigen  Namen  an, 
FIK1".  Sobald  Sie  die  <Return>-Taste  gedi 
der  GEOPAINT- Arbeitsbildschirm. 


, erscheint  auf  dem 
ie  drei  Wahlmöglich- 
ivählen  Sie  die  Option 
über  GEOS  2.0  verfü- 
ts,  und  geben  Sie  an- 
beispielsweise "GRA- 
rückt  haben,  erscheint 


Die  hell  unterlegte  Fläche  in  der  Mitte  stellt  die  Zeichenfläche 
dar.  Dieses  sogenannte  Zeichenfenster  zeigt  allerdings  immer  nur 
einen  kleinen  Ausschnitt  der  Gesamtgrafik,  der  ausgedruckt 
etwa  8,25*4,5  cm  groß  wäre.  Mit  GEOPAINT  lassen  sich  aber 
Abbildungen  bis  zum  Format  einer  DIN-A|4-Seite  erstellen. 


In  der  rechten  oberen  Ecke  sehen  Sie  den| 
Namen  der  Grafik  enthält.  Links  danebt 
Menüleiste  von  GEOPAINT.  Darunter  se 
zeugleiste”.  Sie  enthält  die  verschiedenen  "V 
GEOPAINT  zur  Bearbeitung  Ihrer  Grafik  j 
Unterhalb  der  Werkzeugleiste  befindet  sicl^ 
Manche  Zeichenfunktionen,  wie  zum  Beisp 
zum  Ausfüllen  umrandeter  Bereiche,  erlau 


Titelbalken,  der  den 
;n  befindet  sich  die 
ihen  Sie  die  "Werk- 
Werkzeuge",  die  Ihnen 
zur  Verfügung  stellt, 
das  "Musterquadrat", 
iel  die  "Füllfunktion" 
ben  die  Verwendung 


verschiedener  Füllmuster.  Das  Muster,  das  gerade  eingestellt  ist, 
wird  dann  im  Musterquadrat  dargestellt. 
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Rechts  neben  dem  Musterquadrat  ist  der  "Statusbereich".  Er 
dient  verschiedenen  Zwecken.  Im  Augenblick  sehen  Sie  ganz 
links  den  sogenannten  "Seitenzeiger".  Er  markiert  den  Bereich 
der  Gesamtgrafik,  der  gerade  im  Zeichenfenster  dargestellt  wird. 
Wenn  Sie  das  kleine  dunkle  Rechteck  anklicken  und  verschieben, 
wird  ein  anderer  Ausschnitt  der  Grafik  in  das  Zeichenfenster 
gebracht.  Das  kleine  Quadrat  neben  dem  Seitenzeiger  zeigt  die 
aktuelle  Zeichenfarbe  an.  Die  Leiste  direkt  daneben  zeigt  die  16 
möglichen  Zeichenfarben.  Der  Pfeil  zeigt  dabei  auf  die  gerade 
verwendete  Farbe. 

Damit  haben  wir  schon  alle  Bedienugselemente  durch.  Um  nun 
ein  bestimmtes  Werkzeug  (also  eine  bestimmte  Zeichenfunktion) 
zu  aktivieren,  klicken  Sie  einfach  dessen  Symbol  in  der 
Werkzeugleiste  an.  Das  Symbol  wird  daraufhin  invertiert  darge- 
stellt, und  die  Zeichenfunktion  steht  zur  Verfügung.  Nach  dem 
Start  von  GEOPAINT  ist  das  Werkzeug  "Bleistift"  bereits  akti- 
viert. Das  erkennen  Sie  daran,  daß  sein  Symbol  in  der  vierten 
Zeile  der  Werkzeugleiste  invertiert  dargestellt  ist. 

Fahren  Sie  nun  einmal  mit  dem  Mauszeiger  in  das  Zeichenfen- 
ster, und  klicken  Sie  bzw.  drücken  Sie  den  Feuerknopf  des  Joy- 
sticks oder  die  linke  Taste  der  Maus.  Wenn  Sie  jetzt  den  Maus- 
zeiger bewegen,  werden  in  der  Zeichenfläche  fortlaufend  Punkte 
gesetzt.  Was  Sie  jetzt  gerade  machen,  nennt  man  "freihändig 
zeichnen".  Mit  einem  erneuten  Klick  können  Sie  die  Zeichen- 
funktion abschalten,  um  zum  Beispiel  an  eine  andere  Stelle  der 
Zeichenfläche  zu  fahren.  Mit  dem  Werkzeug  "Bleistift"  läßt  sich 
schon  einiges  anfangen.  Gerade  Linien  oder  gar  Rechtecke  und 
Kreise  kann  man  damit  aber  nur  sehr  schlecht  zeichnen.  GEO- 
PAINT stellt  dafür  spezielle  Werkzeuge  zur  Verfügung. 

Wie  zeichnet  man  z.B.  eine  gerade  Linie?  Klicken  Sie  dazu  bitte 
das  Gerade-Symbol  in  der  Werkzeugleiste  an.  (Es  befindet  sich 
über  dem  Pinsel  in  der  dritten  Reihe  rechts.)  Fahren  Sie  jetzt 
wieder  in  das  Zeichenfenster,  und  markieren  Sie  den  Anfangs- 
punkt der  Geraden  durch  Klicken.  Um  exakt  zeichnen  zu  kön- 
nen, zeigt  Ihnen  GEOPAINT  im  Statusbereich  rechts  unten  die 
genauen  Koordinaten  auf  der  Zeichenfläche  an.  Nachdem  Sie 
den  Anfangspunkt  markiert  haben,  fahren  Sie  mit  dem  Mauszei- 
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ger  zu  dem  gewünschten  Endpunkt  der  Geraden.  GEOPAINT 
zeichnet  nun  permanent  Linien  zwischen  dem  Anfangspunkt  und 
der  aktuellen  Position  des  Mauszeigers.  Erst,  sobald  Sie  ein 
zweites  Mal  geklickt  haben,  wird  die  Linie  "fixiert". 

Ähnlich  gestaltet  sich  das  Zeichnen  von  Rechtecken.  Klicken  Sie 
dazu  das  entsprechende  Symbol  in  der  Werkzeugleiste  an  (es  be- 
findet sich  in  der  sechsten  Zeile  links).  Anschließend  markieren 
Sie  durch  Klicken  die  linke  obere  Ecke  des  Rechtecks  und  be- 
wegen den  Mauszeiger  dann  zur  rechten  unteren  Ecke.  Sobald 
Sie  erneut  klicken,  wird  das  Rechteck  endgültig  gezeichnet. 

Auch  zum  Zeichnen  von  Kreisen  hat  GEOPAINT  ein  spezielles 
Werkzeug.  Sein  Symbol  finden  Sie  in  der  Werkzeugleiste  unter- 
halb des  Rechteck-Symbols.  Nachdem  Sie  das  Werkzeug  aktiviert 
haben,  markieren  Sie  zunächst  den  Mittelpunkt  des  Kreises 
durch  Klicken.  Anschließend  fahren  Sie  an  eine  beliebige  Stelle 
des  Kreises.  Sobald  Sie  ein  zweites  Mal  klicken  wird  der  Kreis 
fixiert. 

Nicht  selten  kommt  es  vor,  daß  man  sich  verzeichnet.  Arbeitet 
man  mit  Papier  und  Bleistift,  so  greift  man  dann  zum  Radier- 
gummi. Auch  in  GEOPAINT  steht  Ihnen  ein  Radiergummi  als 
Werkzeug  zur  Verfügung.  Sein  Symbol  finden  Sie  in  der  Werk- 
zeugleiste in  der  fünften  Zeile  links.  Nachdem  Sie  das  Symbol 
angeklickt  haben,  können  Sie  einen  beliebigen  Bereich  der  Gra- 
fik "ausradieren",  d.h.  löschen,  indem  Sie  mit  dem  Mauszeiger 
darüberfahren. 

Eine  überaus  nützliche  Funktion,  wenn  es  darum  geht,  einen 
Zeichenfehler  auszubügeln,  stellt  die  UNEIO-Funktion  dar.  Ha- 
ben Sie  beispielsweise  versehentlich  einen  Kreis  an  der  falschen 
Stelle  gezeichnet,  so  dürfte  es  Ihnen  äußerst  schwer  fallen,  die- 
sen mit  dem  Radiergummi  wieder  aus  der  Grafik  zu  entfernen, 
ohne  nicht  auch  andere  Teile  der  Grafik  zu  zerstören.  In  diesem 
Fall  genügt  ein  Anklicken  des  UNDO-Syrnbols  ganz  unten  auf 
der  Werkzeugleiste.  UNDO  macht  immer  die  jeweils  letzte  Zei- 
chenoperation rückgängig,  egal,  ob  es  sich  dabei  um  einen  Kreis, 
ein  Rechteck  oder  sonst  eine  Zeichenfunktion  handelt. 
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Einen  etwas  ungewöhnlichen  Weg  geht  GEOPAINT  bei  der 
Farbgestaltung.  Wie  ich  schon  eingangs  erwähnt  habe,  gibt  es  auf 
dem  Commodore  64  grundsätzlich  zwei  Darstellungsmodi  für  die 
hochauflösende  Grafik.  Im  einen  Modus  kann  man  bis  zu  vier 
Farben  verwenden.  Dafür  ist  die  Auflösung  mit  nur  160*200 
Punkten  aber  so  niedrig,  daß  man  schon  fast  nicht  mehr  von 
hochauflösender  Grafik  sprechen  kann.  GEOPAINT  arbeitet  mit 
der  Auflösung  von  320*200  Punkten,  in  der  an  sich  nur  zwei 
Farben  verwendet  werden  können.  Durch  einen  Trick  kann  man 
aber  mit  allen  16  Farben  arbeiten. 

Dieser  Trick  besteht  darin,  daß  man  die  Hintergrund-  und 
Punktfarbe  immer  nur  für  einen  8*8  Punkte  großen  Bereich 
festlegen  kann.  Warum  das  so  ist,  werden  Sie  in  Kapitel  6 er- 
fahren, wenn  wir  uns  selbst  der  Grafikprogrammierung  widmen 
werden. 

Zum  Ändern  der  Farben  klicken  Sie  das  COLOR-Symbol  in  der 
Werkzeugleiste  an.  Im  Statusbereich  rechts  unten  auf  dem  Bild- 
schirm erscheinen  nun  zwei  Farbleisten.  In  der  oberen  stellen  Sie 
die  Farbe  der  gesetzten  Punkte  ein,  die  untere  dient  zum  Ein- 
stellen der  Hintergrundfarbe. 

Neben  den  gerade  vorgestellten  bietet  GEOPAINT  natürlich 
noch  wesentlich  mehr  Funktionen,  deren  Bedeutung  Sie  einfach 
durch  Ausprobieren  herausfinden  können.  Im  Zweifelsfall  hilft 
ein  Blick  ins  Handbuch. 

GEOPAINT  ist  mit  Sicherheit  ein  ausgezeichnetes  Zeichenpro- 
gramm mit  gut  durchdachten  Funktionen.  Über  den  größten 
Nachteil  von  GEOPAINT  werden  Sie  sich  sicher  aber  auch  schon 
geärgert  haben:  das  ständige  Nachladen  von  Disketten. 

Eine  interessante  und  mit  58  Mark  auch  sehr  preiswerte  Alter- 
native zu  GEOPAINT  stellt  das  Programm  "Eddison"  von  Scann- 
tronik  dar.  Auch  Eddison  arbeitet  am  besten  mit  einer  Propor- 
tional-Maus  zusammen  und  läßt  sich  fast  vollständig  über  Menüs 
steuern. 
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Eddison  arbeitet  mit  einer  maximalen  Zeichenfläche  von 
640*400  Punkten.  Das  entspricht  vier  normalen  Bildschirmen. 
Jeder  dieser  Bildschirme  läßt  sich  auch  für  sich  allein  nutzen. 

Die  Zeichenfunktionen  von  Eddison  lassen  kaum  Wünsche  offen. 
Man  kann  freihändig  zeichnen,  Linien  ziehen,  Rechtecke,  Kreise 
und  Ellipsen  zeichnen,  und  natürlich  steht  auch  eine 
Füllfunktion  mit  verschiedensten  Füllmustern  zur  Verfügung. 

Alles  läuft  dabei  mit  größtmöglichem  Bedienungskomfort  ab. 
Rechtecke  und  Kreise  beispielsweise  kann  man  ähnlich  wie  bei 
GEOPAINT  mit  einem  "Gummiband"  zeichnen,  die  Undo-Funk- 
tion  macht  mißlungene  Zeichenversuche  problemlos  rückgängig. 

Sehr  nützlich  ist  auch  die  Übersichtsfunktion.  Klickt  man  dazu 
das  entsprechende  Icon  an,  zeigt  Eddison  eine  auf  die  Hälfte 
verkleinerte  Gesamtdarstellung  des  Grafikspeichers. 


Der  wohl  umfangreichste  und  leistungsfähigste  Befehl  ist  der 
Move-Befehl.  Was  sich  damit  alles  anstellen  läßt,  ist  schon  er- 
staunlich. Move  beschränkt  sich  nämlich  nicht  nur  auf  das  Ver- 
schieben von  Grafikbereichen,  wie  der  Name  vermuten  lassen 
könnte.  Move  ist  zusätzlich  in  der  Lage,  beliebige  rechteckige 
Bildschirmbereiche  zu  spiegeln  und  sogar  zu  vergrößern  oder  zu 
verkleinern.  Daß  man  Bildschirmbereiche  mittels  UND,  ODER 
und  EXCLUSIV-ODER  logisch  miteinander  verknüpfen  kann, 
versteht  sich  schon  fast  von  selbst. 

Das  Malen  von  Bildern  ist  zwar  ganz  schön,  oft  möchte  man 
aber  exakte  Zeichnungen  erstellen,  zum  Beispiel  Schaltpläne.  Der 
Fachmann  spricht  dann  übrigens  von  CAD,  was  für  "Computer 
Aided  Design"  steht. 

Eddison  bietet  zwei  Spezialitäten,  die  ihn  schon  fast  zu  einem 
kleinen  CAD-Programm  machen:  eine  "permanente  Koordina- 
tenanzeige" und  sogenannte  "Construction  Sets".  Da  wäre 
zunächst  die  Koordinatenanzeige.  Diese  informiert  einen  ständig 
über  die  aktuelle  Position  des  Grafik-Cursors.  Entweder  in  Form 
von  X/Y-Koordinatenangaben  oder  in  Form  von  Millimeteran- 
gaben. Mit  Hilfe  der  Funktionstasten  F7  und  F8  lassen  sich  auch 
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Tabulatorpunkte  markieren,  die  dann  durch  einen  Druck  auf  die 
Funktionstaste  F7  direkt  angesprungen  werden.  Hilfreich  ist  das 
zum  Beispiel,  wenn  man  von  einer  Stelle  aus  mehrere  Linien 
ziehen  möchte.  Ebenfalls  sehr  nützlich  ist  ein  sogenanntes 
Punktraster,  das  man  über  seine  Zeichnung  legen  lassen  kann. 

Bei  technischen  Zeichnungen  hat  man  in  der  Regel  einiges  an 
gleich  aussehenden  Teilen:  bei  einem  elektrischen  Schaltplan  zum 
Beispiel  Widerstände,  Kondensatoren,  Transistoren  usw...  Da  ist 
es  natürlich  am  einfachsten,  wenn  man  diese  Teile  jeweils  nur 
einmal  zeichnen  muß  und  dann  immer  wieder  verwenden  kann. 

Eddison  bietet  dazu  einige  interessante  Sprite-Befehle,  mit  Hilfe 
derer  sich  ein  Grafikbaukasten,  ein  Construction  Set,  realisieren 
läßt.  Ein  "Sprite"  ist  ein  kleines  Grafikobjekt  von  24*21  Punkten 
Größe,  das  sich  frei  über  den  Bildschirm  bewegen  läßt.  Der 
Grafik-Cursor  zum  Beispiel  besteht  aus  solch  einem  Sprite. 

Mit  Hilfe  des  Sprite-Befehls  "Get”  ist  es  nun  möglich,  einen  be- 
liebigen 24*21  Punkte  großen  Grafikausschnitt  in  ein  Sprite  zu 
kopieren.  Der  Grafik-Cursor  hat  jetzt  das  Aussehen  des  Gra- 
fikausschnitts. Das  Sprite  kann  nun  beliebig  oft  wieder  in  die 
Grafik  eingefügt  werden.  Entweder  man  "stempelt"  es  in  die 
Grafik  (dabei  wird  dann  der  darunterliegende  Grafikbereich  zu- 
vor nicht  gelöscht)  oder  man  "klebt"  es  wie  eine  Briefmarke  in 
die  Grafik,  wobei  dann  der  Grafikbereich  zuvor  gelöscht  wird. 
Mit  Hilfe  eines  speziellen  Sprite- Editors  läßt  sich  der  Gra- 
fikausschnitt auch  beliebig  verändern. 

Mit  Hilfe  dieser  Technik  läßt  sich  der  Entwurf  einer  techni- 
schen Zeichnung  drastisch  vereinfachen.  Nehmen  wir  dazu  zum 
Beispiel  einmal  an.  Sie  wollen  häufiger  Schaltpläne  entwerfen. 
Dazu  benötigt  man  natürlich  vor  allem  die  verschiedenen 
Schaltsymbole,  etwa  für  Widerstände  und  Transistoren. 

Zunächst  müßten  Sie  also  daran  gehen,  diese  Symbole  als  24*21 
Punkte  große  Grafiken  (damit  sie  in  ein  Sprite  passen)  zu  ent- 
werfen. Am  einfachsten  geht  das  mit  dem  schon  erwähnten 
Sprite-Editor.  Sobald  ein  Symbol  fertig  ist,  kopieren  Sie  es  in 
einen  freien  Grafikbildschirm.  Nach  und  nach  kommen  so  viel- 


leicht  20  bis  30  einzelne  Symbole  zusammen,  die  alle  zusammen 
auf  einem  Grafikbildschirm  untergebracht  werden  sollten.  Am 
Ende  speichern  Sie  diesen  Bildschirm  auf  Diskette  ab,  und  schon 
haben  Sie  Ihren  Schaltplan-Baukasten! 

Wenn  Sie  jetzt  eine  Schaltung  entwerfen  wollen,  laden  Sie  zuerst 
die  Grafik  mit  den  Symbolen  in  einen  freien  Bildschirm.  Auf 
einem  anderen  freien  Bildschirm  zeichnen  Sie  dann  die  Schal- 
tung. Benötigen  Sie  ein  bestimmtes  Schaltsymbol,  so  gehen  Sie 
schnell  in  die  Schaltsymbol-Grafik,  holen  sich  das  betreffende 
Symbol  in  das  Sprite,  schalten  anschließend  wieder  auf  ihre 
Schaltung  um  und  kopieren  das  Symbol  an  der  vorgesehenen 
Stelle  in  die  Grafik.  (Sollten  zuvor  noch  Detail-Änderungen  er- 
forderlich sein,  so  gehen  Sie  schnell  in  den  Sprite-Editor  und 
führen  diese  dort  durch.)  Eine  an  sich  sehr  einfache,  aber  unge- 
heuer effiziente  Technik! 


Zum  Schluß  möchte  ich  noch  kurz  auf  ein  Programm  eingehen, 
das  man  als  den  "großen  Bruder  des  Eddison"  bezeichnen  kann: 
Eddifox.  Eddifox  bietet  Grafikfunktionen,  die  man  selbst  bei 
manchen  Grafikprogrammen  aus  dem  professionellen  Bereich 
vergebens  sucht.  Das  hat  allerdings  auch  seinen  Preis.  Eddifox 
selbst  ist  zwar  mit  88  Mark  nicht  gerade  teuer.  Eddifox  läuft 
dafür  aber  nur  zusammen  mit  dem  Pagefox-Modul,  das  ich  Ih- 
nen im  nächsten  Unterkapitel  vorstelle,  und  das  kostet  immerhin 
248  Mark!  Eddifox  bietet  einen  Grafiksp  sicher  von  640*800 
Punkten,  was  einer  ganzen  DIN-A4-Seite  oder  8 normalen  Bild- 
schirmen entspricht.  Alle  Zeichenfunktionen  sind  dabei  nicht 
wie  bei  anderen  Programmen  auf  den  jeweils  sichtbaren  Teil 
einer  Grafikseite  beschränkt,  sondern  können  im  Extremfall  auf 
die  ganze  Seite  wirken. 

Die  herausragendste  Fähigkeit  des  Programms  stellt  aber  die 
Möglichkeit  dar,  beliebige  Grafikausschnitti;  zu  verzerren.  Das 
hört  sich  zunächst  vielleicht  unscheinbar  an.  birgt  aber  giganti- 
sche Möglichkeiten.  Ein  vorhandener  rechteckiger  Grafikbereich 
läßt  sich  durch  die  Verzerrung  in  eine  beliebige  andere  Form 
bringen,  ja  sogar  auf  einen  dreidimenionalen  Körper,  etwa  einen 
Zylinder,  "wickeln". 
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Wer  mit  dem  Commodore  64  professionell  aussehende  Grafiken 
erstellen  möchte,  vielleicht  um  diese  fürs  Desktop  Publishing  zu 
verwenden,  wird  am  Eddifox  kaum  vorbeikommen.  Doch 
"Desktop  Publishing",  was  ist  das  eigentlich? 


2.3  Desktop  Publishing 

Unter  Desktop  Publishing  (kurz:  DTP)  versteht  man  die  Gestal- 
tung von  Drucksachen  aller  Art.  Das  können  sowohl  einfache 
Werbezettel  oder  Geburtstagseinladungen,  im  Extremfall  aber 
auch  komplette  Zeitungen  oder  Zeitschriften  sein. 

Das  Entscheidende  dabei:  Im  Gegensatz  zu  einem  "normalen" 
Textverarbeitungsprogramm  ist  man  mit  einem  Desktop-Publis- 
hing-Programm  in  der  Lage,  Text  und  Grafik  gemeinsam  zu 
verarbeiten. 

Mit  Hilfe  eines  Desktop-Publishing-Programms  wird  man  also 
sozusagen  zum  "Schreibtisch- Verleger".  Während  im  professio- 
nellen Bereich  der  Druckgestaltung  bisher  sehr  viele  Einzel- 
schritte erforderlich  waren,  bis  eine  bestimmte  Drucksache 
"druckreif'  bzw.  tatsächlich  gedruckt  war,  lassen  sich  beim 
Desktop  Publishing  alle  Schritte  am  Schreibtisch  bzw.  auf  dem 
Computerbildschirm  erledigen: 

Zunächst  werden  der  Text  und  die  Grafiken  separat  erstellt  und 
anschließend  das  ganze  am  Bildschirm  seitenweise  zusammen- 
montiert. Der  Fachmann  spricht  hier  vom  "Layouten"  der 
Drucksache.  Anschließend  wird  die  Drucksache  über  einen 
hochwertigen  Drucker  in  beliebiger  Stückzahl  ausgedruckt. 

Das  hört  sich  nun  alles  sehr  einfach  an,  führt  aber  in  der  Praxis 
selbst  bei  professionellen  Systemen  zu  zum  Teil  erheblichen  Pro- 
blemen. Insbesondere  das  Einbinden  der  Grafiken  in  den  Text 
bereitet  in  der  Regel  erhebliches  Kopfzerbrechen.  Noch  mehr  als 
schon  die  Textverarbeitung  steht  und  fällt  das  Desktop  Publis- 
hing aber  mit  dem  zur  Verfügung  stehenden  Drucker.  Zeitungen 
und  Zeitschriften  werden  heutzutage  in  der  Regel  mit  soge- 
nannten Fotosatzbelichtern  "gedruckt",  die  sich  in  Preisregionen 
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jenseits  von  50000  Mark  bewegen.  Eine  Stufe  tiefer  stehen  die 
sogenannten  Laserdrucker,  die  in  letzter  Zeit  zwar  erheblich  bil- 
liger geworden  sind,  aber  immer  noch  über  5000  Mark  kosten. 


Beide  Druckertypen  sind  für  den  Einsatz  am  Commodore  64 
natürlich  völlig  indiskutabel.  Mit  einem  einfachen  Matrixdrucker 
lassen  sich  aber  ebenfalls  durchaus  akzeptable  Druckergebnisse 
erzielen,  vorausgesetzt,  man  hat  das  richtige  DTP-Programm. 


Wie  sieht  nun  DTP  auf  dem  Commodore  64  aus?  Dazu  wollen 
wir  uns  einmal  zwei  sehr  gelungene  Produkte  von  Scanntronik 
anschauen:  den  Pagefox  und  den  Printfox. 


Der  Pagefox  wird  auf  einem  Steckmodul  geliefert,  auf  dem  sich 
zusätzlich  100  Kbyte  Speicher  befinden.  Mit  248  Mark  kann 
man  den  Pagefox  zwar  nicht  gerade  als  billig  bezeichnen,  er  ist 
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aber  auf  jeden  Fall  sein  Geld  wert.  Der  Printfox  ist  sozusagen 
der  kleine  Bruder  des  Pagefox  und  f&r  den  kleineren  Geldbeutel 
gedacht.  Er  kostet  nur  98  Mark  und  wird  dafür  aber  auch  nur 
auf  Diskette  geliefert,  verfügt  also  über  keinen  zusätzlichen 
Speicher. 

Wer  nur  gelegentlich  Drucksachen  erstellen  möchte,  etwa  Ge- 
burtstagseinladungen oder  ähnliches,  ist  mit  dem  Printfox  sicher 
gut  bedient.  Der  Printfox  besteht  im  wesentlichen  aus  zwei  Tei- 
len: einem  Texteditor  vergleichbar  einer  Textverarbeitung  und 
einem  Grafikeditor  für  die  hochauflösende  Grafik. 

Nach  dem  Start  des  Programms  befindet  man  sich  im  Texteditor. 
Dieser  verfügt  über  alle  Funktionen  einer  guten  Textverarbei- 
tung. So  kann  man  mit  Hilfe  der  Cursor-Tasten  frei  im  Text 
herumwandern.  Wörter,  die  nicht  mehr  ganz  in  eine  Zeile  pas- 
sen, werden  ganz  in  die  nächste  Zeile  geholt  (Word-Wrapping), 
und  es  gibt  Blockoperationen  zum  Einfügen,  Löschen  und 
Überschreiben  von  Textteilen.  Und  natürlich  fehlen  auch  die 
Funktionen  zum  Suchen  und  Ersetzen  von  Textstücken  nicht. 

Der  Textspeicher  ist  auf  8030  Zeichen  begrenzt.  Im  Vergleich  zu 
reinen  Textverarbeitungen  ist  das  zwar  nicht  allzu  viel,  reicht 
aber  in  der  Regel  vollkommen  aus.  Man  möchte  ja  meist  nur  ein 
einseitiges  oder  allenfalls  ein  zwei-  bis  dreiseitiges  Dokument 
erstellen. 

Seine  eigentliche  Stärke  offenbart  der  Texteditor,  wenn  es  ans 
Formatieren  geht.  Der  Printfox  verfügt  nämlich  über  eine  rich- 
tige kleine  Programmiersprache!  Das  hat  zwar  den  Nachteil,  daß 
man  sich  mit  dieser  erst  einmal  vertraut  machen  muß.  Die  unge- 
heure Flexibilität,  mit  der  sich  die  Texte  dadurch  formatieren 
lassen,  macht  dies  aber  schnell  wieder  wett. 

Die  Formatierungsanweisungen  werden  in  Formatzeilen  abgelegt, 
die  im  Prinzip  an  beliebiger  Stelle  im  Text  stehen  können.  Eine 
Formatzeile  könnte  beispielsweise  so  aussehen: 

Z=1  S=1  g=0  h=1  v=2  x=30  y=6  1=280  t=20,50  i=780  x=330  y=6 
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Was  einem  sofort  auffällt  ist  die  einheitlic 
Benutzeroberfläche.  Wer  also  mit  GEOS  ve 
dem  Pagefox  sofort  zurechtkommen.  Fast  all£ 
nen  lassen  sich  wahlweise  aber  auch  über 
Der  Pagefox  besteht  aus  drei  Programmteilen 


he,  GEOS-ähnliche 
rtraut  ist,  wird  mit 
Programmf  unktio- 
Tastatur  auf rufen. 


Dem  Texteditor  zur  Eingabe  und  Bearbeit 
Dem  Grafikeditor  zum  Erstellen  und  Bearpi 
Dem  Layout- Editor  zur  Anordnung  von 
einer  Seite. 


Alle  drei  Programmteile  sind  im  Steckmodu 
stehen  daher  jeweils  blitzschnell  zur  Verfüguh; 


Der  Grafik-  und  der  Texteditor  haben  bei 
Funktion  wie  beim  Printfox.  Dank  der  ein 
Weiterung  läßt  sich  im  Grafikeditor  aber  ej 
A4-Seite  bearbeiten.  Das  entspricht  ein^ 
640*800  Punkten  oder  8 Bildschirmen.  Daf 
Übersicht  verliert,  kann  man  sich  die  Graf 
Prozent  verkleinern  lassen. 


m Pagefox  dieselbe 
gebauten  Speicherer- 
ne  komplette  D1N- 
r Auflösung  von 
jmit  man  nicht  die 
ik  auf  50  oder  25 


Der  Grafikeditor  verfügt  über  zahlreiche 
über  zwei  Menüleisten  erreichbar  sind.  Eiif 
soll  hier  genügen: 


■ Koordinatenanzeige 

■ Texteditor 

■ Layout-Editor 

- Verkleinerung  50% 

■ Zoom/Sprite-Editor 
-Erase 

- Stamp 

■ Append 

■ Get 

■Text-Funktion 

■ Move 

• Spray-Funktion 

■ Rächen  füllen 

■ Kreise  und  Ellipsen 

■ Move  1 Punkt 

■ Move  8 Punkte 


■ Scrollen/Versch 

■ Löschen 

■ Linien 

■ dickerer  Pinsel 

■ Freihändig  zeich 
■Undo 

- Drucken 

- Disk-Befehle 

■ Speichern 

- Laden 

- Invertieren 

- Punktgitter 

- Und-Verknüpfung 

- Exor-Verknüpfurl 

- Oder-Verknüpfupi 

- Rechtecke 


ung  des  Textes, 
«iten  von  Grafiken, 
ext  und  Grafik  auf 


untergebracht  und 
g- 


Funktionen,  die  alle 
e kleine  Übersicht 


eben 


nen 
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Anstelle  des  vorhandenen  Grafikeditors  kann  man  auch  das  Pro- 
gramm Eddifox  verwenden,  das  im  vorigen  Unterkapitel  kurz 
vorgestellt  wurde.  Eine  Besonderheit  des  Texteditors  ist  die  au- 
tomatische Silbentrennung,  d.h.,  Wörter,  die  nicht  mehr  ganz  in 
eine  Zeile  passen,  werden  automatisch  grammatikalisch  richtig 
getrennt.  Allerdings  funktioniert  dies  nicht  immer,  da  die  deut- 
sche Grammatik  ja  bekanntlich  reich  an  Ausnahmen  ist.  Die 
"Trefferquote"  des  Trennalgorithmus  soll  aber  bei  über  90%  lie- 
gen. 

Ungewöhnlich  vielfältig  sind  die  Schriftvariationen: 

Unterstreichen 
Doppelt  hoch 
Doppelt  breit 
Fettdruck 


- Tiefstellen 

- Hochstellen 

- Shadow 

- Outline 

- Kursiv 


Fast  alle  Variationen  können  auch  miteinander  kombiniert  wer- 
den. Dadurch  läßt  sich  das  Schriftbild  sehr  individuell  gestal- 
ten.Der  Text-  und  der  Grafikeditor  sind  schon  für  sich  allein 
sehr  mächtige  Werkzeuge.  Das  Herzstück  des  Pagefox  bildet  aber 
der  Layout-Editor.  Mit  ihm  kann  man  die  separat  mit  dem 
Text-  bzw.  Grafikeditor  erstellten  Texte  und  Grafiken  auf  einer 
Seite  zusammenmontieren. 


Um  die  Arbeitsweise  des  Layout-Editors  besser  zu  verstehen, 
sollte  man  wissen,  wie  ein  professioneller  Layouter  arbeitet. 
Nehmen  wir  beispielsweise  eine  Zeitschriftenseite.  Diese  besteht 
in  der  Regel  aus  einer  mehr  oder  minder  bunten  Mischung  aus 
Texten  und  Abbildungen  oder  Fotos. 

Trotz  ansonsten  modernster  Technik  sind  die  beiden  wichtigsten 
Werkzeuge  eines  Layouters  "Schere  und  Klebstoff'.  Die  verschie- 
denen Teile  einer  Seite  werden  mit  der  Schere  passend  zurecht- 
geschnitten und  dann  auf  einer  Unterlage  aufgeklebt. 
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Anstelle  von  Schere  und  Klebstoff  hat  man 
des  Pagefox  sogenannte  "Rahmen*,  die 
rechteckig  sind,  sich  dafür  aber  jederzeit 
nern  oder  auch  verschieben  lassen. 


beim  Layout-Editor 
zwar  grundsätzlich 
vergrößern,  verklei- 


Die  zu  erstellende  Seite  wird  also  in  einzelne  Rahmen  beliebiger 
Größe  unterteilt.  In  einem  Rahmen  kann  beispielsweise  die 
Überschrift  stehen,  in  einem  anderen  Rahmen  eine  Grafik  und 
in  den  restlichen  Rahmen  der  normale  Text  in  verschiedenen 
Schriftgrößen. 


Wie  montiert  man  nun  eine  Seite  konkret? 
mal  die  einzelnen  Schritte  durch:  Zunächst 
men  festgelegt.  Dazu  wird  die  betreffende 
klicken  ihres  Icons  aktiviert.  Anschließend 
zelnen  Rahmen  genauso  festlegen  wie  ein  e 
Grafikeditor,  d.h.,  man  markiert  durch 
diagonale  Ecken  des  Rechtecks. 


Gehen  wir  dazu  ein- 
werden die  Textrah- 
Funktion  durch  An- 
kann man  einen  ein- 
infaches  Rechteck  im 
zwei  Mausklicks  zwei 


Die  Grafikrahmen  werden  analog  festgelegt.  Nur  muß  man  hier 
gleich  die  zugehörige  Grafik  angeben,  die  aber  dann  erst  später 
beim  Formatieren  in  die  Seite  eingefügt  wird. 

Nun  hat  man  also  die  einzelnen  Rahmen  eingezeichnet.  In  der 
Regel  wird  aber  jetzt  noch  nicht  alles  so  hinliauen,  wie  man  sich 
das  ursprünglich  vorgestellt  hat.  Hier  zeigt  der  Editor  seine 
wahre  Stärke.  Jeder  Rahmen,  egal  ob  Text-  oder  Grafikrahmen, 
kann  nachträglich  beliebig  auf  der  Seite  verschoben  und  sogar 
vergrößert  oder  verkleinert  werden.  Möglicji  wird  dies,  da  die 
Rahmen  als  einzelne  "Objekte"  aufgefaßt  werden,  d.h.,  sie  wer- 
den nicht  nur  einfach  in  die  hochauflösende  Grafik  gezeichnet, 
sondern  ihre  Koordinaten  und  ihr  Aussehen  werden  zusätzlich 
separat  gespeichert,  so  daß  sie  sich  an  ihrer  ursprünglichen  Posi- 
tion leicht  löschen  und  woanders  plazieren  lassen. 


Wie  soll  nun  der  Text  in  den  einzelnen  R: 
Dazu  muß  man  die  Satzart  festlegen.  Zur  Aus 
bündig,  Blocksatz,  zentriert,  rechtsbündig] 
außen  glatt  sowie  global  zentriert.  Besonders 


ahmen  erscheinen? 
wähl  stehen:  links- 
glatt an  Grafik, 
interessant  ist  die 
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Möglichkeit,  Text  um  eine  Grafik  "herumfließen"  zu  lassen.  Da- 
bei wird  der  Text  gerade  so  um  die  Grafik  herumgeschrieben, 
daß  er  diese  nicht  berührt. 

Hat  man  alle  Seitenattribute  festgelegt,  gilt  es,  sich  einen  ersten 
Überblick  über  das  spätere  Aussehen  der  Drucksache  zu  machen. 
Dazu  gibt  es  die  Schnellformatierung,  die  nur  wenige  Sekunden 
in  Anspruch  nimmt.  Bei  der  Schnellformatierung  wird  nur  der 
Zeilen-  und  Spaltenumbruch  berechnet  und  die  Zeilen  werden 
als  Linien  dargestellt.  Außerdem  erhält  man,  falls  der  vorhan- 
dene Text  nicht  ganz  in  die  Rahmen  paßt,  eine  entsprechende 
Fehlermeldung. 

Den  Abschluß  des  Layoutens  bildet  die  Vollformatierung.  An- 
schließend steht  die  komplette  Seite  druckfertig  im  Grafikspei- 
cher, wo  sie  sich  mit  Hilfe  des  Grafikeditors  gegebenenfalls 
auch  noch  verändern  läßt. 

Da  eine  ganze  DIN-A4-Seite  ja  nicht  komplett  auf  den  Bild- 
schirm paßt,  hat  man  die  Möglichkeit,  sich  die  Seite  in  ver- 
kleinerter Form  am  Bildschirm  zeigen  zu  lassen.  Dabei  ist  dann 
zwar  der  Text  nicht  lesbar,  dafür  sieht  die  Seite  aber  exakt  so 
aus  wie  auch  später  auf  dem  Papier.  Für  eine  letzte  Kontrolle 
vor  dem  Ausdruck  ist  das  sehr  nützlich,  da  das  Ausdrucken  ja  - 
je  nach  Drucker  - erhebliche  Zeit  in  Anspruch  nimmt. 

Natürlich  kann  man  mit  dem  Pagefox  auch  mehrseitige  Doku- 
mente erstellen.  Die  einzelnen  Seiten  werden  dann  einfach  der 
Reihe  nach  von  Diskette  nachgeladen. 

Mit  seinen  248  Mark  ist  der  Pagefox  nicht  ganz  billig.  Deshalb 
stellt  sich  natürlich  die  Frage,  ob  es  sich  überhaupt  lohnt,  mit 
einem  Heimcomputer  wie  dem  Commodore  64  ins  Desktop  Pu- 
blishing einzusteigen. 

Rechnet  man  alles  zusammen  (Commodore  64,  Floppy,  Drucker 
und  Pagefox-Modul),  so  kommt  man  auf  Anschaffungskosten 
von  etwa  2000  Mark.  Für  diesen  Preis  bekommt  man  im  profes- 
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sionellen  DTP- Bereich  noch  nicht  einmal 
(Wirklich  gute  DTP- Programme  im  PC-Ber|e 
Mark.) 


Professionelle  DTP-Programme  können  n; 
als  der  Pagefox.  Ob  man  diese  Fähigkeiten 
benötigt,  ist  aber  eine  ganz  andere  Frage 
dem  Pagefox  vernünftig  arbeiten  kann,  ze 
Handbuch.  Es  umfaßt  immerhin  rund  70  Sei 
plett  mit  dem  Pagefox  erstellt! 


^türlich  einiges  mehr 
dann  nachher  auch 
Und,  daß  man  mit 
igt  nicht  zuletzt  sein 
iten  und  wurde  kom- 


Um  nur  gelegentlich  beispielsweise  eine 
anzufertigen,  sind  2000  Mark  sicher  zuviel 
kleinere  Drucksachen  erstellen  muß,  etwa 
oder  Vereinszeitungen,  für  den  dürfte  DTP 
64  und  dem  Pagefox  eine  ernstzunehmende 


2.4  Datenverwaltung 


Neben  der  Text  Verarbeitung  nimmt  auch 
einen  sehr  breiten  Raum  im  Bereich  der  Ct 
ein.  Das  Hauptargument  dabei  ist  die  Sehne 
lität  mit  der  ein  Computer  bestimmte 
kann.  Auch  der  Commodore  64  eignet  sich 
Verwaltung,  vorausgesetzt,  die  Datenmeng 
groß.  Um  nun  Ihre  Daten  mit  dem  64’er 
benötigen  Sie  ein  passendes  Programm, 
ähnlich  vielfältig  wie  bei  den  Textverarbeif 
kann  man  zwei  Arten  von  Datenverwaltj 
Dateiverwaltungen  und  Datenbanken. 


kann 
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ein  DTP-Programm. 
ich  kosten  über  3000 


Geburtstagseinladung 
Wer  aber  regelmäßig 
tyerbezettel,  Preislisten 
mit  dem  Commodore 
Alternative  sein. 


die  Datenverwaltung 
jomputeranwendungen 
lligkeit  und  Flexibi- 
Informationen  finden 
sehr  gut  zur  Daten- 
en  sind  nicht  allzu 
Verwalten  zu  können, 
s Angebot  ist  dabei 
ungen.  Grundsätzlich 
Jungen  unterscheiden: 


Da: 


Die  meisten  Datenverwaltungsprogramme  sind  Dateiverwaltun- 
gen. Die  einzige  wirkliche  Datenbank  für  den  Commodore  64  ist 
das  Programm  "Superbase",  das  sich  durchaus  auch  mit  Pro- 
grammen aus  dem  professionellen  Bereich  messen  kann.  Worin 
liegen  nun  die  grundsätzlichen  Unterschiede  zwischen  einer 
Dateiverwaltung  und  einer  Datenbank? 
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Bei  einer  Dateiverwaltung  werden  Ihre  Daten  zu  einzelnen 
Dateien  zusammengefaßt.  Das  kann  beispielsweise  eine  Adreß- 
datei  sein,  eine  Telefonverzeichnis-Datei  oder  eine  Schallplatten  - 
datei.  Jede  Datei  besteht  aus  einzelnen  Datensätzen,  diese  wie- 
derum aus  einzelnen  Datenfeldern.  Bei  einer  Adreßdatei  könnte 
ein  Datensatz  zum  Beispiel  aus  dem  Vor-  und  Zunamen,  der 
Straße  sowie  dem  Ort  bestehen.  Eine  Dateiverwaltung  läßt  sich 
noch  am  ehesten  mit  einem  Karteikasten  vergleichen,  die  einzel- 
nen Datensätze  stellen  dann  die  Karteikarten  dar. 

Was  die  Eingabe  der  Daten  betrifft,  sind  sich  Dateiverwaltung 
und  Karteikasten  recht  ähnlich.  Ihre  eigentliche  Stärke  offenbart 
die  Dateiverwaltung  bei  der  Datensuche.  Einen  Karteikasten 
können  Sie  ja  im  Grunde  genommen  nur  von  vorne  bis  hinten 
durchblättern,  bis  Sie  die  gesuchte  Karteikarte  gefunden  haben. 
Mit  einer  Dateiverwaltung  läßt  sich  da  wesentlich  mehr  machen! 

Auch  bei  einer  Datenbank  sind  die  Daten  in  einzelnen  Dateien 
zusammengefaßt.  Im  Gegensatz  zu  einer  Dateiverwaltung  ist  eine 
Datenbank  aber  in  der  Lage,  zwischen  den  einzelnen  Dateien 
Querverbindungen  herzustellen,  d.h.,  einzelne  Daten  einer  Datei 
können  Bestandteil  einer  anderen  Datei  sein.  Außerdem  verfügt 
eine  Datenbank  über  eine  eigene  Programmiersprache,  mit  der 
man  komplette  Anwendungsprogramme  schreiben  kann,  die  die 
in  der  Datenbank  gespeicherten  Daten  nutzen. 

Wie  gesagt  ist  Superbase  das  einzige  Programm  auf  dem  Com- 
modore 64,  das  den  Namen  Datenbank  verdient.  Mit  nur  99 
Mark  ist  es  zudem  recht  günstig  zu  haben.  Auch  die  meisten 
Dateiverwaltungen,  wie  etwa  Datamat,  das  ebenfalls  99  Mark 
kostet,  bewegen  sich  in  dieser  Preisregion.  Da  stellt  sich  natür- 
lich die  Frage,  ob  man  sich  anstelle  einer  einfachen  Dateiver- 
waltung nicht  lieber  gleich  Superbase  kaufen  soll. 

Nun,  das  hängt  vor  allem  davon  ab,  welche  Art  von  Daten  Sie 
verwalten  wollen.  Entscheidend  ist  aber  auch,  wie  intensiv  Sie 
sich  mit  der  ganzen  Materie  befassen  wollen. 
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Um  die  Fähigkeiten  eines  Programms,  wie  Superbase,  voll 
nutzen  zu  können,  muß  man  sich  mit  dem  Programm  sehr  ein- 
gehend beschäftigen,  was  natürlich  eine  Menge  Zeit  kostet. 

Mit  einer  Dateiverwaltung,  wie  Datamat,  können  Sie  dagegen 
sofort  loslegen,  ohne  sich  groß  mit  der  Handhabung  und  Bedie- 
nung des  Programms  herumzuschlagen.  Die  meisten  Programm- 
funktionen erschließen  sich  Ihnen  so  ganz  nebenbei  während  der 
Arbeit  mit  dem  Programm. 


Nehmen  wir  als  Beispiel  einmal  eine  Adreßdatei.  Zunächst  müs- 
sen Sie  festlegen,  welche  Daten  Sie  konkret  speichern  wollen. 
Ein  Datensatz  wird  dazu  in  einzelne  Datenfelder  unterteilt.  Das 
könnte  beispielsweise  so  aussehen: 


Nachname:  < 
Vorname:  < 

Strasse:  < 

Wohnort:  < 

PLZ:  < 

Telefon:  < 

Bemerkung :< 


Zwischen  den  "<"  und  H>"  können  Sie  später  die  einzelnen  Daten 
eingeben.  Die  meisten  Programme  sind  bei  der  Gestaltung  der 
Eingabemaske  sehr  flexibel.  So  kann  man  die  Anzahl  der  Da- 
tenfelder und  die  Länge  der  einzelnen  Datenfelder  in  der  Regel 
frei  wählen  (natürlich  innerhalb  gewisser  Grenzen). 


Haben  Sie  die  Eingabemaske  definiert,  kapn  es  mit  der  Daten- 
eingabe losgehen.  Eine  Beispielseingabe  in  die  obige  Maske 
könnte  zum  Beispiel  so  aussehen: 


Nachname:  «Müller 
Vorname:  «Egon 

Strasse:  «Irgendwostr.  2 

Wohnort:  «Irgendingen 


* 
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PLZ:  <1234> 

Telefon:  <12  34/56  78  90> 

Bemerkung :<Hat  am  15.12.  Geburtstag  > 


Durch  einen  Aufruf  der  entsprechenden  Funktion  wird  der  ein- 
gegebene Datensatz  auf  der  Diskette  dauerhaft  abgespeichert  und 
die  Eingabemaske  für  die  nächste  Eingabe  gelöscht.  Je  nach 
Größe  der  Datensätze  lassen  sich  in  einer  einzelnen  Datei  bis  zu 
mehrere  hundert  Datensätze  unterbringen. 

Nehmen  wir  nun  einmal  an.  Sie  haben  in  die  Adreßdatei  eine 
größere  Anzahl  von  Daten  eingegeben  und  möchten  jetzt  eine 
bestimmte  Adresse  heraussuchen.  Welche  Möglichkeiten  stellt  Ih- 
nen eine  gute  Dateiverwaltung  dazu  zur  Verfügung? 

Praktisch  jede  Dateiverwaltung  arbeitet  zumindest  mit  einem  so- 
genannten "Indexfeld",  das  man  beim  Einrichten  der  Datei  fest- 
legen muß.  In  unserer  Adreßdatei  könnte  das  beispielsweise  das 
Nachname-Feld  sein.  Sämtliche  Inhalte  des  Indexfeldes  werden 
komplett  im  Rechnerspeicher  gehalten  und  stehen  daher  blitz- 
schnell zur  Verfügung. 

f; 

Wenn  Sie  jetzt  zu  einem  bestimmten  Nachnamen  die  zugehörige 
Adresse  suchen,  vergleicht  die  Dateiverwaltung  den  Nachnamen 
mit  den  gespeicherten  Indizes  (da  diese  meist  alphabetisch  sor- 
tiert sind,  geht  das  sehr  schnell)  und  holt  dann  den  entsprechen- 
den Datensatz  von  der  Diskette. 

Eine  weitere  Möglichkeit,  an  bestimmte  Daten  zu  kommen,  ist 
das  "Durchblättern"  der  Datei  wie  bei  einem  Karteikasten.  Die 
Dateiverwaltung  verfügt  dazu  über  Funktionen,  mit  denen  man 
sich  den  jeweils  nächsten  oder  den  vorherigen  Datensatz  (bezo- 
gen auf  den  Datensatz,  der  sich  gerade  am  Bildschirm  befindet) 
oder  auch  den  ersten  und  den  letzten  Datensatz  einer  Datei  zei- 
gen lassen  kann.  Diese  Methode  eignet  sich  natürlich  nur  bei  ei- 
nem relativ  kleinen  Datenbestand,  sonst  hätte  man  ja  gleich 
beim  Karteikasten  bleiben  können  und  sich  nicht  extra  eine  Da- 
teiverwaltung kaufen  müssen. 
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Viel  interessanter  ist  da  die  Suche  nach  bestimmten  Suchkrite- 
rien. Hier  zeigt  eine  Dateiverwaltung  ihre  wahre  Stärke.  Oft 
kommt  es  ja  vor,  daß  man  von  einer  gesuchten  Adresse  nur  ein 
bestimmtes  Datenfeld  kennt,  beispielsweise  den  Vornamen  oder 
die  Straße.  Eine  "Anfrage"  an  die  Dateiverwaltung  könnte  dann 
so  aussehen: 


Nachname:  <*  > 

Vorname:  «Egon  > 

Strasse:  <*  > 

Wohnort:  <*  > 

PLZ:  <*  > 

Telefon:  <*  > 

Bemerkung:«*  > 


oder  so: 


Nachname: 

<* 

> 

Vorname: 

<* 

> 

Strasse: 

<lrgendwostr. 

> 

Wohnort: 

PLZ: 

Telefon: 

<* 

<*  > 

<*  > 

> 

Bemerkung:«* 

> 

Die  Dateiverwaltung  sucht  daraufhin  alle  Personen  heraus,  die 
mit  Vornamen  Egon  heißen  bzw.  in  der  Irgendwostraße  wohnen. 
Die  Sterne  (*)  in  den  anderen  Datenfeldern  signalisieren  der 
Dateiverwaltung,  daß  diese  Felder  bei  der  Suche  nicht  berück- 
sichtigt werden  sollen. 


Natürlich  lassen  sich  auch  mehrere  Suchkriterien  miteinander 
verknüpfen: 
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Nachname:  <* 

> 

Vorname:  <Egon 

> 

Strasse:  <* 

> 

Wohnort:  «Irgendingen 

PLZ:  <*  > 

> 

Telefon:  <*  > 

Bemerkung :<* 

> 

Die  Dateiverwaltung  sucht  nun  alle  Egons,  die  in  Irgendingen 
wohnen. 

Diese  Abfragen  sind  schon  recht  komplex  (verglichen  mit  den 
Möglichkeiten  eines  Karteikastens).  Es  geht  aber  noch  raffinier- 
ter. Dazu  verfügen  die  meisten  Dateiverwaltungen  über  ein  so- 
genanntes "Jokerzeichen".  Ein  Jokerzeichen  (zum  Beispiel  das 
Fragezeichen  "?")  kann  in  einer  Abfrage  für  jedes  beliebige  an- 
dere Zeichen  stehen: 


Nachname: 

<M??er 

> 

Vorname: 

<* 

> 

Strasse: 

<* 

> 

Wohnort : 

«Irgend Ingen 

> 

PLZ: 

<*  > 

Telefon: 

<*  > 

Bemerkung:«* 

> 

Durch  diese  Angabe  werden  alle  Personen  herausgesucht,  die  in 
Irgendingen  wohnen  und  "Mayer",  "Maier"  oder  "Meier"  heißen! 
Der  zweite  und  der  dritte  Buchstabe  des  Nachnamens  sind  in 
diesem  Fall  bei  der  Suche  ohne  Belang. 

Hat  man  die  gesuchten  Daten  erst  einmal  gefunden,  möchte  man 
natürlich  etwas  mehr  damit  anfangen  können,  als  sie  nur  am 
Bildschirm  lesen  zu  können.  Zwar  hat  man  bei  einer  Dateiver- 
waltung nicht  die  Weiterverarbeitungsmöglichkeiten  wie  bei  ei- 


Was  man  mit  dem  C64  alles  machen  kann 


215 


ner  Datenbank.  Zwei  Grundfunktionen  stel 
teiverwaltung  zur  Verfügung:  das  Ablegen 
separaten  Datei  und  das  Ausdrucken  der  Da 


t aber  fast  jede  Da- 
der  Daten  in  einer 
:en. 


Nachdem  die  Daten  in  einer  separaten  Da 
können  Sie  sie  mit  einem  anderen  Program 
beispielsweise  einer  Textverarbeitung,  um 
stellen. 


tei  abgelegt  wurden, 
im  weiterverarbeiten, 
Serienbriefe  zu  er- 


Zum  Ausdrucken  der  Daten  erlaubt  beispie 
Erstellung  einer  speziellen  Druckmaske  (ä 
maske),  mit  der  man  die  Daten  leicht  in  da; 
format  bringen  kann.  Adressen  etwa  möch 
auf  Adreßaufklebern  aufdrucken,  wobei 
außer  dem  Vor-  und  Nachnamen,  der  Straß 
überflüssig  ist.  In  unserer  Adreßdatei  dürfte 
nummer  sowie  die  Bemerkungen  nicht  gedru< 
Druckmaske  kein  Problem. 


lsweise  Datamat  die 
hnlich  der  Eingabe- 
gewünschte Druck- 
te man  ja  vielleicht 
n diesem  Fall  alles 
e und  dem  Wohnort 
n also  die  Telefon- 
ckt  werden.  Mit  der 


Neben  der  Datensuche  stellt  auch  die  Pflege  der  Daten  einen 
ganz  wichtigen  Punkt  dar.  Damit  meint  man  die  Veränderung 
vorhandener  Datensätze  einer  Datei.  Es  könnte  ja  zum  Beispiel 
sein,  daß  ein  Freund  umzieht  oder  sich  dessen  Telefonnummer 
ändert.  In  diesem  Fall  muß  man  die  entsprechenden  Daten  pro- 
blemlos korrigieren  können. 


Das  Ändern  eines  Datensatzes,  aber  auch  das  Löschen  von  Da- 
tensätzen gehören  daher  zum  Standard  jeder  Dateiverwaltung. 
Darüber  hinaus  erlauben  viele  Programme  auch  die  Sortierung 
der  einzelnen  Datensätze  nach  einem  bestimmten  Datenfeld.  In 
unserem  Beispiel  könnte  man  die  Datei  beispielsweise  alphabe- 
tisch nach  den  Wohnorten  sortieren  lassen.  Während  man  mit 
einer  Dateiverwaltung  jeweils  nur  "innerhalb"  einer  Datei  arbei- 
ten kann,  ist  eine  Datenbank,  wie  Superbase,  in  der  Lage  Datei- 
ü bergreifend  zu  arbeiten.  Einzelne  Datensätze  einer  Datei,  die 
man  zum  Beispiel  durch  bestimmte  Suchkriterien  "herausgefil- 
tert" hat,  lassen  sich  so  leicht  in  einer  anderen  oder  auch  in 
einer  neuen  Datei  unterbringen. 
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Dadurch  gestaltet  sich  auch  die  Umorganisierung  bestehender 
Dateien  relativ  einfach.  Bei  einer  Dateiverwaltung  läßt  sich  an 
der  Struktur  einer  Datei  in  der  Regel  nichts  mehr  ändern,  ohne 
daß  die  bereits  eingegebenen  Datensätze  verloren  gehen.  Nehmen 
wir  zum  Beispiel  einmal  an,  Sie  haben  eine  Adreßdatei  mit  fol- 
gender Eingabemaske  definiert: 


Nachname: 

< 

> 

Vorname: 

< 

> 

Strasse: 

< 

> 

Uohnort : 

< 

> 

und  vielleicht  bereits  die  ersten  50  Datensätze  eingegeben.  Und 
nun  stellen  Sie  fest,  daß  Sie  ja  die  Telefonnummer  vergessen  ha- 
ben! Würde  man  die  Eingabemaske  jetzt  einfach  umändern  in: 


Nachname: 

< 

> 

Vorname: 

< 

> 

Strasse: 

< 

> 

Wohnort : 

< 

> 

Telefon: 

< 

> 

dann  würden  die  bereits  eingegebenen  Datensätze  natürlich  nicht 
mehr  in  dieses  Schema  passen.  Das  Gleiche  gilt  auch  für  die 
Länge  der  einzelnen  Datenfelder.  Wenn  Sie  beispielsweise  später 
feststellen,  daß  Sie  das  Feld  für  die  Straße  zu  knapp  dimensio- 
niert haben,  bleibt  Ihnen  nur  das  Abkürzen  zu  langer  Straßen- 
namen oder  die  Neueingabe  der  Datensätze.  Mit  einer  Datenbank 
sind  solche  Änderungen  kein  Problem! 

Nimmt  man  sich  die  Zeit  und  arbeitet  sich  in  die  Programmier- 
sprache einer  Datenbank  ein  (die  Programmiersprache  von  Su- 
perbase baut  übrigens  auf  dem  BASIC  2.0  des  Commodore  64 
auf  und  dürfte  daher  BASIC-Programmierern  kaum  Probleme 
bereiten),  so  lassen  sich  sehr  komplexe  Datenauswertungen  re- 
alisieren. Nehmen  wir  wieder  ein  konkretes  Beispiel: 
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Sie  möchten  in  Ihrem  Kleinbetrieb  das  Rechnungswesen  und  die 
Kundenverwaltung  vereinfachen.  Dazu  legen  Sie  mit  Superbase 
zunächst  mehrere  Dateien  an:  eine  Adreßdatei  mit  den  Kun- 
denadressen, eine  Kontendatei  mit  sämtlichen  Kontenbewegun- 
gen sowie  eine  Lagerdatei,  in  der  die  im  Lager  verfügbaren  Ar- 
tikel gespeichert  sind. 

Für  die  einzelnen  Verwaltungs Vorgänge  schreiben  Sie  sich  an- 
schließend individuelle  Programme.  Ein  Programm  zum  Bear- 
beiten einer  eingehenden  Bestellung  könnte  beispielsweise  so 
aufgebaut  sein: 

Das  Programm  erfragt  den  Namen  des  Kunden  und  sieht  an- 
schließend in  der  Adreßdatei  nach,  ob  der  Kunde  früher  schon 
etwas  bestellt  hat.  Falls  nicht,  wird  seine  Adresse  in  die  Adreß- 
datei auf  genommen  und  in  der  Kontodatei  ein  neues  Konto  für 
ihn  eingerichtet. 

Anschließend  erfragt  das  Programm  die  bestellten  Artikel.  Bei 
jedem  Artikel  sieht  das  Programm  dann  in  der  Lagerdatei  nach, 
ob  der  Artikel  überhaupt  lieferbar  ist  und  gegebenenfalls  in 
welcher  Stückzahl.  Bei  nicht  lieferbaren  Artikeln  gibt  es  eine 
entsprechende  Meldung  aus. 

Zum  Schluß  erstellt  das  Programm  die  Rechnung  und  druckt  sie 
aus.  Details  wie  Mehrwertsteuer,  Rabatte  und  ähnliches,  werden 
dabei  automatisch  berücksichtigt.  Und  natürlich  vergißt  das  Pro- 
gramm nicht,  den  Liefervorgang  in  der  Kontendatei  zu  vermer- 
ken und  die  Lagerdatei  auf  den  neuesten  Stand  zu  bringen. 

Sie  sehen,  mit  einer  Datenbank  kann  man  sich  ganz  individuelle, 
maßgeschneiderte  Problemlösungen  erstellen.  Gute  Programmier- 
kenntnisse sind  dazu  allerdings  schon  erforderlich. 


2.5  DFÜ 

In  den  Medien  war  während  der  letzten  Jahre  immer  wieder  die 
Rede  von  ihnen:  Hackern,  die  mit  Hilfe  ihrer  Heimcomputer  in 
fremden  Datennetzen  "herumwildern"  und  sich  unberechtigten 
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Zugang  zu  Datenbanken  verschaffen.  Das  Stichwort  hierzu  heißt 
Daten-Fernübertragung  oder  kurz  DFÜ.  Natürlich  möchte  ich 
Sie  hier  jetzt  nicht  zu  irgendwelchen  illegalen  Aktivitäten  ani- 
mieren, mit  Hilfe  der  DFÜ  lassen  sich  aber  auch  auf  ganz  legale 
Weise  eine  Menge  interessanter  Dinge  anfangen. 

Das  Grundkonzept  der  Daten-Fernübertragung  ist  im  Grunde 
genommen  sehr  einfach:  Über  das  öffentliche  Telefonnetz,  das  ja 
mittlerweile  bis  in  die  entlegensten  Winkel  der  Welt  reicht,  wer- 
den zwei  Computer  miteinander  verbunden,  um  Daten  auszu- 
tauschen. Am  einen  Ende  der  Leitung  befindet  sich  Ihr  Commo- 
dore 64,  am  anderen  Ende  irgendein  anderer  Computer.  Ob  es 
sich  dabei  ebenfalls  um  einen  Commodore  64,  um  einen  Perso- 
nalcomputer oder  um  einen  Großcomputer  handelt,  ist  völlig 
egal.  Spezielle  Hardwareeinrichtungen  und  Programme  auf  bei- 
den Seiten  sorgen  dafür,  daß  es  bei  der  Rechnerkommunikation 
keine  Probleme  gibt. 

Die  Hardware-Einrichtung,  die  man  für  den  Commodore  64 
benötigt,  ist  entweder  ein  Akustikkoppler  oder  ein  Modem. 
Beide  Geräte  arbeiten  die  vom  Commodore  64  gesendeten  Si- 
gnale derart  auf,  daß  sie  über  das  Telefonnetz  geschickt  werden 
können,  bzw.  bearbeiten  die  über  das  Telefon  hereinkommenden 
Signale,  damit  der  64’er  sie  verstehen  kann. 

Ein  Akustikkoppler  arbeitet,  wie  der  Name  schon  sagt,  auf  aku- 
stischem Weg.  Dazu  müssen  Sie  den  Hörer  des  Telefons  auf  den 
Akustikkoppler  auflegen.  Ein  Modem  dagegen  wird  direkt  per 
Kabel  an  das  Telefon  angeschlossen,  der  Umweg  über  den  Te- 
lefonhörer entfällt.  Ein  Modem  stellt  daher  das  "professionel- 
lere", aber  auch  teurere  der  beiden  Geräte  dar. 

Ein  Modem  garantiert  durch  die  Direktverbindung  eine  wesent- 
lich bessere  Übertragungsqualität.  Zwar  verfügen  Akustikkoppler 
über  spezielle  "Muffen",  in  die  der  Telefonhörer  eingelegt  wird. 
Laute  Außengeräusche  können  diese  Muffen  aber  auch  nicht  ab- 
halten, so  daß  es  leicht  zu  Verfälschungen  bei  der  Datenübertra- 
gung kommen  kann. 
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Manche  Modems  sind  auch  in  gewisser  Weise  "intelligent",  d.h. 
programmierbar.  So  verfügen  viele  Geräte  über  eine  automati- 
sche Wählfunktion.  Eine  einmal  vom  Computer  aus  eingegebene 
Telefonnummer  wird  dann  vom  Modem  so  lange  (in  bestimmten 
Zeitabständen)  angewählt,  bis  sich  der  Teilnehmer  meldet. 

Wie  Sie  vielleicht  wissen  ist  die  Deutsche  Bundespost  sehr  pin- 
gelig, was  den  Anschluß  von  Fremdgeräten  an  das  öffentliche 
Telefonnetz  betrifft.  Wenn  Sie  sich  einen  Akustikkoppler  oder 
ein  Modem  kaufen  wollen,  sollten  Sie  deshalb  nicht  nur  auf  den 
Preis  achten,  sondern  auch  sichergehen,  daß  das  Gerät  über  eine 
sogenannte  FTZ-Zulassung  verfügt. 

Sonst  riskieren  Sie  großen  Ärger  mit  der  Post,  der  sich  in  hohen 
Geldstrafen  und  einer  evtl.  Beschlagnahmung  Ihrer  Computer- 
anlage niederschlagen  kann.  Wenn  Sie  jetzt  vielleicht  denken,  das 
Gerät  sieht  bei  mir  doch  keiner,  wie  sollte  die  Post  je  davon 
erfahren:  Die  Post  ist  in  der  Lage,  Ihren  Telefonanschluß  vom 
Fernmeldeamt  aus  "auszumessen".  Dabei  kann  sie  feststellen,  ob 
an  Ihrem  Telefon  irgendwelche  Fremdgeräte  angeschlossen  sind. 

Der  Anschluß  eines  Modems  oder  eines  Akustikkopplers  an  den 
Commodore  64  bereitet  in  der  Regel  kaum  Probleme.  Es  gibt  in 
der  Zwischenzeit  von  verschiedenen  Herstellern  spezielle  An- 
schlußkabel, mit  denen  man  die  Geräte  am  User-Port  des  64’ers 
anschließen  kann. 

Mit  einem  Akustikkoppler  oder  einem  Modem  allein  können  Sie 
noch  nicht  viel  anfangen.  Was  Sie  noch  brauchen,  ist  die  richtige 
Software.  Das  beste  ist  ein  sogenanntes  Terminal-Programm. 
Wenn  Sie  allerdings  nur  einfache  Texte  "versenden"  wollen, 
reicht  unter  Umständen  auch  ein  Textverarbeitungsprogramm. 
Textomat  Plus  beispielsweise  hat  eine  spezielle  DFÜ-Funktion, 
mit  der  man  Texte  per  DFÜ  verschicken  und  empfangen  kann. 

Mit  einem  Terminal-Programm  läßt  sich  natürlich  wesentlich 
mehr  anfangen.  Doch  was  eigentlich  genau? 

Da  wäre  zunächst  einmal  die  Informationsbeschaffung.  Es  gibt 
eine  ganze  Reihe  von  Informationsdiensten  und  Datenbanken, 
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aus  denen  man  per  DFÜ  Informationen  fast  jeder  Art  beziehen 
kann.  Der  große  Vorteil  dabei  ist  natürlich  die  Geschwindigkeit, 
mit  der  man  die  Informationen  bekommt.  Anstatt  in  eine  Bi- 
bliothek zu  gehen  und  dort  dicke  Lexika  zu  wälzen,  was  viel- 
leicht einen  halben  Tag  oder  mehr  beansprucht,  hat  man  die 
benötigten  Informationen  aus  einer  Datenbank  meist  in  Minu- 
tenschnelle. 

Das  hat  allerdings  auch  seinen  Preis.  Die  einzelnen  Informati- 
onsdienste verlangen  zum  Teil  recht  hohe  Gebühren.  Eine  um- 
fangreiche "Recherche"  kann  da  - neben  den  Telefonkosten  - 
leicht  20  Mark  und  mehr  kosten. 

Für  den  Hobby-DFÜler  schon  wesentlich  interessanter  und  auch 
kostengünstiger  ist  da  die  Nutzung  sogenannter  Mailboxen.  Bei 
einer  "Mailbox"  handelt  es  sich  um  eine  Art  "elektronischem 
Briefkasten". 

Eine  Mailbox  besteht  in  der  Regel  aus  einem  öffentlichen  und 
einem  privaten  Teil.  Der  öffentliche  Teil  ist  für  alle  Nutzer  frei 
zugänglich.  Dort  erhält  man  beispielsweise  aktuelle  Informatio- 
nen über  wichtige  Termine,  findet  Kauf-  und  Verkaufsgesuche 
und  zum  Teil  auch  Werbung  für  verschiedenste  Produkte.  Das 
ganze  läßt  sich  noch  am  ehesten  mit  einer  "Pinwand"  oder  einem 
"Schwarzen  Brett"  vergleichen.  Wenn  man  möchte,  kann  man 
dort  auch  selbst  Nachrichten  hinterlassen. 

Oft  möchte  man  aber  irgendeinem  Freund  eine  persönliche 
Nachricht  zukommen  lassen,  ihm  sozusagen  einen  elektronischen 
Brief  schreiben.  Zu  diesem  Zweck  gibt  es  den  privaten  Teil  der 
Mailbox.  Dort  kann  man  sich  einen  persönlichen,  elektronischen 
"Briefkasten"  einrichten  lassen.  Dieser  Briefkasten  ist  mit  einem 
Codewort  oder  einer  Codezahl,  die  nur  der  betreffende  Briefka- 
steninhaber kennt,  geschützt,  so  daß  nicht  jeder  Mailbox-Anru- 
fer  dessen  persönliche  Briefe  lesen  kann. 

Wenn  Sie  dem  Betreffenden  jetzt  einen  Brief  schreiben  wollen, 
senden  Sie  diesen  einfach  per  DFÜ  an  die  Mailbox,  diese  legt 
ihn  dann  in  dessen  Briefkasten  ab.  Sobald  Ihr  Freund  dann  selbst 
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die  Mailbox  anruft,  teilt  ihm  diese  sofort  mit,  daß  ein  Brief  für 
ihn  eingegangen  ist  (oder  er  sieht  selbst  in  seinem  Briefkasten 
nach). 

Durch  die  Arbeit  mit  einer  Mailbox  kann  man  seinen  Brief- 
wechsel also  wesentlich  vereinfachen  und  beschleunigen,  zumal 
die  meisten  Mailboxen  rund  um  die  Uhr  erreichbar  sind. 

Wem  die  Arbeit  mit  Akustikkoppler  und  Terminalprogramm  zu 
kompliziert  ist,  der  kann  sich  auf  dem  Commodore  64  auch  ei- 
nes anderen  DFÜ-Mediums  bedienen:  Bildschirmtext  oder  kurz 
Btx.  Was  Btx  ist  und  was  man  damit  machen  kann,  dürfte  in  der 
Zwischenzeit  wohl  nahezu  jeder  wissen.  Der  Werberummel  der 
Bundespost  war  und  ist  schließlich  groß  genug.  Trotzdem  werde 
ich  im  folgenden  kurz  darauf  eingehen.  Die  wichtigste  Frage  ist 
natürlich  zunächst,  wie  kommt  man  mit  Hilfe  des  Commodore 
64  in  den  Genuß  von  Btx? 

Ähnlich  wie  bei  der  "normalen"  DFÜ  spielt  auch  bei  Btx  das 
Telefon  eine  zentrale  Rolle.  Anstelle  eines  Akustikkopplers 
benötigt  man  einen  sogenannten  "Btx-Decoder",  der  von  Com- 
modore für  etwa  400  Mark  angeboten  wird.  Damit  hat  man  die 
größte  Investition  auch  schon  hinter  sich.  Der  Rest  sind  Gebüh- 
ren, zum  einen  für  den  Btx-Anschluß  durch  die  Bundespost, 
zum  anderen  natürlich  für  die  laufende  Nutzung  des  Btx-Ange- 
botes.  An  Telefongebühren  entstehen  grundsätzlich  nur  Ortsta- 
rifgebühren, also  DM  0,23  für  eine  Einheit. 

Btx  mit  dem  Commodore  64  hat  viele  Vorteile.  Wenn  man  Btx 
mit  einem  Fernsehgerät  einsetzen  möchte,  entstehen  wesentlich 
höhere  Kosten.  Allein  schon  die  dafür  erforderliche  separate 
Tastatur  kostet  wesentlich  mehr  als  der  ganze  Commodore  64, 
bei  dem  man  die  Tastatur  ja  sozusagen  kostenlos  mitgeliefert  be- 
kommt. Außerdem  kann  man  mit  dem  64’er  Informationen,  die 
man  über  Btx  bezieht  auf  Diskette  abspeichern  und  mit  einem 
grafikfähigen  Drucker  sogar  ausdrucken  lassen! 
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Was  kann  man  mit  Btx  nun  konkret  anfangen? 

Btx  wird  von  einem  Computer  in  Ulm,  der  sogenannten  Leit- 
stelle, zentral  gesteuert.  Daran  angeschlossen  sind  etwa  50  regio- 
nale Vermittlungsstellen,  die  man  in  jeder  größeren  Stadt  findet. 
Die  einzelnen  Btx-Dienste  werden  von  den  verschiedensten,  ge- 
werblichen Anbietern  bereitgestellt,  die  dafür  auch  recht  unter- 
schiedliche Gebühren  verlangen.  Der  Kontakt  mit  Btx  läuft  im- 
mer über  eine  der  regionalen  Vermittlungsstellen,  die  einen  ge- 
gebenenfalls (etwa  bei  einer  Versandhaus-Bestellung)  zu  dem 
jeweiligen  Anbieter  "durchschaltet". 

Das  größte  Btx-Angebot  besteht  bei  den  Informationsdiensten. 
Die  neuesten  Aktienkurse  lassen  sich  ebenso  abrufen  wie  aktu- 
elle Fahrplanänderungen  der  Deutschen  Bundesbahn.  Das  ge- 
samte Angebot  ist  dabei  in  einzelne  Bildschirmseiten  eingeteilt, 
die  direkt  über  ihre  Nummer  auf  gerufen  werden  können. 

Natürlich  gibt  es  die  verschiedensten  Hilfen,  um  ein  bestimmtes 
Angebot  zu  finden,  unter  anderem  einen  Schlagwortkatalog  so- 
wie ein  Anbieter-  und  ein  Sachverzeichnis.  Sucht  man  beispiels- 
weise ein  bestimmtes  Warenangebot,  etwa  Schuhe,  so  gibt  man 
einfach  als  Schlagwort  "Schuhe"  an  und  erhält  dann  ein  Ver- 
zeichnis aller  Schuhanbieter,  aus  dem  man  auswählen  kann. 

Damit  wären  wir  auch  schon  beim  zweiten  großen  Angebotsbe- 
reich, dem  Bestell-Service.  Nicht  nur  bei  den  großen  Versand- 
häusern, auch  bei  zahlreichen  kleineren  Anbietern  kann  man 
über  Btx  bequem  und  schnell  Waren  jeder  Art  bestellen.  Aller- 
dings sinkt  erfahrungsgemäß  die  Hemmschwelle,  etwas  zu  kau- 
fen, auf  ein  Minimum,  je  leichter  man  es  dabei  hat.  Da  ist  es 
gut,  wenn  man  sich  vorher  über  seinen  aktuellen  Kontostand  bei 
der  Bank  informieren  kann.  Auch  das  geht  über  Btx! 

Voraussetzung  dafür  ist  natürlich,  daß  Ihre  Bank  einen  entspre- 
chenden Service  anbietet  und  Sie  mit  der  Bank  eine  entspre- 
chende Vereinbarung  getroffen  haben.  Dann  können  Sie  mit  Btx 
sogar  Überweisungen  von  und  auf  Ihr  Konto  tätigen. 
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In  diesem  Zusammenhang  stellt  sich  natürlich  die  Frage  der  Da- 
tensicherheit von  Btx.  Schließlich  möchten  Sie  ja  nicht,  daß  ein 
Fremder  Einblicke  in  Ihre  Finanzen  erhält  oder  gar  Geld  von 
Ihrem  Konto  abbucht.  Sehr  ärgerlich  ist  es  auch,  wenn  man 
Waren  geliefert  bekommt,  die  man  gar  nicht  bestellt  hat. 

Für  alle  diese  Fälle  sind  in  Btx  (mehr  oder  minder)  wirksame 
Schutzmaßnahmen  getroffen.  Absolute  Sicherheit  kann  es  aber 
nie  geben.  Wie  wirksam  der  Schutz  ist,  hängt  letztendlich  auch 
von  einem  selbst  ab.  Für  Banküberweisungen  über  Btx  bei- 
spielsweise erhält  man  von  der  Bank  eine  Liste  mit  mehrstelligen 
Codenummern,  von  denen  man  jede  nur  einmal  benutzen  kann. 
Bei  jedem  Überweisungsvorgang  muß  man  neben  der  Bankleit- 
zahl und  seiner  Kontonummer  eine  dieser  Codenummern  zusätz- 
lich angeben.  Die  Codenummern  werden  von  einem  Bankcom- 
puter nach  einem  speziellen  Verfahren  berechnet,  das  nur  der 
Computer  selbst  kennt. 

Ein  unüberwindbarer  Schutz,  könnte  man  meinen.  Doch  wenn 
Sie  unvorsichtiger  Weise  die  Liste  mit  den  Codenummern  unbe- 
aufsichtigt herumliegen  lassen,  kann  sie  leicht  in  falsche  Hände 
geraten.  Wenn  der  Betreffende  dann  auch  noch  Ihre  Kontonum- 
mer kennt,  hat  er  freien  Zugang  zu  Ihrem  Konto.  Das  ist  eben 
eines  der  Risiken  moderner  Kommunikationssysteme,  wie  Btx, 
die  man  gegebenenfalls  ab  wägen  muß. 


2.6  Lern-Software 

Der  Bereich  "Lern-Software"  dürfte  wohl  mit  das  schlagkräftig- 
ste Argument  sein,  den  Eltern  oder  Verwandten  den  Kauf  eines 
Commodore  64  schmackhaft  zu  machen.  Und  der  Computer  als 
Lernpartner  hat  ja  in  der  Tat  unbestreitbare  Vorteile:  Er  nimmt 
nichts  übel  und  er  ist  unendlich  geduldig.  Gerade,  wenn  es 
darum  geht,  reinen  Lernstoff  "einzupauken”,  wie  etwa  das  lei- 
dige Vokabeln  lernen  bei  Fremdsprachen,  ist  der  Computer  eine 
interessante  Alternative  zu  herkömmlichen  Lernmethoden. 

Besonders  beim  Kauf  von  Lern-Software  sollte  man  allerdings 
sehr  vorsichtig  sein.  Der  Nutzen  eines  Lernprogramms  steht  und 
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fällt  mit  den  didaktischen  Fähigkeiten  des  Programmierers.  Ein 
Vokabelprogramm,  das  einen  nur  auf  Fehleingaben  aufmerksam 
macht,  aber  keine  Lösungsvorschläge  unterbreitet,  ist  ebenso 
nutzlos  wie  ein  Lernprogramm  zum  Maschinenschreiben,  das 
keine  deutschen  Umlaute  beherrscht. 

Die  für  den  Commodore  64  erhältliche  Lern-Software  hat  mitt- 
lerweile allerdings  ein  sehr  hohes  Niveau  erreicht.  "Schwarze 
Schafe"  sind  nur  noch  selten  anzutreffen.  Trotzdem  sollte  man 
sich  die  Programme  vor  dem  Kauf  genau  anschauen  und  nach 
Möglichkeit  auch  am  Rechner  vorführen  lassen. 

Welche  Arten  von  Lern-Software  gibt  es  nun?  Alle  Lernpro- 
gramme lassen  sich  grob  in  drei  Kategorien  einteilen: 

Lern-Software  für  Kinder 

Bei  dieser  Art  von  Lern-Software  steht  das  spielerische  Element 
im  Vordergrund.  Einfache  Lerninhalte,  wie  etwa  das  Bruchrech- 
nen, werden  - meist  unterstützt  durch  grafische  und  musikali- 
sche Elemente  - spielerisch  vermittelt. 

Lern-Software  für  Schüler 

Lern-Software  für  Schüler  ist  als  Ergänzung  zum  Schulunterricht 
gedacht.  Die  Programme  orientieren  sich  daher  meist  an  im  Un- 
terricht eingesetzten  Lehrbüchern.  Im  Mittelpunkt  stehen  hier 
Programme  für  Fremdsprachen  und  Mathematik. 

Lern-Software  für  Erwachsene 

Zu  dieser  Kategorie  von  Lern-Software  zählen  zum  Beispiel 
Programme  zum  Erlernen  des  Maschinenschreibens  oder  Pro- 
gramme zum  Auffrischen  der  Allgemeinbildung.  Der  erste 
Schritt  beim  Kauf  von  Lern-Software  sollte  es  daher  sein,  fest- 
zustellen, für  welche  Altersgruppe  die  ins  Auge  gefaßten  Pro- 
gramme geeignet  sind.  Besonders  bei  Schul-Software  ist  auch  die 
angesprochene  Zielgruppe  (Realschule,  Gymnasium,  berufsbil- 
dende Schule  usw...)  sehr  wichtig. 
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Und  nicht  zuletzt  sollte  man  auch  das  Begleitmaterial  einer  ein- 
gehenden Prüfung  unterziehen.  Auch  ein  noch  so  gut  aufgebau- 
tes  Programm  wird  mitunter  die  eine  oder  andere  Frage  auf- 
werfen, die  sich  dann  nur  durch  ein  ausführliches  und  gut  ge- 
gliedertes Handbuch  klären  läßt. 

Stellvertretend  für  die  Vielzahl  der  angebotenen  Programme 
wollen  wir  uns  im  folgenden  einmal  einige  Lernprogramme  von 
Heureka  Teachware  anschauen,  die  über  eine  anerkannt  gute 
Qualität  verfügen. 

Beginnen  wir  mit  einem  Lernprogramm  für  die  Grundschule: 
Der  neue  Rechenmax.  Wie  der  Name  schon  vermuten  läßt,  geht 
es  hier  ums  Rechnen,  genauer  gesagt  um  die  vier  Grundrechen- 
arten. 

Der  erste  positive  Eindruck  stellt  sich  schon  beim  Laden  ein. 
Das  Programm  ist  durch  einen  eingebauten  Schnel-Lader  extrem 
schnell  betriebsbereit.  Die  Steuerung  des  Programms  erfolgt 
durchweg  über  Menüs  und  ist  daher  sehr  sicher.  Positiv  fällt 
auch  die  mögliche  Druckerausgabe  auf.  Erfolgreich  durchge- 
führte Berechnungen  lassen  sich  so  leicht  auf  Papier  "verewigen", 
indem  man  einfach  eine  Hardcopy  des  Bildschirms  macht. 

Ein  Programm,  das  nur  die  vier  Grundrechenarten  anbietet,  wird 
wohl  nichts  großes  leisten,  könnte  man  meinen.  Doch  die  Auto- 
ren des  Rechenmax  haben  sich  einiges  einfallen  lassen. 

Zunächst  einmal  kann  man  sich  vom  Rechenmax  beliebige  Re- 
chenaufgaben stellen  lassen,  wobei  sich  der  Schwierigkeitsgrad 
von  eins  bis  sechs  individuell  einstellen  läßt.  Sollte  man  eine 
Aufgabe  einmal  nicht  selbständig  lösen  können,  so  kann  man  sie 
sich  vom  Programm  auch  vorrechnen  lassen.  Am  Ende  der 
Übungen  erhält  man  dann  eine  ausführliche  Erfolgskontrolle. 

Der  zweite  Teil  des  Programms  orientiert  sich  am  Grundschul- 
unterricht der  Klassen  eins  bis  vier.  Zu  jedem  Schuljahr  bzw. 
Halbjahr  gibt  es  passende  Übungen. 
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In  der  ersten  Klasse  wird  das  Zusammenzählen  und  Zerlegen  mit 
Hilfe  von  Würfeln  und  Bällen  spielerisch  eingeübt.  Auch  in  den 
Übungen  zu  den  anderen  Klassen  findet  man  immer  wieder 
spielerische  Aufgaben. 

Die  Bildschirmdarstellung  des  Rechenmax  kann  man  als  durch- 
weg gelungen  bezeichnen,  wie  überhaupt  das  ganze  Programm. 
Auf  übertrieben  aufwendige  Grafiken  wurde  verzichtet.  Da  alle 
Abbildungen  in  sogenannter  Blockgrafik  erzeugt  werden,  erfolgt 
der  Aufbau  sehr  schnell  und  es  entstehen  keine  unnötigen  War- 
tezeiten. 

Das  Handbuch  zum  Programm  führt  in  alle  Programmteile  in 
relativ  knapper  Form  ein.  Etwas  ausführlichere  Erläuterungen 
könnten  hier  sicher  nicht  schaden.  Da  sich  das  Programm  aber 
sehr  anschaulich  bedienen  läßt,  fällt  dies  nicht  weiter  ins  Ge- 
wicht. 

Hat  man  die  Grundschule  erst  einmal  hinter  sich,  so  fangen  die 
Probleme  mit  der  Mathematik  doch  erst  so  richtig  an.  Nicht  nur 
die  Algebra  macht  einem  zu  schaffen,  auch  die  Geometrie  hat  es 
in  sich. 

Zu  beiden  Bereichen  gibt  es  zwei  sehr  interessante  Programme: 
GEO-plus  und  ALI  1001.  Wie  auch  der  Rechenmax  verfügen 
beide  Programme  über  einen  Floppy-Beschleuniger  und  eine 
sehr  komfortable  Druckerausgabe,  was  insbesondere  bei  Geome- 
trieaufgaben natürlich  extrem  wichtig  ist. 

Sehen  wir  uns  zunächst  einmal  ALI  1001  an.  ALI  ist  ein  Alge- 
bra-Programm, das  den  Schulunterricht  von  Klasse  5 bis  zur 
Oberstufe  unterstützt. 

ALI  läßt  sich  grundsätzlich  auf  zwei  Arten  nutzen:  als  Lernpro- 
gramm bzw.  Lernspiel  und  als  Werkzeug  zum  Lösen  von  Aufga- 
ben. ALIs  Fähigkeiten  gehen  also  weit  über  ein  schlichtes  Lern- 
programm hinaus. 

Möchte  man  mit  ALI  lernen,  so  läuft  das  ganze  als  Spiel  mit 
oder  ohne  Punktebewertung  ab.  Dabei  hat  man  sogar  die  Mög- 
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lichkeit,  zu  zweit  zu  "spielen"!  Nachdem  man  ein  bestimmtes 
Stoffgebiet  ausgewählt  und  einige  weitere  Parameter  eingestellt 
hat,  kann  es  losgehen.  Da  das  Programm  bei  jedem  Durchgang 
mit  anderen  Zahlen  und  Formeln  arbeitet,  läßt  sich  jeder  Pro- 
grammteil praktisch  beliebig  oft  sinnvoll  durcharbeiten.  Nur  die 
Lösungswege  werden  einem  mit  der  Zeit  natürlich  immer  ver- 
trauter. Aber  das  ist  ja  auch  der  Sinn  des  Ganzen. 

Viel  interessanter  als  das  Lernen  wird  den  meisten  Anwendern 
die  Möglichkeit  erscheinen,  ALI  zum  Lösen  von  Aufgaben  ein- 
zusetzen. Da  das  Programm  es  gestattet,  (fast)  beliebige  Aufga- 
ben einzugeben,  kann  man  ALI  also  in  gewissem  Umfang  auch 
zum  Lösen  der  Hausaufgaben  einsetzen.  Natürlich  sollte  man  die 
Aufgaben  aber  zuerst  selbst  lösen  und  sich  erst  anschließend 
vergewissern,  ob  man  richtig  gerechnet  hat.  Nur  so  läßt  sich  ja 
der  gewünschte  Lerneffekt  erzielen.  Und  in  der  Prüfung  hat 
man  schließlich  auch  keinen  Commodore  64  zur  Verfügung. 

Wie  sieht  das  Aufgabenlösen  nun  konkret  aus? 

Nehmen  wir  ein  einfaches  Beispiel.  Sie  möchten  die  folgende 
Formel  berechnen:  648+(731-(69+7*8)/5)/2.  ALI  geht  wie  folgt 
vor. 


648+(731-(69+7*8)/5)/2 
* 648+<731- <69+565/55/2 
= 648+(731-125/5)/2 
« 648+<731-255/2 
« 648+706/2 
= 648+353 
= 1001 


Die  Lösung  durch  ALI  erfolgt  also  schrittweise,  so  daß  das 
Nachvollziehen  keine  Probleme  bereitet.  Auch  lineare  Glei- 
chungssysteme lassen  sich  leicht  bearbeiten: 


4(3x+1)-5(x+2)  = 3(x-7)-1 
12x-4-5(x+2)  = 3X-21-1 
12x-4-5x-10  = 3x-22 
7x-14  = 3x-22 
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4x-14  = -22 
4x  = -8 
x = -2 


Es  macht  einfach  Spaß,  dem  Programm  bei  der  Arbeit  zuzu- 
schauen! Sogar  Bruchterme  werden  vollständig  bearbeitet: 


3x+7  1 5 


6x+15  2 8x‘2-50 

NI  : 6x+15  = 3<2x+5) 

N2  : 2 »2 

N3  : 8x*2-50  = 2<2x+5>(2x-5) 

HN  : 6<2x+5)(2x-5) 

D = G \ (-2.5;2.5> 

Multiplikation  mit  dem  Hauptnenner  ergibt: 

(3x+7)*2(2x-5)  = 1*3<2x+5)(2x-5)-5*3 
2<3x+7)(2x-5)  = 3(4x"2-25)-15 
2(6x‘2-x-35)  = 12x‘2-75-15 
12x‘2-2x-70  = 12x‘2-90 
-2x-70  = -90 
-2x  = -20 
x = 10 


Neben  diesen  noch  relativ  einfachen  Problembereichen  be- 
herrscht ALI  auch  die  Arbeit  mit  Funktionen  aller  Art  in  Voll- 
endung. Dabei  wird  dann  praktisch  eine  komplette  Kurvendis- 
kussion durchgeführt:  Die  Wertetabelle  der  Funktion  wird  er- 
stellt, ihr  Schaubild  gezeichnet,  die  Nullstellen  bestimmt  usw... 
Das  Funktionenspektrum  reicht  dabei  von  einfachen  Geraden  bis 
hin  zu  Hyperbeln.  Nehmen  wir  als  letztes  Beispiel  doch  einmal 
eine  Nullstellenbestimmung: 


x‘3-5(3x-4)-10  = -2x(x+1) 
x‘3-15x+20-10  = -2x'2-2x 
x‘3-15x+10  = -2x‘2-2x 
x*3+2x*2-13x+10  = 0 


Nullstelle: 


x = 1 
0 
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<x-1)(x*2+3x-10)  * 0 
x*2+3x-10  = 0 


0*9+40=49  => 


-3+7 

x * * 2 

1 2 

-3-7 

x = * -5 

2 2 


Was  bei  ALI  vor  allem  überrascht,  ist  die  Flexibilität  und  Intel- 
ligenz mit  der  das  Programm  die  gestellten  Aufgaben  löst.  Alles 
in  allem  ist  ALI  sicher  eine  lohnende  Anschaffung  für  jeden 
Algbra-geschädigten  Schüler. 

Auch  das  Programm  GEO-plus  ist  kein  Lernprogramm  im  her- 
kömmlichen Sinne.  GEO-plus  ist  ein  Geometrieprogramm,  das 
Schüler  der  Klassen  7 bis  10  (an  Gymnasium  und  Realschule) 
beim  Konstruieren  von  Abbildungen  und  Körpern  aller  Art  un- 
terstützt. 

Neben  einfachen  Dreieckskonstruktionen  über  geometrische  Ob- 
jekte, wie  etwa  Geraden  und  Kreise,  lassen  sich  mit  GEO-plus 
sogar  Würfel  und  Kugeln  konstruieren.  Besonders  interessant  ist 
dabei,  daß  das  Programm  zu  jeder  Konstruktion  eine  genaue 
Beschreibung  der  Vorgehensweise  ausdruckt.  Anhand  dieser  Be- 
schreibung kann  man  die  Konstruktion  dann  leicht  selbst  auf 
dem  Papier  nachvollziehen. 

Nehmen  wir  ein  einfaches  Beispiel,  eine  Dreieckskonstruktion, 
wobei  die  drei  Seitenlängen  a,b  und  c gegeben  sind: 


Beschreibung 

Konstruiere  ein  Dreieck  ABC  aus  : 

1.  a=5cra,  2.  b=6cm  und  3.  c=7cm 

Wühle  Punkt  A. 

Zeichne  von  A aus  die  Strecke  c. 
Bezeichne  den  Streckenendpunkt  mit  B. 
Zeichne  den  Kreis  kl  um  A mit  Radius  b. 
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Zeichne  den  Kreis  k2  um  B mit  Radius  a. 

Bezeichne  mit  C einen  Schnittpunkt  von  kl  und  k2. 
Zeichne  die  Strecke  a=[B  C ]. 

Zeichne  die  Strecke  b=[A  C ]. 

Dreieck  ABC  ist  das  gesuchte  Dreieck. 


Wie  ALI,  so  läßt  sich  auch  GEO-plus  hervorragend  dazu 
"mißbrauchen",  die  Hausaufgaben  zu  lösen,  was  man  natürlich 
nur  im  Notfall  tun  sollte!  Denn  schließlich:  Übung  macht  den 
Meister.  Und  die  kann  einem  kein  auch  noch  so  gutes  Lernpro- 
gramm abnehmen. 

Im  Gegensatz  zu  den  bisher  vorgestellten  Programmen  geht  es 
bei  der  Reihe  "Learning  English"  ums  reine  Lernen,  genauer 
gesagt  um  das  Vokabel-Lernen.  "Learning  English"  ist  an  die 
gleichnamige  Buchreihe  aus  dem  Klett-Verlag  angelehnt  und 
besteht  aus  insgesamt  sechs  Teilen,  die  separat  erhältlich  sind. 
Jeder  Teil  umfaßt  etwa  1000  Vokabeln,  die  auf  vielfältige  Art 
und  Weise  eingeübt  werden  können. 

Die  Handbücher  der  einzelnen  Teile  sind  sehr  knapp  dimensio- 
niert und  beschränken  sich  auf  eine  Beschreibung  der  Bedienung 
der  Programme.  Zwar  kann  man  mit  den  Programmen  auch  so 
sehr  gut  arbeiten,  doch  empfiehlt  es  sich  trotzdem  die  entspre- 
chenden Klett-Bücher  zu  kaufen.  Mit  beiden  zusammen  läßt  sich 
ideal  arbeiten. 

Alle  Programme  dieser  Reihe  sind  analog  aufgebaut.  Zunächst 
wählt  man  die  Vokabeln  aus,  mit  denen  man  arbeiten  möchte. 
Das  können  die  Vokabeln  einer  kompletten  Unit  sein  oder  auch 
nur  Teile  daraus. 

Anschließend  kann  man  festlegen,  ob  die  Vokabeln  isoliert  oder 
im  Kontext,  d.h.  eingegliedert  in  Übungssätze,  eingeübt  werden 
sollen.  Hat  man  sich  für  die  isolierte  Abfrage  entschieden,  so 
gibt  es  auch  hier  noch  mehrere  Möglichkeiten: 

Vorgabe:  deutsche  Vokabel  • Gesucht:  englische  Vokabel 
Vorgabe:  englische  Vokabel  - Gesucht:  deutsche  Vokabel 
Vorgabe:  englische  Definition  - Gesucht:  englische  Vokabel 
Vorgabe:  Zufallsprinzip  - Gesucht:  engl./deutsche  Vokabeln 
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Schließlich  läßt  sich  auch  noch  einstellen,  in  welcher  Reihen- 
folge die  Vokabeln  abgefragt  werden  sollen. 

Diese  vielfältigen  Einstellmöglichkeiten  zeugen  schon  von  der 
Qualität  der  Programme.  Den  größten  Nutzen  bzw.  Lerneffekt 
bringen  die  Programme  aber  durch  ihre  ausgeklügelte  Abfrage- 
technik. 

Eine  Vokabel,  die  falsch  eingegeben  wurde,  wird  intern  im  Pro- 
gramm markiert  und  später  (während  der  Übung)  zweimal  er- 
neut abgefragt.  Erst  wenn  man  sie  zweimal  richtig  eingegeben 
hat,  wird  sie  als  "gekonnt"  gespeichert.  Vokabeln,  die  man  schon 
beim  ersten  Mal  vollständig  korrekt  eingegeben  hat,  werden 
später  nicht  noch  einmal  abgefragt.  Dadurch  ist  sichergestellt, 
daß  man  ohnhin  schon  bekanntes  nicht  ständig  unnötig  wieder- 
holt. 

Wer  eine  zusätzliche  Hilfe  benötigt,  kann  sich  auch  den  ersten 
und  letzten  Buchstaben  einer  gesuchten  Vokabel  vorgeben  lassen. 
Daß  man  am  Ende  der  Übung  eine  ausführliche  Lernstatistik  er- 
hält, versteht  sich  schon  fast  von  selbst. 

Alles  in  allem  ist  "Learning  English"  also  sehr  empfehlenswert. 
Der  einzige  Kritikpunkt  ist  die  fehlende  Möglichkeit,  den  Voka- 
belschatz zu  erweitern.  Dieser  Mangel  hängt  aber  wohl  mit  dem 
konzeptionellen  Aufbau  der  Reihe  zusammen.  Jedes  Programm 
ist  ja  als  Ergänzung  zu  dem  zugehörigen  Klett-Buch  gedacht. 

Wem  das  reine  Vokabelnlernen  zu  stupide  ist,  der  sollte  sich 
einmal  die  englischen  Sprachübungen  4-6  von  Heureka  Teach- 
ware  anschauen.  Diese  Übungen  bestehen  aus  drei  recht  origi- 
nellen Lernspielen.  Im  ersten  Spiel  "Caught  in  the  Castle"  bei- 
spielsweise geht  es  darum,  einen  entführten  Geheimagenten  aus 
einem  alten  Schloß  zu  befreien. 

In  allen  Lernspielen  muß  man  einen  Lückentext  ergänzen.  Bei 
"Caught  in  the  Castle"  sieht  das  zum  Beispiel  so  aus:  Man  befin- 
det sich  in  einer  bestimmten  Situation,  etwa  in  einem  Raum  mit 
einem  Schrank,  und  hat  nun  mehrere  Möglichkeiten: 
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Options: 

(a)  look  into  the  wardrobe 

(b)  open  the  window 

(c)  turn  the  light  on 

Possible  consequences: 

(1) a  helicopter  comes  along 

(2)  the  butler  brings  a drink 

(3)  an  alarm  bell  rings  outside 


Gibt  man  nun  beispielsweise  <a>  und  <1>  ein,  erscheint  folgen- 
der Lückentext, 


if  he 

into  the  wardrobe, 
a helicopter  


den  man  durch  "looked"  und  "would  come"  ergänzen  muß. 

Hier  geht  es  also  weniger  um  das  Lernen  neuer  Vokabeln,  son- 
dern mehr  um  das  Einüben  der  englischen  Grammatik.  Durch 
die  Vielzahl  der  Kombinationsmöglichkeiten  (im  obigen  Beispiel 
könnte  man  ja  auch  <b>  und  <3>  nehmen)  bleibt  der  Spielwert 
und  damit  auch  der  Lernwert  der  Programme  lange  erhalten. 


2.7  Spiele 

Wohl  für  keinen  anderen  Computer  gibt  es  ein  derart  umfang- 
reiches Angebot  an  Spielen  wie  für  den  Commodore  64.  Und 
manch  einer  wird  sich  den  Commodore  64  wohl  vor  allem  ge- 
kauft haben,  um  mit  ihm  zu  spielen.  In  diesem  Abschnitt  möchte 
ich  Ihnen  deshalb  einmal  anhand  bewährter  Spiele  einen  Über- 
blick geben,  welche  Spielgattungen  auf  dem  64’er  vertreten  sind. 
Das  Angebot  beschränkt  sich  nämlich  bei  weitem  nicht  nur  auf 
sogenannte  "Ballerspiele".  Neben  zum  Teil  recht  aufwendigen 
Simulationen  findet  man  auch  immer  mehr  Gesellschaftsspiele, 
mit  denen  man  zu  zweit  oder  mit  mehreren  Personen  spielen 
kann.  Ebenfalls  sehr  beliebt  sind  sogenannte  Adventures  und 
Rollenspiele. 
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Kein  Markt  ist  so  schnellebig  wie  der  Spielemarkt.  Die  meisten 
Spiele  sind  nur  wenige  Wochen  im  offiziellen  Verkauf,  dann 
kommen  schon  die  nächsten.  Da  fällt  es  natürlich  umso  schwe- 
rer, zu  entscheiden,  ob  ein  neues  Spiel  das  hält,  was  die  Wer- 
bung verspricht.  Diesen  Umstand  haben  sich  einige  Zeitschrif- 
tenverlage zunutze  gemacht.  Es  gibt  eine  ganze  Reihe  von  Zeit- 
schriften, die  sich  fast  ausschließlich  mit  dem  Testen  der  neue- 
sten Spiele  befassen.  Wer  sich  öfters  neue  Spiele  kaufen  möchte, 
sollte  solche  Spielezeitschriften,  die  man  an  jedem  größeren 
Kiosk  findet,  ruhig  regelmäßig  lesen;  manch  teurer  Mißgriff 
läßt  sich  dadurch  vermeiden. 

Bei  den  folgenden  Spielebeschreibungen  habe  ich  zum  Großteil 
auf  bewährte  "Klassiker"  zurückgegriffen,  die  trotz  ihres  zum 
Teil  schon  erheblichen  Alters  nichts  von  ihrem  Spielwert  einge- 
büßt haben. 

Da  die  Preise  von  Händler  zu  Händler  mitunter  sehr  verschieden 
sind,  habe  ich  auf  Preisangaben  bewußt  verzichtet.  Ganz  allge- 
mein liegen  die  Preise  etwa  zwischen  10  und  SO  Mark. 

Viele  ältere  Spiele  gibt  es  in  der  Zwischenzeit  auch  im  Sammel- 
paket, d.h.  mehrere  Spiele  (manchmal  bis  zu  zehn)  zum  Preis 
von  einem.  Da  lohnt  sich  das  Nachfragen  beim  Händler. 

Chuck  Yeager’s  AFT 

Chuck  Yeager’s  Advanced  Flight  Trainer  ist  eine  sehr  abwechs- 
lungsreiche Flugsimulation.  Nicht  weniger  als  14  verschiedene 
Flugzeuge  stehen  einem  zur  Verfügung,  von  einer  kleinen 
Cessna  bis  hin  zu  einem  F- 16- Jet  ist  alles  vorhanden.  Obwohl 
auch  Militärmaschinen  dabei  sind,  ist  das  Spiel  durchweg  fried- 
lich. Auf  das  "Durchexerzieren"  irgendwelcher  Kampfszenen 
wurde  lobenswerterweise  gänzlich  verzichtet.  Um  was  es  geht, 
sind  Wett-  und  Formationsflüge.  Wer  will,  kann  zunächst  auch 
in  eine  "Flugschule"  gehen,  um  dort  die  Grundtechniken  des 
Fliegens  zu  lernen.  Auf  dem  Programm  stehen  Starts  und  Lan- 
dungen, Geradeausflug,  Kurven  und  sogar  Loopings.  Dabei 
macht  es  natürlich  einen  Riesenunterschied,  ob  Sie  mit  einer 
Cessna  oder  einer  F-16  einen  Looping  drehen. 
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Bei  einem  Wettflug  geht  es  darum,  gegen  einen  anderen  vom 
Computer  simulierten  Piloten  als  erster  eine  Slalomstrecke  zu 
durchfliegen.  Sechs  unterschiedliche  Strecken  stehen  dazu  zur 
Auswahl. 

Beim  Formationsfliegen  müssen  Sie  versuchen,  möglichst  genau 
hinter  einem  anderen  Flugzeug  her  zu  fliegen.  Für  Abweichun- 
gen von  der  Flugbahn  gibt  es  Abzüge.  Mit  Hilfe  des  integrierten 
Flugrekorders  lassen  sich  auch  eigene  Flüge  aufnehmen,  so  daß 
man  anschließend  sozusagen  sich  selbst  hinterherfliegen  kann. 
Selbstkreierte  Formationen  kann  man  so  sehr  leicht  einüben  und 
später  dann  seinen  Freunden  "vorfliegen". 

Deactivators 

Deactivators  ist  eine  Mischung  aus  Denkspiel  und  Actionspiel, 
wobei  beide  Spielgattungen  gleichberechtigt  nebeneinader  stehen. 

In  insgesamt  fünf  Gebäuden  haben  Terroristen  einige  Bomben 
gelegt,  die  in  kurzer  Zeit  explodieren  können.  Ihre  Aufgabe  ist 
es  nun,  diese  Bomben  mit  Hilfe  von  Spezialröbotern  aus  den 
Gebäuden  zu  schaffen. 

Das  schwierigste  an  der  ganzen  Aufgabe  ist  es  nun  nicht,  die 
Bomben  zu  finden,  sondern  die  Roboter  überhaupt  heil  durch 
die  Gebäude  zu  bringen.  Es  gibt  nämlich  nicht  nur  allerlei 
Wächter,  die  den  Robotern  nach  dem  "Leben"  trachten,  auch  die 
Schwerkraftverhältmnisse  in  den  einzelnen  Räumen  haben  ihre 
Tücken.  In  manchen  Räumen  befindet  sich  "unten"  an  einer  der 
Seiten  oder  gar  an  der  Decke.  Auch  sind  nicht  alle  Räume  durch 
eine  Tür  verbunden. 

Da  das  ganze  gegen  die  Zeit  läuft  (eine  der  Bomben  könnte  ja 
jeden  Augenblick  explodieren),  ist  für  ausreichenden  Nerven- 
kitzel gesorgt. 

Elite 

Das  Spiel  Elite  kann  man  als  Klassiker  schlechthin  bezeichnen. 
Elite  ist  ein  kombiniertes  Strategie-Action-Spiel,  das  im  Welt- 
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raum  spielt.  Als  intergalaktischer  Händler  müssen  Sie  nicht  nur 
kaufmännisches  Geschick  beweisen,  sondern  sich  auch  gegen  al- 
lerlei Gefahren,  beispielsweise  Raumpiraten,  erwehren. 

Elite  ist  recht  leicht  zu  erlernen,  dafür  aber  ungeheuer  komplex.  • 
Selbst  gute  Spieler  brauchen  meist  Monate,  um  "Elite-Kämpfer" 
zu  werden. 

Obwohl  bei  Elite  auch  die  Action  nicht  zu  kurz  kommt,  steht 
das  strategische  Element  im  Mittelpunkt.  Es  gilt  vor  allem,  sein 
Handelsgeschick  unter  Beweis  zu  stellen.  Zu  Beginn  starten  Sie 
mit  Ihrem  Raumschiff,  ausgerüstet  mit  einem  "Startkapital"  von 
100  Credits  in  eine  von  acht  Galaxien.  Das  höchste  Ziel  ist  es, 
Elite-Kämpfer  zu  werden. 

Elite  beeindruckt  am  Bildschirm  durch  eine  sehr  schnelle  3D- 
Vektorgrafik.  Bei  der  Vektorgrafik  werden  nur  die  Umrisse  ei- 
nes Objektes  gezeichnet.  Ein  Würfel  beispielsweise  wird  nur 
durch  seine  Kanten  dargestellt.  Die  Flächen  dazwischen  sind 
"durchsichtig". 

Durch  seinen  hohen  Spielwert  und  die  Faszination,  die  es  ausübt, 
ist  Elite  mit  Sicherheit  eine  lohnende  Investition. 

Gauntlet 

Bei  Gauntlet  handelt  es  sich  um  die  Umsetzung  eines  sehr  er- 
folgreichen Spielautomaten.  Gauntlet  ist  ein  Rollenspiel  mit  aus- 
geprägten Action- Elementen. 

Bei  Gauntlet  streift  man  durch  die  Gewölbe  einer  unterirdischen 
Welt  und  ist  - was  sonst  - auf  der  Suche  nach  allerlei  Schätzen. 

Das  besondere  dabei:  Zwei  Spieler  arbeiten  im  Team  zusammen. 
Obwohl  an  sich  jeder  Spieler  darauf  aus  ist,  möglichst  viele 
Punkte  zu  machen,  kommt  man  in  vielen  Situationen  nur  durch 
"Teamwork"  weiter.  Beeindruckend  sind  nicht  zuletzt  auch  die 
zahlreichen  animierten  Gegner  (zum  Teil  Dutzende),  die  sich 
gleichzeitig  auf  dem  Bildschirm  befinden. 
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Ghosts’n  Goblins 

Ghosts’n  Goblins  ist  eine  sehr  gelungene  Mischung  aus  Adven- 
ture  und  Action-Spiel.  Die  Handlung  spielt  im  Mittelalter.  Ei- 
nem tapferen  Ritter  ist  die  liebe  Braut  abhanden  gekommen;  sie 
wurde  von  einem  bösen  Dämon  entführt.  Was  folgt,  ist  klar:  Der 
Ritter  versucht,  das  Mädchen  zu  befreien.  Daß  der  Dämon  damit 
nicht  einverstanden  ist,  dürfte  ebenso  klar  sein.  Der  Ritter  muß 
sich  nun  in  den  verschiedensten  Szenarien  gegen  allerlei  Mon- 
ster, Geister,  Dämonen  und  fleischfressende  Pflanzen  erwehren. 
Dazu  stehen  ihm  mehrere  Waffen  zur  Verfügung. 

Das  gesamte  Spiel  besteht  aus  insgesamt  vier  Levels.  Jeder  Level 
ist  in  acht  Stufen  (Wald,  Geisterstadt,  Eispalast  usw...)  unterteilt. 
Um  von  einer  Stufe  in  die  nächste  zu  kommen,  muß  man 
zunächst  einen  kleinen  Dämon  beseitigen.  Die  Tür  zum  nächsten 
Level  bewacht  ein  großer  Dämon,  für  den  schon  etwas  mehr 
Kampfkraft  erforderlich  ist.  Hat  man  sich  dann  endlich  durch 
alle  Level  durchgekämpft,  bleibt  nur  noch  ein  letzter  Gegner, 
ein  chinesischer  Drache,  der  die  Braut  bewacht. 

Hier  noch  ein  Tip: 

Laden  Sie  das  Programm  ganz  normal.  Wenn  Sie  das  Titelbild 
sehen,  drücken  Sie  den  RESET-Taster  (der  allerdings  schon  ein- 
gebaut sein  muß)  und  geben  einen  der  beiden  POKE  ein. 

POKE  4170,10  REH  Sprite-Kot lision  ausschalten 
POICE  2756,255  REM  175  Leben 

Anschließend  startet  man  das  Spiel  wieder  mit  SYS  2128. 

Gunship 

Bei  Gunship  handelt  es  sich  um  eine  sehr  aufwendige  Flugsimu- 
lation. Simuliert  wird  der  Hubschrauber  AH-64  A,  ein  Kampf - 
hubschrauber.  Daher  geht  es  im  gesamten  Programm  recht  krie- 
gerisch zu.  Die  Hauptaufgabe  ist  aber  weniger,  irgendwelche 
Feinde  zu  vernichten,  sondern  vielmehr,  den  Hubschrauber  zu 
beherrschen. 
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Dazu  werden  von  Gunship  zahlreiche  Funktionen  eines  echten 
Hubschraubers  simuliert.  Mit  Hilfe  von  Joystick  und  Tastatur 
gilt  es,  den  Hubschrauber  auf  Kurs  zu  halten.  Außerdem  muß 
man  die  verschiedenen  Waffen-  und  Abwehrsysteme  korrekt  be- 
dienen, um  sich  Gegner  vom  Hals  zu  halten. 

Blickt  man  auf  den  Bildschirm,  so  fühlt  man  sich  in  ein  Hub- 
schrauber-Cockpit versetzt.  Neben  den  diversen  Instrumenten- 
anzeigen erhält  man  einen  Blick  auf  die  unter  einem  liegende 
Landschaft. 

Um  möglichst  realitätsnah  zu  sein,  erlaubt  Gunship  das  Fliegen 
von  Missionen  in  "echten"  Krisengebieten.  Die  Szenarien  reichen 
dabei  von  Einsätzen  in  der  USA  bis  zu  Kämpfen  im  Mittleren 
Osten.  Sicher  nicht  jedermanns  Sache.  Es  werden  allerdings 
keine  konkreten  Vorfälle  nachgespielt.  Die  einzelnen  Szenarien 
unterscheiden  sich  - neben  der  Landschaft,  über  die  man  fliegt 
- nur  in  der  Stärke  und  Bewaffnung  des  jeweiligen  Gegners. 

Impossible  Mission 

Impossible  Mission  kann  man  als  Mischung  aus  Strategie-,  Ac- 
tion- und  Geschicklichkeitsspiel  bezeichnen.  Neben  einem  span- 
nenden und  abwechslungsreichen  Spielprinzip  verfügt  Impossible 
Mission  über  eine  hervorragend  animierte  Grafik,  die  fast  an 
einen  Zeichentrickfilm  erinnert,  und  einer  recht  gut  gemachten 
Sprachausgabe.  Die  Handlung  ist  eher  banal  (als  Mitglied  einer 
Antiterrorgruppe  müssen  Sie  einen  potentiellen  Weltbeherrscher 
namens  Elvin  ausschalten),  der  Weg  zu  diesem  Ziel  dafür  aber 
umso  interessanter. 

Es  gilt,  einen  Weg  durch  die  Räume  und  Tunnel  des  unterirdi- 
schen Hauptquartiers  von  Elvin  zu  finden,  um  bis  zu  ihm  vorzu- 
dringen. Dabei  hat  man  natürlich  mit  allerlei  Gefahren  zu 
kämpfen.  Außerdem  muß  man  sich  die  einzelnen  Buchstaben  ei- 
nes Paßwortes  zusammensuchen,  die  auf  insgesamt  36  Puzzletei- 
len vermerkt  sind,  die  in  den  verschiedenen  Räumen  wild  ver- 
streut liegen.  Dieses  Paßwort  benötigen  Sie  später  für  den  Kon- 
trollraum  von  Elvin. 
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Das  Haupthindernis  sind  die  Roboterwachen,  die  man  auf  ver- 
schiedene Art  und  Weise  überlisten  kann.  Eine  Möglichkeit  ist 
das  Aufspüren  spezieller  Hilfspaßworte,  die  in  einigen  Räumen 
zu  finden  sind.  Man  kann  sie  sich  aber  auch  durch  einen  Beweis 
seiner  musikalischen  Fähigkeiten  verschaffen. 

In  dem  Labyrinth  gibt  es  nämlich  zwei  Räume,  in  denen  sich 
eine  Computerkonsole  und  eine  Anzeigetafel  befinden.  Wenn  Sie 
vor  der  Konsole  stehen  und  den  Joystick  nach  vorne  bewegen, 
hören  Sie  drei  Töne,  zu  denen  jeweils  ein  Feld  der  Anzeigetafel 
aufleuchtet.  Danach  erscheint  eine  Hand,  mit  der  Sie  die  Felder 
anfahren  können.  Es  geht  nun  darum,  die  Töne  vom  tiefsten  bis 
zum  höchsten  nachzuspielen.  Dazu  müssen  Sie  die  stilisierte 
Hand  mit  dem  Joystick  auf  das  betreffende  Feld  positionieren 
und  anschließend  den  Feuerknopf  drücken.  Falls  Sie  die  richtige 
Reihenfolge  eingehalten  haben,  erhalten  Sie  ein  Hilfspaßwort 
und  das  ganze  beginnt  von  vorne,  diesmal  aber  mit  einem  Ton 
mehr. 

Koronis  Rift 

Bei  Koronis  Rift  handelt  es  sich  um  ein  Strategie-Action-Spiel. 
Im  Gegensatz  zu  Elite  steht  aber  eindeutig  das  Action-Element 
im  Vordergrund. 

Als  galaktischer  Glücksritter  sind  Sie  auf  der  Suche  nach  den 
Überresten  vergangener  Kulturen.  Ziel  ist  es,  neue  technische 
Geräte  zu  finden  und  diese  an  Wissenschaftler  zu  verkaufen. 

Bei  Ihrer  Suche  stoßen  Sie  früher  oder  später  auf  einen  Planeten 
namens  Koronis  Rift.  Koronis  Rift  wurde  vor  vielen  Jahren  als 
Testgelände  für  neue  Waffensysteme  benutzt.  Nun  geht  es 
darum,  dem  Planeten  diese  technologischen  Geheimnisse  zu 
entreißen.  Doch  dazu  müssen  zunächst  einmal  die  Abwehrsy- 
steme von  Koronis  Rift  überwunden  werden. 

Dabei  kommt  dann  auch  das  strategische  Geschick  nicht  zu  kurz. 
Auf  dem  Planeten  gibt  es  nämlich  über  150  "Module",  mit  denen 
man  die  Schlagkraft  seines  Raumschiffs  verbessern  kann.  Es 
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lassen  sich  aber  immer  nur  maximal  sechs  Module  gleichzeitig 
einsetzen.  Die  richtige  Auswahl  der  Module  trägt  daher  ent- 
scheidend zum  Kampferfolg  bei. 

Nemesis 

Nemesis  ist  ein  Action-Spiel  im  klassischen  Sinn.  Hier  geht  es 
wirklich  nur  ums  "drauflosballern".  Es  gilt,  den  Planeten  Nemesis 
von  den  bösen  Bakteroiden  zu  befreien.  Dazu  gibt  es  insgesamt 
acht  Level,  wobei  man  es  in  jedem  Level  mit  einer  anderen  Art 
von  Gegner  zu  tun  hat. 

Einmal  greifen  einen  bis  zu  acht  Raumschiffe  gleichzeitig  an, 
ein  anderes  Mal  muß  man  sich  gar  gegen  Skelette  erwehren.  Hat 
man  einen  Gegner  vernichtet,  so  erscheint  ein  gelber  "Energie- 
punkt", den  man  aufsammeln  sollte.  Hat  man  genügend  Punkte 
beisammen,  dann  erhält  man  eine  Extrawaffe,  mit  der  sich  den 
Gegnern  noch  besser  zu  Leibe  rücken  läßt. 

Nach  dem  letzten  Level  bekommt  man  es  schließlich  noch  mit 
dem  "Ober-Bakteroiden"  zu  tun.  Sobald  auch  dieser  überwunden 
ist,  geht  das  ganze  wieder  von  vorne  los. 

Wer  ein  reines  Schießspiel  sucht,  ist  mit  Nemesis  sicher  bestens 
bedient. 

Ein  kleiner  Tip:  In  Nemesis  kommt  man  leicht  in  den  sogenann- 
ten Trainermodus,  erhält  also  "unendliches”  Leben.  Dazu  drücken 
Sie  einfach,  während  Sie  sich  im  freien  Weltraum  befinden,  die 
Tasten  <J>,  <K>  und  <L>  gleichzeitig.  Wem  das  noch  nicht  ge- 
nügt, sollte  einmal  folgende  Zeile  ausprobieren  (nachdem  er  das 
Spiel  durch  einen  RESET  unterbrochen  hat): 

POKE  5975,234:POKE  5976,234:P0KE  5977,234:SYS  5779 

Paradroid 

Paradroid  ist  eine  Kombination  aus  Action-  und  Strategiespiel, 
wobei  die  Action  allerdings  leichten  Vorrang  hat.  In  einer  Flotte 
von  acht  Raumschiffen  haben  die  Roboter  begonnen,  verrückt 
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zu  spielen.  Um  die  Raumschiffe  zu  retten,  bleibt  nur  die  Mög- 
lichkeit, einen  Spezialroboter  an  Bord  der  Schiffe  zu  bringen. 
Dieser  Spezialroboter  mit  der  Nummer  001  wird  von  der  Erde 
aus  bzw.  von  Ihnen  als  Spieler  ferngesteuert. 

Um  die  verrückt  gewordenen  Roboter  zu  bekämpfen,  verfügt 
001  natürlich  über  die  obligatorische  Laserkanone,  aber  er  hat 
auch  noch  eine  besondere  Fähigkeit:  Er  ist  in  der  Lage,  sich  mit 
einem  speziellen  Interface  an  die  verschiedenen  Roboter  anzu- 
schließen und  diese  dann  zu  beeinflußen. 

Der  Anschluß  ist  allerdings  nicht  ganz  einfach.  Er  läuft  jeweils 
- jetzt  kommt  das  strategische  Element  ins  Spiel  - über  ein  klei- 
nes Logikspiel,  das  man  lösen  muß.  Außerdem  gibt  es  insgesamt 
30  verschiedene  Robotertypen,  die  alle  über  unterschiedliche  Ei- 
genschaften verfügen.  Da  muß  man  sich  schon  sehr  genau  über- 
legen, an  welchen  Roboter  man  sich  "dranhängt",  um  zum  Ziel 
zu  kommen. 

Parallax 

Parallax  ist  ein  kombiniertes  Action-  und  Adventure-Spiel,  wo- 
bei die  Action-Elemente  eindeutig  im  Vordergrund  stehen.  Die 
Handlung  ist  recht  simpel  gestrickt.  Es  geht  wie  in  den  meisten 
Action-Spielen  gegen  böse  Außerirdische,  die  die  Erde  erobern 
wollen. 

Alles  beginnt  damit,  daß  die  Außerirdischen  fünf  Astronauten 
auf  ihr  Raumschiff  entführen  und  dort  in  fünf  getrennten  Sek- 
toren gefangenhalten.  Sie  als  Spieler  sind  einer  dieser  fünf 
Astronauten  und  sollen  nun  versuchen,  die  vier  anderen  zu  be- 
freien und  dann  das  Raumschiff  zu  zerstören.  Doch  das  ist 
leichter  gesagt  als  getan. 

Zunächst  gilt  es,  sich  einen  speziellen  Öffnungs-Code  zu  besor- 
gen, um  das  Sicherungssystem  des  Raumschiffs  zu  überwinden. 
Auch  im  weiteren  Verlauf  des  Spiels  sind  immer  wieder  Codes 
zu  ermitteln,  um  voranzukommen.  Parallax  geht  also  um  einiges 
über  ein  reines  "Ballerspiel"  hinaus. 
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Vorausgesetzt  man  hat  einen  RESET-Schalter  für  seinen  64’er, 
so  kann  man  sich  das  Spielen  mit  Parallax  etwas  leichter  machen. 
Starten  Sie  dazu  das  Programm,  und  führen  Sie  dann  einen 
RESET  herbei.  Anschließend  geben  Sie  folgende  Zeile  ein  und 
drücken  die  <Return>-Taste: 

POKE  5796,96:SYS  319 

Spindizzy 

Spindizzy  ist  ein  Geschicklichkeitsspiel.  In  einer  anderen  Di- 
mension wurde  ein  rätselhaftes  Gebilde  entdeckt,  das  nun  von 
Ihnen  "kartographiert"  werden  soll.  Zur  Unterstützung  erhalten 
Sie  ein  kreiselförmiges  Fahrzeug  namens  Gerald. 

Doch  Gerald  braucht  Energie.  Um  diese  bezahlen  zu  können, 
gilt  es,  möglichst  schnell  neue  Teilabschnitte  des  Gebildes  zu 
entdecken,  denn  nur  dafür  gibt  es  Geld,  für  Gerald  neue  Ener- 
gie und  damit  für  Sie  erweiterte  Spielzeit.  Das  gesamte  Gebilde 
besteht  aus  rund  400  Teilabschnitten,  wobei  jeder  Teilabschnitt 
den  ganzen  Bildschirm  beansprucht.  Da  ist  für  langen  Spielspaß 
gesorgt. 

Neben  Treppen,  Brücken,  Seen,  Eisflächen  und  ähnlichem  mehr 
gilt  es  vor  allem,  ein  System  von  Schaltern  und  Liften  zu  über- 
winden. Bevor  Sie  einen  Lift  benutzen  können,  müssen  Sie  die- 
sen zuerst  mit  einem  Schalter  aktivieren.  Diese  Schalter  sind  aber 
oft  durch  Hindernisse  blockiert,  die  sich  nur  mit  anderen  Schal- 
tern beseitigen  lassen.  Es  dürfen  aber  immer  nur  zwei  Schalter 
gleichzeitig  eingeschaltet  sein.  Hier  ist  logisches  und  kombinato- 
risches Geschick  gefragt. 

Ein  kleiner  Tip  am  Rande:  Um  für  Ihre  Erkundungen  unbe- 
grenzte Zeit  zu  erhalten,  geben  Sie  direkt  nach  dem  Laden  des 
Spiels  einfach  "PAT"  ein. 

The  Bard’s  Tale 

The  Bard’s  Tale  ist  ein  Adventure  in  der  Form  eines  Rollen- 
spiels. Eine  Stadt  wurde  von  einem  bösen  Zauberer  verflucht. 
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Sechs  Abenteurer  wollen  versuchen,  die  Stadt  von  dem  Zauberer 
zu  befreien.  Ihre  Aufgabe  ist  es  nun,  diese  sechs  Abenteurer  zu 
steuern. 

Dazu  müßen  Sie  zu  Beginn  für  jeden  von  ihnen  zunächst  seine 
Eigenschaften  und  Fähigkeiten  festlegen,  etwa,  ob  er  magische 
Kräfte  haben  oder  doch  lieber  mit  einem  Schwert  kämpfen  soll. 
Die  Auswahlmöglichkeiten  dabei  sind  natürlich  begrenzt.  Die 
richtige  Kombination  der  einzelnen  Fähigkeiten  ist  daher  ent- 
scheidend für  den  späteren  Erfolg. 

Anschließend  kann  der  Kampf  gegen  den  Zauberer  aufgenom- 
men  werden.  Ziel  ist  es,  bis  zum  Zauberer  vorzudringen  und 
diesen  dann  auszuschalten.  Dazwischen  stehen  insgesamt  sechs- 
zehn zum  Teil  sehr  große  Labyrinthe  und  zahlreiche  Schlösser, 
Verliese,  Abwasserkanäle  und  ähnliches.  Natürlich  sind  auch 
zahlreiche  Rätsel  zu  lösen,  und  die  Abenteurer  müssen  gegen  die 
Gehilfen  des  Zauberers  kämpfen. 

Das  ganze  Spiel  wird  übrigens  über  die  Tastatur  gesteuert,  der 
Joystick  ist  nicht  gefragt.  Das  Spiel  gibt  Ihnen  dazu  jeweils 
einen  aktuellen  "Situationsbericht",  anschließend  müssen  Sie  ir- 
gendwie reagieren,  etwa  einen  Zauberspruch  sprechen  oder  an 
einen  der  sechs  Abenteurer  ein  Kommando  geben. 

The  Great  Giana  Sisters 

The  Great  Giana  Sisters  ist  ein  Geschicklichkeitsspiel,  genauer 
gesagt  ein  "Hüpf spiel"  der  ganz  besonderen  Art.  Auf  insgesamt 
32  verschiedenen  Levels  gilt  es,  der  kleinen  Giana  zu  helfen, 
den  Riesendiamanten  zu  finden.  Daß  das  kein  leichtes  Unterfan- 
gen ist,  versteht  sich  natürlich  von  selbst. 

Zu  Beginn  ihrer  Suche  hat  Giana  vier  Leben.  Durch  das  An- 
springen von  mit  einem  Stern  markierten  Felsbrocken  kann  sie 
Spezialfähigkeiten  erwerben,  etwa  die  Fähigkeit,  Steine  zu  zer- 
schlagen oder  bestimmte  Kreaturen  in  einen  kurzen  Schlaf  zu 
versetzen.  Mit  Hilfe  dieser  Fähigkeiten  läßt  sich  manches  Hin- 
dernis aus  dem  Weg  räumen  bzw.  umgehen. 
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In  den  meisten  Fällen  verbirgt  sich  hinter  den  Felsbrocken  aber 
ein  Diamant,  der  ihre  Widerstandskraft  erhöht.  Hat  sie  100  Dia- 
manten eingesammelt,  erhält  sie  sogar  ein  neues  Leben.  Verliert 
sie  ein  Leben,  so  gehen  damit  automatisch  auch  alle  ihre  Spezi- 
alfähigkeiten verloren.  Wem  das  Spiel  zu  schwer  ist,  der  sollte 
einmal  - nach  einem  RESET  - die  folgende  Zeile  eingeben 
(<Return> -Taste  drücken  nicht  vergessen!): 

POKE  2446, 255 :POKE  6697, 255: SYS  2098 

The  Guild  of  Thieves 

The  Guild  of  Thieves,  zu  deutsch  "Die  Gilde  der  Diebe",  ist  ein 
sogenanntes  Grafik- Ad  venture,  ein  Abenteuerspiel  also.  Die  ins- 
gesamt 30  Grafiken  des  Spiels,  die  über  eine  sehr  gute  Qualität 
verfügen,  dienen  mehr  der  Verzierung,  man  könnte  das  Spiel 
auch  ohne  sie  spielen. 

Das  eigentliche  Spiel  läuft  rein  über  Textausgaben  und  Textein- 
gaben. Da  das  Spiel  aus  England  kommt,  sind  leider  gute  Eng- 
lischkenntnisse erforderlich.  Doch,  um  was  geht  es  eigentlich?  In 
einem  fernen  Land  namens  Kerovnia  haben  sich  einige  Einbre- 
cher und  Räuber  in  einer  Gilde  zusammengeschlossen,  in  die  Sie 
als  Spieler  aufgenommen  werden  wollen.  Dazu  müssen  Sie  eine 
Aufnahmeprüfung  bestehen. 

Es  gilt,  aus  einem  alten  Schloß  verschiedene  Schätze  zu  entwen- 
den. Doch  dazu  muß  man  sie  natürlich  erst  einmal  finden.  Und 
auch  dann  ist  oft  noch  manches  Problem  zu  lösen,  bevor  man 
den  Schatz  tatsächlich  mitnehmen  kann. 

The  Pawn 

The  Pawn  zählt  wie  "The  Guild  of  Thieves"  zur  Kategorie  der 
Grafik- Adventures.  Faszinierende  Grafiken  ergänzen  eine  gut 
durchdachte  und  sehr  komplexe  Handlung.  Leider  erfordert  The 
Pawn  gute  Englischkenntnisse  und  natürlich,  wie  bei  jedem  Ad- 
venture,  jede  Menge  Geduld  und  Ausdauer. 
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Bestandteil  des  Programms  ist  ein  knapp  SO-seitiger  Roman,  der 
zum  Lösen  des  Spiels  unbedingt  erforderlich  ist.  Der  Roman 
enthält  am  Ende  auch  zusätzliche  Hilfen  zu  den  einzelnen  Rät- 
seln, allerdings  in  codierter  Form.  Man  muß  die  Lösungstips  erst 
mit  Hilfe  des  Spiels  decodieren.  Zu  Beginn  des  Spiels  verschlägt 
es  einen  in  das  Land  Kerovnia,  in  dem  es  nicht  nur  politisch 
drunter  und  drüber  geht.  Auch  allerlei  Zauberer  treiben  ihr 
Unwesen.  Das  Ziel  ist  es,  wieder  aus  Kerovnia  herauszukomm- 
men.  Doch,  wie  das  zu  bewerkstelligen  ist,  erfährt  man  erst  so 
nach  und  nach  im  Laufe  des  Spiels. 

Neben  der  exzellenten  Grafik  beeindruckt  vor  allem  der  schnelle 
Parser,  der  auch  komplizierte  Sätze  versteht.  Sie  wissen  nicht, 
was  ein  Parser  ist?  Ein  Parser  dient  bei  allen  Adventures  dazu, 
den  vom  Spieler  eingegebenen  Text  zu  analysieren.  Je  nach  der 
Qualität  des  Parsers  verfügt  dieser  über  einen  mehr  oder  minder 
großen  Wortschatz  und  kann  auch  kompliziertere  Sätze  verste- 
hen. Mit  dem  Parser  von  The  Pawn  kann  man  sich  schon  fast  in 
Umgangssprache  (wenn  auch  in  englischer)  "unterhalten". 

The  Sentinel 

The  Sentinel  ist  ein  Action-Strategie-Spiel  der  ganz  besonderen 
Art.  In  einer  fremden  Dimension,  die  aus  insgesamt  10.000 
Welten  besteht,  herrscht  der  Sentinel.  Sie  sollen  diese  Welten  nun 
in  der  Rolle  eines  Roboters  vom  Sentinel  befreien. 

Das  Spielprinzip  ist  an  sich  recht  einfach:  Jede  Welt  ist  in  ein- 
zelne Quadrate  eingeteilt.  Jedes  Quadrat  hat  eine  bestimmte 
Höhe.  Wenn  man  sich  auf  einem  bestimmten  Quadrat  befindet, 
kann  man  immer  nur  Quadrate  beeinflussen,  die  sich  "unter"  ei- 
nem befinden. 

Zu  Beginn  des  Spiels  befindet  sich  der  Sentinel  natürlich  ganz 
oben  und  Sie  ganz  unten  am  niedrigsten  Punkt.  Nun  gilt  es,  sich 
bis  auf  die  Höhe  des  Sentinel  hinaufzuarbeiten  und  diesen  dann 
zu  vernichten.  Der  Sentinel  ist  damit  natürlich  überhaupt  nicht 
einverstanden  und  versucht.  Sie  nach  Kräften  daran  zu  hindern. 
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The  Sentinel  ist  ein  Spiel,  mit  dem  man  dank  der  vielen  ver- 
schiedenen Welten  monatelang  spielen  kann.  Man  kann  sich  das 
ganze  aber  auch  etwas  vereinfachen.  Probieren  Sie  doch  einmal 
die  folgenden  POKEs.  Dazu  starten  Sie  das  Spiel  und  führen 
dann  einen  RESET  herbei.  Anschließend  geben  Sie  die  folgende 
Zeile  ein  und  drücken  die  <Return>-Taste: 

POKE  6679,1 73 :POKE  8512,10:SYS  16128 

Trailblazer 

Trailblazer  ist  ein  Geschicklichkeitsspiel  mit  recht  ungewöhnli- 
cher Handlung  und  einem  interessanten  Spielprinzip.  Trailblazer 
arbeitet  mit  einem  "gesplitteten"  Bildschirm,  d.h.,  der  Bildschirm 
ist  horizontal  in  zwei  Hälften  geteilt.  In  beiden  Hälften  kann  je- 
weils ein  Spieler  völlig  unabhängig  vom  anderen  spielen. 

Die  Aufgabe  bei  Trailblazer  besteht  darin,  einen  kleinen  Ball 
möglichst  schnell  über  eine  Art  "Fließband”  zu  bewegen.  Dieses 
Fließband  ist  in  verschiedenfarbige  Karomuster  unterteilt  und 
hat  auch  einige  Löcher,  durch  die  der  Ball  hindurchfallen  kann. 
Manche  der  Karofelder  (erkenntlich  an  ihrer  Farbe)  bremsen 
den  Ball  ab,  manche  beschleunigen  ihn.  Darüber  hinaus  sind 
noch  einige  andere  "Hindernisse"  eingebaut,  die  es  zu  überwin- 
den gilt.  Wie  alle  Wettrennen  macht  Trailblazer  am  meisten 
Spaß,  wenn  man  es  zu  zweit  spielt.  Man  kann  aber  auch  allein 
gegen  den  Computer  antreten. 

Trivial  Pursuit 

Trivial  Pursuit  ist  ein  Spiel,  das  ausnahmsweise  einmal  für  die 
ganze  Familie  geeignet  ist.  Viele  werden  das  gleichnamige 
Brettspiel  kennen,  das  für  dieses  Spiel  als  Vorlage  diente.  Trivial 
Pursuit  orientiert  sich  recht  genau  an  den  Regeln  seiner  Vorlage. 
Wem  also  Brettspiele  zu  altmodisch  sind,  der  hat  mit  Trivial 
Pursuit  als  Computerspiel  eine  interessante  Alternative.  Für  all 
diejenigen,  die  Trivial  Pursuit  noch  nicht  kennen,  ein  paar 
Worte  zum  Spielprinzip: 
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Trivial  Pursuit  ist  ein  Quizspiel  mit  zum  Teil  sehr  ungewöhnli- 
chen, aber  in  der  Regel  einfach  zu  beantwortenden  Fragen.  Der 
Spielplan  besteht  aus  etwa  100  Spielfeldern,  die  sechs  verschie- 
dene Farben  haben.  Jede  Farbe  steht  für  ein  bestimmtes  Wis- 
sensgebiet, etwa  Wissenschaft  oder  Unterhaltung. 

Bei  jedem  Spielzug  muß  man  eine  Frage  aus  dem  zu  der  betref- 
fenden Farbe  des  Feldes  gehörenden  Wissensgebiet  beantworten. 
Nur  wenn  man  die  Frage  richtig  beantwortet,  darf  man  weiter- 
spielen. Ansonsten  ist  der  nächste  Spieler  dran.  Insgesamt  3000 
Fragen  stehen  zur  Verfügung,  wobei  der  Computer  die  gestellten 
Fragen  nach  dem  Zufallsprinzip  auswählt.  Viele  Fragen  werden 
nicht  nur  als  reine  Textfragen  gestellt,  sondern  haben  eine  Gra- 
fik- oder  Soundkomponente.  Dadurch  wird  das  ganze  im  Ver- 
gleich zum  Brettspiel  um  einiges  abwechslungsreicher. 

World  Games 

World  Games  zählt  zur  Kategorie  der  Sportspiele.  Entweder  al- 
lein oder  mit  bis  zu  sieben  Mitspielern  kann  man  an  insgesamt 
acht,  zum  Teil  recht  exotischen  Wettkämpfen  teilnehmen  und 
sein  sportliches  Talent  unter  Beweis  stellen.  Den  meisten  Spaß 
bringt  das  Spiel  natürlich,  wenn  man  es  mit  möglichst  vielen 
"Athleten"  zusammen  spielt. 

Die  Sportarten  sind  wie  gesagt  recht  exotisch.  Da  geht  es  bei- 
spielsweise zum  Sumo- Ringkampf  nach  Japan,  zum  Gewichthe- 
ben nach  Rußland  oder  zum  Bierfaß-Springen  nach  Deutschland. 

Die  Steuerung  erfolgt  bei  allen  Wettkämpfen  über  den  Joystick. 
Mal  muß  man  den  Joystick  sekundengenau  in  eine  bestimmte 
Richtung  bewegen,  mal  genau  im  richtigen  Augenblick  den 
Feuerknopf  betätigen.  Das  ist  zwar  auf  Dauer  nicht  übermäßig 
originell,  aber  es  macht  einfach  Spaß,  die  Reaktionen  der  Spiel- 
figuren, die  sehr  detailreich  dargestellt  und  animiert  sind,  am 
Bildschirm  zu  beobachten. 

Nach  jedem  Wettkampf  werden  die  drei  besten  Ergebnisse  mit 
einer  Medaille  belohnt.  Am  Ende  wird  daraus  ein  Gesamtsieger 
ermittelt. 
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2.7.1  Spielehilfen 

Dieser  Abschnitt  gibt  Ihnen  kurze  Hilfen,  wie  Sie  ein  Spiel  bes- 
ser bewältigen  können.  Los  geht’s! 

Arkanoid 

Wußten  Sie  schon,  daß  es  in  Arkanoid  einen  Trainermodus  gibt? 
Stellen  Sie  am  Anfang  einmal  folgende  Parameter  ein: 

2 Players  / 1 Joystick  / 1 Device. 

Der  erste  Spieler  hat  nun  ein  ganz  normales  Spiel.  Der  zweite 
Spieler  befindet  sich  im  Trainermodus,  sobald  er  20000  Punkte 
erreicht  hat.  Dann  erhöht  sich  nämlich  sein  Lebenskonto  bei  je- 
der Kollision  um  ein  Leben,  bis  man  87  Leben  hat,  die  man 
auch  nicht  mehr  verliert.  Um  Arkanoid  durchzuspielen,  muß 
man  sich  schon  um  die  2 Stunden  Zeit  nehmen.  Viel  Spaß! 

Bruce  Lee 

Hier  kann  man  ganz  einfach  99  Leben  bekommen:  Gehen  Sie  zu 
den  Tellern,  bei  denen  man  normalerweise  1 Leben  bekommt. 
Berühren  Sie  diese,  und  Sie  haben  99  Leben  zur  Verfügung. 
Dieser  Trick  funktioniert  jedoch  nur  im  2-Player-Modus. 

Deflektor 

Bei  Deflektor  gibt  es  einen  recht  einfachen  Trick.  Drücken  Sie 
einfach  die  <+>-  oder  <->-Tasten,  um  in  die  verschiedenen  Le- 
vel zu  kommen. 

Great  Giana  Sisters 

Bei  diesem  süßen  Hüpfspiel  kommt  man  einen  Level  weiter,  in- 
dem man  den  Namen  des  Programmieres  eingibt  und  die  Tasten 
gedrückt  hält 

Legions  of  Death 

Kaufen  Sie  Schiffe  während  Schlachten,  denn  dann  wird  Ihnen 
kein  Geld  dafür  abgeknöpft! 
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Nebulus 

Auch  hier  gibt  es  einen  Trainermodus.  Aktivieren  Sie  den  Pau- 
semodus. Drücken  Sie  nun  die  Tasten  <Hochpfeil>,  <Linkspfeil> 
und  den  Buchstaben  <J>  gleichzeitig.  Sie  haben  nun  unendlich 
viel  Zeit.  Außerdem  kann  man  noch  durch  Drücken  der  Zahlen 
1-8  die  verschiedenen  Level  anwählen. 

Nemesis 

Hier  gibt  es  vier  Cheat-Levels.  Den  ersten  erreichen  Sie,  indem 
Sie  im  zweiten  Level  die  Steinschlaufe,  die  sich  am  Ende  des 
Levels  befindet,  aufschießen  und  sie  dann  betreten.  Der  zweite 
Cheat-Level  ist  im  dritten  Level  zu  erreichen.  Dort  gibt  es  zwei 
Figurenpaare,  die  Rücken  an  Rücken  stehen.  Zerstören  Sie  beim 
zweiten  Paar  die  erste  Figur,  und  Sie  gelangen  wieder  in  einen 
Cheat-Modus.  Der  dritte  ist  dadurch  zu  erreichen,  daß  Sie  im 
siebten  Level  kurz  vor  dem  Ende  in  die  Öffnung  des  Ovals  flie- 
gen. Den  vierten  Cheat-Modus  erreichen  Sie  durch  Drücken  der 
Taste  <Shift  Lock>.  Viel  Spaß  bei  der  zusätzlichen  Punktejagd! 

Das  ist  jedoch  nicht  das  einzige,  was  ich  zu  Nemesis  anzubieten 
habe.  Es  gibt  in  diesem  Spiel  nämlich  auch  einen  Trainermodus. 
Drücken  Sie  einfach  während  des  Fluges  des  Tasten  [J],  [K]  und 
[L]  gleichzeitig. 

One  man  and  his  droid 

Hier  die  Codes  für  dieses  Spiel:  NONE,  BUBBLE,  COMMO- 
DORE, FINDERS,  GENETIC,  ZAPPED,  TIMEWARP,  ECTO- 
PLASM,  GORGEOUS,  SEASIDE,  GIZMO,  KING  KONG,  HO- 
LOGRAM,  CURRYRICE,  COFFEE,  CASSETTE,  TELESCOPE, 
COMPUTER,  EDACRAEDA,  ALICE. 

Parallax 

Hier  die  Codes:  STACK,  JEVEL,  PARCH,  SALON,  GLOBE. 
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Raki  over  Moscow 

Bei  Raid  over  Moscow  kann  man  die  verschiedenen  Sequenzen 
einzeln  zum  Üben  anwählen.  Drücken  Sie  dazu  die  Taste 
<Run/Stop>-<Restore>  mit  <Q>  (Raketensilos),  <Pfeil  links> 
(Kreml),  <1>  (Reaktorraum),  <2>  (Schlußszene).  Dieser  Trick 
funktioniert  aber  nur,  wenn  die  Weltkarte  gerade  angezeigt  wird. 

Spind  izzy 

Auch  in  diesem  Spiel  gibt  es  einen  Cheat-Modus!  Geben  Sie 
einfach  nach  dem  Laden  die  drei  Buchstaben  PAT  ein,  und  Sie 
haben  unbegrenzte  Zeit. 

The  Great  Gurianos 

Hier  gelangt  man  einen  Level  weiter,  indem  man  folgende  Ta- 
sten gleichzeitig  drückt:  <M>,  <Komma>,  <Punkt>,  cCursor 
rechts»,  «Cursor  links».  Danach  sollten  Sie  noch  die  «Return»- 
Taste  betätigen  (sofern  Sie  noch  einen  Finger  frei  haben). 

Zaxxon 

Auch  hier  gibt  es  einen  Trainermodus.  Geben  Sie  im  Titelbild 
einfach  das  Wort  RED  ein,  und  Sie  haben  nun  unendlich  viele 
Raumschiffe  zur  Verfügung. 


2.7.2  Spiele-POKEs 

Wie  die  Überschrift  dieses  Kapitels  schon  sagt,  werde  ich  Ihnen 
hier  einige  POKEs  verraten,  die  viel  bewirken  können.  Laden 
Sie  - falls  nicht  anders  gesagt  - das  Spiel,  starten  Sie  es,  und 
führen  Sie  dann  einen  RESET  aus.  Geben  Sie  danach  die  POKEs 
immer  in  einer  Zeile  ein,  und  starten  Sie  das  Spiel  wieder  durch 
den  angegebenen  SYS-Befehl.  Die  POKEs  sind  natürlich  ohne 
Gewähr.  Hier  nun  die  versprochenen  POKEs: 

Antiriad 

POKE  35486,165  : POKE  35496,16  : SYS  2080 
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Arcana 

POKE  12933,0  : POKE  12934,2  : SYS  4096 
Breakthru 

POKE  6604,173  : SYS  2560 
Druld 

POKE  39271,255  : SYS  5120 
Elevator  Action 

For  a=50911  to  50915:  POKE  a,234  : Next  : SYS  53200 
Firetrap 

POKE  7500,234  : POKE  7501,234  : SYS  4096 
Galvan 

POKE  30602,234  : POKE  30603,234  : POKE  30603,234  : SYS  12288 
Great  Giana  Sisters 

POKE  2446,255  : POKE  6697,255  : SYS  2098 
Gyroscope 

POKE  46687,76  : POKE  46688,105  : POKE  46689,182  : SYS  2067 
He-Man 

POKE  12651,234  : POKE  12652,234  : POKE  12653,234  : POKE  17610 
Krackout 

POKE  32934,0-100  (Leveiangabe)  : SYS  32837 

Mutant* 

POKE  9273,230  : SYS  4096 
Nemesis 

POKE  5975,234  : POKE  5976,234  : POKE  5977,234  : SYS  5779 

Parallax 

POKE  5796,96  : SYS  319 
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Ranarama 

POKE  37104,96  : POKE  33969,234  : POKE  33970,234  : SYS  32768 
Spaca  Harrter 

POKE  5834,234  : POKE  5834,234  : POKE  5836,234  : SYS  2128 
Tatra  cognita 

POKE  26703,255  : SYS  24576 


POKE  27090,234  : POKE  27091,234  : POKE  27092,234  : SYS  24604 

Wlzball 

POKE  37052,0  : POKE  65303,0  : POKE  65356,0  : POKE  65395,0  : RUN 

Xevtous 

POKE  5605,76  : POKE  5606,31  : POKE  5607.X  (Leben)  : SYS  5000 


2.8  Universalmodule 

Steckmodule  für  den  Commodore  64  sind  in  der  letzten  Zeit 
nicht  mehr  allzu  groß  in  Mode,  nicht  zuletzt  wohl  der  relativ 
hohen  Preise  wegen.  Eine  Sorte  von  Steckmodulen  erfreut  sich 
aber  nach  wie  vor  großer  Beliebtheit,  die  sogenannten  "Univer- 
salmodule". 

Universalmodule  enthalten  eine  Sammlung  meist  mehr  oder  min- 
der nützlicher  Funktionen  der  unterschiedlichsten  Kategorien. 
Da  die  Funktionen  alle  im  Modul  untergebracht  sind,  stehen  sie 
jederzeit  sofort  und  zum  Teil  sogar  innerhalb  anderer  Pro- 
gramme zur  Verfügung. 

Durch  den  hardware- mäßigen  Aufbau  der  Module  sind  auch 
Effekte  möglich,  die  man  nur  mit  Software  allein  gar  nicht  oder 
nur  sehr  schwer  erreichen  könnte.  So  vefügen  einige  Module 
über  eine  sogenannte  Freeze- Funktion  zum  "Einfrieren"  eines 
Programms.  Die  Freeze-Funktion  ist  in  zweierlei  Hinsicht  sehr 
nützlich. 
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Jeder  Computerspieler  wird  das  kennen:  Man  steckt  gerade  mit- 
ten in  der  wildesten  Raumschlacht  oder  befindet  sich  bei  einem 
Spiel  in  einem  höheren  Level,  bei  dem  ein  bestimmtes  Zeitlimit 
vorgegeben  ist,  und  da  klingelt  das  Telefon  oder  man  wird  sonst 
irgendwie  unterbrochen.  Hat  man  jetzt  ein  entsprechendes  Mo- 
dul im  Expansion- Port  eingesteckt,  so  genügt  ein  Druck  auf  den 
Freeze-Knopf,  und  das  Spiel  wird  "eingefroren".  Durch  einen 
erneuten  Druck  auf  den  Freeze-Knopf  des  Moduls  kann  man  es 
dann  später  jederzeit  wieder  fortsetzen,  als  ob  nichts  gewesen 
wäre. 

Der  zweite  Vorteil  des  "Freezens":  Sobald  ein  Programm  erst 
einmal  "eingefroren"  ist,  läßt  sich  der  gesamte  Speicher  des 
Commodore  64  und  damit  auch  das  Programm  auf  Diskette  oder 
Kassette  ablegen.  Damit  läßt  sich  jeder  noch  so  raffinierte  Ko- 
pierschutz auf  der  Originaldiskette  eines  Programms  leicht  über- 
listen. Voraussetzung  dafür  ist  allerdings,  daß  das  betreffende 
Programm  komplett  in  den  Rechnerspeicher  geladen  wird. 

Das  Freezen  ist  also  eine  nützliche  Hilfe,  wenn  man  sich  von 
seinen  wertvollen  Originaldisketten  eine  Sicherheitskopie  anferti- 
gen möchte.  Potentielle  Raubkopierer  werden  an  den  Freezern 
keine  große  Freude  haben.  Die  "gefreezt"  gespeicherten  Pro- 
gramme können  nämlich  nur  mit  dem  Modul  im  Expansion-Port 
zum  Laufen  gebracht  werden. 

Ebenso  nützlich  sind  die  in  vielen  Modulen  eingebauten 
Floppyspeeder  zum  Beschleunigen  der  Floppy  1541.  Wer  schon 
häufiger  mit  der  Floppy  gearbeitet  hat,  wird  sicher  schon  fest- 
gestellt haben,  daß  die  Datenübertragung  von  der  Floppy  zum 
Commodore  64  und  umgekehrt  nicht  gerade  schnell  ist.  Bei  län- 
geren Programmen  kann  es  schon  zwei  bis  drei  Minuten  dauern, 
bis  das  Programm  im  Rechner  zur  Verfügung  steht.  Verglichen 
mit  der  Datasette  ist  das  zwar  ein  recht  guter  Wert,  bekanntlich 
kann  es  ja  aber  nie  schnell  genug  gehen. 

Findige  Hardware -Bastler  haben  deshalb  bisher  eine  ganze  Reihe 
sogenannter  Floppyspeeder  entwickelt,  mit  denen  man  seine 
Floppy  "tunen"  kann.  Der  große  Nachteil  dieser  Hardware-Zu- 
sätze: sie  sind  mit  zum  Teil  über  200  Mark  sehr  teuer  und  müs- 
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sen  in  die  Floppy  eingebaut  werden.  Die  rein  software-mäßig 
arbeitenden  Floppybeschleuniger  der  Universalmodule  sind  da 
schon  wesentlich  günstiger  (man  bekommt  sie  ja  mit  dem  Modul 
sozusagen  kostenlos  mit)  und  erfüllen  ebenso  ihren  Zweck. 

Auf  der  anderen  Seite  enthalten  manche  Module  einige  Funktio- 
nen, mit  denen  sich  in  der  Praxis  nur  sehr  wenig  anfangen  läßt. 
Und  mit  meist  um  die  100  Mark  sind  die  meisten  Module  auch 
nicht  gerade  billig. 

Vor  dem  Kauf  eines  Moduls  gilt  es  daher  immer  abzuwägen,  ob 
die  (für  einen  persönlich)  nützlichen  oder  die  unnützen  Funktio- 
nen überwiegen. 

Damit  Sie  sich  einmal  einen  Überblick  über  die  verschiedenen 
Fähigkeiten  der  Universalmodule  verschaffen  können,  möchte 
ich  Ihnen  im  folgenden  drei  Module  konkret  vorstellen:  Magic 
Formel,  Final  Cartridge  III  und  Action  Cartridge+. 

Magic  Formel 

Mit  198  Mark  ist  Magic  Formel  relativ  teuer,  dafür  hat  das  Mo- 
dul aber  auch  einiges  zu  bieten. 

Der  eingebaute  Floppyspeeder  beschleunigt  das  Laden  und 
Speichern  von  Programmen  etwa  um  den  Faktor  IS  bis  20.  Se- 
quentielle Dateien  werden  immerhin  noch  um  den  Faktor  10 
beschleunigt  gelesen.  Das  Formatieren  von  Disketten  reduziert 
sich  auf  11  Sekunden  (normalerweise  dauert  das  ja  etwa  90  Se- 
kunden). Das  eingebaute  BACKUP-Programm  kopiert  eine  Dis- 
kette in  nur  knapp  einer  Minute,  eine  sehr  nützliche  Funktion. 

Auch  an  die  Datasetten-Besitzer  wurde  gedacht.  Der  integrierte 
Datasetten-Speeder  beschleunigt  den  Lade-  und  Speichervorgang 
um  das  10-fache. 

Wer  einen  Drucker  aus  dem  PC-Bereich  an  den  Commodore  64 
anschließen  möchte,  wird  sich  sicher  über  die  integrierte 
Centronics-Schnittstelle  freuen.  Ein  einfaches  User-Port-Centro- 
nics-Druckerkabel  reicht  dann  für  den  Anschluß  aus. 
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Ein  weiterer  Pluspunkt:  Magic  Formel  belegt  im  Commodore  64 
keinerlei  Speicherplatz.  Dadurch  ergibt  sich  eine  sehr  hohe 
Kompatibilität  (Verträglichkeit)  zu  anderen  Programmen.  Und 
wenn  es  doch  einmal  Schwierigkeiten  geben  sollte,  kann  man 
Magic  Formel  auch  abschalten. 

Magic  Formel  verfügt  über  eine  GEOS-ähnliche  Benutzerober- 
fläche. Insbesondere  die  Arbeit  mit  der  Floppy  gestaltet  sich  da- 
durch sehr  einfach.  Ähnlich  wie  im  GEOS-Desktop  können  die 
meisten  Floppy- Funktionen  über  sogenannte  Pulldown-Menüs 
ausgewählt  werden.  Aber  auch  die  restlichen  Modulfunktionen 
werden  bequem  über  Menüs  aufgerufen. 

Das  Modul  enthält  auch  ein  sehr  umfangreiches  Malprogramm, 
das  über  alle  Standardfunktionen  verfügt  und  die  Arbeit  mit  al- 
len 16  Farben  des  Commodore  64  gestattet. 

Nicht  nur  in  diesem  Zusammenhang  sehr  interessant  ist  auch  die 
sogenannte  Hardcopy-Funktion.  Magie-Formel  ermöglicht  es, 
aus  fast  allen  Programmen  heraus  eine  Hardcopy  des  aktuellen 
Bildschirms  zu  drucken,  egal,  ob  sich  der  Rechner  gerade  im 
Text-  oder  im  Grafikmodus  befindet.  Unterstützt  werden  dabei 
alle  gängigen  Druckertypen. 

Natürlich  verfügt  Magic  Formel  auch  über  die  eingangs  er- 
wähnte Freeze-Funktion  zum  Abspeichern  des  kompletten  Rech- 
nerspeichers auf  Diskette  oder  auch  Kassette.  Die  eingebaute 
BASIC-Erweiterung  ergänzt  das  BASIC  2.0  des  Commodore  64 
um  etwa  50  neue  Befehle.  Der  Schwerpunkt  liegt  dabei  auf  den 
Grafikbefehlen.  Diese  sind  zum  Großteil  analog  zu  den  Funk- 
tionen des  Malprogramms  auf  gebaut. 

Für  fortgeschrittene  Programmierer  am  interessantesten  dürfte 
das  Maschinensprache-Entwicklungspaket  sein.  Ähnlich  wie 
beim  Freezen  bietet  ein  Modul  hier  einige  Vorteile,  die  sich  mit 
einer  reinen  Software-Lösung  nicht  realisieren  lassen.  Das 
Maschinensprache-Paket  besteht  aus  einem  Monitor  und  einem 
sogenannten  2-Paß-Assembler.  Der  Assembler  dient  zum  Erstel- 
len der  Maschinenprogramme,  mit  dem  Monitor  kann  man  Sie 
dann  sehr  komfortabel  austesten. 
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Der  Monitor  besteht  im  wesentlichen  aus  vier  Teilen,  einem 
Speichermonitor,  einem  Floppy-Monitor  sowie  einem  Sprite- 
und  einem  Zeichensatzeditor.  Der  große  Vorteil  dabei:  Der  Mo- 
nitor läßt  sich  praktisch  von  jedem  anderen  Programm  heraus 
aufrufen.  Danach  kann  man  sich  einen  "Einblick"  in  alle 
Speicherzellen  des  Rechners  verschaffen  und  einzelne  Speicher- 
inhalte nach  Belieben  verändern.  Mit  einem  speziellen  Befehl 
kann  man  anschließend  wieder  in  das  unterbrochene  Programm 
zurfickkehren. 

Dieses  Verfahren  ist  nicht  nur  für  Maschinensprache -Program- 
mierer von  großer  Bedeutung.  Es  ist  für  jeden  nützlich,  der  an 
einem  Anwendungsprogramm  irgendwelche  Änderungen  vor- 
nehmen möchte.  Sehr  beliebt  ist  beispielsweise  die  Manipulation 
von  Spielen.  Vorausgesetzt,  man  kennt  die  Adressen  der  ent- 
sprechenden Speicherzellen,  kann  man  sich  so  leicht  sein  Zeitli- 
mit erhöhen  oder  sich  zusätzliche  "Leben"  verschaffen.  Einige 
Tips  dazu  habe  ich  Ihnen  ja  im  letzten  Abschnitt  gegeben. 

Alles  in  allem  bietet  Magic  Formel  eine  große  Anzahl  sehr  in- 
teressanter Funktionen.  Insbesondere  der  Floppy-  und  Dataset- 
ten-Speeder,  die  Centronics-Schnittstelle,  die  Hardcopy-  und  die 
Freeze-Funktion  sowie  der  Maschinensprache-Monitor  dürften 
für  jeden  Commodore-64-Anwender  von  Nutzen  sein. 

Final  Cartridge  III 

Auch  das  Final  Cartridge  III  verfügt  über  einen  schon  fast  obli- 
gatorischen Floppy-Speeder  und  eine  Freeze-Funktion  zum  Ab- 
speichern des  kompletten  Rechnerspeichers. 

Bei  der  Benutzeroberfläche  ist  man  aber  einen  großen  Schritt 
weitergegangen.  Diese  bietet  zum  Teil  sogar  mehr  Komfort  als 
GEOS.  So  kann  man  beispielsweise  die  einzelnen  Fenster  frei  auf 
dem  Bildschirm  bewegen  und  auch  miteinander  überlappen. 

Ähnlich  wie  bei  GEOS  befindet  man  sich  nach  dem  Start  des 
Moduls  in  einer  Art  "Desktop",  von  wo  aus  man  die  restlichen 
Modulfunktionen  über  Pulldown- Menüs  erreichen  kann. 
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An  GEOS  orientiert  sind  auch  die  verschiedenen  Hilfspro- 
gramme. So  gibt  es  beispielsweise  eine  kleine  Textverarbeitung 
namens  "Notepad"  zum  Ablegen  von  Notizen.  Mit  Hilfe  der 
"Clock  Settings"  kann  man  eine  Alarmzeit  einstellen.  Der  einge- 
baute Taschenrechner  "Calculator"  beherrscht  die  vier  Grundre- 
chenarten und  arbeitet  neunstellig. 

Eine  sehr  nützliche  Kleinigkeit  sind  die  "Preferences"-Fenster. 
Dort  kann  man  die  verschiedensten  Voreinstellungen  treffen.  So 
lassen  sich  beispielsweise  die  Tastatur-Wiederholgeschwindigkeit, 
die  Bildschirmfarben  sowie  die  Farbe  für  den  Cursor-Zeiger  am 
Bildschirm  den  eigenen  Wünschen  anpassen. 

Auch  an  die  BASIC-  und  Maschinensprache-Programmierer 
wurde  gedacht.  Eine  kleine  BASIC-Erweiterung  enthält  nützliche 
Programmierhilfen,  wie  RENUMBER  zum  Neunumerieren  eines 
BASIC-Programms  oder  DUMP  zur  Ausgabe  der  Variablenin- 
halte sowie  einige  Peripheriebefehle  zur  Vereinfachung  der  Ar- 
beit mit  der  Floppy  und  dem  Drucker. 

Der  Maschinensprache-Monitor  ist  zwar  nicht  so  umfangreich 
wie  der  von  Magic  Formel,  bietet  aber  alle  Standardfunktionen 
und  ebenfalls  einen  Sprite-  und  einen  Zeichensatzeditor.  Die 
Befehle  in  der  Übersicht: 

A Maschinenprogramm  eingeben 

C Speicherinhalte  vergleichen 

D Maschinenprogramm  ausgeben 

EC  Zeichensatzeditor 

ES  Sprite-Editor 

F Speicherbereich  mit  einem  Wert  füllen 

G Maschinenprogramm  starten 

H Speicherinhalte  suchen 

I Text  eingeben 

L Maschinenprogramm  laden 

M Speicheranzeige 

OD  Diskettenmonitor 

P Druckerausgabe 

R Register-Ausgabe 

S Maschinenprogramm  speichern 
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T Speicherbereich  verschieben 

X Monitor  verlassen 

# Dezimal-Hexadezimal-Umwandlung 

$ Hexadezimal-Oezimal-Umwandlung 

% Floppy-Befehl  senden 

*R  Diskettensektor  lesen 

*W  Diskettensektor  schreiben 

Ein  separater  Assembler  ist  leider  nicht  eingebaut.  Für  kleinere 
Maschinenprogramme  genügt  aber  auch  der  im  Monitor  enthal- 
tene Assembler-Befehl. 

Ein  großer  Pluspunkt  des  Final  Cartridge  III  ist  seine  Hardcopy- 
Funktion.  Wer  sehr  häufig  Hardcopies  des  aktuellen  Text-  oder 
Grafikbildschirms  erstellen  muß,  ist  mit  dem  Final  Cartridge 
sicher  gut  bedient. 

Farbige  Grafiken  werden  in  entsprechende  Graustufen  umge- 
setzt. Wahlweise  läßt  sich  der  Bildschirm  auch  invertiert  oder 
seitwärts  ausdrucken  und  bis  auf  das  Neunfache  der  Normal- 
größe vergrößern,  wobei  man  die  horizontale  und  vertikale  Ver- 
größerung getrennt  einstellen  kann. 

Je  nach  gewünschter  Qualität  des  Ausdrucks  kann  man  mit 
mehreren  Druckdichten  und  Druckgeschwindigkeiten  arbeiten. 
Sogar  der  Ausdruck  auf  einem  24-Nadel-Drucker  wird  unter- 
stützt. 

Das  Final  Cartridge  III  hat  zwar  nicht  den  Leistungsumfang  von 
Magic  Formel,  dafür  kostet  es  mit  etwa  99  Mark  aber  auch  nur 
die  Hälfte. 

Adlon  Cartridge + 

Ebenfalls  für  etwa  99  Mark  zu  haben  ist  das  Action  Cartridge+. 
Im  Gegensatz  zu  den  beiden  anderen  Modulen  bietet  es  keine 
grafische  Benutzeroberfläche,  hat  dafür  aber  einige  Besonder- 
heiten, die  es  von  den  anderen  Modulen  abheben. 
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Zum  Beispiel  die  Floppy-  und  Datasetten-Speeder.  Diese  sind 
nicht  nur  extrem  schnell,  sondern  lassen  sich  auch  vollständig 
auf  eine  Diskette  bzw,  Kassette  aufbringen.  Um  das  betreffende 
Programm  dann  beschleunigt  zu  laden,  muß  das  Modul  nicht 
mehr  im  Expansion-Port  eingesteckt  sein! 

Die  Hardcopy-Funktion  weist  eine  Besonderheit  auf.  Man  kann 
mit  ihr  nicht  nur  den  aktuellen  Bildschirm  auf  dem  Drucker 
ausgeben,  sondern  auch  auf  Diskette  abspeichern  lassen,  um  ihn 
dann  beispielsweise  mit  einem  Grafikprogramm  weiterzuverar- 
beiten. 

Recht  nützlich  für  Computerspieler  ist  auch  der  sogenannte 
Sprite-Killer.  Damit  läßt  sich  die  Sprite-Kollisionskontrolle  des 
64’ers  abschalten.  Wem  der  Platz  auf  seinen  Disketten  zu  knapp 
wird,  der  kann  sich  seine  Programme  von  einer  speziellen  Pack- 
Routine  komprimieren  lassen. 

Die  weiteren  Funktionen  orientieren  sich  am  Leistungsumfang 
anderer  Module.  Eine  kleine  BASIC-Erweiterung  mit  Program- 
mierhilfen und  Floppy-Befehlen  fehlt  ebensowenig  wie  ein  lei- 
stungsfähiger Speicher-  und  Floppy-Monitor  sowie  eine  am 
User-Port  realisierte  Centronics-Schnittstelle. 


2.9  Sonstiges 

In  den  vorangegangenen  Abschnitten  habe  ich  mich  bewußt  auf 
solche  Anwendungen  konzentriert,  die  von  allgemeinem  Interesse 
sind.  Vielleicht  möchten  Sie  Ihren  Commodore  64  ja  aber  für 
etwas  ganz  spezielles  einsetzen  und  suchen  nun  nach  passender 
Hard-  und  Software. 

Eine  riesige  Fundgrube  in  dieser  Hinsicht  ist  der  Anzeigenmarkt 
von  Zeitschriften,  insbesondere  der  der  Zeitschrift  64’er,  die 
sich  in  der  Zwischenzeit  zur  Standard-Zeitschrift  für  den  Com- 
modore 64  entwickelt  hat. 

Da  der  Commodore  64  ja  mittlerweile  schon  einige  Jahre  auf 
dem  Markt  ist,  ist  auch  das  Spezialangebot  entsprechend  vielfäl- 
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tig.  Da  gibt  es  zum  Beispiel  Programme,  mit  denen  man  seinen 
Biorhythmus  berechnen  kann,  Astrologie-  und  Psychologiepro- 
gramme und  vieles  mehr. 

Vor  dem  Kauf  solcher  Spezialprogramme  sollte  man  sich  aber 
noch  mehr  als  bei  Standard-Software  von  deren  Qualität  über- 
zeugen. Oft  handelt  es  sich  dabei  nämlich  um  schnell  "zusam- 
mengestrickte"  BASIC- Programme,  die  Sie  sich  mit  einigermaßen 
guten  Programmierkenntnissen  in  ein  paar  Stunden  auch  selbst 
programmieren  können. 

Nicht  zu  verachten  sind  auch  die  in  Zeitschriften  abgedruckten 
Programm-Listings.  Viele  Zeitschriftenlistings  können  sich  dabei 
durchaus  mit  kommerziell  vertriebenen  Progammen  messen,  was 
die  Qualität  und  den  Leistungsumfang  betrifft.  Gerade  wenn 
man  etwas  sehr  spezielles  sucht,  wird  man  bei  den  Listings  noch 
am  ehesten  fündig.  Der  große  Nachteil  dabei:  Man  muß  die 
Listings  eben  erst  einmal  abtippen,  bevor  man  die  Programme 
nutzen  kann.  Manche  Zeitschriften  bieten  aber  auch  einen 
speziellen  Service  an,  bei  dem  man  sich  alle  Programme  einer 
oder  mehrerer  Ausgaben  auf  Disketten  schicken  lassen  kann. 
Solche  Disketten  kosten  dann  meist  nicht  mehr  als  etwa  20  bis 
30  Mark. 

Ein  Gebiet,  in  dem  sich  der  Commodore  64  auch  sehr  gut  ein- 
setzen  läßt,  ist  der  Großbereich  "Messen-Steuern-Regeln".  Wer 
gerne  den  Lötkolben  schwingt  und  nach  einem  "intelligenten" 
Steuergerät  für  seine  diversen  Schaltungen  sucht,  ist  mit  dem 
Commodore  64  sicher  bestens  bedient.  Durch  seinen  sehr  flexibel 
programmierbaren  User-Port  eignet  sich  der  64’er  sehr  gut  zur 
Steuerung  von  Schaltungen  jeder  Art.  Beispielsweise  gibt  es  als 
Ergänzung  zu  den  bekannten  Fischertechnik- Baukästen  spezielle 
Bausätze,  mit  Hilfe  derer  man  den  Commodore  64  zur 
Robotersteuerung  einsetzen  kann. 
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3.  BASIC-Programmierung  leichtgemacht 

Dieses  Kapitel  ist  für  all  diejenigen  gedacht,  die  bisher  noch 
über  keinerlei  Programmiererfahrungen  verfügen.  Bekanntlich  ist 
ja  aller  Anfang  schwer.  Deshalb  habe  ich  versucht,  alles  so  aus- 
führlich wie  möglich  zu  erklären. 

Manch  einem  wird  die  eine  oder  andere  Erklärung  vielleicht  zu 
umfangreich  erscheinen.  Trotzdem  sollte  man  das  Kapitel  auf 
jeden  Fall  ganz  durcharbeiten,  denn  es  bietet  einen  umfassenden 
Einstieg  in  die  BASIC-Programmierung  auf  dem  Commodore  64. 

Auch  wer  schon  die  ersten  Programmierexperimente  hinter  sich 
hat,  wird  sicher  noch  vieles  finden,  was  ihm  bisher  unbekannt 
war. 


3.1  Die  ersten  Schritte 

In  Kapitel  1 habe  ich  Ihnen  bereits  kurz  die  grundlegende  Ar- 
beit mit  der  Tastatur  erklärt  und  Ihnen  auch  gezeigt,  wie  man 
den  Editor  des  BASIC  2.0  zum  Ändern  und  Ergänzen  eingegebe- 
ner Texte  nutzen  kann.  Wiederholen  wir  das  ganze  einmal: 

Umgang  mit  Tastatur  und  Editor 

Nachdem  Sie  den  Commodore  64  eingeschaltet  haben  und  der 
sogenannte  Cursor  am  Bildschirm  erschienen  ist,  ist  der  Rechner 
zur  Programmierung  in  BASIC  bereit. 

Mit  dem  Cursor  können  Sie  an  jede  Stelle  des  Bildschirms  fah- 
ren. Dazu  stehen  Ihnen  die  beiden  Cursor-Steuertasten  rechts 
unten  auf  der  Tastatur  zur  Verfügung. 

Der  Cursor  markiert  immer  die  Position,  an  der  ein  Zeichen, 
dessen  Taste  Sie  drücken,  am  Bildschirm  erscheint. 
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Sie  können  mit  dem  Cursor  problemlos  über  vorhandene  Zeichen 
fahren.  Wenn  Sie  sich  aber  in  der  letzten  Bildschirmzeile  befin- 
den und  die  <Cursor  down>-Taste  betätigen,  wird  der  gesamte 
Bildschirminhalt  um  eine  Zeile  nach  oben  geschoben  (diesen 
Vorgang  bezeichnet  man  übrigens  als  "Scrollen"  des  Bildschirms). 
Die  oberste  Bildschirmzeile  geht  dabei  verloren.  Das  sollten  Sie 
immer  beachten! 

Falls  der  Cursor  auf  einem  Zeichen  steht  und  Sie  eine  Taste 
drücken,  so  wird  das  vorhandene  Zeichen  durch  das  zu  der  ge- 
drückten Taste  gehörende  Zeichen  überschrieben.  Auf  diese 
Weise  kann  man  einfache  Tippfehler  leicht  korrigieren. 

Oft  hat  man  aber  ein  oder  mehrere  Zeichen  zuviel  oder  zuwenig 
eingetippt.  Was  macht  man  dann?  Für  diesen  Fall  gibt  es  die 
<Inst/Del>-Taste.  Wenn  Sie  diese  Taste  allein  drücken,  wird  das 
Zeichen  das  links  vom  Cursor  steht  gelöscht  und  der  Rest  der 
Bildschirmzeile  um  eine  Position  nach  links  verschoben. 

Wenn  Sie  die  Taste  zusammen  mit  einer  der  beiden  <Shif ^-Ta- 
sten drücken,  wird  der  Inhalt  der  Bildschirmzeile  um  eine  Posi- 
tion nach  rechts  geschoben,  und  an  der  Cursor-Position  entsteht 
eine  Lücke,  in  die  Sie  ein  Zeichen  einfügen  können. 

Probieren  Sie  die  Taste  einmal  anhand  des  READY-Schriftzugs 
auf  dem  Bildschirm  aus.  Fahren  Sie  dazu  auf  das  "D"  von 
READY,  und  betätigen  Sie  die  <Inst/Del>-Taste. 

Jetzt  dürfte  nur  noch  REDY  in  der  Bildschirmzeile  stehen,  und 
der  Cursor  steht  weiterhin  auf  dem  "D".  Er  ist  mit  dem  "D"  um 
eine  Bildschirmposition  nach  links  gewandert. 

Drücken  Sie  nun  die  <Inst/Del>-Taste  zusammen  mit  einer 
<Shift>-Taste.  Zwischen  dem  "E"  und  dem  "D"  wird  eine  Leer- 
stelle eingefügt,  auf  der  der  Cursor  steht.  In  diese  Lücke  können 
Sie  nun  wieder  das  "A"  oder  jedes  andere  Zeichen  einfügen. 

Mit  der  <Inst/Del>-Taste  lassen  sich  natürlich  auch  mehrere 
Zeichen  löschen.  Wenn  Sie  die  Taste  längere  Zeit  gedrückt  hal- 
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ten,  wandert  der  Cursor  von  rechts  nach  links  Zeile  für  Zeile 
nach  oben  und  löscht  alles,  was  ihm  in  den  Weg  kommt. 

Um  den  gesamten  Bildschirm  zu  löschen,  wäre  dieses  Verfahren 
etwas  mühsam.  Deshalb  gibt  es  dazu  eine  spezielle  Taste,  die  mit 
<Clr/Home>  bezeichnet  ist. 

Wenn  Sie  diese  Taste  allein  drücken,  wandert  nur  der  Cursor  in 
die  linke  obere  Ecke,  in  seine  Home-Position.  Nur,  wenn  Sie  die 
Taste  zusammen  mit  einer  <Shift>-Taste  betätigen,  wird  der  ge- 
samte Bildschirminhalt  gelöscht. 

Der  Bildschirminhalt  geht  dabei  unwiederbringlich  verloren! 
Man  sollte  die  Löschfunktion  daher  nur  mit  Bedacht  anwenden. 
Den  Teil  des  Commodore  64,  der  den  Bildschirm  verwaltet  und 
uns  diese  komfortablen  Funktionen  zur  Verfügung  stellt,  be- 
zeichnet man  übrigens  als  "Editor".  Der  Editor  ist  sozusagen  eine 
speziell  für  die  Programmentwicklung  entworfene  Textverarbei- 
tung. Aus  diesem  Grund  weist  er  im  Vergleich  zu  "normalen" 
Textverarbeitungen  einige  Besonderheiten  auf. 

Wie  Sie  vielleicht  schon  bemerkt  haben,  funktioniert  beispiels- 
weise die  Löschfunktion  nicht  über  den  ganzen  Bildschirm  kor- 
rekt. Wenn  Sie  die  Taste  dauerhaft  gedrückt  halten,  werden  zwar 
kontinuierlich  Zeichen  gelöscht,  irgendwann  (spätestens  nach 
zwei  Bildschirmzeilen)  verliert  der  Cursor  aber  seinen  "Anhang", 
also  die  Zeichen,  die  er  normalerweise  mitschleppt.  Diese  blei- 
ben einfach  am  Anfang  einer  Bildschirmzeile  stehen  und  der 
Cursor  wandert  eine  Zeile  höher. 

Der  Editor  arbeitet  also  zeilenorientiert,  genauer  gesagt  2-Zei- 
len-orientiert.  Warum  gerade  zwei  Zeilen? 

Nun,  wie  Sie  später  noch  genauer  sehen  werden,  darf  eine  ein- 
zelne Zeile  eines  BASIC-Programms  bis  zu  achtzig  Zeichen  lang 
sein.  Eine  Bildschirmzeile  ist  aber  nur  vierzig  Zeichen  lang.  Um 
aber  dennoch  eine  komplette  BASIC-Zeile  ändern  zu  können, 
werden  jeweils  zwei  Bildschirmzeilen  sozusagen  zu  einer  Zeile 
zusammengefaßt.  Bedingt  durch  diesen  Sachverhalt  ergibt  sich 
ein  interessanter  Effekt. 
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Löschen  Sie  dazu  einmal  den  Bildschirm  und  schreiben  dann  in 
die  erste  Bildschirmzeile  den  folgenden  Text: 


DIESES  IST  DIE  ERSTE  BILDSCHIRMZEILE 


Anschließend  bringen  Sie  den  Cursor  in  die  Home-Position,  in- 
dem Sie  die  <Clr/Home>-Taste  betätigen,  und  fahren  dann  mit 
der  «Cursor  down>-Taste  in  die  zweite  Bildschirmzeile,  in  die 
Sie  diesen  Text  schreiben: 


DIESES  IST  DIE  ZWEITE  BILDSCHIRMZEILE 


Jetzt  drücken  Sie  noch  einmal  die  <Clr/Home>-Taste.  Nun  wol- 
len wir  am  Anfang  der  ersten  Bildschirmzeile  Platz  für  neue 
Zeichen  schaffen.  Halten  Sie  dazu  die  <Shift>+<Inst/Del>-Taste 
dauerhaft  gedrückt.  Sobald  das  "E"  am  Ende  von  BILD- 
SCHIRMZEILE die  letzte  Zeilenposition  erreicht  bzw.  über- 
schritten wird,  wird  die  zweite  Bildschirmzeile  um  eine  Zeile 
nach  unten  geschoben  und  der  Schriftzug  der  ersten  Zeile  wan- 
dert in  die  zweite! 

Das  ganze  funktioniert  allerdings  nur  so  lange,  bis  der  Schriftzug 
am  Ende  der  zweiten  Bildschirmzeile  angekommen  ist.  Danach 
können  Sie  die  <Shift>+<Inst/Del>-Taste  so  lange  drücken,  wie 
Sie  wollen.  Der  Schriftzug  wandert  um  keine  Stelle  nach  rechts 
weiter. 

Wo  wir  gerade  schon  dabei  sind,  uns  mit  den  Besonderheiten  des 
Editors  vertraut  zu  machen,  kann  ich  Sie  auch  gleich  noch  auf 
einen  anderen  Effekt  hinweisen. 

Versuchen  Sie  nun  doch  einmal,  den  Cursor  mit  Hilfe  der  Cur- 
sor-Steuertasten zu  bewegen.  Es  geht  nicht!  Egal  welche  Steuer- 
taste Sie  drücken,  der  Cursor  wandert  immer  um  eine  Stelle  nach 
rechts,  und  an  der  momentanen  Cursor-Position  erscheinen 
merkwürdig  aussehende  Zeichen.  Erst,  wenn  Sie  die  Insert- 
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Strecke  überwunden  haben,  sich  also  auf  dem  "D"  von  DIESES 
befinden,  funktioniert  die  Cursor-Steuerung  wieder  richtig. 

Durch  das  Betätigen  der  <Shift>+<Inst/Del>-Taste  sind  Sie  in 
einen  speziellen  Modus  gelangt,  in  dem  die  Cursor-Bewegungen 
nicht  mehr  ausgeführt,  sondern  mit  Hilfe  der  am  Bildschirm  er- 
scheinenden sogenannten  Steuerzeichen  sozusagen  "gespeichert" 
werden. 

In  unserem  Fall  ist  dieser  Effekt  eher  ärgerlich  als  hilfreich.  Wir 
werden  aber  später  noch  Anwendungen  kennenlernen,  bei  denen 
man  ihn  nutzbringend  einsetzen  kann. 

Damit  haben  Sie  wesentliche  Eigenschaften  und  Tücken  des 
Editors  bereits  kennengelernt.  Es  wird  Zeit,  daß  wir  unser  erstes 
BASIC- Programm  schreiben. 

Die  ersten  Programmierversuche 

Auf  dem  Bildschirm  herumzuschreiben  ist  zwar  recht  interes- 
sant, zu  irgendeiner  Reaktion  können  sie  den  Commodore  64 
damit  aber  nicht  bewegen.  Wie  Sie  vielleicht  noch  wissen,  müs- 
sen Sie  die  <Return>-Taste  drücken,  um  eine  Eingabe  an  den 
Rechner  weiterzuleiten. 

Sobald  Sie  in  einer  Bildschirmzeile  die  <Return>-Taste  betätigen, 
holt  sich  der  Commodore  64  die  komplette  Zeile  in  einen  inter- 
nen Speicherbereich  und  analysiert  sie. 

Wenn  Sie  die  <Return>-Taste  jetzt  drücken,  bekommen  Sie 
höchstwahrscheinlich  entweder  gar  keine  Reaktion  (der  Cursor 
stand  dann  in  einer  leeren  Bildschirmzeile)  oder  nur  die  Mel- 
dung SYNTAX  ERROR,  zu  gut  deutsch  also  "Syntaxfehler"  (der 
Cursor  stand  in  diesem  Fall  in  einer  Bildschirmzeile  mit  irgend- 
einem Undefinierten  Inhalt). 

Um  mit  dem  Commodore  64  zu  kommunizieren,  ihm  also  An- 
weisungen zu  geben,  müssen  sie  recht  strenge  Regeln  beachten. 
Der  Commodore  64  hat  nämlich  nur  einen  eng  begrenzten 
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"Wortschatz"  und  reagiert  auch  auf  grammatikalische  Fehler,  ein 
vergessenes  Komma  etwa,  sehr  empfindlich. 

Im  allgemeinen  muß  eine  Anweisung  an  den  Rechner  100-pro- 
zentig  korrekt  sein,  damit  der  Commodore  64  sie  akzeptiert.  Es 
gibt  zwar  einige  Ausnahmen,  auf  die  ich  aber  nicht  eingehen 
möchte.  Es  ist  besser,  wenn  Sie  sich  von  vorneherein  an  die  je- 
weils korrekte  Schreibweise  gewöhnen. 

Eine  Anweisung,  die  der  Commodore  64  beispielsweise  versteht 
ist  PRINT.  PRINT,  zu  deutsch  "drucke",  veranlaßt  den  Rechner, 
etwas  auf  dem  Bildschirm  auszugeben,  genauer  gesagt  das,  was 
hinter  dem  PRINT-Befehl  steht.  Probieren  wir  es  gleich  einmal 
aus: 


PRINT  2*3 

Bitte  vergessen  Sie  nicht,  die  <Return>-Taste  zu  betätigen. 
Nachdem  Sie  das  getan  haben,  schreibt  der  Rechner  eine  "6"  auf 
den  Bildschirm.  PRINT  kann  aber  noch  wesentlich  mehr,  zum 
Beispiel  auch  Texte  ausgeben: 

PRINT  "HALLO" 

Wie  Sie  sehen,  muß  der  Text  in  Anführungszeichen  stehen.  Las- 
sen Sie  die  Anführungszeichen  einmal  weg,  schreiben  also: 

PRINT  HALLO 

Was  erhalten  Sie  jetzt  auf  dem  Bildschirm?  Eine  Null!  Der 
Commodore  64  faßt  das  HALLO  als  sogenannte  Variable,  ge- 
nauer gesagt  als  "numerische  Variable"  auf.  Diesen  Begriff  ken- 
nen Sie  sicher  aus  dem  Mathematikunterricht.  Für  eine  Variable 
in  einer  Formel  darf  man  beliebige  Zahlen  einsetzen.  Nehmen 
wir  ein  Beispiel: 

D=A+B+C 


In  dieser  Formel  haben  wir  die  vier  Variablen  A,  B,  C und  D. 
Setzt  man  A=l,  B=2  und  C=3,  so  wird  D der  Wert  6 zugewiesen. 
Genauso  dürfen  Sie  das  auch  beim  Commodore  64  angeben: 
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A=1 

B=2 

03 

D=A+B+C 
PRINT  0 

Bitte  drücken  Sie  in  jeder  Zeile  die  <Return>-Taste!  Der 
PRINT-Befehl  gibt  wieder  eine  "6"  aus. 

Die  aktuellen  Werte  der  Variablen  werden  vom  Commodore  64 
in  einem  speziellen  Speicher,  dem  sogenannten  Variablenspei- 
cher, abgelegt,  von  wo  sie  jederzeit  abgerufen  werden  können. 

Der  Rechner  kann  aber  nicht  nur  Zahlen  speichern,  sondern 
auch  Texte.  Damit  der  Rechner  weiß,  daß  eine  Variable  einen 
Text  enthalten  soll,  müssen  Sie  an  ihren  Namen  das  Dollarzei- 
chen [$]  anhängen,  und  der  Text  muß,  wie  schon  beim  PRINT- 
Befehl,  in  Anführungszeichen  stehen. 

T*»"HALLO" 


beispielsweise  weist  der  Textvariablen  T$  den  Text  "HALLO"  zu. 
Mit 


PRINT  T$ 

bringen  Sie  den  Text  wieder  auf  den  Bildschirm.  Anstelle  der 
Bezeichnung  "Text"  hat  sich  übrigens  allgemein  die  Bezeichnung 
"String"  eingebürgert,  T$  ist  dann  also  eine  "String-Variable". 

Die  Anweisungen,  die  Sie  dem  Commodore  64  bisher  gegeben 
haben,  hat  er  immer  sofort  ausgeführt.  Wir  haben  im  sogenann- 
ten "Direktmodus"  gearbeitet.  Größere  Programmieraufgaben 
lassen  sich  im  Direktmodus  aber  nur  schlecht  bewältigen.  Sobald 
die  ganze  Bildschirmseite  vollgeschrieben  ist,  müßte  man  ja  den 
Bildschirm  zumindest  teilweise  löschen,  um  neue  Anweisungen 
eingeben  zu  können.  Aus  diesem  Grund  hat  man  die  Möglich- 
keit, Anweisungen  an  den  Rechner  in  einzelnen  Programmzeilen 
abzulegen.  Mehrere  Programmzeilen  zusammen  bilden  ein  Pro- 
gramm, genauer  gesagt  ein  BASIC-Programm. 
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Die  Programmzeilen  werden,  ähnlich  wie  die  Werte  der  Vari- 
ablen, in  einem  internen  Speicher  des  Commodore  64,  dem  Pro- 
grammspeicher, abgelegt.  Damit  der  Rechner  Programmzeilen 
von  Direkteingaben  unterscheiden  kann,  muß  man  ihnen  eine 
Nummer  voranstellen.  Dabei  sind  Nummern  von  0 bis  65.535 
erlaubt. 

Die  Nummern  dienen  auch  der  Organisation  der  Programmzei- 
len. Die  Programmzeilen  werden  nämlich  in  aufsteigender  Rei- 
henfolge ihrer  Nummern  gespeichert.  Eine  Programmzeile  mit 
der  Nummer  10  liegt  also  vor  einer  mit  der  Nummer  20  usw... 

Das  erste  Programm 

Schreiben  wir  also  unser  erstes  Programm!  Ich  habe  ein  Beispiel 
gewählt,  mit  dessen  Funktion  wohl  jeder  zurecht  kommen  wird. 

Stellen  Sie  sich  vor.  Sie  müßten  (vielleicht  als  Handwerker)  eine 
Rechnung  schreiben.  Für  die  einzelnen  Leistungen  verlangen  Sie 
einen  bestimmten  Preis.  Der  Einfachheit  halber  wollen  wir  ein- 
mal annehmen,  daß  es  genau  drei  Leistungen  sind. 

Auf  jeden  Preis  muß  die  gesetzliche  Mehrwertsteuer  von  14 
Prozent  auf  geschlagen  werden.  Außerdem  muß  der  Gesamtpreis 
berechnet  werden,  wobei  die  darin  enthaltene  Mehrwertsteuer 
extra  ausgewiesen  wird.  Etwas  weiter  unten  ist  das  komplette 
Programm  zu  dieser  Aufgabe  abgedruckt.  Bitte  sehen  Sie  es  sich 
nur  einmal  an,  tippen  es  aber  noch  nicht  ab! 

Ein  kleiner  Tip  am  Rande:  Nicht  nur,  wenn  man  mit  einem 
Fernseher  arbeitet,  ist  es  im  allgemeinen  besser,  beim  Program- 
mieren auf  die  Groß-/Kleinschrift  umzuschalten.  Die  Zeichen 
sind  dann  wesentlich  besser  lesbar.  Längere  Programmstücke 
sind  im  folgenden  deshalb  in  Kleinschrift  abgedrückt. 

Wie  man  die  Schrift  umschaltet,  wissen  Sie  ja  sicher  noch:  Ein- 
fach die  <Commodore>-  und  die  <Shift>-Taste  gleichzeitig 
drücken. 
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100  print  "rechnung  erstellen" 

110  print  " " 

120  input  "preis  1:  ";p1 
130  input  "preis  2:  ";p2 
140  input  "preis  3:  ";p3 
150  m1=p1*0.14 
160  m2=p2*0.14 
170  m3=p3*0.14 
180  mw=m1+m2+m5 
190  gp=p1+p2+p3 
200  igsgpHnu 

210  print  " " 

220  print  "preis  1:  ";p1;"  mehrwertsteuer:  ";m1 
230  print  "preis  2:  ";p2;"  mehrwertsteuer:  ";m2 
240  print  "preis  3:  ";p3;"  mehrwertsteuer:  ";ni3 

250  print  " " 

260  print  "gesamtpreis:  “;gp 
270  print  "mehrwertsteuer:";mw 
280  print  “insgesamt:"; ig 
290  end 

Sie  könnten  nun  einfach  daran  gehen,  das  ganze  Listing  (damit 
meint  man  ein  ausgedrucktes  Programm)  Zeichen  für  Zeichen 
abzutippen  und  am  Ende  jeder  Zeile  jeweils  die  <Return>-Taste 
drücken.  Das  führt  sicher  zum  Ziel,  ist  aber  viel  zu  umständlich! 

Wenn  Sie  sich  die  einzelnen  Programmzeilen  anschauen,  werden 
Sie  feststellen,  daß  sich  manche  Zeilen  nur  in  zwei  oder  drei 
Zeichen  unterscheiden.  Hier  kann  man  sich  viel  Tipparbeit  er- 
sparen. 

Geben  wir  das  Programm  einmal  zusammen  ein:  Bitte  tippen  Sie 
zunächst  die  Programmzeilen  100  bis  120  ein. 

Die  Zeilen  130  und  140  sind  mit  Zeile  120  fast  identisch.  Fahren 
Sie  deshalb  mit  dem  Cursor  wieder  auf  die  Zeile  120,  und 
überschreiben  Sie  die  2 in  120  durch  eine  3.  Dann  fahren  Sie 
mit  dem  Cursor  in  der  Zeile  weiter  und  ändern  den  "preis  1"  in 
"preis  2"  sowie  die  Variable  "pl"  in  "p2"  um.  Danach  drücken  Sie 
wieder  die  <Return>-Taste.  So  haben  Sie  aus  der  Zeile  120  eine 
Zeile  130  gemacht. 

Um  die  Zeile  140  einzugeben,  verfahren  Sie  analog.  Also  einfach 
die  Ziffern  wieder  um  eins  erhöhen  und  zum  Schluß  nicht  ver- 
gessen, die  <Return>-Taste  zu  drücken. 
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Die  Zeilen  150  bis  170  sehen  wieder  sehr  ähnlich  aus.  Tippen  sie 
also  zuerst  die  Zeile  150  komplett  ab  und  erzeugen  daraus  dann 
die  Zeilen  160  und  170. 

Geben  Sie  nun  die  Zeilen  180  bis  200  ein. 

Die  Zeile  210  ist  mit  Zeile  110  völlig  identisch.  Fahren  Sie  also 
mit  dem  Cursor  nach  oben  und  ändern  die  110  in  210  um.  An- 
schließend drücken  Sie  die  <Return>-Taste. 

Auch  die  Zeile  250  ist  mit  der  Zeile  110  identisch.  Ändern  Sie 
die  210  also  noch  schnell  in  250  um  und  drücken  noch  einmal 
die  <Return>-Taste. 

Die  Zeilen  220  bis  240  sind  bis  auf  drei  Zeichen  identisch.  Wie 
Sie  diese  drei  Zeilen  am  schnellsten  in  den  Rechner  bekommen, 
müßten  Sie  jetzt  selbst  wissen.  Zum  Schluß  tippen  Sie  noch  die 
Zeilen  260  bis  290  ab. 

Geschafft!  Bitte  löschen  Sie  nun  einmal  den  Bildschirm  und  ge- 
ben dann  ein: 

LIST  (+<Return>) 

Das  komplette  Programm-Listing  erscheint  nun  auf  dem  Bild- 
schirm. LIST  kann  aber  noch  mehr: 

Manchmal  möchten  Sie  vielleicht  nur  einen  Teil  eines  Pro- 
gramms auf  dem  Bildschirm  haben.  Insbesondere  dann,  wenn  Sie 
ein  größeres  Programm  haben,  das  nicht  ganz  auf  den  Bild- 
schirm paßt.  Zu  diesem  Zweck  können  Sie  hinter  LIST  die 
Nummern  der  Zeilen  angeben,  die  Sie  gelistet  haben  wollen.  Da- 
bei gibt  es  vier  Möglichkeiten: 

LIST  200 

listet  nur  die  Programmzeile  200. 


LIST  100-200 
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bringt  die  Zeilen  100  bis  200  auf  den  Bildschirm. 

LIST  -200 

listet  alle  Programmzeilen  vom  Programmanfang  bis  einschließ- 
lich Zeile  200. 

LIST  200- 

gibt  alle  Programmzeilen  ab  Zeile  200  bis  zum  Programmende 
aus.  Um  die  Feinheiten  des  Editors  abzuhaken,  möchte  ich  Ihnen 
auch  gleich  noch  erklären,  wie  Sie  eine  Programmzeile  im  Pro- 
grammspeicher löschen  können.  Dazu  geben  Sie  einfach  nur  die 
Nummer  der  zu  löschenden  Zeile  ein.  Möchten  Sie  beispielsweise 
die  Zeile  210  löschen,  so  geben  Sie  ein: 

210  (♦<Return>) 

Das  gesamte  im  Rechnerspeicher  befindliche  Programm  löschen 
Sie  durch  Eingabe  von: 

NEU  (+<Return>) 

Bitte  geben  Sie  den  Befehl  NEW  aber  keinesfalls  jetzt  ein,  und 
gehen  Sie  auch  später  immer  sehr  sorgfältig  damit  um!  Ist  das 
Programm  erst  einmal  gelöscht,  kann  man  es  (zumindest  mit 
normalen  Mitteln)  nicht  mehr  zurQckholen.  Sicher  brennen  Sie 
nun  darauf,  das  Programm  ablaufen  zu  lassen.  Nichts  einfacher 
als  das!  Bitte  geben  sie  ein: 

RUN  (+<Return>) 

Der  Commodore  64  schreibt  daraufhin  die  Überschrift 

RECHNUNG  ERSTELLEN 

auf  den  Bildschirm  und  fragt  Sie  mit 


PREIS  1:  ? 
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nach  dem  ersten  Preis.  Hinter  dem  Fragezeichen  blinkt  der 
Cursor.  Bitte  tippen  Sie  nun  irgendeine  Zahl  ein,  beispielsweise 
1000,  und  drücken  die  <Return>-Taste.  Und  schon  möchte  der 
Rechner  mit 

PREIS  2:  ? 

den  nächsten  Preis  wissen.  Bitte  geben  Sie  wieder  eine  Zahl  ein 
und  drücken  <Return>.  Dasselbe  wiederholt  sich  noch  einmal  für 
den  dritten  Preis. 

Danach  führt  der  Rechner  die  Berechnungen  in  den  Programm- 
zeilen ISO  bis  200  aus.  Das  geht  so  schnell,  daß  Sie  es  zeitlich 
gar  nicht  bemerken.  Der  Commodore  64  beherrscht  übrigens  alle 
vier  Grundrechenarten: 

Additon:  + 

Subtraktion: 

Multiplikation:  * 

Division:  / 

Ab  Programmzeile  210  werden  dann  mit  Hilfe  des  PRINT-Be- 
fehls  die  Ergebnisse  ausgegeben.  Der  END-Befehl  in  Zeile  290 
bildet  den  Abschluß  jedes  BASIC- Programms.  Er  darf  auch  ir- 
gendwo mitten  in  einem  Programm  stehen.  Trifft  der  Rechner 
auf  ein  END,  dann  beendet  er  die  Programmabarbeitung  und 
kehrt  in  den  Direktmodus  zurück. 

Das  Programm  steht  danach  im  Rechnerspeicher  weiterhin  zur 
Verfügung  und  kann  mit  RUN  erneut  gestartet  oder  mit  LIST 
gelistet  werden. 

Wenn,  wie  bei  unserem  Programm,  das  "logische"  Ende  des  Pro- 
gramms (also  die  Stelle,  an  der  die  Programmabarbeitung  been- 
det wird)  mit  dem  tatsächlichen  Programmende  zusammenfällt 
(was  meistens  der  Fall  ist),  dann  darf  man  die  END- Anweisung 
auch  weglassen. 

Ich  hoffe,  daß  das  Programm  bei  Ihnen  korrekt  gelaufen  ist. 
Falls  Sie  irgendwann  einen  SYNTAX  ERROR  IN  ...  bekommen 
haben  sollten,  dann  listen  Sie  bitte  die  betreffende  Zeile  und 
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schauen  nach,  ob  Sie  sich  nicht  vertippt  haben.  Nachdem  Sie  den 
Fehler  korrigiert  haben  (<Return>-Taste  drücken  nicht  verges- 
sen!), starten  Sie  das  Programm  erneut  mit  RUN. 

Auf  die  beiden  Befehle  INPUT  und  PRINT  werde  ich  gleich 
noch  ausführlicher  eingehen.  Zunächst  sollten  Sie  das  Programm 
dauerhaft  sichern.  Wie  Sie  ja  bereits  wissen,  geht  das  Programm 
im  Rechnerspeicher  nach  dem  Ausschalten  des  Rechners  unwie- 
derbringlich verloren. 

Programme  dauerhaft  sichern 

Bevor  Sie  ein  Programm  auf  einer  neuen  Diskette  speichern 
können,  müssen  Sie  diese  zunächst  formatieren.  Falls  Sie  nicht 
mehr  wissen,  wie  das  geht,  hier  noch  einmal  die  entsprechende 
Anweisung: 

OPEN  1,8,15,"N:DISKETTENNAME,ID":CLOSE  1 (+<Return>) 

Den  Diskettennamen  können  Sie  frei  wählen.  Wie  wäre  es  zum 
Beispiel  mit  "BASIC-DISK"?  Als  ID  geben  Sie  eine  zweistellige 
Kombination  aus  Buchstaben  und/oder  Ziffern  an.  Am  besten 
wird  es  sein,  wenn  Sie  sich  Ihre  Disketten  von  "01"  bis  "99" 
durchnumerieren.  Es  ist  sehr  wichtig,  daß  jede  Ihrer  Disketten 
über  eine  andere  ID  verfügt!  Die  Floppy  unterscheidet  die  ein- 
zelnen Disketten,  die  Sie  während  der  Arbeit  am  Rechner  in  das 
Laufwerk  schieben,  nämlich  anhand  dieser  ID.  Sobald  der  For- 
matiervorgang beendet  ist,  können  Sie  unser  Rechnungspro- 
gramm mit 

SAVE  "RECHNUNG", 8 (+<Return>) 

auf  der  Diskette  ablegen.  Wenn  Sie  es  später  wieder  laden  wol- 
len, geben  Sie  einfach  ein: 

LOAD  «RECHNUNG", 8 (+<Return>) 

Bei  der  8 hinter  dem  Programmnamen  handelt  es  sich  übrigens 
um  die  sogenannte  "Geräteadresse"  der  Floppy.  Die  Geräte- 
adresse signalisiert  dem  Rechner,  welches  Peripheriegerät  er  an- 
sprechen soll.  Datasetten- Besitzer  geben  anstelle  der  8 eine  1 an. 
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Auf  die  Feinheiten  der  Floppy-Programmierung  möchte  ich  an 
sich  erst  in  Kapitel  5 eingehen.  Sozusagen  als  kleinen  Vorge- 
schmack darauf  erkläre  ich  Ihnen  hier  schon  ein  paar  Kleinig- 
keiten: 

Jede  Diskette  hat  ein  Inhaltsverzeichnis,  auch  Directory  genannt, 
in  das  die  Namen  sämtlicher  Programme  eingetragen  werden,  die 
Sie  auf  der  Diskette  speichern.  Wie  kommt  man  nun  an  dieses 
Inhaltsverzeichnis  heran? 

Das  Inhaltsverzeichnis  hat  einen  speziellen  Namen,  das  Dollar- 
zeichen [$],  unter  dem  es  wie  jedes  andere  "Programm"  in  den 
Rechnerspeicher  geholt  werden  kann. 

Achtung:  Wenn  Sie  es  noch  nicht  getan  haben,  dann  speichern 
Sie  das  Rechnungsprogramm  bitte  unbedingt  jetzt  auf  die  Dis- 
kette. Durch  das  Einladen  des  Directories  geht  das  Programm 
(im  Rechnerspeicher)  verloren!  Um  das  Directory  zu  laden,  ge- 
ben Sie  ein: 

LOAD  "$",8  (+<Return>) 

und  anschließend: 

LIST  (+<Return>) 

Danach  müßte  in  etwa  folgendes  auf  dem  Bildschirm  erscheinen: 


0 "BASIC-DISK 

» 01  2A 

2 »RECHNUNG" 

662  BLOCKS  FREE. 

PRG 

In  der  ersten  Zeile  sehen  Sie  (invertiert  dargestellt)  den  Namen 
der  Diskette.  Darunter  steht  der  Name  unseres  Programms.  Die 
anderen  Zahlen  und  Texte  sollen  uns  im  Augenblick  nicht  in- 
teressieren. Mehr  dazu  in  Kapitel  5. 

Wenn  Sie  an  einem  Programm  eine  Änderung  vornehmen  und 
anschließend  diese  neue  Programmversion  unter  demselben  Na- 
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men  auf  der  Diskette  abspeichern  möchten,  geht  das  natürlich 
nicht.  Der  Name  dient  ja  gerade  zur  Unterscheidung  der  einzel- 
nen Programme  auf  der  Diskette  zwei  Programme  mit  demselben 
Namen  ergäben  keinen  Sinn.  Jetzt  haben  Sie  zwei  Möglichkeiten: 
Entweder  Sie  löschen  die  alte  Programmversion.  Dazu  geben  Sie 
ein: 


OPEN  1 ,8,15("S:RECHNUNG":CLOSE  1 (-KReturr») 

Oder  Sie  geben  der  alten  Programmversion  einen  anderen  Na- 
men, beispielsweise  "RECHNUNG(ALT)".  Dazu  tippen  Sie  ein: 

OPEN  1,8,1 5,HR: RECHNUNG« ALT )=RECHNUNG":CLOSE  1 (+<Return>) 

Programme  ausdrucken 

Eine  weitere  Möglichkeit,  seine  Programme  in  einen  dauerhaften 
"Zustand”  zu  überführen,  ist,  sie  auf  dem  Drucker  auszugeben. 
Besonders  nützlich  ist  das  Ausdrucken  bei  längeren  Programmen. 
Man  bekommt  auf  dem  Papier  einfach  einen  besseren  Überblick 
als  bei  den  jeweils  nur  25,  Zeilen  auf  dem  Bildschirm.  Wie  geht 
man  nun  konkret  vor? 

Zuallererst  müssen  Sie  natürlich  Ihren  Drucker  einschalten.  (Das 
vergißt  man  leicht.) 

Ähnlich  wie  bei  der  Floppy  müssen  wir  dem  Commodore  64 
mitteilen,  daß  wir  den  Drucker  ansprechen  möchten.  Dazu  geben 
Sie  ein: 

OPEN  4,4  (+<Return>) 

Nun  leiten  wir  sämtliche  Bildschirmausgaben  auf  den  Drucker 
um: 


CHD  4 (+<Return>) 

Das  READY,  das  ja  nach  jeder  Befehlsausführung  auf  dem 
Bildschirm  erscheint,  wird  jetzt  bereits  auf  dem  Drucker  ausge- 
geben. Jetzt  geben  Sie  einfach  ein: 
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LIST  (+<Return>) 

und  der  Drucker  beginnt  zu  arbeiten.  Um  anschließend  wieder 
normal  auf  dem  Bildschirm  arbeiten  zu  können,  geben  Sie  zum 
Schluß  noch  ein: 

PRINT#4  (+<Return>) 

CLOSE  4 (+<Return>) 

Das  ganze  noch  einmal  im  Überblick: 

OPEN  4,4 
CMD  4 
LIST 
PRINT#4 
CLOSE  4 

Der  PRINT-Befehl 

Im  Grunde  genommen  besteht  jedes  Programm  vereinfacht  be- 
trachtet aus  nur  drei  Teilen: 

► dem  Eingabeteil,  in  dem  irgendwelche  Daten  erfragt  werden 

► dem  Verarbeitungsteil,  in  dem  diese  Daten  irgendwie  bear- 
beitet werden 

► dem  Ausgabeteil,  in  dem  die  bearbeiteten  Daten  wieder  aus- 
gegeben werden 

Die  Ein-  und  Ausgabe  von  Daten  bildet  also  einen  wesentlichen 
Bestandteil  jedes  Programms.  Betrachten  wir  zunächst  einmal  die 
Ausgabe,  also  den  PRINT-Befehl.  Etwas  haben  Sie  über  PRINT 
ja  schon  kennengelernt: 

PRINT  12*5/3 

beispielsweise  gibt  das  Rechenergebnis  20  aus. 

PRINT  VR 

gibt  den  Inhalt  der  Variablen  VR  aus.  Texte  müssen  in  Anfüh- 
rungszeichen stehen: 


PRINT  "HALLO" 
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Oft  möchte  man  mehrere  Texte  hintereinander  ausgeben.  Da 
könnte  man  natürlich  einfach  schreiben: 

PRINT  "DAS  ERGEBNIS  IST:  ":PRINT  EG 

Es  geht  aber  auch  wesentlich  einfacher 

PRINT  "DAS  ERGEBNIS  IST:";EG 

Der  Strichpunkt  ; trennt  also  zwei  Teile  einer  Ausgabe.  Mit 
Hilfe  des  Strichpunktes  lassen  sich  beliebige  Ausgaben  aneinan- 
der reihen: 

PRINT  "DAS  ERGEBNIS  IST:  ";12*5/3;"  SOWIE:  ";EG 

Der  Strichpunkt  hat  noch  eine  weitere  nützliche  Funktion,  wenn 
er  ganz  am  Ende  einer  PRINT- Anweisung  steht.  Normalerweise 
wird  bei  jeder  neuen  PRINT- Anweisung  die  Ausgabe  in  einer 
neuen  Zeile  begonnen.  Wenn  Sie  zum  Beispiel  schreiben: 

10  print  "ergebnis:  " 

20  print  20 

Dann  erhalten  Sie  die  folgende  Ausgabe: 


ERGEBNIS: 

20 


Besser  wäre  es,  die  20  würde  hinter  dem  Doppelpunkt  stehen. 
Dazu  hängen  Sie  an  die  PRINT- Anweisung  in  Zeile  10  einfach 
ein  [;]  an: 

10  print  "ergebnis:  "; 

20  print  20 

Der  Strichpunkt  sorgt  also  dafür,  daß  der  Schreib-Cursor  nicht 
in  die  nächste  Bildschirmzeile  wandert,  sondern  an  seiner  mo- 
mentanen Position  stehenbleibt. 
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Der  INPUT-Befehl 

Den  INPUT-Befehl  haben  Sie  in  dem  Rechnungsprogramm  wei- 
ter oben  ja  auch  schon  kurz  kennengelernt.  Er  ist  grundsätzlich 
so  aufgebaut: 

10  INPUT  "Kommentartext"; Eingabevariable 

Den  Kommentartext  dürfen  Sie  auch  weglassen.  INPUT  druckt 
dann  nur  sein  Fragezeichen  aus,  um  zu  signalisieren,  daß  es  von 
Ihnen  etwas  wissen  will. 

10  INPUT  EG 

beispielsweise  weist  die  Eingabe  der  Variablen  EG  zu.  Auch 
Texte  lassen  sich  eingeben.  Dazu  müssen  Sie  aber  eine  String- 
Variable  als  Eingabevariable  angeben: 

10  INPUT  EG$ 

String-Eingaben  an  eine  numerische  Variable  weist  der  INPUT- 
Befehl  zurück.  Ähnlich,  wie  man  bei  PRINT  mehrere  Ausgaben 
kombinieren  kann,  so  kann  man  bei  INPUT  mehrere  Eingaben 
zu  einer  INPUT- Anweisung  zusammenfassen: 

10  INPUT  "BITTE  3 WERTE  EINGEBEN:  ";W1,W2,W3 

Die  einzelnen  Variablen  müssen,  durch  Kommas  getrennt,  ange- 
hängt werden.  Um  die  drei  Werte  jetzt  einzugeben,  gibt  es  zwei 
Möglichkeiten: 

Entweder  Sie  drücken  nach  jedem  Wert  die  <Return>-Taste.  Der 
INPUT-Befehl  macht  sich  in  diesem  Fall  (nach  dem  ersten  und 
dem  zweiten  Wert)  mit  einem  "??"  bemerkbar.  Am  Bildschirm 
sieht  das  so  aus: 


BITTE  3 WERTE  EINGEBEN:?  123 
??  321 
??  231 
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Die  andere  Möglichkeit  besteht  darin,  die  einzelnen  Werte  durch 
ein  Komma  zu  trennen: 


BITTE  3 WERTE  EINGEBEN:?  123,321,231 


Dann  müssen  Sie  nur  einmal  die  <Return>-Taste  drücken.  Falls 
Sie  mehr  Werte  eingeben,  als  Variablen  hinter  INPUT  stehen 
(beim  letzten  INPUT  beispielsweise  vier),  reagiert  der  Rechner 
mit  einem  EXTRA  IGNORED.  Das  Programm  wird  aber  trotz- 
dem fortgesetzt. 

Übrigens,  vielleicht  haben  Sie  es  selbst  schon  festgestellt,  im 
Direktmodus  ist  INPUT  nicht  erlaubt.  Man  kann  es  nur  inner- 
halb von  Programmen  einsetzen. 

Über  die  Lesbarkeit  von  Programmen 

Wenn  Sie  später  einmal  ein  Programm,  das  Sie  vor  längerer  Zeit 
geschrieben  haben,  abändern  müssen,  ist  es  sehr  wichtig,  daß  Sie 
überhaupt  noch  feststellen  können,  was  das  Programm  wo  macht 
und  welche  Bedeutung  einzelne  Programmanweisungen  haben. 

Nun  gut,  bei  einer  INPUT-  oder  einer  PRINT- Anweisung  weiß 
man  in  der  Regel  recht  schnell,  was  diese  jeweils  zu  bedeuten 
haben.  Nicht  alle  BASIC-Befehle,  die  Sie  noch  kennenlernen 
werden,  sind  aber  so  leicht  durchschaubar  wie  INPUT  und 
PRINT. 

Deshalb  sollte  man  in  jedes  Programm  "Bemerkungen"  auf  neh- 
men, die  darüber  Auskunft  geben,  was  die  einzelnen  Programm- 
anweisungen zu  bedeuten  haben.  Zu  diesem  Zweck  stellt  BASIC 
einen  speziellen  Befehl  zur  Verfügung:  REM.  REM  ist  die  Ab- 
kürzung für  "Remark",  zu  deutsch  also  "Bemerkung". 

Steht  in  einer  Programmzeile  ein  REM-Befehl,  so  wird  der  Rest 
der  Zeile  vom  Commodore  64  ignoriert.  Daher  können  Sie  hinter 
ein  REM  beliebige  Kommentare  schreiben,  beispielsweise: 


10  ran  das  ist  mein  erster  komnentar 
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Im  Gegensatz  zu  PRINT  oder  INPUT  muß  der  Kommentartext 
auch  nicht  in  Anführungszeichen  geschrieben  werden.  Sehen  wir 
uns  einmal  an  einem  praktischen  Beispiel  an,  was  Kommentare 
im  Hinblick  auf  die  Lesbarkeit  eines  Programms  bewirken  kön- 
nen. Nehmen  wir  dazu  unser  Rechnungsprogramm: 

90  rem  prograrrm:  rechnung 
100  print  "rechnung  erstellen" 

110  print  " " 

115  rem  preise  eingeben 

120  input  "preis  1:  ";p1 

130  input  "preis  2:  ";p2 

140  input  "preis  3:  M;p3 

145  rem  mehrwertsteuer  berechnen 

150  m1=p1*0. 14 

160  m2=p2*0.14 

170  m3=p3*0.14 

180  mu=m1+m2+m3 

185  rem  gesamtpreis  berechnen 

190  gp=p1+p2+p3 

200  ig=gp*mw 

205  rem  ergebnisse  ausgeben 

210  print  " " 

220  print  "preis  1:  ";p1;"  mehrwertsteuer:  ";m1 
230  print  "preis  2:  ";p2;"  mehrwertsteuer:  ";m2 
240  print  "preis  3:  ";p3;"  mehrwertsteuer:  ";ni3 

250  print  " " 

260  print  “gesamtpreis:  ";gp 
270  print  "mehrwertsteuer:";mw 
280  print  "insgesamt:";ig 
290  end 

So  sieht  das  ganze  doch  schon  wesentlich  übersichtlicher  aus. 
Optimal  ist  es  aber  noch  lange  nicht.  Die  einzelnen  Programm- 
zeilen sind  noch  zu  sehr  "zusammengedrängt".  Um  das  zu  än- 
dern, setzt  man  sogenannte  "Leerzeilen"  mit  einem  Doppelpunkt 
ein.  Zunächst  zum  Doppelpunkt  : selbst. 

Wie  Sie  ja  inzwischen  wissen,  darf  eine  Programmzeile  bis  zu 
achtzig  Zeichen  lang  sein.  Ein  einzelner  Befehl  wird  allerdings 
kaum  je  so  lang  sein.  Daher  kann  man  in  eine  Programmzeile 
auch  mehrere  Anweisungen  schreiben,  die  dann  aber  durch 
einen  Doppelpunkt  voneinander  getrennt  sein  müssen. 

Die  Zeilen  120  bis  140  des  Programms  könnte  man  beispiels- 
weise zu  einer  Zeile  zusammenfassen: 
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120  input"preis  1:  M;p1:input"preis  2:  ";p2:input"preis  3:  ";p3 


Wie  Sie  selbst  sehen,  erhöht  sich  dadurch  die  Lesbarkeit  des 
Programms  aber  nicht  gerade.  Nach  Möglichkeit  sollte  man  des- 
halb in  eine  Programmzeile  nur  eine  Anweisung  schreiben. 


Wenn  allerdings  der  Speicherplatz  knapp  wird  (was  bei  größeren 
Programmen  leider  sehr  schnell  passiert),  kommt  man  oft  nicht 
umhin,  mehrere  Zeilen  zusammenzufassen.  Doch  zurück  zu  den 
Leerzeilen.  Eine  Leerzeile  erzeugt  man  dadurch,  daß  man  in  die 
Zeile  nur  einen  Doppelpunkt  schreibt,  beispielsweise: 


10  : 


Ändern  wir  das  Programm-Listing  einmal  entsprechend  ab: 


90  rem  Programm:  rechnung 
92  : 

94  : 

98  : 

100  print  "rechnung  erstellen" 

110  print  " " 

112  : 

113  : 

115  rem  preise  eingeben 
117  : 

120  input  "preis  1:  ";p1 

130  input  "preis  2:  ";p2 

140  input  "preis  3:  ";p3 

142  : 

143  : 

145  rem  mehrwertsteuer  berechnen 
147  : 

150  m1=p1*0.14 
160  m2=p2*0.14 
170  m3=p3*0.14 
180  mw=m1+m2+m3 
182  : 

183  : 

185  rem  gesamtpreis  berechnen 
187  : 

190  gp=p1+p2+p3 
200  i g=gp+mw 
202  : 

203  : 

205  rem  ergebnisse  ausgeben 
207  : 

210  print  " " 
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220  print  "preis  1:  ";p1;"  mehrwertsteuer:  ";m1 
230  print  "preis  2:  ";p2;"  mehrwertsteuer:  ";m2 
240  print  "preis  3:  ";p3;"  mehrwertsteuer:  ";mS 

250  print  " " 

260  print  "gesamtpreis:  ";gp 
270  print  "mehrwertsteuer:";mw 
280  print  "insgesamt :";ig 
282  : 

284  : 

286  : 

290  end 

Die  einzelnen  Programmteile  sind  nun  klar  voneinander  getrennt 
und  das  Programm  ist  optimal  lesbar. 

Die  letzte  Möglichkeit,  ein  Programm  "optisch"  zu  gestalten, 
habe  ich  bereits  angewandt:  Das  Einfügen  von  Leerzeichen  zwi- 
schen den  einzelnen  Komponenten  einer  Anweisung.  Der  Com- 
modore 64  hat  nämlich  die  nützliche  Eigenschaft,  daß  er  diese 
Leerzeichen  (unabhängig  davon,  wie  viele  es  sind)  grundsätzlich 
überliest.  Anstatt 


10  input"preis  1";p1 

schreibt  man  deshalb  besser  (wie  im  Programm  geschehen): 


10  input  "preis  1";p1 


Genauso  gut  könnte  man  auch  schreiben: 
10  input  "preis  1"  ; pl 


3.2  Strukturiert  programmieren 

Bisher  war  es  uns  nicht  möglich,  die  "Richtung"  des  Programm- 
ablaufs in  irgendeiner  Weise  zu  beeinflussen.  Das  Programm 
wurde  immer  von  der  ersten  bis  zur  letzten  Programmzeile  abge- 
arbeitet. 

Bei  einfachen  Programmen  mag  das  durchaus  ausreichen.  Bei 
größeren  Programmen  steht  man  aber  oft  vor  dem  Problem,  daß 
ein  bestimmter  Programmteil  nur  unter  einer  bestimmten  Bedin- 
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gung  abgearbeitet  werden  soll.  Häufig  kommt  es  auch  vor,  daß 
ein  Programmteil  mehrfach  hintereinander  oder  während  des 
Programmablaufs  immer  wieder  abgearbeitet  werden  muß. 

Nehmen  wir  einmal  an,  ein  bestimmtes  Programmstück  wird 
während  der  Programmausführung  20  mal  durchlaufen.  Dieses 
Programmstück  nun  20  mal  in  den  Programmtext  zu  schreiben, 
würde  das  Programm  nicht  nur  unverhältnismäßig  "aufblähen", 
sondern  auch  Änderungen  unnötig  erschweren  (eine  Änderung 
innerhalb  des  Programmstücks  müßten  Sie  ja  dann  20  mal 
durchführen). 

Aus  diesem  Grund  hält  BASIC  spezielle  Steueranweisungen  pa- 
rat, mit  denen  man  gezielt  in  den  Programmablauf  eingreifen 
und  einem  Programm  eine  gewisse  "Struktur"  verpassen  kann. 


3.2.1  Sprünge  und  Verzweigungen 

Im  einfachsten  Fall  "springt"  das  Programm  zu  einer  bestimmten 
Programmzeile.  Dazu  gibt  es  den  Befehl  GOTO. 

Der  Befehl  GOTO 

Hinter  GOTO  müssen  Sie  die  Nummer  der  Programmzeile,  zu 
der  gesprungen  werden  soll,  angeben. 

GOTO  1000 

beispielsweise  springt  zu  der  Programmzeile  mit  der  Nummer 
1000.  Dazu  muß  Ihr  Programm  natürlich  auch  eine  Programm- 
zeile mit  dieser  Nummer  enthalten.  Falls  das  nicht  der  Fall  sein 
sollte,  meldet  sich  der  Rechner  mit  einem  UNDEF’D  STA- 
TEMENT ERROR. 

Von  wo  aus  Sie  zu  welcher  Stelle  in  einem  Programm  springen, 
ist  völlig  egal.  Auch  die  Anzahl  der  Sprünge  ist  unbegrenzt.  Sie 
können  also  nach  Herzenslust  "kreuz  und  quer"  in  einem  Pro- 
gramm herumspringen. 
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Damit  sollte  man  allerdings  sehr  vorsichtig  sein.  Schneller  als 
man  denkt,  weiß  man  nicht  mehr  so  recht,  wohin  das  Programm 
jeweils  eigentlich  springt,  und  vor  allem,  weshalb  es  an  eine  be- 
stimmte Stelle  springt.  Versuchen  Sie  einmal  das  folgende  Pro- 
gramm zu  analysieren: 

100  goto  240 

110  print  "4.  sprung" 

120  goto  220 

130  print  "2.  sprung" 

140  goto  200 

150  print  "6.  sprung" 

160  end 

200  print  "3.  sprung" 

210  goto  110 

220  print  "5.  sprung" 

230  goto  150 

240  print  "1.  sprung" 

250  goto  130 

Zugegeben,  das  ganze  ist  reichlich  übertrieben.  Wenn  man  aber 
nicht  aufpaßt,  hat  man  sehr  schnell  eine  derartig  unübersichtli- 
che Programmstruktur,  wie  sie  im  obigen  Beispiel  demonstriert 
wurde.  Ein  guter  Programmierer  sollte  deshalb  eigentlich  völlig 
ohne  GOTO  auskommen! 

Wesentlich  sinnvoller  als  ein  unbedingter  Sprung  mit  GOTO  ist 
die  Verzweigung  zu  einer  Programmzeile  in  Abhängigkeit  von 
einer  bestimmten  Bedingung. 


Der  IF-THEN-Befehl 

Dafür  ist  der  IF-THEN-Befehl  zuständig.  Der  Name  "WENN- 
DANN"  sagt  schon  fast  alles.  Wenn  eine  bestimmte  Bedingung 
erfüllt  ist,  dann  wird  etwas  getan,  beispielsweise  zu  einer  Pro- 
grammzeile gesprungen.  Die  genaue  Syntax  sieht  wie  folgt  aus: 

IF  'Bedingung'  THEN  'Anweisungen,  falls  Bedingung  wahr' 

IF  prüft  also,  ob  die  angegebene  Bedingung  wahr  ist.  Falls  ja, 
werden  die  hinter  THEN  stehenden  Anweisungen  ausgeführt.  Ist 
die  Bedingung  falsch,  dann  wird  in  der  nächsten  Programmzeile 
weitergemacht. 
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IF  VR=1  THEN  PRINT  MVR  ENTHAELT  DEN  WERT  EINS" 

beispielsweise  gibt  den  hinter  THEN  stehenden  Text  nur  aus, 
wenn  VR  den  Wert  eins  enthält.  Die  Bedingungen  hinter  IF 
können  sehr  vielfältig  sein: 

IF  WT<5  THEN  

prüft,  ob  WT  kleiner  als  5 ist. 

IF  WT>10  THEN  

führt  die  hinter  THEN  stehenden  Anweisungen  nur  aus,  falls 
WT  einen  Wert  größer  als  10  enthält.  Textvariablen  lassen  sich 
ebenfalls  prüfen: 

IF  TXS="ENDE"  THEN  END 

beendet  den  Programmablauf,  falls  TX$  die  Zeichenkette 
"ENDE"  enthält.  Auch  sogenannte  logische  Operatoren  dürfen 
verwendet  werden: 

IF  A>1  AND  A<10  THEN  

prüft,  ob  der  Wert  der  Variablen  A zwischen  1 und  10  liegt. 
Sehr  häufig  verwendet  man  IF-THEN,  um  in  Abhängigkeit  von 
einer  Bedingung  zu  einer  anderen  Programmzeile  zu  springen. 
Dabei  gibt  es  eine  Besonderheit  in  der  Schreibweise.  Anstelle 
von 


IF  X=5  THEN  GOTO  1000 

kann  man  genauso  gut 

IF  X=5  THEN  1000 


oder 


IF  X=5  GOTO  1000 
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schreiben.  Ein  nicht  zu  unterschätzender  Nachteil  der  IF- 
THEN-Anweisung  ist  die  Tatsache,  daß  die  hinter  THEN  ste- 
henden Anweisungen  auf  eine  Programmzeile  beschränkt  sind. 

In  vielen  Fällen  bräuchte  man  wesentlich  mehr  Platz.  Hier  gibt 
es  aber  einen  einfachen  Trick.  Die  Prüfbedingung  wird  einfach 
negiert,  also  umgekehrt. 

Nehmen  wir  einmal  an.  Sie  haben  die  Bedingung  "A=10".  Falls 
diese  Bedingung  zutrifft,  soll  Programmtext  von  vielleicht  fünf 
Zeilen  Länge  abgearbeitet  werden.  Diese  Bedingungsabfrage  re- 
alisieren Sie  wie  folgt: 

100  if  a<>10  then  160 

110  :rem  anweisungen, 

120 :rem  falls 

130  :rem  a 

140 :rem  gleich 

150 :rem  10 

160  rem  weiterer  programmtext 

Es  gibt  übrigens  einen  sehr  einfachen  Weg,  jede  Bedingung 
umzukehren.  Dazu  müssen  wir  den  logischen  Operator  NOT  be- 
mühen, auf  den  wir  später  noch  näher  eingehen  werden.  NOT 
negiert  jeden  Ausdruck,  der  hinter  ihm  in  Klammern  steht. 

IF  NOT  (A<5)  THEN  

beispielsweise  bedeutet,  daß  die  hinter  THEN  stehenden  An- 
weisungen abgearbeitet  werden  sollen,  falls  A nicht  kleiner  als  5, 
also  größer  oder  gleich  5 ist.  Manchmal  kommt  es  auch  vor,  daß 
mehrere  Bedingungen  in  Abhängigkeit  voneinander  geprüft  wer- 
den müssen.  Dazu  setzt  man  dann  mehrere  IF-THEN-Befehle 
hintereinander. 

IF  A>1  THEN  IF  B<10  THEN  

prüft  zunächst,  ob  der  Wert  von  A größer  als  1 ist,  und  (falls  ja) 
anschließend,  ob  B einen  Wert  kleiner  als  10  enthält. 
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DerON-GOTO-Befehl 

Manchmal  unterscheiden  sich  mehrere  Verzweigungsbedingungen 
nur  durch  einen  konstanten  Wert,  etwa  den  Wert  1: 

IF  AU=1  THEN  1000 
IF  AW=2  THEN  2000 
IF  AU=3  THEN  3000 
IF  AU=4  THEN  4000 
IF  AU=5  THEN  5000 

In  diesem  Fall  fünf  IF-THEN-Anweisungen  untereinander  zu 
schreiben,  ist  recht  umständlich.  Aus  diesem  Grund  gibt  es  den 
ON-GOTO- Befehl: 

ON  AU  GOTO  1000,2000,3000,4000,5000 

ON-GOTO  verzweigt  in  Abhängigkeit  von  der  Variablen  AW  in 
die  hinter  GOTO  angegebenen  Programmzeilen.  Enthält  AW  den 
Wert  1,  wird  zur  Zeile  1000  verzweigt,  bei  AW=2  zur  Zeile  2000 
usw...  Enthält  AW  einen  Wert  kleiner  als  1 oder  größer  als  5, 
dann  wird  das  Programm  in  der  nächsten  Programmzeile  fortge- 
setzt. 

Nicht  immer  wird  AW  so  ideale  Werte  wie  in  diesem  Beispiel 
enthalten.  Unterscheiden  sich  die  Werte  beispielsweise  um  den 
Wert  5,  so  kann  man  sich  mit  einer  einfachen  Umrechnung  be- 
helfen: 

ON  AU/5  GOTO 

Anstelle  einer  einfachen  Variablen  dürfen  zwischen  ON  und 
GOTO  also  auch  Formeln  stehen.  Die  Anzahl  der  hinter  GOTO 
stehenden  Zeilennummern  ist  nur  durch  die  Länge  einer  Pro- 
grammzeile beschränkt.  Einen  ganz  typischen  Anwendungsfall 
für  eine  ON-GOTO-Konstruktion  zeigt  das  folgende  Listing. 
Nehmen  wir  einmal  an.  Sie  haben  ein  Programm  geschrieben, 
daß  fünf  Funktionen  zur  Verfügung  stellt,  etwa: 
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Daten  eingeben 
Berechnungen  durchführen 
Rechnung  erstellen 
Rechnung  ändern 
Rechnung  ausdrucken 


Diese  Programmfunktionen  stellen  Sie  dem  Anwender  Ihres  Pro- 
gramms in  Form  eines  Auswahlmenüs  (ähnlich  der  Speisekarte  in 
einem  Restaurant)  zur  Verfügung.  Aus  diesem  Menü  kann  er 
durch  Angabe  einer  Kennziffer  die  Funktion  auswählen,  die  er 
benötigt.  Durch  die  Auswertung  dieser  Kennziffer  mittels  ON- 
GOTO  verzweigt  das  Programm  dann  an  die  entsprechende  Pro- 
grammstelle: 


100  print  "auswahlmenue:" 

110  print  "1:  menuepunkt  1" 

120  print  "2:  menuepunkt  2" 

130  print  "3:  menuepunkt  3" 

140  print  "4:  menuepunkt  4" 

150  print  "5:  menuepunkt  5" 

160  input  "bitte  entsprechenden  wert  (1-5)  eingeben:  ";aw 
170  : 

180  on  aw  goto  1000,2000,3000,4000,5000 
190  end 
200: 

1000  rem  prog rammt ei l fuer  menuepunkt  1 


2000  rem  programmtei l 


3000  rem  prograimtei  l 


4000  rem  programmtei l 


5000  rem  programmtei l 


fuer  menuepunkt  2 
fuer  menuepunkt  3 
fuer  menuepunkt  4 
fuer  menuepunkt  5 


3.2.2  Schleifen 

Eine  Konstruktion,  die  man  in  allen  Programmen  häufig  benö- 
tigt, sind  sogenannte  Programmschleifen.  Der  Programmcode  in- 
nerhalb einer  Schleife  wird  jeweils  mehrfach  durchlaufen. 

Nehmen  wir  zum  Beispiel  nun  einmal  an.  Sie  möchten  den  Text 
"HALLO"  zwanzigmal  auf  den  Bildschirm  schreiben. 
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Da  wäre  es  natürlich  ein  Unding,  dazu  auch  ein  Programm  mit 
zwanzig  PRINT- Befehlen  zu  schreiben. 

Die  FOR-TO-NEXT-Schleife 

Viel  einfacher  geht  es  mit  einer  "Zählschleife".  Bei  dieser  genügt 
ein  einziger  PRINT- Befehl: 

100  for  2=11  to  20 
110  print  “hallo" 

120  next  z 

Wie  wird  diese  Schleife  nun  genau  abgearbeitet?  In  Zeile  100 
wird  hinter  dem  FOR  durch  die  Zuweisung  "Z=l"  eine  Zählva- 
riable Z mit  dem  Startwert  1 definiert.  Die  20  hinter  dem  TO 
besagt,  daß  (von  der  Zahl  1)  bis  zur  Zahl  20  gezählt  werden  soll. 

Der  Commodore  64  arbeitet  die  Zeile  100  ab  und  merkt  sich  die 
definierten  Werte  in  einem  speziellen  Zwischenspeicher.  An- 
schließend wird  die  Programmzeile  110  wie  gewohnt  ausgeführt. 

In  der  Zeile  120  trifft  der  Rechner  auf  den  NEXT-Befehl.  Die- 
ser veranlaßt  ihn,  den  Wert  der  Variablen  Z um  eins  zu  erhöhen. 
Anschließend  vergleicht  er  den  Wert  von  Z mit  dem  Endwert  20. 

Z hat  im  Augenblick  den  Wert  2,  ist  also  kleiner  als  20.  Daher 
springt  der  Commodore  64  auf  die  hinter  dem  FOR-TO-Befehl 
stehende  Anweisung  (in  diesem  Fall  PRINT)  zurück  und  arbeitet 
diese  noch  einmal  ab. 

Danach  kommt  wieder  der  NEXT-Befehl  an  die  Reihe.  Z wird 
wieder  um  1 erhöht  und  hat  dann  den  Wert  3,  ist  also  immer 
noch  kleiner  als  20.  Die  PRINT- Anweisung  wird  deshalb  ein 
drittes  Mal  ausgeführt. 

So  geht  das  ganze  weiter,  bis  Z einen  Wert  größer  als  20  erreicht 
hat,  was  nach  dem  zwanzigsten  Schleifendurchlauf  der  Fall  ist. 
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Die  allgemeine  Form  der  FOR-TO-NEXT-Schleife  sieht  so  aus: 

FOR  Z=Anfangswert  TO  Endwert 
...  Schleifenanueisungen  ... 

NEXT  Z 

Anstelle  von  Z dürfen  Sie  natürlich  einen  beliebigen  Variablen- 
namen verwenden.  Manchmal  kommt  einem  die  Zählschrittweite 
von  1 etwas  ungelegen,  man  möchte  vielleicht  in  Zweier-  oder 
Dreier-Schritten  oder  auch  rückwärts  zählen. 

In  diesem  Fall  muß  man  die  gewünschte  Schrittweite  hinter  TO, 
vom  Endwert  abgetrennt  durch  ein  STEP,  angeben: 

FOR  Z=Anfangswert  TO  Endwert  STEP  Schrittweite 
...  Schleifenanweisungen  ... 

NEXT  Z 

100  for  z=0  to  50  Step  5 
110  print  "hallo" 

120  next  z 

In  dieser  Schleife  wird  in  Fünfer-Schritten  von  0 bis  50  gezählt. 
Auch  Dezimalzahlen  sind  erlaubt: 

100  for  z=1.5  to  7.75  Step  0.25 
110  print  z 
120  next  z 

Noch  ein  Beispiel  mit  einer  negativen  Schrittweite: 

100  for  z=20  to  1 Step  -1 
110  print  "hallo" 

120  next  z 

Diese  Schleife  bewirkt  dasselbe  wie  die  erste  Schleife,  nur  wird 
jetzt  eben  von  20  auf  1 rückwärts  gezählt.  Fehlt  die  STEP-An- 
weisung,  so  wird,  wie  wir  gesehen  haben,  immer  die  Schrittweite 
1 genommen. 

Übrigens  dürfen  zwischen  der  FOR-  und  der  NEXT-Zeile  be- 
liebig viele  Programmzeilen  mit  Schleifenanweisungen  stehen. 
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Ebenfalls  erlaubt  sind  weitere  FOR-TO-NEXT-Konstruktionen. 
Man  spricht  dann  von  einer  "Schachtelung"  von  Schleifen.  Eine 
Schachtelung  mit  drei  Schleifen  könnte  zum  Beispiel  so  aussehen: 


100  for  z1=1  to  1000 
110  : 

115  : 

120  : 

125  for  z2=1  to  100 
130  : 

135  : 

140  for  z3=1  to  10 
150  : 

160  rem  Schleifenanweisungen 
170  : 

180  next  z3 
190  : 

200  : 

210  next  z2 
220  : 

230  : 

240  : 

250  next  zl 

Die  äußere  ZI -Schleife  erstreckt  sich  von  Zeile  100  bis  250. 
Eine  Ebene  tiefer  folgt  die  Z2-Schleife  von  Zeile  125  bis  210 
und  dann  schließlich  die  Z3-Schleife  von  Zeile  140  bis  180.  Sehr 
wichtig  ist,  daß  die  Schleifen  auch  wirklich  verschachtelt  sind, 
eine  innere  Schleife  also  komplett  innerhalb  der  äußeren  Schleife 
liegt.  Eine  Konstruktion,  wie 


125  for  z2=1  to  100 
130  : 

135  : 

140  for  z3=1  to  10 
150  : 

160  rem  Schleifenanweisungen 
170  : 

180  next  z2 
190  : 

200  : 

210  next  z3 


ist  nicht  erlaubt!  Die  beiden  Schleifen  sind  hier  ja  nicht  ver- 
schachtelt, sondern  überlagern  sich,  denn  die  ZI -Schleife  er- 
streckt sich  von  Zeile  125  bis  180  und  die  Z3-Schleife  von  Zeile 
140  bis  210.  Noch  eine  Anmerkung  zu  NEXT:  Den  Namen  der 
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Schleifenvariablen  hinter  NEXT  kann  man  weglassen.  In  der 
Regel  ergeben  sich  dadurch  keine  Komplikationen.  Der  Commo- 
dore 64  nimmt,  falls  der  Name  fehlt,  immer  die  Variable  der 
zuletzt  abgearbeiteten  FOR-TO-Anweisung.  Die  Konstruktion 

100  for  z=1  to  20 
110  print  "hallo” 

120  next 

ist  also  völlig  korrekt.  Um  Platz  zu  sparen,  kann  man  das  ganze 
natürlich  auch  in  eine  Zeile  "quetschen": 

100  for  z=1  to  20:print  "halto":next 

Eine  weitere  Besonderheit  ergibt  sich  bei  verschachtelten 
Schleifen.  Hier  darf  man  mehrere  NEXT- Anweisungen  zu  einer 
zusammenfassen.  Das  Beispiel  von  weiter  oben,  ließe  sich  ver- 
kürzt so  schreiben: 

100  for  z1=1  to  1000 
125  for  z2=1  to  100 
140  for  z3=1  to  10 
150  : 

160  rem  Schleifenanweisungen 
170  : 

180  next  z3,z2,z1 

Besser  lesbar  wird  das  ganze  dadurch  allerdings  nicht  gerade. 
Man  sollte  sich  daher  immer  genau  überlegen,  ob  die  "kompakte" 
Schreibweise  wirklich  nötig  ist.  Bei  vielen  Programmierproble- 
men, die  eine  Schleife  erfordern,  hat  man  keinen  Zähler,  den 
man  für  eine  FOR-TO-NEXT-Schleife  verwenden  könnte. 
Vielmehr  hat  man  irgendeine  Abbruchbedingung  (beispielsweise 
"Anwender  drückt  eine  Taste"),  die  meist  innerhalb  der  Schleife 
irgendwann  auf  "wahr"  gesetzt  wird. 

Die  Frage  ist  nun,  wo  prüft  man  die  Abbruchbedingung?  Am 
Anfang  der  Schleife,  irgendwo  in  der  Mitte  oder  am  Ende  der 
Schleife.  Daraus  ergeben  sich  drei  Schleifenkonstruktionen: 

UHILE-DO  (Während-Tue) 

EXITIF  (Verzweige,  falls) 

REPEAT-UNTIL  (Wiederhole-Bis) 
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Leider  sind  diese  Schleifenkonstruktionen  im  BASIC  2.0  des 
Commodore  64  nicht  direkt  verfügbar.  Man  kann  sie  sich  aber 
mit  GOTO  und  IF-THEN  relativ  leicht  selbst  "basteln". 


Die  While-Do-Schleife 

Bei  der  While-Do-Schleife  wird  die  Abbruchbedingung  ganz  am 
Anfang  der  Schleife  getestet.  Nehmen  wir  einmal  an,  die  Bedin- 
gung wäre  "A=10",  d.h.,  so  lange  die  Variable  den  Wert  10  ent- 
hält, soll  die  Schleife  durchlaufen  werden. 

100  rem  while-do 
110  : 

120  if  not  <A=10)  then  200 

130 :rem  schlei- 

140 :rem  fen- 

150 :rem  anwei- 

160 :rem  sun- 

170 :rem  gen 

180  goto  120 
190  : 

200  rem  weiterer  prog rammt ex t 


Die  Schleife  erstreckt  sich  von  Zeile  120  bis  180.  Da  die  IF- 
Anweisung  ja  innerhalb  einer  Zeile  stehen  muß,  negieren  wir 
die  Abbruchbedingung  einfach  mit  NOT  und  überspringen  die 
Schleifenanweisungen,  falls  die  Bedingung  nicht  zutrifft. 

Eine  While-Do-Schleife  hat  den  großen  Vorteil,  daß  sie,  falls 
die  Abbruchbedingung  von  vorneherein  "wahr"  ist,  kein  einziges 
Mal  durchlaufen  wird.  Eine  FOR-TO-NEXT-Schleife  dagegen 
wird  immer  mindestens  einmal  abgearbeitet. 


Die  Exitif-Schleife 

Bei  der  Exitif-Schleife  wird  die  Abbruchbedingung  irgendwo 
innerhalb  der  Schleifenanweisungen  getestet.  Bleiben  wir  einmal 
bei  der  Bedingung  "A=10": 

100  rem  exitif 
110  : 

120 :rem  schleifen* 

130 :rem  anwei* 

140 :rem  sungen 
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150  if  a=10  then  200: rem  aussprung 

160 :rem  schleifen- 

170 :rem  anwei- 

180  :rem  sungen 

185  goto  120 
190  : 

200  rem  weiterer  progranntext 

Die  Exitif-Schleife  ist  die  flexibelste  von  allen.  Nicht  zuletzt, 
weil  innerhalb  der  Schleife  natürlich  beliebig  viele  Abbruchtests 
stehen  dürfen. 


Die  Repeat-Until-Schleife 

Die  Repeat-Until-Schleife  arbeitet  die  Schleifenanweisungen  so 
lange  ab,  bis  die  Abbruchbedingung  eingetreten  ist.  Die  Bedin- 
gung wird  deshalb  am  Ende  der  Schleife  kontrolliert. 

Bleiben  wir  bei  unserer  Abbruchbedingung  "A=10".  Bei  Repeat- 
Until  heißt  das,  die  Schleife  soll  so  lange  durchlaufen  werden, 
bis  A den  Wert  10  enthält.  Deshalb  müssen  wir  uns  wieder  mit 
einer  Negation  der  Bedingung  in  der  IF-Anweisung  behelfen: 

100  rem  repeat-until 
110  : 

120 :rem  sch  lei - 

130  :rem  fen- 

140 :rem  anwei- 

150 :rem  sun- 

160 :rem  gen 

170  if  not  (A=10)  then  120 
190  : 

200  rem  weiterer  progranntext 

Welche  Schleifenart  sich  jeweils  am  besten  eignet,  ergibt  sich 
meist  unmittelbar  aus  dem  jeweiligen  Programmierproblem. 
Manchmal  werden  Sie  vielleicht  gar  nicht  gleich  merken,  daß  Sie 
eigentlich  eine  Schleife  programmiert  haben. 

Trotzdem  wollte  ich  Ihnen  hier  einmal  kurz  die  grundsätzlichen 
Schleif entypen  vorstellen.  Das  wird  Ihnen  später  nicht  zuletzt  bei 
der  Analyse  fremder  Programme  (dadurch  erweitert  man  seine 
Programmierfähigkeiten  immer  noch  am  besten!)  hilfreich  sein. 
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3.2.3  Unterprogramme 

Oft  soll  ein  bestimmter  Programmteil  in  einem  Programm  zwar 
mehrfach  abgearbeitet  werden,  aber  nicht  direkt  hintereinander. 
Eine  Programmschleife  scheidet  dann  natürlich  aus. 

Eine  Konstruktion  mit  GOTO-Befehlen  läßt  sich  ebenfalls  nicht 
realisieren.  Zwar  könnte  das  Programm  zu  dem  bertreffenden 
Programmteil  hinspringen.  Nachdem  der  Programmteil  abgear- 
beitet ist,  wüßte  der  C64  nicht,  wohin  er  zurückspringen  soll. 

Der  Commodore  64  müßte  sich  also  irgendwie  "merken"  können, 
von  wo  aus  der  Programmteil  aufgerufen  wurde.  Und  das  kann 
er  auch! 

Der  GOSUB-RETURN-Befehl 

Dazu  müssen  Sie  nur  anstelle  des  GOTO  den  Befehl  GOSUB 
verwenden.  An  das  Ende  des  aufzurufenden  Programmteils  hän- 
gen Sie  ein  RETURN  an,  und  fertig  ist  das  Unterprogramm: 

100  gosub  1000: rem  erster  auf ruf 
110  ... 

120  gosub  1000: rem  zweiter  auf ruf 
130  .. . 

140  gosub  1000:rem  dritter  auf ruf 

200  end:rem  ende  des  hauptprogranms 
900  : 

910  : 

920  : 

1000  rem  Unterprogramm 


2000  return:rem  ruecksprung 

Die  Programmzeilen  100  bis  200  stellen  in  diesem  Programm  das 
Hauptprogramm  dar.  In  den  Zeilen  1000  bis  2000  steht  ein  Un- 
terprogramm, das  vom  Hauptprogramm  aus  dreimal  auf  gerufen 
wird.  Beim  Aufruf  des  Unterprogramms  durch  GOSUB  1000 
passiert  folgendes: 
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Der  Rechner  merkt  sich  in  einem  internen  Zwischenspeicher  die 
Position  der  Auf  ruf  stelle  im  Programm  (beim  ersten  Aufruf  die 
Zeile  100).  Anschließend  fährt  er  ab  der  Zeile  1000  mit  der  Pro- 
grammabarbeitung fort. 

Sobald  er  auf  den  RETURN-Befehl  in  Zeile  2000  trifft,  holt  er 
sich  aus  dem  Zwischenspeicher  die  Position  der  Aufrufstelle  und 
setzt  dann  genau  dahinter  (bzw.  in  der  nächsten  Zeile)  die  Pro- 
grammabarbeitung fort.  Eine  an  sich  recht  einfache,  aber  unge- 
heuer effiziente  Technik! 


Die  Bezeichnungen  "Hauptprogramm"  und  "Unterprogramm"  muß 
man  relativ  sehen.  Von  einem  Unterprogramm  aus  kann  man 
nämlich  jederzeit  ein  anderes  Unterprogramm  aufrufen.  Sogar 
der  Selbstaufruf  von  Unterprogrammen  ist  möglich. 


100  gosub  1000  

110  

120  

130  

200  end 
900  : 

910  : 

1000  rem  Unterprogramm  1 < 

1010 

1020  gosub  2000  

1030  


1500  return 
1900  : 

1910  : 

2000  rem  Unterprogramm  2 <— 

2010  

2020  

2030  


2500  return 


Das  von  Zeile  100  aus  auf  gerufene  Unterprogramm  1 ruft  sei- 
nerseits das  Unterprogramm  2 auf,  das  sich  von  Zeile  2000  bis 
Zeile  2500  erstreckt.  Man  spricht  in  diesem  Fall  von  einer 
Schachtelung  von  Unterprogrammen.  Trifft  der  Rechner  in  ei- 
nem Programm  auf  ein  RETURN,  ohne  zuvor  ein  GOSUB  ab- 
gearbeitet zu  haben,  so  reagiert  er  mit  der  Fehlermeldung  RE- 
TURN WITHOUT  GOSUB  ERROR. 


BASIC-Programmierung  leichtgemacht 


297 


Diese  Fehlermeldung  bekommt  man  schneller  als  man  denkt! 
Vergißt  man  nämlich  am  Ende  des  Hauptprogramms  die  END- 
Anweisung,  so  verzweigt  der  Rechner,  nachdem  er  das  Haupt- 
programm abgearbeitet  hat,  zwangsläufig  in  das  erste  Unterpro- 
gramm. Sobald  er  dann  auf  dessen  RETURN-Befehl  trifft,  er- 
scheint die  Fehlermeldung. 

DerON-GOSUB-Befehl 

Analog  zu  GOTO  gibt  es  auch  bei  GOSUB  die  Möglichkeit  einer 
"Sammelverzweigung".  Dazu  steht  der  ON-GOSUB-Befehl  zur 
Verfügung: 

ON  UT  GOSUB  1000,2000,3000 

Bei  WT=1  verzweigt  das  Programm  nach  Zeile  1000,  bei  WT=2 
nach  Zeile  2000  usw...  Nachdem  das  Unterprogramm  abgearbei- 
tet ist,  wird  das  Programm  hinter  dem  ON-GOSUB-Befehl  bzw. 
in  der  nächsten  Programmzeile  fortgesetzt.  Mit  Hilfe  der  Unter- 
programmtechnik und  ON-GOSUB  lassen  sich  Programme  jeder 
Größenordnung  sehr  übersichtlich  und  flexibel  gestalten. 

Häufig  benötigte  Programmteile,  etwa  eine  spezielle  Eingaberou- 
tine oder  eine  komfortable  Ausgaberoutine,  sollte  man  immer  in 
Form  von  Unterprogrammen  schreiben  und  dann  als  separates 
Programm  auf  Diskette  ablegen.  So  erhält  man  nach  und  nach 
eine  größere  Unterprogrammsammlung. 

Möchte  man  dann  später  ein  neues  Programm  schreiben,  sucht 
man  sich  einfach  die  passenden  Unterprogramme  heraus  und 
bindet  sie  in  das  Programm  ein.  Die  Programmentwicklungszeit 
wird  dadurch  wesentlich  verkürzt.  Wie  man  zwei  Programme 
"zusammenbindet"  (dieser  Vorgang  wird  oft  auch  als  "mergen" 
bezeichnet),  erkläre  ich  Ihnen  übrigens  in  Kapitel  5 (für  die 
Floppy)  bzw.  in  Kapitel  10  (für  die  Datasette). 

Bei  der  Beschreibung  von  ON-GOTO  weiter  oben  habe  ich  Ih- 
nen schon  gezeigt,  wie  man  ein  Programm  durch  Zerlegung  in 
einzelne  Teile  entsprechend  den  Programmfunktionen  sehr  über- 
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sichtlich  aufbauen  kann.  Wenn  wir  das  ganze  etwas  abwandeln, 
können  wir  mit  Unterprogrammen  arbeiten: 

100  print  "auswahlmenue:" 

110  print  "1:  menuepunkt  1" 

120  print  "2:  menuepunkt  2" 

130  print  "3:  menuepunkt  3" 

140  print  "4:  menuepunkt  4" 

150  print  "5:  menuepunkt  5" 

160  input  "bitte  entsprechenden  wert  (1-5)  eingeben:  ";aw 
170  : 

180  on  aw  gosub  1000,2000,3000,4000,5000 
190  goto  100 
200: 

1000  rem  Unterprogramm  fuer  menuepunkt  1 


1900  return 

2000  rem  Unterprogramm  fuer  menuepunkt  2 


2900  return 

3000  rem  Unterprogramm  fuer  menuepunkt  3 


3900  return 

4000  rem  unterprogranm  fuer  menuepunkt  4 


4900  return 

5000  rem  Unterprogramm  fuer  menuepunkt  5 


5900  return 

Grafisch  veranschaulicht  sieht  der  Programmaufbau  dann  so  aus: 


E b e n e 1 


Hauptprogramm 

(mit  Auswahlmenü  der  einzelnen  Programmfunktionen) 


E b e n e 2 


Unterprogramme 

(zu  den  einzelnen  Programmfunktionen) 


E b e n e 3 


gemeinsame  Unterprogramme 
(aus  Unterprogrammsammlung) 
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Die  Ebene  3 wird  nicht  in  jedem  Programm  enthalten  sein  (in 
dem  obigen  Listing  ebenfalls  nicht).  Insbesondere  in  kleinen 
Programmen  reichen  die  Unterprogramme  zu  den  einzelnen  Pro- 
grammfunktionen in  der  Regel  aus. 

Wenn  Sie  sich  an  diesen  grundsätzlichen  Programmaufbau  halten, 
werden  Sie  für  Ihre  Programme  nur  einen  Bruchteil  der  Zeit 
benötigen,  die  Sie  aufbringen  müßten,  wenn  Sie  einfach  "drauf- 
los" programmieren.  Ein  weiterer  Vorteil  dieser  Technik  ist  die 
leichte  Erweiterbarkeit  des  Programms. 

Nehmen  wir  einmal  an.  Ihnen  fällt,  nachdem  das  Programm  an 
sich  schon  fertig  ist,  eine  weitere  nützliche  Funktion  ein,  die  Sie 
unbedingt  in  das  Programm  aufnehmen  möchten.  Wie  müssen  Sie 
dann  vorgehen?  Zunächst  schreiben  Sie  die  neue  Programm- 
funktion als  Unterprogramm,  am  besten  ab  Programmzeile  6000: 

6000  rem  Unterprogramm  fuer  menuepunkt  6 

6900  return 


Anschließend  erweitern  Sie  das  Auswahlmenü  im  Hauptpro- 
gramm, um  den  zusätzlichen  Menüpunkt: 

155  print  "6:  menuepunkt  6" 

160  input  "bitte  entsprechenden  wert  (1-6)  eingeben:  ";au 

Zum  Schluß  erweitern  Sie  noch  die  ON-GOSUB-Anweisung  um 
den  zusätzlichen  Aufruf: 

180  on  aw  gosub  1000,2000,3000,4000,5000,6000 

Das  ist  schon  alles!  An  den  anderen  Programmfunktionen  müssen 
Sie  keinerlei  Änderungen  vornehmen. 


3.3  Daten  verwalten,  aber  wie? 

Selbst  in  einfachsten  Programmen  haben  Sie  irgendwelche  Daten, 
die  verarbeitet  werden  müssen.  Dabei  stellt  sich  zunächst  das 
Problem,  wie  die  Daten  verwaltet  werden  sollen.  Wie  und  wo  soll 
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man  die  Daten  ablegen?  Und  wie  stellt  man  sie  dann  später  zur 
Weiterverarbeitung  wieder  bereit? 

Zunächst  einmal  muß  man  zwei  grundsätzliche  Arten  von  Daten 
unterscheiden:  Numerische  Daten,  beispielsweise: 

12345 

459.34 

-71 


und  String-Daten,  beispielsweise: 

"ZEICHENKETTE" 

•■12345" 

"DAS  IST  EIN  LANGER  TEXT  MIT  38  ZEICHEN" 

Das  englische  Wort  "String"  steht  für  "Zeichenkette".  Ein  String 
ist  also  eine  Aneinanderreihung  einzelner  Zeichen,  eben  eine 
Zeichenkette. 

Im  Gegensatz  zu  den  numerischen  Werten  wird  ein  String  Zei- 
chen für  Zeichen  im  Rechnerspeicher  abgelegt.  Jedes  Zeichen 
wird  dabei  durch  einen  bestimmten  Code,  den  sogenannten 
ASCII-Code,  repräsentiert.  Der  Buchstabe  "A"  beispielsweise  hat 
den  ASCII-Code  65,  der  Buchstabe  "B"  den  Code  66,  der  Buch- 
stabe "C"  den  Code  67  usw...  Der  String 

"ABC" 


wird  im  Rechnerspeicher  also  durch  die  Codefolge 
65  66  67 

dargestellt.  Eine  vollständige  Tabelle  der  ASCII-Codes  finden  Sie 
übrigens  im  Anhang.  Die  maximale  Länge  eines  Strings  beträgt 
255  Zeichen.  Wenn  Sie  sich  jetzt  daran  erinnern,  daß  ja  eine 
einzelne  Programmzeile  maximal  80  Zeichen  lang  sein  darf,  dann 
fragen  Sie  sich  vielleicht,  wie  man  überhaupt  je  zu  einem  so 
langen  String  kommen  soll. 
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Das  geht  sehr  leicht!  Der  Commodore  64  erlaubt  es  nämlich,  mit 
Strings  fast  so  komfortabel  wie  mit  numerischen  Werten  umzu- 
gehen. So  kann  man  z.B.  mit  + zwei  Strings  "addieren".  Aus 

«COMMODORE«*"  64« 


wird 


«COMMODORE  64" 

Außerdem  stehen  eine  Reihe  spezieller  String-Funktionen  zur 
Verfügung,  mit  denen  man  aus  einem  String  beliebige  Teile 
"herausschneiden"  kann.  Mehr  dazu  etwas  weiter  unten. 

Es  gibt  auch  einen  String  mit  der  Länge  Null,  den  sogenannten 
"Null-String",  der  als 

•IM 


geschrieben  wird.  Wie  Sie  ja  in  der  Zwischenzeit  schon  zur  Ge- 
nüge gesehen  haben,  müssen  Strings  grundsätzlich  in  Anfüh- 
rungszeichen stehen.  Das  ermöglicht  es  dem  Rechner,  Strings 
von  numerischen  Daten  zu  unterscheiden.  Die  beiden  Schreib- 
weisen 

12345 


und 


"12345" 


stehen  also  trotz  ihrer  Ähnlichkeit  für  zwei  grundverschiedene 
Datenarten!  Im  ersten  Fall  handelt  es  sich  um  eine  Zahl,  mit  der 
man  rechnen  kann,  im  zweiten  Fall  um  einen  Text,  der  eben  nur 
aus  Ziffern  besteht. 


3.3.1  Konstanten  und  Variablen 

Wenn  man  den  Wert  eines  Datums  genau  kennt  und  sich  dieser 
Wert  während  des  Programmablaufs  auch  nicht  ändert,  schreibt 
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man  ihn  am  besten  als  sogenannte  "Konstante"  ins  Programm, 
für  Rechnungen  lohnt  sich  beispielsweise 

PRINT  "MEHRUERTSTEUERSATZ:  11 
;14;  "PROZENT" 

14  ist  in  diesem  Fall  eine  Konstante,  ebenso  "MEHRWERT- 
STEUERSATZ: " und  "PROZENT". 

In  den  meisten  Anwendungsfällen  kennt  man  die  Werte  der 
einzelnen  Daten  nicht  so  genau,  oder  die  Werte  können  sich 
während  der  Programmabarbeitung  ändern.  Da  ist  es  besser,  man 
verwendet  eine  sogenannte  "Variable". 

Das  gilt  unter  Umständen  auch  für  das  obige  Beispiel.  Nehmen 
wir  einmal  an.  Sie  schreiben  sich  ein  Programm  zur  Berechnung 
Ihrer  Steuern,  in  dem  Sie  vielleicht  ein  Dutzend  mal  (oder  mehr) 
den  Mehrwertsteuersatz  für  Berechnungen  benötigen.  Falls  sich 
der  Mehrwertsteuersatz  nun  ändert,  müßten  Sie  ihn  im  Pro- 
grammtext an  jeder  Stelle  ändern.  Das  Kunststück  dabei  ist 
dann,  diese  Stellen  überhaupt  zu  finden. 

Wesentlich  einfacher  wird  das  ganze,  wenn  Sie  sich  eine  Variable 

MEHRWERTSTEUERN 

definieren.  Was  passiert  bei  dieser  Zuweisung?  Der  Commodore 
64  vermerkt  den  Namen  der  Variablen  sowie  ihren  Wert  in  sei- 
nem internen  Variablenspeicher.  Beim  Namen  gibt  es  allerdings 
eine  wichtige  Einschränkung:  Es  werden  nur  die  ersten  beiden 
Zeichen  berücksichtigt!  Von  dem  Wort  MEHRWERTSTEUER 
merkt  sich  der  Rechner  also  nur  "ME".  Eine  Variable 

MEHRKOSTEN 

wäre  für  ihn  daher  mit  MEHRWERTSTEUER  identisch.  Man 
sollte  deshalb  von  vorneherein  möglichst  nur  zweistellige  Vari- 
ablennamen verwenden.  Wie  wäre  es  anstelle  von  MEHRWERT- 
STEUER beispielsweise  mit  MW? 
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Dadurch  ersparen  Sie  sich  später  auch  viel  Tipparbeit.  Die  Les- 
barkeit eines  Programms  erhöht  sich  dadurch  aber  nicht  gerade. 
Wer  weiß  schon  auf  Anhieb,  daß  mit  MW  die  Mehrwertsteuer 
gemeint  ist?  Daher  empfiehlt  es  sich,  zu  jedem  Programm  eine 
Variablentabelle  zu  erstellen,  in  der  man  die  Bedeutungen  der 
einzelnen  Variablen  vermerkt.  Am  einfachsten  legt  man  diese 
Tabelle  ganz  am  Anfang  eines  Programms  in  REM- Zeilen  ab, 
beispielsweise: 

100  rem  Steuerberechnung 
110  : 

120  rem  variablentabelle 
130  mu:  mehruertsteuer 
140  ek:  einkomnensteuer 
150  z1,z2,z3:  zaehlvariable 


Doch  kommen  wir  darauf  zurück,  wie  der  Commodore  64  eine 
Variable  behandelt.  Er  legt  ihren  Namen  und  ihren  Wert  also  im 
Variablenspeicher  ab.  Wenn  Sie  die  Variable  dann  später  ir- 
gendwo im  Programm  verwenden,  also  ihren  Namen  beispiels- 
weise in  eine  Formel  schreiben,  sucht  der  Rechner  die  Variable 
im  Variablenspeicher  und  holt  sich  ihren  Wert,  den  er  dann  (im 
übertragenen  Sinne)  anstelle  des  Namens  in  die  Formel  einsetzt. 
Wenn  Sie  also  schreiben 

PRINT  A+B+C 

holt  der  Commodore  64  nacheinander  die  Werte  der  Variablen 
A,  B und  C,  addiert  sie  Werte  und  gibt  das  Ergebnis  aus.  Den 
Wert  einer  Variablen  können  Sie  jederzeit  ändern.  Schreiben  Sie 
beispielsweise: 

100  wt=1 : rem  erste  Wertzuweisung 
110  print  wt 

120  wt=2:rem  zweite  Wertzuweisung 
130  print  wt 

140  wt=3:rem  dritte  Wertzuweisung 
150  print  wt 


dann  erhalten  Sie  die  Ausgabe 
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1 

2 
3 

Der  Wert  einer  Variablen  richtet  sich  also  immer  nach  der  letz- 
ten Wertzuweisung.  Falls  Sie  einmal  vergessen  haben  sollten,  ei- 
ner Variablen  einen  Wert  zuzuweisen,  bevor  Sie  sie  irgendwo  im 
Programm  verwenden,  so  ist  das  auch  nicht  weiter  schlimm.  Der 
Wert  der  Variablen  wird  in  diesem  Fall  vom  Rechner  automa- 
tisch auf  Null  gesetzt.  In  den  Variablen,  mit  denen  wir  bisher 
gearbeitet  haben  (A,  B,  C,  MW,  WT  usw.),  können  wir  beliebige 
numerische  Werte  ablegen,  beispielsweise: 

A=3626353 
B=0. 1259 
C=-187 

Häufig  benötigt  man  aber  nur  ganze  Zahlen  aus  einem  begrenz- 
ten Zahlenbereich.  Nehmen  wir  zum  Beispiel  die  Zählschleifen 
mit  FOR-TO-NEXT.  Hier  kommt  man  in  der  Regel  mit  Zahlen 
zwischen  0 und  10.000  aus. 

Aus  diesem  Grund  gibt  es  einen  zweiten  Variablentyp  für 
numerische  Werte,  die  sogenannten  "Integer-Variablen".  Unter 
einem  "Integer-Wert"  versteht  man  immer  einen  ganzzahligen 
Wert,  also 

1,  2,  3,  4 usw.  und  -1,  -2,  -3  usw. 
nicht  aber 

1.5  oder  0.3. 

Integer-Variablen  können  daher  nur  ganzzahlige  Werte,  genauer 
gesagt  ganzzahlige  Werte  zwischen  -32767  und  32768  auf neh- 
men. Um  dem  Commodore  64  mitzuteilen,  daß  Sie  eine  Integer- 
Variable  definieren  möchten,  müssen  Sie  ihrem  Namen  das  Pro- 
zentzeichen % anhängen,  beispielsweise: 

AX=10 

BX=-20 

CDX=1000 
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Der  dritte  auf  dem  Commodore  64  vorhandene  Variablentyp 
dient  zur  Aufnahme  von  Strings.  Wie  eine  String- Variable  mar- 
kiert werden  muß,  wissen  Sie  ja  bereits:  Man  hängt  ihrem  Na- 
men das  Dollarzeichen  [$]  an,  beispielsweise: 

TX$="TEXT» 

EGS="E INGABE" 

W$="98765432 1 0" 

usw.  Fassen  wir  einmal  kurz  zusammen.  Auf  dem  Commodore 
64  gibt  es  drei  verschiedene  Variablentypen: 

Numerische  Variablen  (oft  auch  Real-Variable  genannt),  bei 
denen  keine  besondere  Namenskennung  erforderlich  ist. 

Integer-Variablen,  die  mit  % hinter  dem  Namen  markiert  wer- 
den müssen. 

String-Variablen,  die  mit  $ gekennzeichnet  werden  müssen. 


3.3.2  Felder 

Häufig  hat  man  in  einem  Programm  eine  größere  Anzahl 
gleichartiger  Daten.  Nehmen  wir  einmal  an,  Sie  möchten  die 
Telefonnummern  von  fünf  Freunden  in  Variablen  speichern.  Da 
könnten  Sie  beispielsweise  schreiben: 

T1$=,,123456" 

T2$="654321" 

T3$=" 132456" 

T4$="456123" 

T5$="564321» 

Viel  einfacher  in  der  späteren  Handhabung  wird  das  ganze  aber, 
wenn  Sie  die  Werte  in  einem  sogenannten  "Variablenfeld"  able- 
gen.  Dazu  schreiben  Sie: 

T$(1)="123456" 

TS(2)=»654321» 

T*(3)=»132456" 

T$(4)="456123" 

T$(5)=M564321" 
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Durch  diese  Schreibweise  haben  Sie  ein  Variablenfeld  mit  dem 
Namen  T definiert.  Worin  unterscheidet  sich  nun  das  Tl$  von 
dem  T$(l)  bzw.  das  T2$  von  dem  T$(2)? 

Bei  Tl$,  T2$  usw.  handelt  es  sich  um  voneinander  unabhängige 
Einzelvariablen.  T$(l),  T$(2)  usw.  dagegen  sind  einzelne  Kom- 
ponenten einer  einzigen  Variablen  bzw.  eines  Variablenfeldes. 
Veranschaulichen  wir  uns  das  ganze  einmal  grafisch: 


TI 

123456 

T2 

654321 

T3 

132456 

T4 

456123 

T5 

564321 

T 

1 

123456 

2 

654321 

3 

132456 

4 

456123 

5 

564321 

Der  große  Vorteil  eines  Feldes  besteht  nun  in  den  Zugriffsmög- 
lichkeiten auf  die  einzelnen  Feldkomponenten.  Jede  Feldkompo- 
nente wird  einfach  durch  ihre  Nummer  in  Klammern  angespro- 
chen. Diese  Nummer  bezeichnet  man  übrigens  als  "Index"  des 
Feldes.  Um  beispielsweise  die  Feldinhalte  auf  dem  Bildschirm 
auszugeben,  schreiben  Sie: 

FOR  1=1  TO  5:PRINT  T$(I):NEXT  I 
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Bei  Tl$,  T2$  müßten  Sie  jede  Variable  extra  angeben: 

PRINT  TU;T2S;T3*;T4S;T5$ 

Bei  nur  fünf  Werten  ist  der  Unterschied  nicht  allzu  groß.  Stellen 
Sie  sich  aber  einmal  vor.  Sie  hätten  vielleicht  100  Werte!  Abge- 
sehen davon,  daß  Sie  schon  bei  der  Namensgebung  für  die  ein- 
zelnen Variablen  Probleme  bekommen  würden,  bräuchten  Sie 
mehrere  Programmzeilen,  um  alle  Werte  ausgeben  zu  lassen. 

Sind  die  Werte  in  einem  Feld  W mit  100  Elementen,  die  mit 
W(l)  bis  W(100)  angesprochen  werden  können,  abgelegt,  so  ge- 
nügt ein: 

FOR  1=1  TO  100:PRINT  W(I):NEXT  I 

Wenn  Sie  das  jetzt  gleich  einmal  ausprobieren  wollen,  werden 
Sie  Probleme  bekommen.  Sobald  Sie  versuchen,  einem  Feldele- 
ment mit  einem  Index  größer  als  1 1 einen  Wert  zuzuweisen,  rea- 
giert der  Commodore  64  mit  einem  BAD  SUBSCRIPT  ERROR. 

Das  Problem  dabei  ist  die  Speicherplatz- Reservierung  im  Vari- 
ablenspeicher. Jedes  Element  eines  Feldes  benötigt  ja  eine  ge- 
wisse Anzahl  Speicherplätze. 

Deshalb  muß  man  dem  Rechner  mitteilen,  wie  groß  das  Feld 
maximal  werden  soll  (ob  es  dann  später  tatsächlich  so  groß  wird, 
spielt  keine  Rolle),  man  muß  das  Feld  "dimensionieren". 

Dazu  gibt  es  einen  sehr  einfach  gebauten  BASIC-Befehl:  DIM. 
Hinter  DIM  wird  einfach  das  größtmögliche  Feldelement  ange- 
geben: 

DIM  U(100) 

richtet  also  ein  Feld  W mit  100  Elementen  ein.  Man  kann  mit 
einem  DIM-Befehl  auch  mehrere  Felder  dimensionieren: 


DIM  A(10),B(20),C(30) 
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Das  Feld  A wird  mit  10,  das  Feld  B mit  20  und  das  Feld  C mit 
30  Elementen  dimensioniert. 

Vergißt  man  die  Dimensionierung,  so  setzt  der  Rechner  die 
Feldgröße  auf  11  Elemente,  d.h.,  bei  der  ersten  Wertzuweisung 
an  ein  Element  eines  Feldes,  das  bis  zu  diesem  Zeitpunkt  noch 
nicht  dimensioniert  war,  wird  für  das  Feld  ein  Speicherplatz  für 
11  Elemente  reserviert. 

Hinweis:  Eine  einmal  durchgeführte  Dimensionierung  kann 

während  der  Programmabarbeitung  nicht  mehr  ab- 
geändert werden! 

Eine  Konstruktion  wie 

100  dim  w(90):rem  1.  dimensionierung 
300  dim  w(100):rem  2.  dimensionierung 


ist  daher  nicht  erlaubt  und  führt  zu  einem  REDIM’D  ARRAY 
ERROR.  Man  muß  sich  deshalb  wirklich  von  vorneherein  dar- 
über klar  sein,  wie  viele  Elemente  ein  Feld  auf  nehmen  soll. 

Um  beim  Beispiel  der  Telefonnummern  zu  bleiben:  So,  wie  die 
Nummern  im  Augenblick  gespeichert  sind,  müssen  Sie  wissen, 
welche  Nummer  zu  welchem  Freund  gehört.  Wesentlich  günsti- 
ger wäre  es,  wenn  die  Namen  der  Freunde  passend  zu  jeder  Te- 
lefonnummer gespeichert  wären. 

Dazu  könnte  man  nun  zwei  weitere  Felder  einrichten,  etwa 
NN$(1)-NN$(5)  für  die  Nachnamen  und  VN$(1)-VN$(5)  für  die 
Vornamen.  Warum  die  gesamten  Daten  aber  nicht  in  einem  ein- 
zigen Feld  zusammenfassen? 

Wir  bräuchten  also  ein  Feld,  das  zu  jedem  Freund  die  Daten 
Nachname,  Vorname  und  Telefonnummer  aufnimmt.  Sehen  wir 
uns  das  zuerst  einmal  grafisch  an: 
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1 

2 

3 

AD 

1 

Mueller 

Klaus 

123456 

2 

Maier 

Heinz 

654321 

3 

Schulz 

Georg 

132456 

4 

Schmidt 

Uwe 

456123 

5 

Mayr 

Peter 

564321 

Wie  bekommen  wir  das  ganze  nun  in  ein  Variablenfeld?  Wenn 
Sie  sich  die  Tabelle  einmal  genauer  anschauen,  werden  Sie  fest- 
stellen, daß  man  jedes  Element  durch  zwei  "Koordinaten"  an- 
sprechen kann.  Der  Vorname  "Uwe"  beispielsweise  steht  in  der  4. 
Zeile  und  der  2.  Spalte,  hat  also  die  Koordinaten  4,2. 

Was  wir  also  benötigen,  ist  ein  Feld,  bei  dem  man  die  einzelnen 
Elemente  mit  eben  diesen  "Koordinaten"  ansprechen  kann: 

DIN  ADS<5,3) 

Durch  diese  Anweisung  wird  ein  zweidimensionales  Feld  AD$ 
eingerichtet.  "Zweidimensional"  heißt,  daß  man  zwei  Indizes 
benötigt,  um  auf  ein  einzelnes  Feldelement  zuzugreifen.  Ein 
dreidimensionales  Feld  würde  demnach  drei  Indizes  erfordern, 
beispielsweise: 

F(1, 2,3) 

Anschaulich  können  Sie  sich  solch  ein  Feld  als  eine  Art  "Würfel" 
vorstellen  (das  zweidimensionale  Feld  in  der  Abbildung  oben  da- 
gegen stellt  ja  eine  ebene  Fläche  dar).  Bei  vier-  oder  gar  fünf 
Dimensionen,  beispielsweise 

F(1, 2,3,4)  oder  Fd, 2,3, 4,5) 


wird  es  mit  der  Veranschaulichung  etwas  kritisch.  Mehr  als  drei 
Dimensionen  gibt  es  in  unserer  räumlichen  Welt  ja  nicht.  Ich 
kann  Sie  aber  beruhigen.  Mehr  als  zwei  Dimensionen  werden  Sie 
bei  der  Programmierung  kaum  je  benötigen.  Bleiben  wir  also  bei 
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unserem  Beispiel.  Um  die  Daten  in  das  jeweilige  Feld  zu  be- 
kommen, gehen  Sie  am  besten  wie  folgt  vor: 

10  ad$(1f1)="mueUer":ad$(1f2)=,,klaus,,:ad$<1,3)="123456" 

20  ad$(2, 1)=,,^laier,,:ad$<2,2)=,,heinz,,:ad$(2,3)=,,654321,, 

30  ad$(3,1)="schulz":ad$(3,2)="georg":a<tt(3,3)="132456" 

40  ad$(4>1)=,lschnridt,l:ad$(4l2)="uweH:ad$(4>3)=,,456123" 

50  ad$(5,1)="mayr,,:ad$(5f2)="peter,,:ad$(5f3)="564321" 


Mit  der  Doppelschleife 

10  for  i 1=1  to  5 
20  for  i 2=1  to  3 
30  print  adS(i1,i2);n 
40  next  i2 
50  print 
60  next  il 

können  Sie  sich  die  Feldinhalte  auf  dem  Bildschirm  ausgeben 
lassen. 

Die  in  den  Programmzeilen  10  bis  50  angewandte  Methode  zur 
Eingabe  der  Daten  ist  recht  umständlich  und  unflexibel.  Etwas 
weiter  unten  werden  Sie  deshalb  zwei  wesentlich  komfortablere 
Möglichkeiten  kennenlernen. 


3.3.3  Mathematische  Operatoren 

Wie  Sie  bereits  wissen,  beherrscht  der  Commodore  64  die  vier 
Grundrechenarten  Addition  (+),  Subtraktion  (-),  Multiplikation 
(*)  und  Division  (/). 

Hinzu  kommt  noch  das  Potenzieren  (der  "Hochpfeil"  links  neben 
der  <Restore>-Taste;  drucktechnisch  bedingt  wird  der  Hochpfeil 
in  diesem  Buch  als  "A"  geschrieben). 

PRINT  4‘3 

beispielsweise  liefert  das  Ergebnis  64.  Die  Zahl  hinter  dem  Pfeil 
gibt  an,  wie  oft  die  Zahl  vor  dem  Pfeil  mit  sich  selbst  multipli- 
ziert werden  soll. 
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4*3  steht  also  für  4*4*4 

25*7  steht  für  25*25*25*25*25*25*25 

Bei  mathematischen  Ausdrücken,  wie  beispielsweise 

PRINT  23*4+40/8-3*5*2 

gelten  die  allgemein  üblichen  Prioritätsregeln:  Oberste  Priorität 
hat  die  Potenz.  Danach  folgen  die  Multiplikation  und  die  Divi- 
sion. An  unterster  Stelle  stehen  die  Addition  und  Subtraktion. 


Die  obige  Formel  wird  also  wie  folgt  berechnet: 

23*4+40/8-3*5*2 
92+5  -3*25 
97  - 75 

22 


Das  Ergebnis  ist  also  22.  Durch  gezieltes  Setzen  von  Klammern 
kann  man  die  Formel  verändern.  Operationen  in  Klammern  ha- 
ben Priorität  vor  allen  anderen.  Zwei  Beispiele: 


23*(4+40)/8- (3*5 ) * 2 
23*  44  /8-  15  *2 

126.5  - 225 
-98.5 


(23*4+40/(8-3*5) >2 
( 92  +40/(8-15  )>*2 
( 92  +40/ ( -7  ))*2 
( 92  - 5.7  )* 2 

( 86.3  )"2 

7447.69 


Für  Vergleiche  stehen  insgesamt  sechs  Operatoren  zur  Verfü- 
gung: 

3 gleich 
< kleiner 
<=  kleiner  gleich 
> größer 
>3  größer  gleich 
<>  ungleich 


312 


Das  große  Commodore  64-Buch 


Der  häufigste  Anwendungsfall  für  Vergleiche  ergibt  sich  bei  IF- 
THEN-Befehlen,  beispielsweise 

IF  A=5  THEN  

IF  WolOO  THEN  ... 

IF  DT>=-10  THEN  ... 

Die  Vergleichsoperatoren  lassen  sich  aber  auch  in  Formeln  ein- 
setzen. 

Dazu  muß  man  wissen,  daß  den  beiden  möglichen  Vergleichser- 
gebnissen "WAHR"  oder  "FALSCH"  zwei  Zahlen  zugeordnet  sind: 

WAHR:  -1 

FALSCH:  0 

Die  Formel 

(23>10)+(10<1 ) 

hätte  also 

-1+0=-1 

zum  Ergebnis.  Eine  besondere  Bedeutung  bekommt  diese  Tatsa- 
che in  Zusammenhang  mit  den  logischen  Operatoren. 


3.3.4  Logische  Operatoren 

Das  BASIC  2.0  des  Commodore  64  verfügt  über  drei  logische 
Operatoren:  AND,  OR  und  NOT. 

AND  entspricht  dem  umgangssprachlichen  UND,  OR  dem 
ODER  und  NOT  einem  NICHT. 

Die  Funktion  von  AND,  OR  und  NOT  macht  man  sich  am 
besten  an  einer  sogenannten  Wahrheitstabelle  klar. 
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A B 

A AND  B 

f f 

f 

u f 

f 

f u 

f 

w w 

u 

Das  kleine  "f"  steht  für  logisch  FALSCH,  das  kleine  "w"  für  lo- 
gisch WAHR.  A AND  B ergibt  also  nur  dann  WAHR,  wenn 
auch  die  Bedingungen  A UND  B selbst  WAHR  sind. 


A B 

A OR  B 

f f 

f 

w f 

w 

f u 

w 

w w 

w 

Bei  A OR  B genügt  es,  wenn  eine  der  Bedingungen  A ODER  B 
WAHR  ist. 


A 

NOT  A 

f 

w 

w 

f 

NOT  kehrt  der  Wahrheitsgehalt  einer  Bedingung  um.  Aus 
WAHR  wird  FALSCH  und  umgekehrt. 

Eine  praktiche  Bedeutung  bekommen  die  logischen  Operatoren 
bei  IF-THEN- Abfragen. 

IF  A>1  AND  A<10  THEN  PRINT  "A  LIEGT  ZWISCHEN  1 UND  10" 

prüft  beispielsweise,  ob  A größer  als  1 UND  kleiner  als  10  ist. 

IF  A$=I,ENDE"  OR  A$="FERTIG"  THEN  END 

beendet  ein  Programm,  falls  die  Variable  A$  den  Text  "ENDE" 
ODER  den  Text  "FERTIG"  enthält.  Mit 
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IF  NOT  (A»1  AND  A<10)  THEN  

läßt  sich  feststellen,  ob  A außerhalb  des  Bereichs  zwischen  1 
und  10  liegt.  Diese  Abfrage  läßt  sich  auch  anders  schreiben: 

IF  A<=1  OR  A>=10  THEN  

Weitere  Möglichkeiten,  Daten  zu  bearbeiten,  werden  Sie  im 
nächsten  Abschnitt,  der  von  den  sogenannten  Funktionen  han- 
deln wird,  kennenlernen.  Kehren  wir  zunächst  zum  Problem  der 
Datenspeicherung  zurück. 


3.3.5  DATA-Zeilen 

Als  wir  weiter  vorne  das  Telefonnummern-Feld  AD$  mit  Daten 
auffüllten,  haben  wir  dazu  direkte  Zuweisungen  an  die  einzelnen 
Feldelemente  verwendet.  Daher  mußten  wir  die  Zuweisung 
"AD$(. insgesamt  15  mal  schreiben,  was  natürlich  sehr  um- 
ständlich ist.  Wesentlich  komfortabler  wird  das  ganze,  wenn  wir 
sogenannte  DATA-Zeilen  verwenden: 

10  data  mueüer,klaus,  123456 
20  data  maier, Heinz, 654321 
30  data  schulz,georg,132456 
40  data  schmidt,uwe, 456123 
50  data  mayr, peter, 564321 

Der  Befehl  DATA  am  Anfang  jeder  Zeile  signalisiert  dem 
Commodore  64,  daß  dahinter  eine  Liste  von  Daten,  jeweils  ge- 
trennt durch  ein  Komma,  folgt. 

Trifft  der  Rechner  in  einem  Programm  auf  ein  DATA,  so  über- 
liest er  den  Rest  der  Zeile  und  macht  mit  den  nächsten  Anwei- 
sungen weiter.  Wenn  die  Daten  so  in  einer  Programmzeile  ste- 
hen, läßt  sich  nichts  mit  ihnen  anfangen.  Man  muß  sie  erst  in 
eine  Variable  oder  besser  in  ein  Variablenfeld  einiesen.  Dazu 
gibt  es  den  Befehl  READ. 


READ  TX$ 
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beispielsweise  weist  TX$  das  Datum  "MUELLER"  zu.  READ 
weiß  dabei  durch  den  sogenannten  DATA-Zeiger,  wo  die  erste 
DATA-Zeile  in  einem  Programm  steht.  READ  holt  aber  nicht 
nur  ein  DATA-Element,  sondern  setzt  gleichzeitig  auch  den 
DATA-Zeiger  um  eine  Position  weiter.  Ein  erneutes 

READ  DT$ 

weist  dem  Variablenfeld  DT$  daher  den  Text  "KLAUS"  zu.  So 
kann  man  nach  und  nach  sämtliche  in  den  DATA-Zeilen  abge- 
legten Daten  in  Variablen  einiesen.  Zum  Einlesen  der  obigen 
Daten  in  das  Variablenfeld  AD$  genügt  eine  einzige  READ- 
Anweisung  in  einer  Doppelschleife: 

100  for  i 1=1  to  5 
110  for  i 2=1  to  3 
120  read  ad$(i1,i2) 

130  next  i2 
140  next  il 

Beim  Neustart  eines  Programms  mit  RUN  wird  der  DATA-Zei- 
ger immer  auf  das  erste  DATA-Element  gesetzt.  Häufig  möchte 
man  die  Daten  aber  mehrfach  in  Variablen  einiesen.  In  diesem 
Fall  benutzt  man  den  Befehl  RESTORE.  RESTORE  setzt  den 
DATA-Zeiger  ebenfalls  auf  das  erste  Element,  so  daß  das  Ein- 
lesen wieder  von  vorne  beginnen  kann. 

Wollen  Sie  beispielsweise  die  obigen  Daten  nacheinander  in  zwei 
Felder  einiesen,  so  könnte  das  so  aussehen: 

100  for  i 1 =1  to  5 
110  for  f 2=1  to  3 
120  read  ad$(i1,i2) 

130  next  i2 
140  next  il 

150  restore:rem  data- zeiger  zurücksetzen 
160  for  i 1=1  to  5 
170  for  i 2=1  to  3 
180  read  tx$(i1,i2) 

190  next  i2 
200  next  il 

Um  bei  einer  Erweiterung  der  Daten  in  den  DATA-Feldern 
nicht  jedesmal  extra  den  Schleifenindex  der  Einleseschleife  än- 
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dem  zu  müssen,  gibt  es  übrigens  einen  kleinen  Trick.  Legen  Sie 
doch  einfach  die  Anzahl  der  Daten  ebenfalls  als  DATA-Wert  ab: 

100  read  az:rem  anzahl  der  daten 
110  for  i 1=1  to  az 
120  for  i 2=1  to  3 
130  read  ad$(i1,i2) 

140  next  i2 
150  next  il 
160  : 

1000  data  5: rem  anzahl 
1010  data  mueller,klaus, 123456 
1020  data  maier(heinz,654321 
1030  data  schul z , georg , 132456 
1040  data  Schmidt, uwe, 456123 
1050  data  mayr, peter, 564321 

Mit  READ  und  DATA  haben  wir  nun  schon  eine  recht  kom- 
fortable Möglichkeit,  größere  Datenmengen  zu  verwalten.  Das 
ganze  hat  jedoch  einen  großen  Nachteil: 

Die  Daten  in  den  DATA-Zeilen  lassen  sich  nur  "von  Hand"  än- 
dern; es  gibt  keine  Möglichkeit,  vom  Programm  aus  Änderungen 
oder  Ergänzungen  durchzuführen. 


3.3.6  Daten  auf  externen  Speichermedien 

Wer  größere  Datenmengen  wirklich  "professionell"  verwalten 
möchte,  kommt  nicht  umhin,  sie  auf  einem  externen  Speicher- 
medium, einer  Diskette  oder  einer  Kassette,  auszulagern. 

Die  Arbeit  mit  Floppy  und  Datasette  zählt  daher  mit  zu  den 
wichtigsten  Programmierbereichen.  Aus  diesem  Grund  sind  ihr 
in  diesem  Buch  zwei  Kapitel  erheblichen  Umfangs  gewidmet.  In 
Kapitel  5 erfahren  Sie  alles  zum  Umgang  mit  der  Floppy,  die 
Datasette  steht  im  Mittelpunkt  von  Kapitel  10.  Ich  möchte  Ihnen 
aber  trotzdem  gleich  hier  einen  kleinen  Einblick  in  die  Daten- 
speicherung auf  Diskette  geben  (für  die  Datasette  gilt  im  Prinzip 
dasselbe;  mehr  dazu  in  Kapitel  10). 

Größere  Mengen  zusammengehöriger  Daten  werden  ganz  allge- 
mein in  sogenannten  "Dateien"  (auch  Files  genannt)  zusammen- 
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gefaßt.  Auch  ein  auf  Diskette  abgespeichertes  BASIC- Programm 
ist  letztendlich  nichts  anderes  als  eine  Datei,  eben  eine  Pro- 
grammdatei. 

Wie  bekommt  man  nun  aber  in  Variablen  abgelegte  Daten  auf 
die  Diskette,  beispielsweise  unsere  Telefonnummern-Daten? 

Dazu  muß  man  dem  Rechner  zunächst  mitteilen,  daß  man  auf 
eine  Datei  zugreifen  bzw.  eine  neue  Datei  anlegen  möchte.  Die- 
sen Vorgang  bezeichnet  man  als  "öffnen"  der  Datei.  Dazu  gibt  es 
den  OPEN-Befehl: 

10  open  1,8,2,"telefon,s,w" 

Dadurch  wird  auf  der  Diskette  eine  Datei  mit  dem  Namen  "TE- 
LEFON" eingerichtet. 

Die  1 ist  die  sogenannte  logische  File- Nummer,  über  die  wir 
später  auf  die  Datei  Bezug  nehmen  werden.  Die  8 signalisiert 
dem  Rechner,  daß  auf  die  Floppy  zugegriffen  werden  soll.  Die  2 
bezeichnet  man  als  Sekundäradresse;  sie  soll  uns  hier  nicht  wei- 
ter interessieren. 

Das  "S"  in  dem  String  bedeutet,  daß  wir  eine  sequentielle  Datei 
(und  nicht  etwa  eine  Programmdatei)  öffnen  wollen.  Das  "W" 
dahinter  signalisiert  der  Floppy,  daß  wir  in  die  Datei  schreiben 
(und  nicht  lesen)  wollen. 

Das  Komplizierteste  haben  wir  damit  schon  hinter  uns.  Um  die 
Daten  nun  in  die  Datei  zu  schreiben,  verwenden  wir  eine  leicht 
abgewandelte  Form  des  PRINT-Befehls:  PRINT#.  Hinter 

PRINT#  muß  die  logische  File-Nummer  der  Datei  stehen.  Sie 
zeigt  dem  Rechner  an,  auf  welche  Datei  wir  zugreifen  wollen. 

PR INT#1 ."DIESER  TEXT  WIRD  IN  DIE  DATEI  GESCHRIEBEN." 

legt  beispielsweise  einen  String  in  der  Datei  ab.  Wir  wollen  ja 
aber  unsere  Telefondaten  abspeichern.  Auch  das  ist  nicht  viel 
aufwendiger.  Wir  nehmen  einfach  unsere  bewährte  Doppel- 
schleife: 
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30  for  i 1=1  to  5 
40  for  i2=1  to  3 
50  print#1,ad$(i1,i2) 

60  next  i2 
70  next  il 

Was  man  öffnet,  muß  man  irgendwann  auch  wieder  schließen. 
Schließen  wir  also  auch  die  Datei  "TELEFON".  Dazu  gibt  es  den 
Befehl  CLOSE: 

90  close  1 

Die  1 ist  wieder  die  logische  File-Nummer.  Schön  und  gut,  die 
Daten  sind  nun  auf  Diskette  abgelegt.  Doch,  wie  kommt  man 
wieder  an  sie  heran?  Dazu  muß  die  Datei  wieder  geöffnet  wer- 
den, diesmal  aber  nicht  zum  Schreiben,  sondern  zum  Lesen: 

110  open  1,8,2,,,telefon,s,r" 

Anschließend  lesen  wir  die  Daten  mit  einer  abgewandelten  Form 
des  INPUT-Befehls:  INPUT#.  Hinter  INPUT#  muß  wieder  die 
logische  File-Nummer  der  Datei  stehen: 

130  for  i 1=1  to  5 
140  for  i 2=1  to  3 
150  i nput#1 , ad$( i 1 , i2) 

160  next  i2 
170  next  il 

Zum  Schluß  vergessen  wir  nicht,  die  Datei  zu  schließen: 

190  close  1 

Fassen  wir  das  ganze  noch  einmal  zusammen: 

5 rem  sequentielle  datei  schreiben 
10  open  1>8,2,"telefon,sfw" 

20  : 

30  for  i 1=1  to  5 
40  for  i 2=1  to  3 
50  print#1,ad$(i1,i2) 

60  next  i2 
70  next  il 
80  : 

90  close  1 
95  : 
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97  : 

100  rem  sequentielle  datei  lesen 
110  open  1f8,2f,,telefonfs,r" 

120  : 

130  for  l 1=1  to  5 
140  for  i2=1  to  3 
150  input#1,ad$(i1,i2) 

160  next  i2 
170  next  il 
180  : 

190  close  1 

Sie  sehen,  das  ganze  folgt  einem  doch  recht  einleuchtenden 
Prinzip: 

Datei  öffnen 

Daten  schreiben  oder  lesen 
Datei  sch  ließen 

Zum  Schluß  möchte  ich  noch  kurz  auf  zwei  spezielle  Eingabe- 
befehle eingehen:  GET#  und  GET.  Wenn  Sie  bei  INPUT  auf 
dem  Bildschirm  Daten  eingeben,  werden  diese  ja  erst  übernom- 
men, sobald  Sie  die  <Return>-Taste  drücken.  Wenn  nun  aber 
INPUT#  aus  einer  Datei  Daten  liest,  woher  weiß  der  Befehl  ei- 
gentlich, wo  das  eine  Datum  aufhört  und  das  nächste  beginnt? 
Die  Daten  sind  in  der  Datei  ja  der  Reihe  nach  abgelegt: 

MUELLER  KLAUS  123456  MAIER  

Nun,  auch  der  PRINT#-Befehl,  mit  dem  wir  die  Daten  in  die 
Datei  geschrieben  haben,  "drückt"  am  Ende  jedes  Datums  die 
<Return>-Taste,  indem  er  einen  speziellen  Code,  den  ASCII- 
Code  13,  sendet,  der  dann  in  der  Datei  hinter  dem  Datum  abge- 
legt wird.  Sobald  INPUT#  auf  diesen  Code  trifft,  weiß  es,  daß 
es  das  aktuelle  Datum  vollständig  gelesen  hat. 

In  manchen  Fällen  möchte  man  die  Daten  aber  gar  nicht  so 
"häppchen weise",  sondern  lieber  Zeichen  für  Zeichen  einiesen. 
Hier  kommt  der  Befehl  GET#  ins  Spiel: 

10  open  1(8(2>Htelefon,s,r11 
20  get  eg$ 

30  close  1 
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liest  nur  den  ersten  Buchstaben  "M"  von  MUELLER  in  die  Va- 
riable EG$.  Mit  der  Schleife 

10  open  1,8,2,,,telefonfslr" 

20  for  z=1  to  7:get  eg$:dt$=dt$+eg$:next  z 
30  close  1 

wird  der  gesamte  Name  MUELLER  gelesen  und  in  der  Vari- 
ablen DT$  abgelegt.  Mit  GET#  kann  man  also  nach  und  nach 
die  gesamte  Datei  einiesen  und  in  beliebige  "Happen"  unterteilen. 

Auch  für  das  Bildschirm-GET  gibt  es  sinnvolle  Anwendungs- 
fälle. Häufig  hat  man  ja  in  einem  Programm  nur  Einzelzeichen- 
Abfragen,  etwa  die  Kennziffer  bei  einem  Auswahlmenü,  oder 
eine  Ja-Nein-Abfrage,  wie  z.B: 

10  print  "programm  beenden?  (j/n)" 

20  input  e$ 

30  if  e$=" j"  then  end 

40  rem  weiterer  programmverlauf 

Mit  GET  läBt  sich  das  so  umschreiben: 

10  print  "programm  beenden?  (j/n)" 

20  get  eS: if  e$=""  then  20 

30  if  e$="j"  then  end 

40  rem  weiterer  programmverlauf 


GET  bringt  dem  Anwender  des  Programms  den  Vorteil,  daß  er 
nicht  extra,  wie  bei  INPUT,  die  <Return> -Taste  drücken  muß. 

Die  Programmzeile  20  zeigt  gleichzeitig  eine  andere  sehr  häufige 
Anwendung  von  GET:  Zeile  20  wartet  auf  einen  (beliebigen) 
Tastendruck! 


3.4  Funktionen 

Den  Begriff  "Funktion"  werden  Sie  wahrscheinlich  noch  aus  dem 
Mathematikunterricht  kennen.  Eine  Funktion  berechnet  aus  ei- 
nem vorgegebenen  Wert,  dem  sogenannten  Argument  der  Funk- 
tion, einen  neuen  Wert,  den  Funktionswert.  Nehmen  wir  ein 
ganz  einfaches  Beispiel: 


F(X)=X*X 
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Diese  Funktion  mit  dem  Namen  "F"  berechnet  die  zweite  Potenz 
des  Wertes  X.  Für  die  X-Werte  1 bis  5 ergeben  sich  folgende 
Funktionswerte  F: 


X 

F 

1 

1 

2 

4 

3 

9 

4 

16 

5 

25 

Analog  dazu  arbeiten  auch  alle  anderen  Funktionen.  Es  gibt  im 
BASIC  2.0  aber  eine  besondere  Gruppe  von  Funktionen,  die  et- 
was aus  dem  Rahmen  fallen:  die  sogenannten  String-Funktionen. 
Im  Gegensatz  zu  den  numerischen  Funktionen,  bei  denen  nur 
Zahlenwerte  als  Argument  erlaubt  sind,  kann  man  mit  Hilfe  der 
String-Funktionen  alphanumerische  Ausdrücke  bearbeiten. 


3.4.1  Numerische  Funktionen 

Das  BASIC  2.0  verfügt  über  eine  Vielzahl  vordefinierter  Funk- 
tionen, hauptsächlich  aus  dem  mathematischen  Bereich. 


Die  Funktionen  INT,  SGN  und  ABS 

INT  berechnet  den  ganzzahligen  Anteil  des  numerischen  Wertes. 

PRINT  INT(126,78)  ergibt  126 

PRINT  INT (85. 126)  ergibt  85 

PRINT  INT ( -371 .412)  ergibt  -372 

PRINT  INT C -53.91 ) ergibt  -54 


INT  eignet  sich  auch  sehr  gut  zur  Rundung  von  Zahlen.  Dazu 
addiert  man  zu  der  Zahl  jeweils  0.5: 

10  rem  rundung 
20  input  zl 
30  zl=int(zl+0.5) 

40  print  zt 
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Bei  einem  Nachkommawert  unter  O.S  wird  ZL  auf  die  nächst- 
niedrigere Stelle  abgerundet.  Bei  einem  Nachkommawert  größer 
gleich  O.S  dagegen  wird  ZL  auf  die  nächsthöhere  Stelle  auf ge- 
rundet. 

SGN  ermittelt  das  Vorzeichen  eines  numerischen  Wertes.  SGN 
kann  nur  die  drei  Werte  -1,  0 und  1 annehmen,  entsprechend 
dem  Vorzeichen  des  Arguments: 

X<0:  SGN(X)=-1 
X=0:  SGN(X)-0 
X>0:  SGN(X)=1 

Die  Funktion  ABS  ermittelt  den  Betrag  einer  Zahl. 

PRINT  ABS(6352)  ergibt  6352 
PRINT  ABS(-423)  ergibt  423 
PRINT  ABS(-5.98)  ergibt  5.98 

ABS  macht  also  aus  einer  negativen  eine  positive  Zahl.  Das  ist 
zum  Beispiel  dann  sehr  nützlich,  wenn  man  bei  einem  kompli- 
zierten mathematischen  Ausdruck  nicht  ganz  sicher  ist,  ob  dieser 
immer  positiv  ist,  dies  aber  für  die  Weiterverarbeitung  des  Aus- 
drucks zwingend  notwendig  ist.  In  diesem  Fall  setzt  man  den 
gesamten  Ausdruck  einfach  in  ein  ABS( ). 

Zufallszahlen  berechnen 

Nicht  nur  in  Spielen,  auch  in  anderen  Programmen  benötigt  man 
ab  und  zu  Zahlen,  die  "zufällig"  ermittelt  worden  sind.  Natürlich 
kann  eine  Zahl,  die  von  einem  Computer  berechnet  wird,  nie- 
mals wirklich  "zufällig"  sein.  Es  gibt  aber  spezielle  Berechnungs- 
verfahren, die  eine  annähernd  zufällige  Verteilung  der  Zahlen- 
werte erlauben.  Das  BASIC  2.0  verfügt  dazu  über  die  Funktion 
RND.  RND  liefert  Zufallszahlen  zwischen  (ausschließlich)  0 und 
1. 

In  den  meisten  Fällen  möchte  man  aber  Zufallszahlen  in  einem 
anderen  Bereich,  etwa  zwischen  1 und  10  oder  zwischen  100  und 
150,  erzeugen  lassen.  Dazu  gibt  es  eine  einfache  Umrechnungs- 
formel: 
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10  re*  zufallszahlen  erzeugen 
20  ug=1 : re*  untere  grenze 
30  og=10: re»  obere  grenze 
40  z1=ug+rnd(0)*(og-ug) 

50  z2=int(z1 ) 


ZI  enthält  jeweils  eine  Zufallszahl  mit  Nachkommateil.  In  Zeile 
SO  wird  der  Nachkommateil  abgeschnitten.  Z2  enthält  also  im- 
mer ganzzahlige  Zufallszahlen,  die  man  in  der  Regel  auch  am 
häufigsten  benötigt. 

In  den  Zeilen  20  und  30  können  Sie  den  Bereich,  in  dem  die 
Zufallszahlen  erzeugt  werden  sollen,  beliebig  festlegen. 

Eine  besondere  Bewandtnis  hat  es  mit  dem  Argument  von  RND. 
Der  Wert  des  Arguments  bestimmt  nämlich,  woher  der  Startwert 
für  die  Berechnungsformel  zur  Erzeugung  der  Zufallszahlen  ge- 
nommen wird. 


Das  Argument  ist  positiv 

RND  beginnt  (nach  dem  Einschalten  des  Commodore  64)  immer 
mit  demselben  Startwert,  der  an  einer  bestimmten  Stelle  des 
Rechnerspeichers  fest  abgelegt  ist. 

RND(1)  erzeugt  also  immer  wieder  dieselben  Zufallszahlen, 
vorausgesetzt  der  Rechner  wird  zwischen  zwei  Programmläufen 
ausgeschaltet. 

Das  Argument  ist  negativ 

In  diesem  Fall  berechnet  RND  den  Startwert  unter  Einbeziehung 
des  Argumentwerts.  RND(-l)  beispielsweise  erzeugt  also  immer 
denselben  Zufallswert,  während  beispielsweise  RND(-1000)  zwar 
einen  völlig  anderen  Wert  berechnet,  dafür  aber  auch  immer 
wieder  denselben. 

RND  mehrmals  hintereinander  mit  demselben  negativen  Argu- 
ment zu  benutzen,  ergibt  daher  keinen  Sinn.  RND(-...)  eignet 
sich  aber  sehr  gut  dazu,  die  Zufallszahlenfolge  mit  einer  be- 
stimmten Zufallszahl  zu  initialisieren. 


324 


Das  große  Commodore  64-Buch 


Das  Argument  ist  Null 

Bei  RND(O)  holt  sich  der  Rechner  den  Startwert  aus  einem  in- 
ternen Baustein  zur  Steuerung  des  Commodore  64,  der  ständig 
wechselnde  Werte  enthält. 

Mit  RND(O)  erhält  man  daher  noch  am  ehesten  zufällige  Werte. 

Den  freien  Speicherplatz  ermitteln 

Für  BASIC-Programme  stehen  Ihnen  insgesamt  38911  Speicher- 
plätze zur  Verfügung.  Die  Anzahl  der  Speicherplätze  bezeichnet 
man  in  der  Regel  mit  "Bytes",  wie  Sie  auch  an  der  Einschaltmel- 
dung des  Commodore  64  (38911  BASIC  BYTES  FREE)  ersehen 
können. 

Möchte  man  nun  erfahren,  wieviel  Speicherplatz  einem  im  Au- 
genblick noch  zur  Verfügung  steht,  dann  nimmt  man  die  Funk- 
tion FRE. 

Das  Funktionsargument  hat  bei  FRE  keinerlei  Bedeutung,  muß 
aber  angegeben  werden.  Ob  Sie  also  schreiben  FRE(123)  oder 
FRE(-321),  ist  völlig  egal.  Am  einfachsten  ist  es,  man  setzt  eine 
Null  ein. 

PRINT  FRE(O) 

gibt  also  die  Größe  des  freien  BASIC-Speichers  aus.  FRE  hat 
allerdings  einen  Fehler,  der  in  manchen  Fällen  zu  einem  negati- 
ven Wert  führt,  zu  dem  man  dann  65535  addieren  muß,  um  den 
korrekten  Wert  zu  erhalten. 

Den  Cursor  positionieren 

Wer  schon  mit  einer  Schreibmaschine  gearbeitet  hat,  wird  den 
sogenannten  "Tabulator"  kennen,  mit  dem  man  bestimmte  Spal- 
tenpositionen markieren  kann,  die  dann  mit  einem  Tastendruck 
angesteuert  werden  können.  Sehr  nützlich  ist  das  beispielsweise 
beim  Schreiben  von  Tabellen.  Beim  Commodore  64  hat  man 
gleich  zwei  Tabulatorfunktionen:  TAB  und  POS. 
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TAB  setzt  den  Cursor  immer  auf  die  in  den  dahinterstehenden 
Klammern  angegebene  Spaltenposition. 

PRINT  TAB(IO)  "HALLO" 

druckt  beispielsweise  den  Text  "HALLO"  ab  Spalte  10.  Im  Un- 
terschied dazu  setzt  SPC  den  Cursor  um  die  dahinter  an- 
gegebenen Spaltenpositionen  weiter. 

PRINT  "HALLOl"  SPCOO)  “HALL02" 

setzt  das  "HALL02"  also  genau  10  Spalten  hinter  das  "HALLOl". 
Der  Vorteil  gegenüber  einem 

PRINT  "HALLOl  HALL02" 

ist  natürlich  der,  daß  bei  SPC  die  evtl,  zwischen  den  beiden 
Texten  bereits  auf  dem  Bildschirm  stehenden  Zeichen  nicht 
überschrieben  werden. 

Die  Funktion  SQR 

Mit  SQR  kommen  wir  zu  den  rein  mathematischen  Funktionen. 
SQR  berechnet  die  Quadratwurzel  eines  Wertes,  also  diejenige 
Zahl,  die  mit  sich  selbst  multipliziert  den  Ausgangswert  ergibt. 

PRINT  SQR(4) 

ergibt  beispielsweise  2.  Das  Argument  von  SQR  muß  positiv 
sein.  Ein  typischer  Anwendungsfall  ist  die  sogenannte  "Mitter- 
nachtsformel"  zur  Lösung  der  folgenden  algebraischen  Gleichung 
AX'*,2+BX+C=0: 

10  a=... 

20  b=... 

30  c=... 

40  : 

50  x1=(-b*sqr(b*b-4*a*c)/(2*a) 

60  x2=(-b-sqr(b*b-4*a*c)/(2*a) 


XI  und  X2  enthalten  die  beiden  Lösungen  der  Gleichung. 
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Die  Funktionen  EXP  und  LOG 

EXP  ermittelt  den  sogenannten  "natürlichen  Exponenten"  des  an- 
gegebenen Arguments.  EXP(X)  könnte  man  auch  als 

2.718'X 

schreiben,  wobei  2.718  eine  Annäherung  an  die  sogenannte 
"Eulersche  Zahl"  ist,  die  in  der  Mathematik  eine  große  Rolle 
spielt. 

Der  Wertebereich  für  das  Argument  X von  EXP  ist  auf  etwa  -88 
bis  +88  beschränkt,  da  EXP  mit  zunehmenden  Argumentwerten 
sehr  stark  anwächst.  LOG  berechnet  den  sogenannten  "natürli- 
chen Logarithmus"  des  Argumentwertes,  stellt  also  die  Umkehr- 
funktion zu  EXP  dar. 

LOG(IO) 

ist  also  diejenige  Zahl,  mit  der  man  2.718  potenzieren  muß,  um 
die  Zahl  10  zu  erhalten.  Das  Argument  von  LOG(X)  muß  positiv 
sein. 

In  manchen  Fällen  benötigt  man  den  Logarithmus  zu  einer  an- 
deren Basis,  etwa  der  Basis  10.  Hierzu  gibt  es  eine  einfache  Be- 
rechnungsformel: 

LG=LOG(X)/LOG(10) 

Indem  man  in  das  zweite  LOG  also  die  gewünschte  Basis  ein- 
setzt, kann  man  für  X den  Logarithmus  zu  jeder  beliebigen  Ba- 
sis berechnen. 

Die  trigonometrischen  Funktionen  SIN,  COS,  TAN  und  ATN 

SIN(X)  berechnet  den  Sinus  des  Arguments  X,  COS(X)  den  Ko- 
sinus von  X,  TAN(X)  den  Tangens  von  X. 

ATN(X)  ist  die  Umkehrfunktion  zu  SIN(X),  sie  berechnet  den 
sogenannten  Arcussinus  von  X.  Die  Argumente  müssen  bei  allen 
Funktionen  im  sogenannten  "Bogenmaß"  angegeben  werden.  Eine 
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andere  bei  den  trigonometrischen  Funktionen  gebräuchliche  Ein- 
heit ist  "Grad”,  die  Einteilung  geht  dabei  von  0 Grad  bis  360 
Grad. 

Zur  Umrechnung  von  Grad  in  Bogenmaß  und  umgekehrt  gibt  es 
zwei  einfache  Formeln: 

Grad  ->  Bogenmaß:  BG=GR*3. 14/180 
Bogenmaß  ->  Grad:  GR=BG* 180/3. 14 

Die  3.14  steht  annäherungsweise  für  die  mathematische  Kon- 
stante PI. 

S=SIN(45*3. 14/180) 

berechnet  also  den  Sinus  von  45  Grad. 

C=COS( 90*3. 14/180) 

ermittelt  den  Cosinus  von  90  Grad. 

Da  die  Sinus-  und  die  Cosinus-Funktion  nur  Werte  zwischen  -1 
und  1 annehmen,  kann  man  sich  die  beiden  Funktionen  leicht 
grafisch  darstellen  lassen. 

Das  folgende  Programm  druckt  eine  senkrechte  Sinuskurve  auf 
den  Bildschirm: 

10  for  x=0  to  6 Step  0.29 
20  p=int(20+18*sin(x)) 

30  print  tab(p)  "*" 

40  next  x 

Wenn  Sie  die  Zeile  20  gegen 

20  p=int(20+18*cos(x)) 

aus  tauschen,  erhalten  Sie  eine  Kosinuskurve,  die  gegenüber  der 
Sinuskurve  um  90  Grad  verschoben  ist. 
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3.4.2  String-Funktionen 

Wie  Sie  bereits  wissen,  ist  es  möglich,  zwei  Strings  miteinander 
zu  "addieren".  Dabei  werden  die  beiden  Strings  einfach  aneinan- 
der gesetzt,  und  es  entsteht  ein  neuer  String. 

"COMMO"+"DORE  64" 


beispielsweise  ergibt 

"COMMODORE  64" 

Die  Funktionen  CHR$  und  ASC 

Wie  ich  bereits  mehrfach  erwähnt  habe,  legt  der  Rechner  die 
Strings  im  sogenannten  ASCII-Code  im  Speicher  ab.  Dieses  Co- 
des kann  man  sich  auch  selbst  bedienen.  Dazu  gibt  es  die  Funk- 
tion CHR$. 

CHR$  liefert  das  zu  dem  angegebenen  Code  zugehörige  Zeichen. 

CHR$(65) 

beispielsweise  ein  "A".  Anstelle  von 

PRINT  "A" 

könnte  man  deshalb  auch  schreiben 
PRINT  CHR$(65) 

Interessant  wird  CHR$  im  Zusammenhang  mit  den  sogenannten 
Steuercodes.  Der  ASCII-Code  147  beispielsweise  löscht  den  Bild- 
schirm, der  Code  157  bewegt  den  Bildschirm-Cursor  um  eine 
Stelle  nach  links.  Die  folgende  Tabelle  enthält  eine  kleine  Zu- 
sammenstellung wichtiger  Steuercodes,  eine  vollständige  ASCII- 
Tabelle  finden  sie  im  Anhang: 

Revers  ein:  18 
Revers  aus:  146 
Cursor  ab:  17 
Cursor  hoch:  145 
Cursor  rechts:  29 
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Cursor  links:  157 

Cursor  Home:  19 

Bildschirm  löschen:  147 

Auf  GroB-/Kleinschrift  umschatten:  14 

Auf  Graf ik-/Großschrift  unschalten:  142 

Wollen  Sie  beispielsweise  einen  Text  in  Negativschrift  ausgeben 
lassen,  so  schreiben  Sie  einfach: 

PR I NT  CHR$< 18) ; "NEGAT I VSCHR I FT"; CHR$< 146) 

Sehr  nützlich  sind  auch  die  Cursor-Steuercodes.  Häufig  möchte 
man  bei  einer  Dateneingabe  mit  INPUT  eine  Standardeingabe 
vorgeben,  so  daß  der  Anwender  nur  noch  die  <Return>-Taste 
drücken  muß.  Das  könnte  zum  Beispiel  so  aussehen: 

10  print  "wieviele  daten:  100"; 

20  for  z=1  to  6:print  chr$(157); :next  z 
30  input  eg 


Als  Vorgabe  für  die  Eingabe  erhält  der  Anwender  die  Zahl  100. 
Damit  nun  aber  der  Cursor  bei  INPUT  an  der  richtigen  Stelle, 
d.h.  direkt  hinter  dem  Doppelpunkt  steht,  wird  der  Cursor  in 
Zeile  20  um  sechs  Stellen  nach  links  bewegt. 

Das  Gegenstück  zu  CHR$  bildet  die  Funktion  ASC.  ASC  ermit- 
telt zu  einem  vorgegebenen  Zeichen  dessen  ASCII-Code. 

PRINT  ASCC'A") 

beispielsweise  liefert  den  Wert  65.  Auch  ASC  hat  einen  unmit- 
telbaren praktischen  Nutzen.  Vielleicht  haben  Sie  sich  in  der 
Zwischenzeit  auch  schon  gefragt,  wie  man  die  vier  sogenannten 
Funktionstasten  rechts  auf  der  Tastatur  abfragen  könnte. 

Die  Funktionstasten  eignen  sich  ja  beispielsweise  sehr  gut  zur 
Funktionsauswahl  aus  einem  Auswahlmenü,  wie  man  es  auch 
häufig  bei  kommerziellen  Programmen  sieht.  Ein  Programm- 
Menü  könnte  zum  Beispiel  so  aufgebaut  sein: 
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Fl:  DATEN  EINGEBEN 
F2:  DATEN  AUSGEBEN 
F3:  DATEN  SORTIEREN 
F4:  DATEN  DRUCKEN 
F5:  DATEN  SUCHEN 
F6:  FLOPPY  ANSTEUERN 
F7:  DATASETTE  ANSTEUERN 
F8:  PROGRAMM  BEENDEN 


Jeder  Funktionstaste  ist  nun  ein  bestimmter  ASCII-Code  zuge- 
ordnet: 


Fl:  133 
F2:  137 
F3:  134 
F4:  138 
F5:  135 
F6:  139 
F7:  136 
F8:  140 


Die  Funktionstasten  F2,  F4,  F6  und  F8  erreichen  Sie  übrigens 
durch  gleichzeitiges  Drücken  der  betreffenden  Taste  und  einer 
der  beiden  <Shift>-Tasten.  Mit  dem  Wissen  um  diese  Codes  und 
der  Funktion  ASC  läßt  sich  die  Abfrage  nun  leicht  realisieren: 

100  print  "auswahlmenue:" 

110  print  Hf1:  daten  eingeben" 

120  print  "f2:  daten  ausgeben11 
130  print  "f3:  daten  sortieren" 

140  print  "f4:  daten  drucken" 

150  print  "f5:  daten  suchen" 

160  print  "f6:  floppy  ansteuern" 

170  print  "f7:  datasette  ansteuern" 

180  print  "f8:  Programm  beenden" 

190: 

195  rem  tastaturabf rage 

200  get  eg$:if  eg$=""  then  200 

210  eg=asc(eg$) 

220  : 

230  if  eg=133  then  gosub  ....:rem  funktionstaste  1 

240  if  eg=137  then  gosub  ....:rem  funktionstaste  2 

250  if  eg-134  then  gosub :rem  funkt  ionstaste  3 

260  if  eg=138  then  gosub  ....:rem  funkt  ionstaste  4 

270  if  eg=135  then  gosub :rem  funkt  ionstaste  5 

280  if  eg=139  then  gosub  :rem  funkt ionstaste  6 

290  if  eg=136  then  gosub  :rem  funkt ionstaste  7 

300  if  eg=140  then  gosub  ....:rem  funkt ionstaste  8 

310  : 

320  goto  200 
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Die  Funktion  LEN 

Sehr  häufig  möchte  man  wissen,  wie  viele  Zeichen  ein  String 
enthält.  Dazu  gibt  es  die  Funktion  LEN: 

PRINT  LEN("12345H) 

ergibt  beispielsweise  5.  LEN  ist  es  dabei  völlig  egal,  welche  Art 
von  Zeichen  der  String  enthält  (Buchstaben,  Ziffern,  Leerzei- 
chen, Steuerzeichen).  Es  zählt  einfach  die  Anzahl  der  Speicher- 
plätze, die  der  String  im  Rechnerspeicher  belegt. 

PRINT  LEN("B  E I S P I E L")  ergibt  15 

PRINT  LENC"1)  ergibt  0 

Natürlich  darf  man  auch  String-Variablen  verwenden: 

A$*"TEXTM : PR I NT  LEN(A$)  ergibt  4 

Die  Funktionen  STR$  und  VAL 

Oft  steht  man  vor  dem  Problem,  daß  numerische  Daten  forma- 
tiert ausgegeben  werden  sollen,  beispielsweise  rechtsbündig: 

12846 

18 

394 

7 

3646 

Wesentlich  dabei  ist,  daß  man  die  Länge  der  betreffenden  Zah- 
len, also  ihre  Stellenzahl  kennt.  Nun  könnte  man  die  Länge  na- 
türlich über  die  (numerische)  Größe  der  Zahl  ermitteln,  etwa 
mit: 


IF  Z<10  then :rem  einstellig 

IF  Z<100  THEN  :rem  zweistellig 

IF  Z<1000  THEN  :rem  dreistellig 

Wesentlich  einfacher  wird  es  aber,  wenn  man  die  Zahl  in  einen 
String  umwandelt.  Dazu  gibt  es  die  Funktion  STR$: 


T*=STR$< 12345) 
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beispielsweise  weist  T$  den  String 
..  12345" 


zu  (Leerstelle  vor  der  1 wird  wegen  des  Vorzeichens  eingefügt). 

T$=STR*<-123.45) 

ergäbe 


"-123.45" 

Mit  Hilfe  von  STR$  und  LEN  lassen  sich  Zahlen  nun  leicht 
formatieren,  etwa  rechtsbündig  ausgeben: 

10  z(1 >=12846 
20  z(2>=18 
30  z(3)=394 
40  z(4)=7 
50  z(5)=3646 
60  : 

100  for  i=1  to  5 

110  ft$=str$(z(i)):rem  zahl  in  string  unwandeln 
120  if  len(ft$)<10  then  ft$="  "+ftS:goto  120 
130  print  f t$ 

140  next  i 

Der  eigentliche  Formatiervorgang  findet  in  Programmzeile  120 
statt.  Der  String  FT$  wird  so  lange  mit  Leerstellen  aufgefüllt, 
bis  er  die  Länge  10  hat.  Das  Gegenstück  zu  STR$  bildet  die 
Funktion  VAL.  VAL  wandelt  einen  String  in  einen  numerischen 
Wert  um,  sofern  der  String  aus  Ziffern  besteht: 

A=VAL("3591") 

beispielsweise  weist  A den  Wert  3591  zu. 

B=VAL("-587.32") 


weist  B den  Wert  -587.32  zu. 

VAL  ist  erfreulicherweise  so  "tolerant",  daß  es  Nichtziffernzei- 
chen am  Ende  des  Strings  akzeptiert. 
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C=VAL<"10  TEILE") 

weist  C daher  den  Wert  10  zu. 

Enthält  der  betreffende  String  überhaupt  keine  Ziffern,  dann 
erhält  die  Variable  den  Wert  Null.  Beispielsweise  ergibt 

T$="TEXT":UT=VAL(T$) 

WT=0. 

Die  Funktionen  LEFT$,  MID$  und  RIGHTS 

Die  mit  Sicherheit  interessantesten  String-Funktionen  sind 
LEFT$,  MID$  und  RIGHTS.  Damit  kann  man  aus  einem  vor- 
handenen String  Teil-Strings  "herausschneiden". 

LEFTS  schneidet  dabei  vom  linken  Rand  eines  Strings  Zeichen 
heraus. 

RIGHTS  schneidet  auf  der  rechten  Seite  Teil-Strings  ab. 

MIDS  schließlich  holt  sich  einen  Teil-String  aus  der  Mitte  her- 
aus. 

Zerschneiden  wir  als  Beispiel  einmal  den  String 

T$="COMMOOORE  64": 

PRINT  LEFTS(TS,3)  ergibt  "COM" 

PRINT  MID$(T$,4(5)  ergibt  "M000R" 

PRINT  RIGHT$(T$,3)  ergibt  " 64" 

Zur  Verdeutlichung  das  ganze  einmal  grafisch  dargestellt: 


mid$(t$,4(5) 


left$(t$,3) 


right$(t$,3) 
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Natürlich  darf  man  für  die  Positions-  und  Längenangaben  auch 
Variablen  einsetzen: 

10  t$=nconinodore" 

20  : 

30  for  p=1  to  len  (t$) 

40  print  left$(t$,p) 

50  next  p 

Dieses  kleine  Programm  erzeugt  die  folgende  Ausgabe: 
c 

CO 

COM 

C0MM 

COMMO 

COMMOO 

C0MM000 

COMMOOOR 

COMMODORE 


3.4.3  Funktionen  selbst  definieren 

Wem  die  vorhandenen  Funktionen  nicht  ausreichen,  der  kann 
sich  auch  - in  gewissem  Umfang  - Funktionen  selbst  definieren, 
allerdings  nur  numerische.  Dazu  hält  BASIC  einen  speziellen 
Befehl  parat:  DEF.  Hinter  DEF  folgt  der  gewünschte  Name  der 
Funktion,  der  immer  mit  einem  FN  beginnt  und  ansonsten  den- 
selben Regeln  unterliegt  wie  die  Variablennamen.  Hinter  dem 
Namen  steht  in  Klammern  die  Argumentvariable  der  Funktion. 
Dahinter  schließlich,  getrennt  durch  ein  Gleichheitszeichen,  die 
eigentliche  Funktionsdefinition. 

Sehen  wir  uns  das  ganze  einmal  an  einem  praktischen  Beispiel 
an.  Die  Fläche  eines  Kreises  berechnet  sich  bekanntlich  nach  der 
Formel: 

KF=R*R*3. 14 

wobei  R für  den  Radius  des  Kreises  steht.  Definieren  wir  also 
eine  Funktion  KF,  die  eben  diese  Berechnung  durchführt: 


DEF  FN  KF(R)=R*R*3.14 
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Die  Variable  R ist  in  diesem  Fall  das  Argument  der  Funktion. 
Aufrufen  läßt  sich  die  Funktion  KF  nun  wie  jede  andere  vor- 
definierte Funktion: 

PRINT  FN  KF(5) 

ermittelt  die  Fläche  eines  Kreises  mit  dem  Radius  5.  Sehr  wich- 
tig ist,  daß  die  Funktionsdefinition  mit  DEF  vor  dem  ersten 
Funktionsaufruf  abgearbeitet  wird.  Die  Definition  schreibt  man 
daher  am  besten  ganz  an  den  Anfang  eines  Programms  oder  in 
ein  Unterprogramm,  das  dann  am  Programmanfang  aufgerufen 
wird. 

Mit  Hilfe  eines  Unterprogramms  können  Sie  sich  leicht  eine 
ganze  Sammlung  von  Funktionen  anlegen,  die  Sie  dann  bei  Be- 
darf an  Ihre  Programme  anhängen. 

Was  man  beispielsweise  bei  mathematischen  und  auch  bei  grafi- 
schen Anwendungen  immer  wieder  benötigt,  sind  spezielle  trigo- 
nometrische und  hyperbolische  Funktionen,  die  im  BASIC  2.0 
nicht  vorhanden  sind.  Diese  Funktionen  lassen  sich  aber  aus  den 
implementierten  Funktionen  SIN,  COS  usw.  herleiten  beispiels- 
weise: 


Arcussinus:  ATN(X/SQR(1-X'2) 

Arcuscosinus:  -ATN((X/SQR<1-X‘2»+3.14/2 

Sinus  Hyperboi icus:  (EXP(X)-EXP(-X))/2 


Definieren  wir  uns  diese  Funktionen  selbst: 

1000  rem  selbstdefinierte  funktionen 
1010  : 

1015  rem  arcussinus 

1020  def  fn  as(x)=atn(x/sqr(1-x‘2) 

1025  rem  arcuscosinus 

1030  def  fn  ac(x)=-atn((x/sqr(1-x‘2))+3.14/2 
1035  rem  sinus  hyperbolicus 
1040  def  fn  sh(x)=(exp(x)-exp(-x))/2 
1490  : 

1500  return 
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Wenn  Sie  dieses  Unterprogramm  am  Programmanfang  mit  GO- 
SUB  1000  auf  rufen,  werden  automatisch  alle  Funktionen  defi- 
niert. 


3.5  Fortgeschrittene  Techniken 

Insbesondere  bei  größeren  Programmen  schleichen  sich  oft 
Programmfehler  ein,  die  nur  sehr  schwer  zu  finden  sind.  Da 
wäre  man  manchmal  froh,  es  würde  sich  nur  um  einen  einfachen 
Tippfehler  handeln,  über  den  man  sich  normalerweise  ja  so 
leicht  ärgert. 

Häufig  liegt  die  Fehlerursache  in  einer  falsch  geschriebenen 
Formel  oder  in  einer  falschen  Variablenzuweisung.  Arbeitet  man 
beispielsweise  mit  vier  Variablen  mit  den  Namen  PI,  P2,  P3  und 
P4,  denen  im  Programm  sehr  oft  Werte  zugewiesen  werden,  so 
kann  es  leicht  passieren,  daß  man  vielleicht  anstelle  von  P3=7 
(wie  es  von  der  Programmfunktion  her  richtig  wäre)  in  der  Eile 
schreibt  P2=7.  Auch  wenn  man  das  Programm  dann  später  noch 
so  sorgfältig  durchliest,  entdeckt  man  solche  Flüchtigkeitsfehler 
erfahrungsgemäß  nur  sehr  schwer. 

Kurz  und  gut,  man  müßte  eine  Möglichkeit  haben,  sich  die  In- 
halte einzelner  Variablen  jederzeit  während  des  Programmab- 
laufs anzuschauen.  Diese  Möglichkeit  gibt  es!  Zunächst  einmal 
muß  man  den  Programmablauf  unterbrechen.  Dazu  dient  der 
Befehl  STOP.  Sobald  der  Rechner  in  einem  Programm  auf  ein 
STOP  trifft,  bricht  er  die  Programmabarbeitung  ab  und  kehrt  in 
den  Direktmodus  zurück.  Im  Direktmodus  können  Sie  sich  nun 
mittels  PRINT  den  Inhalt  jeder  beliebigen  Variablen  ausgeben 
lassen.  Anschließend  - und  das  ist  das  wesentliche  - können  Sie 
die  Programmabarbeitung  durch  den  Befehl  CONT  fortsetzen 
lassen! 

Geben  Sie  also  - im  Direktmodus  - CONT  ein,  dann  fährt  der 
Rechner  hinter  der  STOP-Anweisung  im  Programm  fort.  Diesen 
Vorgang  dürfen  Sie,  sooft  Sie  wollen,  wiederholen.  Die  einzige 
Einschränkung:  Während  das  Programm  unterbrochen  ist  und  der 
Rechner  sich  im  Direktmodus  befindet,  dürfen  Sie  an  dem  Pro- 
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gramm  selbst  keine  Veränderungen  vornehmen.  Sobald  Sie  eine 
Programmzeile  ändern  und  danach  CONT  eingeben,  reagiert  der 
Rechner  mit  einem  CAN’T  CONTINUE  ERROR.  In  diesem  Fall 
müssen  Sie  das  Programm  mit  RUN  neu  starten.  Sehen  wir  uns 
das  ganze  an  einem  praktischen  Beispiel  an,  unserem  Rech- 
nungsprogramm aus  dem  ersten  Abschnitt: 

90  rem  progranm:  rechnung 
92  : 

94  : 

98  : 

100  print  "rechnung  erstellen" 

110  print  " ■ " 

112  : 

113  : 

115  rem  preise  eingeben 
117  : 

120  input  "preis  1:  ";p1 

130  input  "preis  2:  ";p2 

140  input  "preis  3:  ";p3 

142  : 

143  : 

145  rem  mehrwertsteuer  berechnen 
147  : 

150  m1=p1*0.14 
160  m2-p2*0.14 
170  m3=p3*0.14 

180  mw=m1+m2+m3:stop:rem  unterbrechnung  1 
182  : 

183  : 

185  rem  gesamtpreis  berechnen 
187  : 

190  gp=p1+p2+p3 

200  ig=gp+mw: stop: rem  Unterbrechung  2 
202  : 

203  : 

205  rem  ergebnisse  ausgeben 
207  : 

210  print  " " 

220  print  "preis  1:  ";p1;"  mehrwertsteuer:  ";m1 
230  print  "preis  2:  ";p2;"  mehrwertsteuer:  ";m2 
240  print  "preis  3:  ";p3;"  mehrwertsteuer:  ";m3 

250  print  " " 

260  print  "gesamtpreis:  ";gp 
270  print  "mehrwertsteuer:";mw 
280  print  "insgesamt:"; ig 
282  : 

284  : 

286  : 

290  end 
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Die  erste  Unterbrechung  findet  in  Zeile  180  statt.  Anschließend 
lassen  Sie  sich  beispielsweise  die  Inhalte  der  Variablen  Ml,  M2, 
M3  und  MW  ausgeben.  Nachdem  Sie  CONT  eingegeben  haben, 
läuft  das  Programm  bis  zur  Zeile  200,  wo  die  zweite  Unterbre- 
chung stattfindet.  Nun  lassen  Sie  sich  vielleicht  die  Inhalte  von 
GP  und  IG  ausgeben.  Nach  einem  zweiten  CONT  läuft  das  Pro- 
gramm dann  bis  zum  Ende  durch. 

Im  Extremfall  könnten  Sie  hinter  jeden  einzelnen  Programmbe- 
fehl ein  STOP  einfügen.  Bitte  vergessen  Sie  aber  eines  nicht:  So- 
bald Ihr  Programm  korrekt  läuft,  müssen  Sie  natürlich  alle 
STOP-Befehle  wieder  entfernen! 


3.6  Den  Drucker  ansteuern 

Oft  möchte  man  die  Ausgaben  eines  Programms  nicht  nur  auf 
dem  Bildschirm  haben,  sondern  auch  Schwarz  auf  Weiß  auf  Pa- 
pier. Um  den  Drucker  von  einem  Programm  aus  anzusteuern, 
geht  man  ähnlich  vor  wie  beim  Zugriff  auf  die  Floppy.  Wegen 
der  vielen  verschiedenen  Druckerfabrikate  gibt  es  allerdings  zum 
Teil  erhebliche  Unterschiede  im  Detail,  etwa  wenn  es  darum 
geht,  eine  bestimmte  Schriftart  einzustellen  oder  auf  Grafik- 
druck umzuschalten. 

Ich  möchte  mich  deshalb  an  dieser  Stelle  auf  allgemeine  Dinge 
beschränken,  die  für  jeden  Drucker  (ausgenommen  vielleicht 
ganz  exotische  Geräte)  gelten.  Zunächst  zur  Geräteadresse.  Der 
Drucker  hat  die  Geräteadresse  4.  Um  den  Drucker  anzusprechen, 
muß  man  daher  eine  logische  Datei  wie  folgt  öffnen: 

OPEN  4,4 

Für  die  logische  File-Nummer  dürfen  Sie  natürlich  auch  einen 
anderen  Wert  wählen.  Am  einfachsten  ist  es  aber,  man  nimmt 
ebenfalls  eine  4.  Bei  der  sogenannten  Sekundäradresse,  die  ja 
wahlweise  hinter  der  Geräteadresse  angegeben  werden  kann, 
fangen  die  Probleme  schon  an.  Die  Commodore-Drucker  (MPS 
801  u.a.)  schalten  bei  der  Sekundäradresse  0,  also  durch 
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OPEN  4,4,0 

auf  Grafik-/Großschrift  um,  bei  der  Sekundäradresse  7 dagegen, 
also  durch 

OPEN  4,4,7 

auf  Groß-/Kleinschrift.  Diese  beiden  Zeichensätze  entsprechen 
den  Zeichensätzen  am  Bildschirm,  zwischen  denen  Sie  ja  durch 
gleichzeitiges  Drücken  der  <Commodore>-  und  der  <Shift>-Ta- 
ste  umschalten  können. 

Nebenbei  bemerkt:  Auch  wenn  die  Schriftqualität  bei  den  Com- 
modore-Druckern  nicht  die  allerbeste  ist,  einen  großen  Vorteil 
haben  Sie.  Nur  mit  einem  Commodore-Drucker  läßt  sich  der 
gesamte  Grafikzeichensatz  zu  Papier  bringen.  Bei  den  anderen 
Druckerfabrikaten  sind  die  Grafikzeichen  in  der  Regel  nicht 
vorhanden  oder  können  allenfalls  nur  mit  hohem  Aufwand  ge- 
druckt werden. 

Bei  Druckern  anderer  Hersteller  ruft  eine  bestimmte  Sekun- 
däradresse zum  Teil  sehr  unterschiedliche  Reaktionen  hervor.  Im 
Zweifelsfall  läßt  man  sie  einfach  weg  oder  schaut  im  Handbuch 
zum  Drucker  nach.  Nachdem  die  Datei  geöffnet  ist,  kann  man 
mit  dem  schon  bekannten 

PRINT#4, 

die  auszudruckenden  Daten  an  den  Drucker  schicken.  Zum 
Schluß  muß  die  Datei  wieder,  wie  gewohnt,  mit 

CLOSE  4 

geschlossen  werden.  Eine  typische  Druckerausgabe  könnte  also 
beispielsweise  so  aussehen: 

10  open  4,4 

20  print#4,"zu  druckender  text";dr;dr$ 

30  close  4 
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Interessanter  wird  es,  wenn  man  eine  bestimmte  Sonderfunktion 
des  Druckers  einstellen  möchte.  Wie  teilt  man  dies  dem  Drucker 
mit? 

Dazu  muß  man  die  Ihnen  bereits  bekannte  Funktion  CHR$  be- 
mühen. Mit  CHR$  wird  der  die  gewünschte  Sonderfunktion  ak- 
tivierende Code  an  den  Drucker  gesendet.  Bei  Commodore- 
Druckern  kann  man  beispielsweise  mit 

CHR$(18) 

auf  Negativschrift  umschalten. 

CHR$(146) 

schaltet  wieder  auf  Normalschrift  um.  Ein  Beispiel: 

10  open  4,4 

20  pr  i nt#4 , ch  r$(  1 8) ; " i nvers" ; ch  r$( 1 46 ) ; "norma  l M 
30  close  4 

Bei  anderen  Druckerfabrikaten,  die  in  der  Regel  nach  dem  soge- 
nannten "ESC/P-Standard"  arbeiten,  muß  man  dem  Drucker  die 
Steuercodes  in  einer  sogenannten  ESC-Sequenz  (Escape-Sequenz) 
mitteilen.  Eine  ESC-Sequenz  wird  immer  mit 

CHR$(27) 

eingeleitet.  Alles,  was  danach  kommt,  wird  im  Drucker  von  ei- 
ner speziellen  Routine  ausgewertet  und  dann  in  die  entspre- 
chende Druckerfunktion  umgesetzt.  Ein  Beispiel: 

10  open  4,4 

20  print#4,chr$(27);chr$(69);l,fettschriftM 
30  close  4 

Durch  "CHR$(27);CHR$(69)H  wird  also  die  Fettschrift  aktiviert 
(natürlich  nur  bei  einem  ESC/P-Drucker). 

Eine  weitere  Möglichkeit,  Daten  ausdrucken  zu  lassen,  haben  Sie 
bereits  im  ersten  Abschnitt  dieses  Kapitels  beim  Ausdrucken  ei- 
nes Programm-Listings  kennengelernt:  den  Befehl  CMD.  CMD 


BASIC-Programmierung  leichtgemacht 


341 


dient  dazu,  die  Bildschirmausgabe  auf  ein  anderes  Gerät  (das 
könnte  auch  die  Floppy  sein)  "umzulenken".  Wenn  Sie  in  einem 
Programm  also  schreiben: 

10  open  4,4 
20  cmd  4 


100  pr1nt#4 
110  close  4 

Dann  wirken  sämtliche  zwischen  den  Programmzeilen  20  und 
100  stehenden  PRINT- Anweisungen  auf  den  Drucker.  Dieses 
Verfahren  ist  eine  bequeme  Methode,  zwischen  der  Bildschirm- 
und  der  Druckerausgabe  wahlweise  umzuschalten.  Wenn  Sie  das 
ganze  nämlich  durch  eine  Abfrage  ergänzen,  können  Sie  mit 
denselben  PRINT-Anweisungen  sowohl  auf  den  Bildschirm  als 
auch  auf  den  Drucker  zugreifen: 

10  input  "daten  auf  drucker  ausgeben?  (j/n)  ",an$ 

20  if  an$="n"  then  40 
30  open  4,4:cmd  4 
40  rem  weiteres  Programm 

100  if  anS^'j"  then  print#4:close  4 

Zu  diesem  Problem  gibt  es  aber  noch  eine  elegantere  Lösung. 
Dazu  muß  man  wissen,  daß  auch  dem  Bildschirm  eine  Gerä- 
teadresse zugeordnet  ist:  die  Adresse  3!  Deshalb  gibt  man  die 
Daten  einfach  grundsätzlich  über  eine  logische  Datei  aus: 

10  input  "daten  auf  drucker  ausgeben?  (j/n)  ",anS 
20  if  an$=,,n"  then  40 

30  open  4,4:goto  50: rem  drucker-file  öffnen 
40  open  4,3: rem  bildschirm-file  öffnen 
50  rem  weiteres  Programm 

70  print#4, 

100  close  4 

Durch  eine  entsprechende  Änderung  der  OPEN-Anweisung  kön- 
nen Sie  die  Bildschirmausgabe  jetzt  auf  jedes  beliebige  Gerät 
(mit  OPEN  4,8  beispielsweise  auf  die  Floppy)  umlenken,  ohne 
auch  nur  eine  Zeile  im  sonstigen  Programm  ändern  zu  müssen. 
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3.7  PEEK,  POKE  und  Co.  - Systemprogrammierung 

Wie  man  in  BASIC  programmiert,  wissen  Sie  nun.  Im  nächsten 
Kapitel  wird  es  um  die  Programmierung  in  Assembler  gehen,  die 
bei  der  Systemprogrammierung  eine  große  Rolle  spielt. 

Als  kleine  Überleitung  und  zur  Motivation  möchte  ich  Ihnen 
deshalb  zum  Abschluß  dieses  Kapitels  kurz  zeigen,  wie  man  in 
BASIC  systemnah  programmieren  kann. 

Der  gesamte  Speicher  des  Commodore  64  ist  in  einzelne  Spei- 
cherzellen unterteilt,  die  von  0 bis  65.535  durchnumeriert  sind. 
Jede  dieser  Speicherzellen  kann  einen  Wert  zwischen  0 und  255 
auf nehmen. 

Der  Befehl  POKE  und  die  Funktion  PEEK 

Um  den  Wert  einer  einzelnen  Speicherzelle  zu  ändern,  gibt  es 
den  Befehl  POKE: 

POKE  Adresse,Wert 

Zwei  POKE-Befehle,  die  Sie  in  der  Zwischenzeit  sicher  schon 
öfters  verwendet  haben,  sind 

POKE  53280, FC 


und 


POKE  53281 , FC 

Diese  beiden  Anweisungen  ändern  die  Rahmen-  und  die  Hinter- 
grundfarbe. 

POKE  53280, 0:POKE  53281,0 

bewirken  beispielsweise  einen  schwarzen  Bildschirm.  Zum  Aus- 
lesen des  Inhalts  einer  Speicherzelle  benutzt  man  die  Funktion 
PEEK: 


PRINT  PEEK  (53280) 
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beispielsweise  bringt  den  Farbcode  der  aktuellen  Hintergrund- 
farbe auf  den  Bildschirm.  Während  PEEK  völlig  ungefährlich 
ist,  bringt  man  den  Rechner  mit  einem  falschen  POKE  sehr 
schnell  zum  Absturz.  Wie  Sie  sich  vielleicht  denken  können, 
verwaltet  der  Commodore  64  seine  sämtlichen  internen  Abläufe 
in  einer  Vielzahl  von  Speicherzellen. 

Wenn  Sie  nun  den  Inhalt  einer  dieser  Speicherzellen  willkürlich 
ändern,  bringen  Sie  damit  den  Commodore  64  unter  Umständen 
völlig  aus  dem  Konzept,  und  er  "verabschiedet"  sich.  In  diesem 
Fall  hilft  dann  nur  noch  ein  Aus-  und  Wiedereinschalten  des 
Rechners.  Danach  ist  alles  wieder  beim  alten.  Das  im  Speicher 
evtl,  vorhandene  BASIC-Programm  wird  dabei  natürlich  ge- 
löscht. Also  Vorsicht! 

Besonders  gefährlich  sind  die  Speicherbereiche  0 bis  2047  und 
S3248  bis  6S53S.  In  diese  Bereiche  sollte  man  wirklich  nur  "hin- 
einpoken",  wenn  man  genau  weiß,  was  man  damit  anrichtet,  wie 
zum  Beispiel  beim  Ändern  der  Bildschirmfarben.  Ebenfalls  sehr 
interessant  ist  der  sogenannte  Bildschirmspeicher  von  Adresse 
1024  bis  2023.  In  diesem  Bildschirmspeicher  ist  für  jede  Position 
des  Bildschirms  eine  Speicherzelle  reserviert,  in  der  das  Zeichen, 
das  an  dieser  Position  steht,  vermerkt  wird.  Tippen  Sie  einmal 
ein: 


POKE  1024,1 :P0KE  2023,1 

In  der  linken  oberen  und  der  rechten  unteren  Bildschirmecke 
erscheint  ein  "A"!  Geben  Sie  nun  ein: 

POKE  1024,1 :POKE  1025, 2: POKE  1026,3 

In  der  ersten  Bildschirmzeile  erscheint  der  Schriftzug  "ABC". 
Daran  können  Sie  schon  erkennen,  wie  der  Bildschirmspeicher 
organisiert  ist: 

1024-1063:  1.  Bildschirmzeile 
1064-1103:  2.  Bildschirmzeile 
1104-1143:  3.  Bildschirmzeile 


1984-2023:  25.  Bildschirmzeile 
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Wie  Sie  gesehen  haben,  hat  der  Buchstabe  "A"  den  Code  1,  der 
Buchstabe  "B"  den  Code  2 usw...  Eine  komplette  Tabelle  dieser 
sogenannten  Bildschirmcodes  für  die  einzelnen  Zeichen  finden 
Sie  im  Anhang.  Ein  POK.E  in  den  Bildschirmspeicher  ist  übri- 
gens wesentlich  schneller  als  eine  entsprechende  PRINT-An- 
weisung.  Besonders  deutlich  wird  das,  wenn  man  einen  Rahmen 
um  den  Bildschirm  zeichnen  lassen  möchte.  Versuchen  Sie  doch 
einmal,  ein  Programm  zu  schreiben,  das  diese  Aufgabe  einmal 
mit  PRINT  und  einmal  mit  POKE  erledigt. 

Der  Befehl  SYS 

Bei  vielen  Programmierproblemen  ist  es  am  sinnvollsten,  wenn 
man  einen  Teil  des  Programms,  das  allgemeine  Rahmenpro- 
gramm, in  BASIC  und  die  geschwindigkeitskritischen  Teile  des 
Programms  in  Assembler  schreibt.  Um  nun  von  BASIC  aus  ein 
Maschinenprogramm  aufzurufen,  gibt  es  den  Befehl  SYS.  SYS  ist 
in  etwa  mit  GOSUB  zum  Aufrufen  von  Unterprogrammen  ver- 
gleichbar. 

Während  Sie  bei  GOSUB  die  Nummer  der  Programmzeile,  ab  der 
das  Unterprogramm  beginnt,  angeben  müssen,  folgt  hinter  SYS 
die  Adresse  der  Speicherzelle,  ab  der  das  Maschinenprogramm 
im  Speicher  liegt.  Am  Ende  eines  Maschinenprogramms  steht, 
wie  bei  einem  Unterprogramm,  ebenfalls  ein  RETURN,  nur 
schreibt  man  es  in  Assembler  etwas  anders,  nämlich  RTS. 

Auf  den  Befehl  SYS  selbst  werde  ich  im  nächsten  Kapitel  noch 
genauer  eingehen.  Ich  möchte  Ihnen  hier  aber  gleich  einmal  zei- 
gen, was  man  damit  sinnvolles  anfangen  kann.  Das  sogenannte 
Betriebssystem  des  Commodore  64  besteht  aus  einer  Vielzahl  von 
Maschinenprogrammen  (auch  Routinen  genannt),  die  man  auch 
für  eigene  Zwecke  nutzen  kann.  Zum  Beispiel  die  Routine  zum 
Setzen  des  Bildschirm-Cursors. 

Vielleicht  haben  Sie  sich  manchmal  auch  schon  gewünscht,  einen 
Text  genau  an  einer  bestimmten  Stelle  des  Bildschirms,  etwa  in 
der  5.  Zeile  ab  der  10.  Spalte,  ausgeben  zu  können.  Nichts  ein- 
facher als  das!  Der  Commodore  64  vermerkt  die  momentane  Po- 
sition des  Cursors  (ab  der  ja  alle  über  PRINT  ausgegebenen 
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Texte  erscheinen)  in  den  Speicherzellen  211  und  214.  In 
Speicherzelle  211  die  Spalte,  in  214  die  Zeile. 

Gezählt  wird  dabei  für  die  Zeile  von  0 bis  24,  für  die  Spalte  von 
0 bis  39.  Die  Home-Position  des  Cursors  hat  also  die  "Koordi- 
naten" 0/0,  während  die  rechte  untere  Ecke  des  Bildschirms  mit 
24/39  angesprochen  wird.  Gesetzt  wird  der  Cursor  mit  einer 
Betriebssystem- Routine,  die  ab  der  Speicherzelle  S8.640  beginnt. 
Wir  müssen  diese  Routine  also  mit 

SYS  58640 

aufrufen.  Das  komplette  Programm  sieht  dann  so  aus: 

10  ze=  5: rem  zeile  (0  bis  24) 

20  sp=10:rem  spalte  (0  bis  39) 

30  poke  211,sp:rem  Position 
40  poke  214, ze: rem  setzen 
50  sys  58640:rem  maschinenprogramm  aufrufen 
60  print  "beispiel" 

Der  Text  "BEISPIEL"  wird  in  der  4.  Zeile  ab  der  9.  Spalte  aus- 
gegeben. Das  Setzen  des  Cursors  war  nur  ein  sehr  kleines  Bei- 
spiel für  das,  was  sich  mit  Maschinensprache  erreichen  läßt.  Sie 
sehen,  es  lohnt  sich,  sich  mit  Maschinensprache  zu  befassen! 

Der  Befehl  WAIT 

WAIT  ist  ein  Befehl  der  ganz  besonderen  Art,  nicht  zuletzt,  weil 
man  ihn  in  Programmen  kaum  benötigt.  Wie  der  Name  vermuten 
läßt,  dient  WAIT  dazu,  auf  etwas  zu  warten.  Der  Programmab- 
lauf wird  durch  WAIT  so  lange  angehalten,  bis  ein  bestimmtes 
Ereignis  eintritt. 

Dieses  "Ereignis"  muß  in  einer  Speicherzelle  des  Commodore  64 
stattfinden.  WAIT  wartet  also,  bis  sich  der  Inhalt  einer  Spei- 
cherzelle ändert.  Sehen  wir  uns  das  Format  des  Befehls  einmal 
genauer  an: 


WAIT  Adresse, Ul, U2 
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Hinter  WAIT  steht  die  Adresse  einer  beliebigen  Speicherzelle  (0 
bis  6SS3S).  Dahinter  folgen  zwei  numerische  Werte.  Den  zweiten 
Wert  kann  man  auch  weglassen;  er  wird  dann  automatisch  auf 
Null  gesetzt.  Schön  und  gut.  Doch  was  soll  das  ganze? 

Die  beiden  Werte  W1  und  W2  werden  mit  dem  momentanen  In- 
halt der  Speicherzelle  logisch  verknüpft.  Zuerst  wird  der  Inhalt 
mit  W2  logisch-EXCLUSIV-ODER  verknüpft.  Das  Ergebnis 
dieser  Verknüpfung  wird  dann  anschließend  noch  mit  W1  lo- 
gisch-UND  verknüpft. 

Zum  Schluß  überprüft  WAIT  das  Gesamtergebnis  der  beiden 
Verknüpfungen.  Ist  es  ungleich  Null,  wird  bzw.  bleibt  der  Pro- 
grammablauf unterbrochen.  Ist  das  Ergebnis  gleich  Null,  wird 
mit  der  Programmabarbeitung  fortgefahren. 

WAIT  führt  die  beiden  Verknüpfungen  also  nicht  nur  einmal 
durch,  sondern  immer  wieder  - so  lange,  bis  das  Ergebnis  eben 
Null  ist.  Auch  wenn  Sie  es  vielleicht  kaum  für  möglich  halten, 
mit  WAIT  läßt  sich  durchaus  etwas  sinnvolles  anfangen! 

Nehmen  wir  einmal  an,  sie  möchten  in  einem  Programm  auf 
einen  Tastendruck  warten.  Normalerweise  würden  Sie  das  so 
programmieren: 

10  get  eg$:if  eg$=""  then  10 


Wenn  man  weiß,  daß  der  Commodore  64  die  Anzahl  der  zuletzt 
gedrückten  Tasten  in  der  Speicherzelle  198  vermerkt,  geht  es 
zusammen  mit  WAIT  etwas  einfacher: 

10  poke  198,0:wait  198.1 


Zunächst  wird  mit  POKE  198,0  die  Anzahl  der  gedrückten  Ta- 
sten auf  Null  gesetzt.  Anschließend  wartet  WAIT  198,1  bis  die 
Speicherzelle  198  den  Wert  1 enthält,  d.h.,  bis  eine  Taste  ge- 
drückt wurde! 
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BASIC  & Betriebssystem 

Das  Betriebssystem  und  auch  das  BASIC  stellen  viele  nützliche 
Funktionen  zur  Verfügung.  Oft  ist  es  jedoch  wünschenswert, 
diese  Funktionen  (z.B.  LIST)  zu  beeinflussen,  um  bestimmte 
Zwecke  zu  verfolgen.  Von  diesen  Manipulationsmöglichkeiten 
soll  auf  den  folgenden  Seiten  die  Rede  sein. 

Erzeugen  von  BASIC-Zeilen  per  Programm 

Stellen  Sie  sich  vor.  Sie  wollten  ein  Programm  schreiben,  das  den 
Grafen  einer  beliebigen  Funktion  in  Hochauflösung  auf  den 
Bildschirm  zeichnet.  Wenn  das  Programm  die  Funktion  nicht  fest 
vorgeben  soll,  muß  es  eine  Möglichkeit  geben,  den  Term  einzu- 
tippen. Für  einfachere  Versionen  reicht  es,  wenn  der  Benutzer 
vorher  noch  in  einer  speziellen  Programmzeile  die  Funktion  per 
DEFFN  selbst  ins  Programm  einbaut.  Doch  dazu  braucht  der 
Benutzer  Programmierkenntnisse.  Bequemer  wäre  es,  die  Re- 
chenvorschrift über  INPUT  einzugeben.  Doch  was  nützt  uns  ein 
String,  in  dem  ein  Term  gespeichert  ist  - ausgeführt  werden 
kann  er  nicht.  Die  letzte  Möglichkeit  wäre,  den  Rechner  sich 
selbst  programmieren  zu  lassen.  Das  geht  sogar  sehr  einfach. 

Um  die  Methode  zu  verstehen,  sollten  wir  zunächst  einen  Blick 
auf  die  normale  Entstehung  einer  Programmzeile  werfen.  Alles 
beginnt  damit,  daß  ein  Anwender  eine  (hoffentlich)  durchdachte 
Folge  von  Buchstaben  und  Zeichen  eintippt.  Diese  Zeichen  er- 
scheinen gleichzeitig  auf  dem  Bildschirm.  War  eines  dieser  Zei- 
chen ein  RETURN,  so  übernimmt  der  BASIC-Interpreter  die 
gesamte  Bildschirmzeile  (nicht  nur  die  eingetippten  Zeichen)  in 
den  BASIC-Eingabepuffer  und  wandelt  die  Zeichenfolge  in  eine 
Programmzeile  oder  (wenn  keine  Zeilennummer  am  Anfang 
stand)  in  direkt  ausführbare  Befehle  um.  Dem  Interpreter  ist  es 
also  egal,  ob  die  Zeichen  eingetipppt  oder  etwa  geprintet  wur- 
den. Darauf  baut  unsere  Methode  auf.  Zunächst  wird  der  beab- 
sichtigte Text  der  Programmzeile  auf  dem  Bildschirm  ausgege- 
ben. Dann  müssen  wir  nur  noch  die  Umwandlung  in  eine  Pro- 
grammzeile veranlassen.  Dazu  wird  ein  künstlicher  Tastendruck 
erzeugt,  indem  der  ASCII-Code  in  den  Tastaturpuffer  gepoket 
wird.  Folgt  jetzt  im  Programm  ein  END,  so  werden  diese  Ta- 
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stendrücke  nach  dem  Programmabbruch  ausgeführt.  Dabei  erge- 
ben sich  zwei  Probleme.  Durch  die  Erzeugung  einer  neuen  Zeile 
werden  die  Variablen  gelöscht  (wie  auch  bei  der  normalen  Pro- 
grammeingabe). Daraus  folgt,  daß  die  Erzeugung  künstlicher 
Zeilen  erfolgen  sollte,  wenn  keine  wichtigen  Daten  angefallen 
sind,  also  am  Programmanfang.  Müssen  einige  Variablen  erhalten 
werden,  so  empfiehlt  es  sich,  diese  in  freie  RAM-Bereiche  ein- 
zupoken,  die  vom  Betriebssystem  nicht  benutzt  werden. 

Zusätzlich  soll  das  Programm  nach  der  Zeilenerzeugung  weiter- 
laufen. Daher  muß  nach  der  Zeile  ein  künstliches  GOTO  xxx 
stehen,  das  nach  dem  gleichen  Muster  wie  die  Zeile  erzeugt 
wird.  Hier  ein  Beispiel-Listing: 

10  INPUT  "Term:  Y=";  A$:  REM  Eingabe  Funktionsterm 

20  PRINT  "(CLS)(3xCRSR  DOWN) 100  DEFFNF(X)=";  AS:  REM  Zeile  ausgeben 

30  PRINT  "GOTO  70(H0ME)"; : REM  Befehl  zur  Programmfortsetzung 

40  POKE  631,  13:  POKE  632,  13:  REM  2 x RETURN 

50  POKE  198,  2:  REM  Tastaturpuffer  initialisieren 

60  END 

70  . . . 

Wenn  Sie  dieses  Programm  eingetippt  und  gestartet  haben,  wer- 
den Sie  sehr  schnell  den  Sinn  der  einzelnen  Anweisungen  verste- 
hen, vor  allem  was  die  Bildschirmausgabe  betrifft.  Die  erzeugte 
Zeile  unterscheidet  sich  nicht  von  einer  normal  eingegebenen 
Zeile.  Das  Programm  kann  beliebig  oft  durchlaufen  werden. 
Sollte  eine  fehlerhafte  Eingabe  gemacht  worden  sein,  so  quittiert 
der  Interpreter  dies  mit  einem  SYNTAX-ERROR  nach  dem 
Durchlauf  der  neuen  Zeile. 

Diese  Anwendung  läßt  sich  übrigens  noch  stark  erweitern.  So 
können  auf  diese  Weise  Programmzeilen  gelöscht  werden,  die 
man  nicht  mehr  benötigt.  Auch  können  mehrere  Zeilen  gleich- 
zeitig erzeugt  werden.  So  ist  auch  die  Eingabe  ganzer  Unterpro- 
gramme per  INPUT  möglich. 

LIST-Schutz 

Bei  Programmen,  die  auf  persönliche  Daten  zugreifen,  empfiehlt 
es  sich,  eine  Codewort-Abfrage  einzubauen.  Damit  das  Codewort 
nicht  durch  LIST  auf gedeckt  werden  kann,  sollte  die  betreffende 
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Programmzeile  geschützt  werden.  Dies  kann  beispielsweise  durch 
einen  POKE-Befehl  erreicht  werden. 

Zum  Verständnis  ist  es  nötig,  das  Format  einer  Programmzeile 
im  Speicher  zu  kennen.  Die  ersten  beiden  Bytes  einer  Zeile  bil- 
den den  Zeiger  auf  die  nächste  Zeile.  Damit  kann  sich  der  In- 
terpreter von  Zeile  zu  Zeile  "hangeln".  Sind  diese  beiden  Bytes  0, 
so  ist  danach  keine  Programmzeile  mehr  gespeichert;  hier  befin- 
det sich  also  das  Programmende. 

Nach  dem  Zeiger  folgen  zwei  Bytes  mit  der  Zeilennummer. 
Auch  diese  ist  wie  ein  Pointer  aufgebaut.  Dann  folgen  die  Be- 
fehle im  Interpretercode.  Das  Zeilenende  wird  durch  eine  Null 
repräsentiert.  Mit  dieser  0 können  wir  den  Interpreter  ein  wenig 
hereinlegen.  POKEn  wir  nämlich  direkt  nach  der  Zeilennummer 
eine  0 ein,  so  meint  die  LIST-Routine,  die  Zeile  wäre  bereits 
abgeschlossen  und  holt  sich  die  nächste  Programmzeile  (der 
Pointer  am  Zeilenanfang  blieb  ja  unverändert).  Auch  ein  GOTO 
wird  dadurch  nicht  beeinflußt,  da  die  Routine,  die  eine  be- 
stimmte Zeile  im  Text  sucht,  sich  ebenfalls  an  diesen  Pointern 
orientiert.  Die  Routine,  die  den  nächsten  Befehl  im  Programm 
sucht,  tut  dies  aber  nicht,  sondern  überspringt  nach  einer  0 ein- 
fach 4 Bytes.  Deshalb  "fehlen"  die  ersten  vier  Bytes  der  Zeile 
beim  Programmablauf.  Um  die  Ausführung  der  Befehle  nicht  zu 
behindern,  müssen  beim  Schreiben  der  Programmzeile  5 belie- 
bige Zeichen  (aber  kein  Befehlswort)  eingefügt  werden.  Das  er- 
ste dieser  Zeichen  wird  durch  die  0 überschrieben,  die  restlichen 
vier  dienen  als  Platzhalter. 

Woher  wissen  wir  aber,  welches  Byte  wir  überschreiben  müssen? 
Nun,  auch  dafür  gibt  es  einen  Trick.  Wir  bauen  vor  der  zu 
schützenden  Zeile  einen  STOP-Befehl  ein  und  lassen  das  Pro- 
gramm bis  hierhin  ablaufen.  Nach  dem  BREAK  steht  in  den 
Speicherzellen  61  und  62  der  Pointer  auf  dem  nächsten  BASIC- 
Befehl.  Wenn  der  STOP-Befehl  am  Ende  der  Zeile  steht,  zeigt 
der  Pointer  auf  das  Zeilenende,  also  auf  eine  Null.  Addiert  man 
zu  dieser  Adresse  noch  S dazu,  so  erhält  man  das  gewünschte 
Byte.  Also  frisch  ans  Werk  mit  POKE  AD,  0.  Nach  diesem  Be- 
fehl erscheint  beim  "listen"  nur  noch  die  Zeilennummer,  der 
Text  wird  nicht  mehr  gezeigt.  Es  bleibt  nur  noch,  den  STOP- 
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abgelegt,  die  Adresse  des  Bytes  nach  dem  letzten  DATA-Ele- 
ment,  das  gelesen  wurde,  finden  wir  in  6S/66. 

Wollen  wir  jetzt  ein  RESTORE  simulieren,  so  können  wir  fol- 
gendermaßen vorgehen: 

1.  DATAs  bis  zum  Element  vor  dem  gewünschten  Ziel  lesen 
lassen  (z.B.  im  Direktmodus).  Soll  auf  das  5.  Element  zurück- 
gesetzt werden,  so  müssen  also  die  ersten  4 DATAs  gelesen 
werden. 

2.  PRINT  PEEK  (63),  PEEK  (64) 

Die  erscheinenden  Zahlen  repräsentieren  die  Zeilennummer. 
Zahlen  bitte  merken! 

3.  PRINT  PEEK  (65),  PEEK  (66) 

Auch  diese  Zahlen  müssen  wir  uns  merken!  Sie  bilden  den 
Zeiger  auf  das  Byte  nach  dem  letzten  DATA-Element.  Bis 
hierhin  müssen  alle  Befehle  vor  dem  eigentlichen  Programm- 
ablauf gegeben  werden. 

4.  POKE  63,  1.  Zahl:  POKE  64,  2.  Zahl 
POKE  65,  3.  Zahl:  POKE  66,  4.  Zahl 

Diese  Befehle  werden  statt  RESTORE  ins  Programm  an  die 
Stelle  eingebaut,  an  der  der  Datazeiger  zurückgesetzt  werden 
soll.  Dadurch  werden  die  Pointer  auf  den  Stand  gebracht,  den 
Sie  vor  dem  Lesen  des  gewünschten  Elements  hatten.  Für  das 
BASIC  entsteht  der  Eindruck,  als  hätte  es  die  nachfolgenden 
DATA-Zeilen  noch  nicht  gelesen. 

Allerdings  hat  diese  Methode  einen  Nachteil.  Nach  jeder  Ände- 
rung in  Programmzeilen,  die  vor  der  gewünschten  Position  des 
Zeigers  liegen,  ändert  sich  die  Adresse,  die  im  DATA-Pointer 
stehen  sollte,  da  das  BASIC  den  gesamten  Programmtext  im 
Speicher  verschiebt.  Deshalb  sollten  solche  DATA-Blöcke  ganz 
am  Anfang  des  Programms  vor  den  eigentlichen  Befehlen  stehen. 
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Zusammenfassung:  RESTORE 

Zeilennummer  des  letzten  DATA-Elements  ist  in  den  Speicher- 
zellen 63  und  64  gespeichert.  Die  Adresse  des  Bytes  nach  dem 
letzten  Element  befindet  sich  als  Zeiger  in  den  Bytes  65  und  66. 
Beide  Pointer  können  durch  POKE  verändert  werden  (vorher 
gewünschte  Pointer- Werte  feststellen). 

Verschiedene  Tricks 

Nach  einer  Programmunterbrechung  oder  einem  ERROR  zeigt 
der  Rechner  an,  in  welcher  Zeile  das  Programm  verlassen  wurde. 
Hat  man  etwas  voreilig  den  Bildschirm  gelöscht,  so  erfährt  man 
diese  Zeilennummer  meist  nicht  mehr.  Hier  schaffen  die 
Speicherzellen  59  und  60  Abhilfe.  Hier  wird  (im  Zeigerformat) 
die  letzte  Zeilennummer  abgelegt,  die  man  sich  durch 

PRINT  PEEK  (59)  ♦ 256  * PEEK  (60) 

ausgeben  lassen  kann.  Ein  Programm  vor  SAVE  schützen  kann 
man  mit  dieser  Sequenz: 

POKE  801,  0:  POKE  802,  0:  POKE  818,  165 

Dadurch  werden  die  Vektoren,  die  der  SAVE-Befehl  benötigt, 
so  umgebogen,  daß  kein  Abspeichern  mehr  möglich  ist.  Nachteil: 
Schon  durch  einfaches  Drücken  von  <Run/Stop>-<Restore> 
hängt  sich  der  Rechner  auf.  Schließlich  noch  einige  SYS-Be- 
fehle,  die  sich  gut  in  eigenen  Programmen  verwenden  lassen: 

SYS  65499 

setzt  den  TI$  auf  000000.  Das  geht  schneller  als  die  Zuweisung 
eines  neuen  Strings.  Ästheten  unter  den  Commodore-Besitzern 
können  ein  Programm  durch  SYS  42115  (statt  END)  beenden. 
Damit  wird  ein  Warmstart  des  BASIC  bewirkt,  was  nichts  an- 
deres heißt,  als  daß  das  BASIC  in  den  Direktmodus  umschaltet. 
Dabei  wird  aber  kein  READY  ausgegeben;  der  Cursor  steht  so- 
fort in  der  nächsten  Zeile.  Auch  ein  CONT  bleibt  nach  SYS  er- 
folglos. 
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Soll  das  Programm  mit  dem  Einschaltbild  beendet  und  gleichzei- 
tig gelöscht  werden,  so  bietet  sich  SYS  58253  an.  Und  einen 
künstlichen  SYNTAX  ERROR  erzielt  man  durch  SYS  44808. 


Zusammenfassung:  Tricks  zum  Betriebssystem 

Letzte  Zeilennummer  ist  in  Speicherzellen  59  und  60  gespeichert. 

SAVE-Schutz:  POKE  801,  0:  POKE  802,  0:  POKE  818,  165 

TIS  auf  0 setzen:  SYS  65499 

End  ohne  Ready:  SYS  42115 

Einschaltbild:  SYS  58253 

Syntax  Error:  SYS  44808 


BASIC-Erweiterungen 

Fast  jeder  Commodore-Besitzer  kennt  BASIC-Erweiterungen 
zumindest  aus  Anzeigen,  wenn  er  nicht  sogar  selbst  ein  solches 
Programm  besitzt.  Die  ersten  Exemplare  dieser  nützlichen  Helfer 
gab  es  schon  zu  den  Zeiten  des  seligen  PET  2001.  Zunächst 
enthielten  sie  nur  sogenannte  Toolkit-Befehle,  die  das  Editieren 
von  Programmen  erleichterten.  Darunter  fällt  zum  Beispiel  auch 
AUTO.  Dieser  Befehl  gibt  automatisch  die  Zeilennummern  im 
gewählten  Abstand  (z.B.  10)  für  die  einzugebenden  Programm- 
zeilen vor,  so  daß  man  sich  diese  Tipparbeit  sparen  kann.  FIND 
findet  bestimmte  Ausdrücke  im  Programmtext,  RENUMBER, 
MERGE  und  RENEW  kennen  Sie  bereits.  Mit  DEL  können  Sie 
ganze  Programmteile  löschen.  TRACE  ermöglicht  durch  Ausgabe 
der  durchlaufenen  Zeilen  eine  einfache  Überwachung  des  Pro- 
grammablaufs beim  Testen.  DUMP  gibt  alle  benutzten  Variablen 
samt  Inhalt  aus. 

Komfortablere  Versionen  ermöglichen  auch  das  Auffangen  von 
ERRORS.  Damit  wird  so  zum  Beispiel  die  Korrektur  von  fehler- 
haften Eingaben  ermöglicht,  ohne  daß  ein  TYPE-MISMATCH- 
ERROR  erscheint. 

Seltener  findet  man  noch  die  Möglichkeit,  die  Funktionstasten 
mit  Zeichenfolgen  zu  belegen. 
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Da  das  BASIC  des  64ers  die  phantastischen  Sound-  und  Grafik- 
möglichkeiten nicht  unterstützt,  bieten  viele  BASIC-Erweiterun- 
gen  auch  hier  Befehle  zum  Zeichnen  und  zum  Programmieren 
von  Tonfolgen.  Einige  Programme  stellen  auch  Strukturierungs- 
befehle zur  Verfügung,  mit  denen  man  Programme  ohne  GOTO- 
Befehle  schreiben  kann.  In  diesem  Fall  werden  die  einzelnen 
Programmteile  in  sogenannten  Moduln  (ähnlich  Unterprogram- 
men) programmiert.  Statt  GOSUB  wird  jetzt  z.B.  mit  CALL 
PLOT  X,Y  aufgerufen,  um  eine  Punkt-Setzroutine  zu  erreichen. 
Diese  Technik  fördert  die  Übersichtlichkeit  eines  Programms 
sehr.  Verbreitet  ist  auch  der  Einbau  von  speziellen  DOS-Befeh- 
len,  die  es  z.B.  ermöglichen,  eine  Directory  direkt  auf  den  Bild- 
schirm zu  holen,  ohne  ein  Programm  im  Speicher  zu  löschen. 

Wenn  etwas  schiefgeht:  Unser  Pannen-Service 

Weil  Autoren  nicht  fehlerlos  sind  und  Druckfehler  sowieso 
außerhalb  des  Einflusses  der  Autoren  liegen,  finden  Sie  in  die- 
sem Kapitel  einige  allgemeine  Erste-Hilfe-Regeln,  in  der  Hoff- 
nung, daß  dann  nichts  mehr  schief  gehen  kann. 

Kommen  wir  jetzt  aber  zu  speziellen  Fehlerquellen. 


Panne : Programmänderungen  werden  nicht  durchgeführt. 

Sie  haben  in  einem  Programm  eine  Zeile  geändert,  aber  an- 
schließend funktioniert  das  Programm  nicht  entsprechend  der 
Änderung. 

Lösung:  Wahrscheinlich  haben  Sie  das  Drücken  der  <Return>- 
Taste  vergessen.  Lassen  Sie  sich  mit  LIST  die  geänderte  Zeile 
zeigen,  nehmen  Sie  die  Änderung  erneut  vor,  und  betätigen  Sie 
zum  Abschluß  die  <Return>-Taste. 


Panne:  Cursor  produziert  Grafikzeichen. 

Sie  wollen  in  einer  Zeile  eine  Änderung  vornehmen,  aber  der 
Cursor  funktioniert  nicht  mehr  wie  normal,  sondern  produziert 
seltsame  Grafikzeichen. 
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Lösung:  Sie  haben  mit  der  <Inst>-Taste  Platz  geschaffen  oder  ein 
Anführungszeichen  verwendet.  Dadurch  befindet  sich  der  C64 
im  sogenannten  "Einfügemodus",  bei  dem  die  Cursor-Tasten  eine 
andere  Funktion  haben.  Drücken  Sie  <Shift>+<Return>,  dadurch 
verläßt  der  Cursor  die  Zeile,  ohne  diese  auszuführen,  und  Sie 
können  erneut  in  die  Zeile  gehen  und  den  Cursor  dort  normal 
bewegen. 


Panne:  PRINT  ergibt  statt  eines  Wortes  eine  0. 

Sie  wollen  ein  Wort  auf  den  Bildschirm  schreiben,  aber  der 
PRINT-Befehl  gibt  nicht  das  gewünschte  Wort  aus,  sondern  eine 
0. 

Lösung:  Sie  haben  die  Anführungszeichen  vergessen.  Wenn  Sie 
etwas  unverändert  und  ohne  irgendeine  Berechnung  auf  den 
Bildschirm  ausgeben  wollen,  so  muß  es  in  Anführungszeichen 
stehen. 


Panne:  PRINT  ergibt  statt  Variablenwert  immer  Variablennamen. 

Der  PRINT-Befehl  gibt  nicht  den  Wert  der  Variablen,  sondern 
den  Variablennamen  aus.  Sie  haben  beispielsweise  in  A$  den 
Namen  "Peter"  gespeichert,  erhalten  aber  beim  PRINT-Befehl 
immer  "A$"  auf  dem  Bildschirm. 

Lösung:  Versehentlich  haben  Sie  ein  Anführungszeichen  gesetzt. 
Dadurch  gibt  BASIC  das  folgende  ohne  jede  Änderung  auf  dem 
Bildschirm  aus.  Entfernen  Sie  das  Anführungszeichen. 


Panne:  BASIC  reagiert  nicht  auf  Befehle  im  Direktmodus. 

Sie  wollen  im  Direktmodus  (also  ohne  Zeilennummer)  einen  Be- 
fehl ausführen  lassen.  BASIC  führt  diesen  Befehl  aber  nicht  aus, 
sondern  setzt  den  Cursor  nach  Betätigung  der  <Return> -Taste 
einfach  eine  Zeile  tiefer.  Beispielsweise  befehlen  Sie 

RUN 


aber  das  Programm  startet  nicht. 
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Lösung:  Wenn  Sie  richtig  die  <Return>-Taste  betätigt  haben  und 
zu  Beginn  der  Zeile  auch  wirklich  keine  Zahl  steht  (sonst  Pro- 
gramm-Modus), dann  gibt  es  nur  eine  Erklärung:  Sie  geben  den 
Befehl  RUN  in  einer  verlängerten  Programmzeile  ein.  BASIC 
kann  nämlich  auch  mit  Programmzeilen  arbeiten,  die  zwei  Bild- 
schirmzeilen lang  sind.  Das  passiert  immer  dann,  wenn  Sie  bei 
der  Eingabe  einer  Programmzeile  über  den  rechten  Bildschirm- 
rand hinausschreiben.  Selbst  wenn  Sie  mit  der  Backspace -Taste 
die  Zeichen  in  der  zweiten  Zeile  löschen,  gehört  diese  zweite 
Zeile  immer  noch  als  Programmzeile  zur  ersten.  Machen  Sie 
zweierlei: 

1.  Merken  Sie  sich  die  Nummer  der  Programmzeile,  bewegen 
Sie  den  Cursor  mit  den  Cursor-Tasten  in  die  unterste  Bild- 
schirmzeile, und  drücken  Sie  einige  Male  die  <Return>-Ta- 
ste.  Nun  sind  Sie  sicherlich  nicht  mehr  in  einer  erweiterten 
Programmzeile. 

2.  Lassen  Sie  sich  mit  LIST  die  gemerkte  Zeile  zeigen,  und 
kontrollieren  Sie,  ob  diese  noch  Reste  Ihrer  Befehlseingaben 
enthält  - beispielsweise  noch  das  RUN.  Entfernen  Sie  diese 
Reste  gegebenenfalls.  Wenn  Sie  nach  der  Änderung  <Return> 
drücken,  springt  der  Cursor  zwei  Zeilen  tiefer.  Dort  können 
Sie  den  gewünschten  Befehl  eingeben. 

Noch  ein  Tip  zu  erweiterten  Programmzeilen.  Diese  erkennt  man 
eben  daran,  daß  der  Cursor  beim  Druck  auf  die  Eingabetaste 
zwei  Zeilen  weiter  nach  unten  springt. 


Panne:  Unerklärlicher  SYNTAX  ERROR  im  Direktmodus. 

Sie  geben  im  Direktmodus  (also  ohne  Zeilennummer)  einen  kor- 
rekten Befehl  ein,  aber  BASIC  meldet  einen  SYNTAX  ERROR 
oder  eine  andere  Fehlermeldung,  die  Sie  sich  nicht  erklären 
können. 
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Lösung:,  Wahrscheinlich  befinden  sich  in  der  Zeile,  in  der  Sie 
Ihre  Eingabe  machen,  noch  irgendwelche  Zeichen,  beispielsweise 
von  einer  vorherigen  Bildschirmausgabe.  Geben  Sie  einfach  in 
der  Zeile  den  gewünschten  Befehl  mit  einem  abschließenden 
Doppelpunkt  ein,  oder  setzen  Sie  den  Cursor  in  eine  Zeile,  in 
der  keine  Reste  einer  Bildschirmausgabe  mehr  vorhanden  sind. 


Panne:  ?REDO  FROM  START  beim  INPUT-Befehl. 

Sie  wollen  in  einem  laufenden  Programm  hinter  dem  Fragezei- 
chen eine  Eingabe  machen.  Wenn  Sie  aber  etwas  eingeben,  ar- 
beitet das  Programm  nicht  weiter,  sondern  es  erscheint  immer 
die  Meldung: 

?RED0  FROM  START 

auf  dem  Bildschirm. 

Lösung:  Beim  INPUT-Befehl  muß  ja  stets  eine  Variable  angege- 
ben werden,  die  die  Eingabe  aufnehmen  soll.  In  Ihrem  Fall  ist  es 
eine  numerische  Variable,  die  nur  Zahlen  enthalten  darf.  Sie  ge- 
ben aber  einen  String  (Zeichenkette)  ein.  Entweder  haben  Sie 
beim  Variablennamen  das  $-Zeichen  vergessen,  oder  Ihre  Ein- 
gabe enthält  Buchstaben  und  Sonderzeichen. 


Panne:  Scheinbar  korrekte  Programmzeile  ergibt  SYNTAX  ERROR 

Sie  haben  eine  Programmzeile  mit  Variablen  und  starten  das 
Programm.  Der  C64  meldet  immer  einen  SYNTAX  ERROR  in 
der  Zeile,  obwohl  diese  völlig  in  Ordnung  zu  sein  scheint. 

Lösung:  Sie  haben  versehentlich  einen  Befehl  oder  ein  reservier- 
tes Wort  im  Variablennamen  verwendet,  zum  Beispiel  ON  in 
TELEFON.  Benutzen  Sie  einen  anderen  Variablennamen.  Kurze 
Variablennamen  sind  zwar  weniger  ausdrucksstark,  aber  verhin- 
dern dieses  Problem.  Schauen  Sie  im  Lexikon  unter  Variablen- 
namen nach. 
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Panne:  Offensichtlich  unsinnige  Werte  bei  Berechnungen. 

Sie  wollen  in  einem  Programm  etwas  berechnen  lassen,  doch  der 
C64  kommt  immer  zu  sehr  eigenartigen  Ergebnissen.  Sie  haben 
schon  mehrfach  mit  dem  Taschenrechner  nachgerechnet  und 
glauben  eher  diesem  als  dem  Programm. 

Beispiel: 

10  KILO  = 10 
20  KILOMETER  = 20 
30  PRINT  KILO/KILOMETER 

Dies  Programm  ergibt  als  Ausgabe  eine  "1",  obwohl  eigentlich 
0.S  herauskommen  müßte. 

Lösung:  Die  beiden  Variablennamen  unterscheiden  sich  für  den 
C64  nicht,  da  er  nur  die  ersten  beiden  Zeichen  berücksichtigt. 
Für  ihn  steht  dort: 

10  KI  = 10 
20  KI  s 20 
30  PRINT  KI/KI 

Wählen  Sie  Variablennamen,  die  sich  schon  in  den  ersten  beiden 
Zeichen  unterscheiden,  beispielsweise  KI  für  KILO  und  KM  für 
KILOMETER. 


Panne : Programm  versehentlich  gelöscht. 

Sie  haben  ein  kleines  Programm  geschrieben  und  nicht  gespei- 
chert. 

Nun  haben  Sie  versehentlich  NEW  eingegeben  oder  durch  das 
Laden  des  Inhaltsverzeichnisses  das  Programm  im  Speicher  ge- 
löscht. Damit  ist  das  Programm  leider  verloren. 

Lösung:  Trotzdem  können  Sie  all  das,  was  noch  auf  dem  Bild- 
schirm sichtbar  ist,  leicht  wiederholen,  indem  Sie  einfach  in  jede 
noch  sichtbare  Programmzeile  gehen  und  auf  die  <Return>-Taste 
drücken.  Achtung:  Im  Falle  des  Inhaltsverzeichnisses  müssen  Sie 
vorher  NEW  eingeben,  sonst  bleiben  Reste  davon  im  Speicher. 
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Panne : Sie  starten  ein  gerade  neu  geschriebenes  Programm  mit 
RUN  und  erhalten  einen  SYNTAX  ERROR  IN  0,  obwohl  Sie  na- 
türlich wie  immer  mit  Zeile  10  begonnen  haben. 

Halt: 

Lösung:  Denken  Sie  einen  Augenblick  nach.  Haben  Sie  vor  dem 
Schreiben  des  Programms  das  Inhaltsverzeichnis  der  Diskette  ge- 
laden und  das  anschließende  NEW  vergessen?  Dann  geben  Sie 
jetzt  kein  LIST  ein.  Sie  können  den  noch  auf  dem  Bildschirm 
sichtbaren  Teil  des  Programms  retten,  indem  Sie  NEW  eingeben 
und  anschließend  alle  Zeilen  auf  dem  Bildschirm  durch 
<Return>  übernehmen. 


Panne:  TYPE  MISMATCH  ERROR  in  ... 

Sie  erhalten  die  Fehlermeldung:  TYPE  MISMATCH  ERROR  in 
90. 

Lösung:  Dieser  Fehler  tritt  auf,  wenn  Sie  numerische  Variablen 
mit  String-Variablen  verwechseln  oder  gleichsetzen.  Numerische 
Variablen  können  nur  Werte  von  anderen  numerischen  Variablen 
zugewiesen  bekommen,  Zahlen  oder  das  Ergebnis  von  Berech- 
nungen aufnehmen.  String-Variablen  können  nur  Zeichenketten 
(in  Anführungszeichen)  oder  den  Inhalt  anderer  String -Variablen 
aufnehmen.  So  sind  beispielsweise  die  folgenden  Zuweisungen 
nicht  erlaubt: 

Eingabe  = "Hallo"  (Links  numerisch,  rechts  String) 

EingabeS  = 4 (Links  String,  rechts  numerisch) 

EingabeS  = Meineeingabe  (Links  String,  rechts  numerisch) 


Panne:  Programm  will  nicht  stoppen. 

Sie  haben  ein  Programm  geschrieben,  das  nach  dem  Start  gar 
nicht  mehr  aufhören  will,  weil  es  eine  Endlosschleife  enthält. 

Lösung:  Drücken  Sie  <Run/Stop>,  und  BASIC  stoppt  das  Pro- 
gramm. Nun  sollten  Sie  natürlich  vor  einem  neuen  Start  erst 
einmal  das  Programm  so  abändern,  daß  es  auch  normal  beendet 
werden  kann.  Manchmal  funktioniert  <Run/Stop>  nicht,  weil  das 
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Programm  INPUT-Befehle  enthält,  und  während  der  C64  das 
INPUT  abarbeitet,  reagiert  er  nicht  auf  <Run/Stop>.  Drücken 
Sie  in  einem  solchen  Fall  gleichzeitig  <Run/Stop>  + <Restore>. 

Panne:  NEXT  WITHOUT  FOR  ERROR  IN  ... 

Sie  erhalten  die  Fehlermeldung  NEXT  WITHOUT  FOR  ERROR 
IN  30. 

Lösung:  Hier  können  mehrere  Fehler  vorliegen.  Haben  Sie  über- 
haupt vor  der  Zeile  40  eine  Zeile,  die  die  Schleife  beginnt? 
Wenn  ja,  so  haben  Sie  sich  vielleicht  mit  dem  Variablennamen 
für  die  Schleife  verschrieben.  Zu  einen  "For  I = 1 to  100"  gehört 
auch  ein  "Next  I"  und  kein  "Next  J".  Eventuell  verwenden  Sie 
auch  eine  geschachtelte  Konstruktion  aus  zwei  Schleifen.  Dann 
muß  die  zuletzt  begonnene  Schleife  zuerst  wieder  beendet  wer- 
den. Beispielsweise  ist  folgende  verschachtelte  Schleife  nicht 
richtig: 

10  For  I = 1 to  10 
20  For  J = 1 to  10 
30  Print  I,J 

40  Next  I Rem  (Hier  muß  erst  die  innere  Schleife  (J) 
geschlossen  werden  ) 

50  Next  J 

Panne : RETURN  WITHOUT  GOSUB  ERROR  IN  ... 

Sie  erhalten  die  Fehlermeldung  RETURN  WITHOUT  GOSUB 
ERROR  IN  30. 

Lösung:  Wenn  BASIC  auf  ein  RETURN  trifft,  so  will  es  zu  der 
Zeile  zurückkehren,  in  der  das  zugehörige  GOSUB  gestanden 
hat.  In  diesem  Fall  ist  BASIC  aber  auf  ein  RETURN  gestoßen, 
ohne  daß  vorher  GOSUB  befohlen  wurde.  Haben  Sie  das  GO- 
SUB vergessen?  Wenn  nein,  so  gibt  es  noch  eine  häufige  Fehler- 
quelle: Sie  haben  ein  Hauptprogramm,  das  ein  Unterprogramm 
auf ruft.  Das  Hauptprogramm  endet  aber  nicht  mit  einem  END, 
und  daher  "läuft"  BASIC  irgendwann  fälschlicherweise  in  das 
Unterprogramm.  Dieser  Fehler  tritt  beispielsweise  in  folgendem 
Programm  auf: 
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10  REM  Dies  ist  das  Hauptprogramm 
20  FOR  I = 1 TO  100 
30  GOSUB  100 
40  NEXT  I 

100  REM  Unterprogramm 
110  PRINT  I 
120  RETURN 


Fügen  Sie  die  folgende  Zeile  ein: 

50  END 


Panne:  UNDEF'D  STATEMENT  ERROR  in  ... 

Sie  erhalten  beispielsweise  die  Fehlermeldung  UNDEF‘D  STA- 
TEMENT ERROR  in  30. 

Lösung:  Sie  haben  versucht,  das  Programm  mit  GOTO  springen 
zu  lassen,  aber  die  angegebene  Zeilennummer  existiert  gar  nicht. 
Kontrollieren  Sie  auf  Tippfehler,  und  schauen  Sie  nach,  ob  Sie 
die  Zielzeile  vielleicht  gelöscht  haben. 


Panne:  BAD  SUBSCRIPT  ERROR  in  ... 

Sie  erhalten  nach  dem  Starten  des  Programms  die  Fehlermeldung: 
BAD  SUBSCRIPT  ERROR  in  20. 

Lösung:  Sie  arbeiten  mit  einem  Feld  und  versuchen  ein  Element 
dieses  Feldes  anzusprechen,  das  außerhalb  des  durch  DIM  ange- 
gebenen Bereiches  liegt.  Beispiel: 

10  DIM  A(100) 

20  A(200)  = 4 

Panne:  Überraschender  OUT  OF  DATA  ERROR. 

Völlig  überraschend  taucht  nach  Betätigung  der  <Return>-Taste 
obige  Fehlermeldung  auf,  obwohl  Sie  in  Ihrem  Programm  weder 
DATA-Zeilen  noch  den  READ-Befehl  verwenden. 

Lösung:  Immer,  wenn  der  C64  mit  etwas  fertig  ist,  meldet  er 
sich  mit  einem  READY.  Schauen  Sie  sich  das  READY  noch 
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einmal  genau  an.  Der  C64  interpretiert  diese  Zeile  als  READ  Y. 
Sie  haben  versehentlich  in  dieser  Zeile  die  <Return>-Taste  betä- 
tigt und  haben  keine  DATA-Zeilen,  aus  denen  der  C64  sein  Y 
holen  könnte. 

Panne : FILE  NOT  FOUND  ERROR 

Sie  wollen  ein  Programm  oder  das  Inhaltsverzeichnis  der  Diskette 
laden  und  erhalten  diese  Fehlermeldung.  Zusätzlich  blinkt  die 
rote  Lampe  der  Floppy. 

Lösung:  Sie  haben  entweder  keine  Diskette  eingelegt  oder  den 
Diskettenschacht  nicht  geschlossen,  oder  das  Programm  befindet 
sich  nicht  auf  der  Diskette  (falsche  Schreibweise).  Beim  nächsten 
richtigen  Zugriff  auf  die  Floppy  hört  das  Blinken  auf. 


Panne:  DEVICE  NOT  PRESENT  ERROR 

Sie  wollen  das  Diskettenlaufwerk  benutzen  und  erhalten  diese 
Fehlermeldung. 

Lösung:  Sie  haben  vergessen,  die  Floppy  einzuschalten.  Sollte 
sich  nach  dem  Einschalten  nichts  ändern,  so  schalten  Sie  alle 
Geräte  aus  und  überprüfen  die  Yerbindungskabel.  Achtung:  Nur 
im  ausgeschalteten  Zustand  Verbindungskabel  herausziehen  oder 
einstecken. 


Panne:  Floppylampe  blinkt  beim  Speichern. 

Sie  speichern  ein  Programm,  und  der  C64  meldet  auch  die  Aus- 
führung mit  READY,  aber  die  Lampe  der  Floppy  blinkt. 

Lösung:  Sie  haben  versucht,  ein  bereits  unter  demselben  Namen 
bestehendes  Programm  noch  einmal  abzuspeichern.  Löschen  Sie 
entweder  das  alte  Programm,  oder  verwenden  Sie  den  Klam- 
meraffen oder  aber  wählen  Sie  einen  anderen  Namen. 
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Panne:  Speichern  ohne  Erfolg. 

Sie  haben  ein  Programm  in  einer  neuen  Version  gespeichert. 
Beim  späteren  Laden  entpuppt  es  sich  als  eine  ältere  Version. 

Lösung:  Sie  haben  es  versehentlich  unter  demselben  Namen  zu 
speichern  versucht  und  nicht  gemerkt,  daß  die  Floppylampe 
blinkte,  weil  Sie  anschließend  sofort  das  Inhaltsverzeichnis  gela- 
den haben. 
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4.  Auch  Assembler  ist  nicht  schwer 


Nachdem  wir  uns  im  letzten  Kapitel  ausführlich  mit  BASIC  be- 
faßt haben,  möchte  ich  Ihnen  nun  zeigen,  wie  man  dem  Com- 
modore  64  in  Maschinensprache  bzw.  Assembler  zu  Leibe  rückt. 
Auch  wenn  Sie  im  Augenblick  nocht  nicht  in  die  Assembler- 
Programmierung  einsteigen  möchten,  sollten  Sie  dieses  Kapitel 
nicht  einfach  überblättern.  Unterkapitel  4.7  enthält  nämlich  eine 
Reihe  hochinteressanter  Routinen,  die  auch  für  alle  Nur-BASIC- 
Programmierer  von  Nutzen  sind. 


4.1  Warum  überhaupt  Assembler? 

Sicherlich  haben  Sie  in  der  Zwischenzeit  fleißig  in  BASIC  pro- 
grammiert und  festgestellt,  daß  sich  damit  viele  Aufgaben  auf 
leichte  Art  und  Weise  lösen  lassen.  Warum  soll  man  sich  da  noch 
mit  Assembler  befassen?  Ist  dies  nicht  nur  noch  ein  Relikt  aus 
den  Anfangstagen  der  Computerei?  Vergleichen  wir  deshalb 
einmal  BASIC  mit  Assembler. 

Daß  BASIC  nicht  schwer  zu  erlernen  ist,  haben  Sie  im  letzten 
Kapitel  gesehen.  Lassen  Sie  sich  aber  in  diesem  Kapitel  über- 
zeugen, daß  das  Programmieren  in  Assembler  ebenso  einfach 
und  schnell  zu  erlernen  ist.  Dabei  kommt  Ihnen  zugute,  daß  Sie 
bereits  BASIC  beherrschen.  Die  grundsätzliche  Arbeitsweise  ist 
bei  der  Maschinensprache  nicht  viel  anders.  Welche  Vorteile  ge- 
genüber BASIC  lassen  es  nun  gerechtfertigt  erscheinen,  sich  eine 
neue  Programmiersprache  anzueignen? 

BASIC  zählt  zu  den  sogenannten  höheren  Programmiersprachen 
wie  zum  Beispiel  auch  FORTRAN,  PASCAL  oder  COBOL. 
Diese  Sprachen  werden  oft  auch  als  problemorientierte  Sprachen 
bezeichnet,  da  sie  sich  an  den  zu  lösenden  Problemen,  z.B.  ma- 
thematischen Berechnungen  oder  kommerziellen  Anwendungen, 
orientieren.  Dem  gegenüber  gibt  es  sogenannte  maschinenorien- 
tierte Sprachen,  wie  z.B.  FORTH,  die  sich  an  der  Hardware  des 


368 


Das  große  Commodore  64-Buch 


Rechners  orientieren.  Dazu  gehört  als  Extremfall  natürlich  auch 
die  Maschinensprache  des  Prozessors  selbst. 

BASIC  verstehen  Sie  also  gut,  sonst  würden  Sie  sich  jetzt  wohl 
kaum  an  die  Programmierung  in  Maschinensprache  herantrauen. 
Da  sieht  es  mit  Ihrem  Commodore  64  schon  ganz  anders  aus. 
Der  versteht  nämlich  BASIC  überhaupt  nicht.  Wie  kommt  es 
dann,  so  werden  Sie  zurecht  fragen,  daß  er  BASIC-Befehle  dann 
so  bereitwillig  und  schnell  ausführt?  Dafür  sorgt  der  im 
Betriebssystem  Ihres  Commodore  64  enthaltene  BASIC-Interpre- 
ter. Dieser  Interpreter  präsentiert  Ihnen  BASIC  im  Klartext. 
Geht  es  jedoch  an  die  Ausführung  der  von  Ihnen  geschriebenen 
Programme,  so  muß  jeder  einzelne  Befehl  von  Ihrem  Commo- 
dore 64  erst  interpretiert  werden,  d.h.,  in  entsprechende,  von 
ihm  ausführbare  Einzelschritte  übertragen  werden.  Das  braucht 
Sie  eigentlich  nicht  weiter  zu  stören,  denn  schließlich  erledigt 
der  Interpreter  seine  Aufgabe  doch  souverän  und  für  Sie  kaum 
merkbar. 

Schauen  wir  uns  an  einem  einfachen  Beispiel  an,  wie  die  Arbeit 
des  Interpreters  vor  sich  geht: 

PRINT  "HALLO" 

Wenn  Sie  diesen  Befehl  eingeben  und  <Return>  drücken,  wird 
der  Befehl  Zeichen  für  Zeichen  vom  Interpreter  gelesen.  Sobald 
er  das  erste  Wort  gelesen  hat,  geht  der  Interpreter  hin,  vergleicht 
dieses  Wort  mit  allen  Worten  aus  seiner  Befehlstabelle  (z.B. 
GOTO,  FOR,  INPUT  usw...)  und  prüft,  ob  es  in  der  Tabelle 
enthalten  ist.  Hat  er  es  gefunden,  so  merkt  er  sich,  an  wievielter 
Stelle  dieses  Wort  in  der  Tabelle  steht.  Diese  Position  braucht 
der  Interpreter,  um  festzustellen,  an  welcher  Stelle  innerhalb  des 
Interpreters  der  PRINT-Befehl  steht.  Nun  kann  der  eigentliche 
PRINT-Befehl  ausgeführt  werden.  Auch  hier  wird  wieder  zei- 
chenweise gelesen.  An  den  Anführungszeichen  merkt  der  Inter- 
preter, daß  Sie  einen  Text  drucken  wollen.  Er  gibt  Zeichen  für 
Zeichen  aus,  bis  er  mit  dem  nächsten  Anführungszeichen  das 
Ende  des  Wortes  entdeckt.  Nun  prüft  er,  ob  noch  weiterer  Text 
folgt.  Ist  das  nicht  der  Fall,  so  ist  der  Befehl  ausgeführt  und  der 
Interpreter  meldet  sich  mit  READY  wieder. 
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Sicherlich  werden  Sie  jetzt  sagen:  Das  ist  aber  umständlich,  da 
muß  es  doch  was  besseres  geben.  Stimmt!  Und  genau  deshalb 
wollen  wir  uns  jetzt  einmal  ansehen,  welche  Vorteile  es  hat,  di- 
rekt in  Maschinensprache  zu  programmieren. 

Maschinensprache  ist  erheblich  schneller!  Welchen  Geschwindig- 
keitsvorteil bringt  die  Maschinensprache  gegenüber  BASIC  und 
warum  ist  das  so?  Damit  Ihr  Rechner  BASIC  überhaupt  versteht, 
muß  er  einen  sogenannten  BASIC-Interpreter  haben,  der  die 
einzelnen  BASIC-Befehle  erkennt  und  ausführt.  Dieser  Inter- 
preter ist  selbst  in  Maschinensprache  geschrieben.  Um  z.B.  den 
Befehl  POKE  1024,10  auszuführen,  muß  zuerst  der  Befehl  vom 
Interpreter  erkannt  werden.  Danach  können  die  Argumente  ge- 
holt und  die  10  in  die  Speicherstelle  1024  geschrieben  werden. 
Das  ganze  dauert  etwa  2 Millisekunden,  das  sind  2 tausendstel 
Sekunden.  Nicht  viel  Zeit,  könnte  man  meinen.  Wie  sieht  das 
ganze  jetzt  in  Maschinensprache  aus?  Hier  sind  zwei  Maschinen- 
befehle erforderlich: 

LOA  #10 
STA  1024 

Diese  beiden  Befehle  brauchen  nur  6 Mikrosekunden,  das  sind  6 
millionstel  Sekunden,  das  ist  nicht  einmal  der  dreihundertste  Teil 
davon! 

Man  kann  davon  ausgehen,  das  ein  reines  Maschinenprogramm 
ca.  10  bis  1000  mal  schneller  ist  als  ein  BASIC- Programm  für 
die  gleiche  Aufgabe. 

Besonders  zeitintensive  Aufgaben  sind  z.B.  umfangreiche  ma- 
thematische Berechnungen  und  besonders  auch  das  Sortieren  von 
Daten.  Bei  umfangreichen  Datenbeständen  kann  dies  in  BASIC 
leicht  Stunden  dauern.  Hier  kommt  man  oft  ohne  die  Maschi- 
nensprache nicht  mehr  aus. 

Während  man  hier  mit  BASIC  lediglich  Zeit  verschenkt,  lassen 
sich  andere  Aufgaben  ohne  Maschinensprache  prinzipiell  nicht 
lösen.  Dazu  gehört  zum  Beispiel  die  Programmierung  von  Ein-/ 
Ausgabebausteinen  zur  Übertragung  von  Daten  oder  Routinen, 
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die  im  "Interrupt"  ausgeführt  werden,  eine  Technik,  die  in  BA- 
SIC nicht  zur  Verfügung  steht.  Interrupt  heißt  zu  deutsch  Un- 
terbrechung und  bedeutet,  daß  z.B.  Bausteine  des  Rechners  oder 
externe  Geräte  die  Arbeit  des  Rechners  jederzeit  unterbrechen 
können  und  den  Rechner  zwingen,  diese  Geräte  entsprechend  zu 
bedienen. 

Generell  gilt  aber,  daß  man  alle  Möglichkeiten  seines  Rechners 
nur  mit  Maschinensprache  voll  ausschöpfen  kann.  Dies  gilt  beim 
Commodore  64  speziell  für  die  hochauflösende  Grafik  und  den 
Synthesizer.  Dies  gilt  auch  für  alle  Sachen,  die  in  "Echtzeit"  pro- 
grammiert werden  müssen. 

Ein  weiterer  wichtiger  Punkt  ist  die  Speicherplatzausnutzung. 
Ein  sehr  gut  geschriebenes  Maschinenprogramm  kann  durchaus 
zehnmal  kürzer  sein,  als  ein  entsprechendes  Programm  in  BASIC. 
Ein  BASIC-Programm  von  ein  KByte  Größe  kann  man  nicht  als 
sehr  groß  bezeichnen,  für  ein  Maschinenprogramm  ist  dies  je- 
doch schon  eine  ansehnliche  Größe. 

Das  gleiche  gilt  auch  für  die  Datenspeicherung.  Haben  Sie  zum 
Beispiel  eine  Tabelle,  so  belegt  im  günstigsten  Fall  jedes  Felde- 
lement zwei  Bytes,  wenn  Sie  Integer-Felder  benutzen,  obwohl 
Sie  nur  Zahlen  zwischen  Null  und  Hundert  abspeichern  müssen. 
In  Maschinensprache  ist  es  kein  Problem,  hier  nur  ein  Byte  pro 
Element  zu  benutzen.  In  Maschinensprache  können  Sie  also  die 
jedem  Problem  optimal  angepaßte  Datenstruktur  wählen. 

Nun  müssen  wir  aber  fairerweise  auch  fragen,  welche  Nachteile 
wir  uns  durch  die  Maschinensprache-Programmierung  einhan- 
deln. Nun  - erst  müssen  wir  das  Programmieren  in  Maschinen- 
sprache einmal  lernen.  Wenn  Sie  jedoch  BASIC  beherrschen, 
bringen  Sie  bereits  die  Grundvoraussetzungen  dafür  mit.  Ein 
Nachteil  von  Maschinenprogrammen  ist,  daß  sie  prinzipiell  nur 
auf  Maschinen  laufen,  die  den  gleichen  Prozessortyp  enthalten, 
und  auch  auf  diesen  von  Gerät  zu  Gerät  größere  Anpassungen 
erforderlich  sein  können.  Dem  kann  man  jedoch  schon  bei  der 
Programmierung  Rechnung  tragen.  Auch  ist  das  Austesten  von 
Maschinenprogrammen  ohne  entsprechende  Werkzeuge  nicht  so 
einfach  wie  in  BASIC. 
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Zusammenfassend  können  wir  sagen,  daß  die  Maschinenpro- 
grammierung durchaus  ihre  Berechtigung  hat.  Viele  Aufgaben 
lassen  sich  ohne  Maschinenprogrammierung  nicht  lösen,  und  nur 
mit  ihr  kann  man  "das  Letzte"  aus  seinem  Rechner  herausholen. 
Oft  wird  man  seine  Grundprogramme  auch  weiterhin  in  BASIC 
schreiben  und  lediglich  Teilprobleme  in  Maschinensprache  for- 
mulieren. 

Diese  Vorgehens  weise  ist  sehr  beliebt  und  begegnet  Ihnen  dau- 
ernd in  Form  von  Programmierhilfen  oder  BASIC-Erweiterun- 
gen,  so  auch  in  diesem  Buch. 

Haben  Sie  erst  Ihr  erstes  eigenes  Maschinenprogramm  geschrie- 
ben, so  werden  auch  Sie  feststellen,  daß  es  gar  nicht  so  schwie- 
rig ist. 


4.2  Die  erforderlichen  Werkzeuge 

Vielleicht  haben  Sie  sich  schon  gewundert,  daß  ich  die  beiden 
Begriffe  Maschinensprache  und  Assembler  nebeneinander  be- 
nutze. Worin  liegen  die  Unterschiede?  Dazu  muß  ich  etwas  aus- 
holen.  Die  einzige  Sprache,  die  der  Commodore  64  wirklich 
"versteht",  ist  die  Maschinensprache.  Darunter  können  Sie  sich 
lange  Folgen  von  Nullen  und  Einsen  vorstellen,  die  intern  im 
Rechner  in  Form  von  Spannungsimpulsen  und  Magnetisierungs- 
zuständen dargestellt  werden.  Da  solch  eine  Sprache  selbst  für 
hartnäckigste  Computerfreaks  kaum  handhabbar  ist,  hat  man  den 
sogenannten  Assembler  eingeführt.  In  dieser  Sprache  werden  die 
Maschinenbefehle,  die  man  dem  Rechner  geben  kann,  nicht 
mehr  durch  Nullen  und  Einsen  ausgedrückt,  sondern  durch 
symbolische  Namen.  Ein  Befehl  zum  Laden  eines  Wertes  in  eine 
Speicherzelle  heißt  dann  zum  Beispiel  nicht  mehr  "10011101", 
sondern  "STA".  Damit  läßt  sich  doch  schon  wesentlich  leichter 
umgehen! 

Der  Begriff  Assembler  meint  aber  noch  etwas  anderes.  Da  der 
Commodore  64  die  Assembler- Befehle  ja  nicht  direkt  "versteht", 
benötigt  man  ein  Werkzeug,  das  ihm  diese  in  Maschinensprache 
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übersetzt.  Solch  ein  Übersetzungsprogramm  bezeichnet  man  im 
allgemeinen  ebenfalls  als  Assembler. 

Und  damit  wären  wir  auch  schon  bei  den  zum  Programmieren  in 
Assembler  erforderlichen  Werkzeugen  angelangt.  Leider  hat  der 
Commodore  64  diese  Hilfsmittel,  wie  den  BASIC-Interpreter 
standardmäßig,  nicht  eingebaut. 

Was  Sie  unbedingt  benötigen,  ist  natürlich  einen  Assembler. 
Zwei  weitere  sehr  hilfreiche  Werkzeuge  sind  ein  sogenannter 
Diassembler  sowie  ein  Einzelschrittsimulator.  Einfache,  in  BA- 
SIC programmierte  Versionen  dieser  drei  Werkzeuge  finden  Sie 
am  Ende  des  Kapitels.  Professionelle  Programme  sind  meist  in 
Maschinensprache  geschrieben  und  dadurch  natürlich  wesentlich 
schneller  und  komfortabler.  Für  Ihre  ersten  Gehversuche  in 
Maschinensprache  reichen  die  abgedruckten  Programme  aber 
völlig  aus. 

Kommerzielle  Assembler-Werkzeuge  sind  mittlerweile  recht 
günstig  zu  haben.  Wenn  Sie  langfristig  in  Assembler  program- 
mieren wollen,  lohnt  sich  auf  jeden  Fall  ein  Gang  ins  Fachge- 
schäft oder  ein  Blick  in  den  Listing-Teil  einer  Fachzeitschrift. 

Durch  die  Vielzahl  der  angebotenen  Programme  ergibt  sich  ein 
weiteres  Problem:  Wie  auch  Anwendungsprogramme  ihre  Funk- 
tionen mitunter  durch  sehr  unterschiedliche  Aufrufkommandos 
anbieten,  so  gibt  es  auch  bei  den  einzelnen  Assemblern  zum  Teil 
erhebliche  Unterschiede  in  der  Bedienung.  Sollte  es  trotzdem 
einmal  zu  Problemen  kommen,  dürfte  ein  Blick  in  die  Bedie- 
nungsanleitung zu  Ihrem  Programm  für  Klarheit  sorgen. 


4.3  Der  6510-Mikroprozessor 

Der  Mikroprozessor,  kurz  die  CPU,  besitzt  einen  "Programm- 
zähler" oder  "program  counter".  Der  Programmzähler  weist  im- 
mer auf  die  Adresse,  an  der  sich  der  nächste  zu  bearbeitende 
Befehl  befindet. 
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Da  der  gesamte  Rechnerspeicher  addressiert  werden  muß 
($0000-$FFFF  beim  C64),  ist  diese  Adresse  zwei  Byte  lang 
(siehe  oben).  Der  Programmzähler  besteht  aus  zwei  Registern, 
speziellen  Speicherzellen,  die  wie  üblich  jeweils  ein  Byte  auf- 
nehmen können  und  die  nieder-  bzw.  die  höherwertige  Hälfte 
der  jeweiligen  Adresse  enthalten. 

Nehmen  wir  an,  der  Programmzähler  weist  auf  die  Adresse 
$C000,  an  der  sich  der  erste  Befehl  unseres  Programms  befindet 
(LDX  #$00).  Über  den  sogenannten  Datenbus  wird  der  Inhalt 
der  Speicherzelle  $C000  geholt,  die  Zahl  $A2. 

Die  Zahl  wird  nun  decodiert  und  als  Befehl  LDX  erkannt.  An- 
schließend wird  der  Programmzähler  um  eins  erhöht  und  weist 
danach  auf  die  Adresse  $C001.  Das  Argument  des  Befehls  LDX, 
die  Zahl  $00,  befindet  sich  an  dieser  Adresse  und  wird  ebenfalls 
mit  Hilfe  des  Datenbusses  vom  Rechnerspeicher  in  die  CPU 
übertragen. 

Ob  ein  Befehls-Argument  ein  oder  aber  zwei  Byte  umfaßt,  er- 
kennt die  CPU  am  Befehlscode.  Nachdem  das  Befehlsargument 
vom  Speicher  zur  CPU  transportiert  wurde,  wird  der  Befehl  aus- 
geführt. 

Der  Programmzähler  wird  bei  jeder  Übertragung  eines  Bytes  um 
den  Wert  eins  erhöht  und  weist  somit  nach  der  Bearbeitung  eines 
Befehls  (und  seines  Argumentes)  auf  den  folgenden  Befehl,  der 
auf  die  gleiche  Weise  abgearbeitet  wird. 

Die  CPU-Register 

Im  vorigen  Abschnitt  lernten  wir  zwei  CPU-Register  kennen, 
die  zusammen  den  Programmzähler  bilden.  Die  verschiedenen 
CPU-Register  sind  die  wichtigsten  Speicherzellen,  die  unser 
Rechner  besitzt. 

1.  Der  Akkumulator 

Das  wichtigste  CPU-Register  ist  der  sogenannte  Akkumulator. 
Fast  alle  Operationen  sind  nur  mit  Hilfe  des  Akkumulators  mög- 
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lieh.  Um  beispielsweise  eine  bestimmte  Speicherzelle  mit  einem 
beliebigen  Wert  zu  beschreiben  (analog  dem  POKE-Befehl),  muß 
dieser  Wert  zuerst  in  4en  Akkumulator  geladen  werden.  An- 
schließend kann  der  Akkumulatorinhalt  in  die  gewünschte 
Speicherzelle  übertragen  werden.  Außer  für  den  Datentransfer 
ist  der  Akkumulator  für  Berechnungen  aller  Art  zuständig.  Ad- 
ditionen oder  Subtraktionen  können  nur  in  diesem  speziellen  Re- 
gister stattfinden. 

2.  Die  Index-Register 

Die  CPU  besitzt  zwei  Index-Register,  die  als  X-Register  und  Y- 
Register  bezeichnet  werden.  Beide  Register  werden  vorwiegend 
als  Schleifenzähler  und  zur  Bearbeitung  von  Tabellen  verwendet. 

3.  Das  Status-Register 

Das  Status-Register  enthält  wie  alle  übrigen  Register  ein  Byte. 
Dieses  Byte  gibt  über  den  Prozessorstatus  Auskunft,  z.B.  über 
das  Ergebnis  von  Subtraktionen  oder  Additionen.  Am  Inhalt  des 
Status-Registers  können  wir  z.B.  erkennen,  ob  das  Ergebnis  ei- 
ner Addition  größer  oder  kleiner  als  255  ist  oder  ob  eine  Pro- 
grammschleife beendet  ist. 

4.  Der  Stapelzeiger 

Der  Stapel  ist  ein  spezieller,  eine  Seite  (256  Byte)  langer 
Speicherbereich,  der  zur  kurzfristigen  Ablage  von  Informationen 
geeignet  ist  und  mit  Hilfe  des  Stapelzeigers  verwaltet  wird. 


4.4  Die  Adressierungsarten 

Von  den  256  möglichen  8-Bit-Kombinationen  stellen  151  einen 
gültigen  Befehl  für  den  6510  dar.  Dies  beinhaltet  mehrere 
gleichartige  Befehle,  die  sich  nur  durch  die  Adressierungsart 
unterscheiden.  Unterschiedliche  Befehle  gibt  es  56  beim  6510. 
Dieser  Befehlssatz  ist  leicht  zu  erlernen.  Auf  den  folgenden  Sei- 
ten finden  Sie  eine  Übersicht  der  Befehle  mit  allen  Adressie- 
rungsarten. 
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ADC  - Add  with  carry 

Addiert  Operand  + Carry-Flag  zum  Akku-Inhalt. 


Adressierungsart 

Schreibweise 

Code 

Unarfttelbar 

ADC  «Op 

$69 

Absolut 

ADC  Op 

$6D 

Zeropage 

ADC  Op 

$65 

Abs. -X- Indiziert 

ADC  Op.X 

$7D 

Abs.-Y-Indiziert 

ADC  Op,Y 

$79 

Zerop.-X- Indiz. 

ADC  Op.X 

$75 

Indirekt-X-Ind. 

ADC  (Op.X) 

$61 

Indirekt-Y-Ind. 

ADC  (Op), Y 

$71 

AND  - AND  Accu 

Verknüpft  Akku-Inhalt  mit  Operand  durch  logisches  UND. 

Adressierungsart  Schreibweise  Code 


Urmittelbar  AND  «Op  $29 
Absolut  AND  Op  $2D 
Zeropage  AND  Op  $25 
Abs. -X- Indiziert  AND  Op.X  $3D 
Abs.-Y-Indiziert  AND  Op,Y  $39 
Zerop.-X- Indiz.  AND  Op.X  $35 
Indirekt-X-Ind.  AND  (Op.X)  $21 
Indirekt-Y-Ind.  AND  (Op),Y  $31 


ASL  - Arithmetic  shift  left 

Verschiebt  die  Bits  des  Operanden  um  eine  Stelle  nach  links. 


Adressierungsart 

Schreibweise 

Code 

Akku 

ASL 

$0A 

Absolut 

ASL 

Op 

$0E 

Zeropage 

ASL 

Op 

$06 

Abs.-X-Indiziert 

ASL 

Op.X 

$1E 

Zerop.-X- Indiz. 

ASL 

Op.X 

$16 

BCC  - Brauch  if  carry  clear 

Verzweigt,  falls  das  Carry-Flag  gelöscht  ist. 

Adressierungsart  Schreibweise  Code 
Relativ  BCC  Op  $90 
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BCS  - Branch  if  carry  set 

Verzweigt,  falls  das  Carry-Flag  gesetzt  ist. 

Adressierungsart  Schreibweise  Code 
Relativ  BCS  Op  $B0 

BEQ  - Branch  if  equal  to  zero 

Verzweigt,  falls  das  Zero-Flag  gelöscht  ist. 

Adressierungsart  Schreibweise  Code 
Relativ  BEQ  Op  $F0 


BIT  - Test  bits 

Verknüpft  Akku-Inhalt  mit  Operand  durch  logisches  UND  und 
setzt  die  entsprechenden  Flags  des  Status-Registers. 

Adressierungsart  Schreibweise  Code 
Absolut  BIT  Op  $2C 

Zeropage  BIT  Op  $24 

BNE  - Branch  if  not  equal  to  zero 

Verzweigt,  falls  das  Zero-Flag  gesetzt  ist. 

Adressierungsart  Schreibweise  Code 
Relativ  BNE  Op  $D0 

BMI  - Branch  if  minus 

Verzweigt,  falls  das  Negativ-Flag  gesetzt  ist. 

Adressierungsart  Schreibweise  Code 
Relativ  BMI  Op  $30 

BPL  - Branch  if  plus 

Verzweigt,  falls  das  Negativ-Flag  gelöscht  ist. 

Adressierungsart  Schreibweise  Code 
Relativ  BPL  Op  $10 
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BRK  - Break 

Programmunterbrechung. 

Adressierungsart  Schreibweise  Code 
Implizit  BRK  S00 

BVS  - Branch  if  overflow  set 

Verzweigt,  falls  das  Overflow-Flag  gesetzt  ist. 

Adressierungsart  Schreibweise  Code 
Relativ  BVS  Op  $70 

CLC  - Clear  carry 

Carry-Flag  löschen. 

Adressierungsart  Schreibweise  Code 
Implizit  CLC  $18 

CLO  - Clear  decimal  mode 

Dezimal-Flag  löschen. 

Adressierungsart  Schreibweise  Code 
Implizit  CLD  $08 

CU  - Clear  Interrupt  flag 

Interrupt-Flag  löschen. 

Adressierungsart  Schreibweise  Code 
Implizit  CLI  $58 

CLV  - Clear  overflow  flag 

Overflow-Flag  löschen. 

Adressierungsart  Schreibweise  Code 
Implizit  CLV  $B8 
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CMP  - Compare  with  accu 

Vergleicht  Speicherzelle  mit  Akku. 


Adressierungsart 

Schreibweise 

Code 

Unmittelbar 

CMP 

#0p 

$C9 

Absolut 

CMP 

Op 

$CD 

Zeropage 

CMP 

Op 

SC5 

Abs. -X- Indiziert 

CMP 

Op.X 

$DD 

Abs.-Y-Indiziert 

CMP 

Op.Y 

$09 

Zerop.-X-Indiz. 

CMP 

Op.X 

$05 

Indirekt-X-Ind. 

CMP 

(Op.X) 

$C1 

Indirekt-Y-Ind. 

CMP 

<0P>,Y 

$D1 

CPX  - Compare  with  x-register 

Vergleicht  Speicherzelle  mit  X-Register. 


Adressi erungsart 

Schreibweise 

Code 

Unmittelbar 

CPX  «Op 

$E0 

Absolut 

CPX  Op 

SEC 

Zeropage 

CPX  Op 

$E4 

CPY  - Compare  with  y-regi$ter 

Vergleicht  Speicherzelle  mit  Y-Register. 

Adressierungsart  Schreibweise  Code 


Unmittelbar 

CPY  «Op 

$C0 

Absolut 

CPY  Op 

$CC 

Zeropage 

CPY  Op 

$C4 

DEC  - Decrement  memory 

Dekrementiert  den  Inhalt  der  angegebenen  Speicherzelle. 


Adressi erungsart 

Schreibweise 

Code 

Absolut 

DEC 

Op 

$CE 

Zeropage 

DEC 

Op 

$C6 

Abs. -X- Indiziert 

DEC 

Op.X 

SDE 

Zerop.-X-Indiz. 

DEC 

Op.X 

$06 

DEX  - Decrement  x-register 

Dekrementiert  den  Inhalt  des  X-Registers. 

Adressierungsart  Schreibweise  Code 
Implizit  DEX  $CA 
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DEY  - Decrement  y-register 

Dekrementiert  den  Inhalt  des  Y-Registers. 

Adressierungsart  Schreibweise  Code 
Inpli  zit  DEY  $88 


EOR  - exclusive-or  accu 

Verknüpft  Akku-Inhalt  mit  Operand  durch  logisches  EXCLU- 
SIV-ODER. 

Adressierungsart  Schreibweise  Code 


Unmittelbar  EOR  #0p  $49 
Absolut  EOR  Op  $4D 
Zeropage  EOR  Op  $45 
Ab6.-X-Indiziert  EOR  Op,X  $5D 
Abs.-Y-Indiziert  EOR  Op,Y  $59 
Zerop.-X-Indiz.  EOR  Op,X  $55 
Indirekt-X-Ind.  EOR  (Op,X)  $41 
Indirekt-Y-Ind.  EOR  (Op),Y  $51 


INC  - Increment  memory 

Inkrementiert  den  Inhalt  der  angegebenen  Speicherzelle. 


Adressierungsart 

Schreibweise 

Code 

Absolut 

INC  Op 

SEE 

Zeropage 

INC  Op 

$E6 

Abs.-X-Indiziert 

INC  Op,X 

$FE 

Zerop.-X-Indiz. 

INC  Op,X 

$F6 

INX  - Increment  x-register 

Inkrementiert  den  Inhalt  des  X-Registers. 

Adressi erungsart 

Schreibweise 

Code 

Implizit 

INX 

$E8 

INY  • Increment  y-register 

Inkrementiert  den  Inhalt  des  Y-Registers. 

Adressierungsart 

Schreibweise 

Code 

Implizit 

INY 

$C8 
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JMP  - Jump 

Verzweigt  zur  angegebenen  Adresse. 

Adressierungsart  Schreibweise  Code 
Indirekt  JMP  (Op)  $6C 

Absolut  JMP  Op  $4C 

JSR  - Jump  to  subroutine 

Verzweigt  zur  angegebenen  Adresse  (Unterprogrammaufruf). 

Adressierungsart  Schreibweise  Code 
Absolut  JSR  Op  $20 


LDA  - Load  accu 


Lädt  Akku  mit  angegebenem  Wert. 


Adressierungsart 

Schreibweise 

Code 

Unmittelbar 

LDA  «Op 

$A9 

Absolut 

LDA  Op 

SAD 

Zeropage 

LDA  Op 

$A5 

Abs.-X-lndiziert 

LDA  Op,X 

$BD 

Abs.-Y-Indiziert 

LDA  0p,Y 

$B9 

Zerop.-X- Indiz. 

LDA  OpfX 

$B5 

Indirekt-X-Ind. 

LDA  (Op,X) 

$A1 

Indirekt-Y-Ind. 

LDA  (0p),Y 

$B1 

LDX  - Load  x-register 

Lädt  X-Register  mit  angegebenem  Wert. 


Adress i erungsart 

Schreibweise 

Code 

Unmittelbar 

LDX  «Op 

$A2 

Absolut 

LDX  Op 

$AE 

Zeropage 

LDX  Op 

$A6 

Abs.-Y-Indiziert 

LDX  Op, Y 

$BE 

Zerop.-Y-Indiz. 

LDX  Op, Y 

$B6 

LDY  - Load  y-register 

Lädt  Y-Register  mit  angegebenem  Wert. 


Adressierungsart 

Schreibweise 

Code 

Unmittelbar 

LDY  «Op 

$A0 

Absolut 

LDY  Op 

$AC 

Zeropage 

LDY  Op 

$A4 

Abs.-X-Indiziert 

LDY  Op,X 

SBC 

Zerop.-X- Indiz. 

LDY  Op,X 

SB4 
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LSR  - Logical  shift  right 

Verschiebt  die  Bits  des  Operanden  um  eine  Stelle  nach  rechts. 


Adress i erungsar t 

Schreibweise 

Code 

Akku 

LSR 

$4A 

Absolut 

LSR 

Op 

$4E 

Zeropage 

LSR 

Op 

$46 

Abs.-X-Indiziert 

LSR 

Op,X 

$5E 

Zerop.-X- Indiz. 

LSR 

Op.X 

$56 

NOP  - No  Operation 

Keine  Operation. 

Adressierungsart  Schreibweise  Code 
Implizit  NOP  $EA 


ORA  - OR  accu 

Verknüpft  Akku-Inhalt  mit  Operand  durch  logisches  ODER. 


Adressierungsart 

Schreibweise 

Code 

Unmittelbar 

ORA  *Op 

$09 

Absolut 

ORA  Op 

$0D 

Zeropage 

ORA  Op 

$05 

Abs.-X-Indiziert 

ORA  Op.X 

$10 

Abs.-Y-Indiziert 

ORA  Op,Y 

$19 

Zerop.-X- Indiz. 

ORA  Op.X 

$15 

Indirekt-X-Ind. 

ORA  (Op.X) 

$01 

Indirekt-Y-Ind. 

ORA  (Op), Y 

$11 

PHA  - Push  accu 

Bringt  Akku-Inhalt  auf  Stack. 

Adressierungsart  Schreibweise  Code 
Implizit  PHA  $48 


PHP  - Push  processor-status 

Bringt  Status-Register  auf  Stack. 

Adressierungsart  Schreibweise  Code 
Implizit  PHP  $08 
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PLA  - Pull  accu 

Lädt  Akku  mit  oberstem  Stackelement. 

Adressierungsart  Schreibweise  Code 
Implizit  PLA  $68 


PLP  - Pull  processor-status 

Lädt  Status-Register  mit  oberstem  Stackelement. 

Adressierungsart  Schreibweise  Code 
Implizit  PLP  $28 


ROL  - Rotate  left 

Rotiert  die  Bits  des  Operanden  um  eine  Stelle  nach  links. 


Adressi erungsart 

Schreibweise 

Code 

Akku 

ROL 

$2A 

Absolut 

ROL  Op 

$2E 

Zeropage 

ROL  Op 

$26 

Abs.-X-Indiziert 

ROL  Op,X 

$3E 

Zerop.-X- Indiz. 

ROL  Op,X 

$36 

ROR  - Rotate  right 

Rotiert  die  Bits  des  Operanden  um  eine  Stelle  nach  rechts. 


Adressierungsart 

Schreibweise 

Code 

Akku 

ROR 

$6A 

Absolut 

ROR  Op 

$6E 

Zeropage 

ROR  Op 

$66 

Abs.-X-Indiziert 

ROR  Op,X 

$7E 

Zerop.-X- Indiz. 

ROR  Op,X 

$76 

RTI  - Return  from  Interrupt 

Rücksprung  aus  Interrupt. 

Adressierungsart  Schreibweise  Code 
Implizit  RTI  $40 


RTS  • Return  from  subroutine 

Rücksprung  aus  Unterprogramm. 

Adressierungsart  Schreibweise  Code 
Implizit  RTS  $60 
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SBC  - Substract  with  carry 

Subtrahiert  Operand  + Carry-Flag  vom  Akku-Inhalt. 


Adressierungsart 

Schreibweise 

Code 

Unmittelbar 

SBC 

*>p 

$E9 

Absolut 

SBC 

Op 

SED 

Zeropage 

SBC 

Op 

$E5 

Abs. *X- Indiziert 

SBC 

Op.X 

$FD 

Abs.-Y-Indiziert 

SBC 

Op,Y 

$F9 

Zerop.-X-Indiz. 

SBC 

Op.X 

$F5 

Indirekt-X-Ind. 

SBC 

(Op.X) 

SEI 

Indirekt-Y-Ind. 

SBC 

(Op).Y 

$F1 

SEC  - Set  carry 

Carry-Flag  setzen. 

Adressierungsart  Schreibweise  Code 
Inplizit  SEC  $38 


SED  - Set  decimal  mode 

Dezimal-Flag  setzen. 

Adressierungsart  Schreibweise  Code 
Implizit  SED  $F8 


SEI  - Set  Interrupt 

Interrupt-Flag  setzen. 

Adressierungsart  Schreibweise  Code 
Implizit  SEI  $78 


STA- Store  accu 

Schreibt  Akku-Inhalt  in  angegebene  Speicherzelle. 


Adressierungsart 

Schreibweise 

Code 

Absolut 

STA  Op 

$80 

Zeropage 

STA  Op 

$85 

Abs. *X- Indiziert 

STA  Op.X 

$90 

Abs.-Y-Indiziert 

STA  Op,Y 

$99 

Zerop.-X-Indiz. 

STA  Op.X 

$95 

Indirekt-X-Ind. 

STA  (Op,X) 

$81 

Indirekt-Y-Ind. 

STA  (Op),Y 

$91 

384 


Das  große  Commodore  64-Buch 


STX  - Store  x-register 

Schreibt  X-Register  in  angegebene  Speicherzelle. 


Adressierungsart 

Schreibweise 

Code 

Absolut 

STX  Op 

$8E 

Zeropage 

STX  Op 

$86 

Zerop.-Y- Indiz. 

STX  Op,Y 

$96 

STY  - Store  y-register 

Schreibt  Y-Register  in  angegebene  Speicherzelle. 


Adressierungsart 

Schreibweise 

Code 

Absolut 

STY  Op 

SBC 

Zeropage 

STY  Op 

$84 

Zerop.-X- Indiz. 

STY  Op,X 

$94 

TAX  - Transfer  accu  to  x-register 

Schreibt  Akku-Inhalt  ins  X-Register. 

Adressierungsart  Schreibweise  Code 
Implizit  TAX  $AA 


TAY  - Transfer  accu  to  y-register 

Schreibt  Akku-Inhalt  ins  Y-Register. 

Adressierungsart  Schreibweise  Code 
Implizit  TAY  $A8 


TXA  - Transfer  x-register  to  accu 

Schreibt  X-Register-Inhalt  in  den  Akku. 

Adressierungsart  Schreibweise  Code 
Implizit  TXA  $8A 


TYA  - Transfer  y-register  to  accu 

Schreibt  Y-Register-Inhalt  in  den  Akku. 

Adressierungsart  Schreibweise  Code 
Implizit  TYA  $98 
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TSX  - Transfer  Stackregister  to  x-register 

Schreibt  Stackpointer-Inhalt  ins  X-Register. 

Adressierungsart  Schreibweise  Code 
Implizit  TSX  SBA 


TXS  - Transfer  x-register  to  Stackregister 

Schreibt  X-Register-Inhalt  in  den  Stackpointer. 

Adressierungsart  Schreibweise  Code 
Implizit  TXS  $9A 


4.5  Maschinenprogramme  auf  dem  C64 

Für  den  Fall,  daß  Sie  noch  nie  (auch  nicht  in  Form  von  Data- 
Zeilen)  Kontakt  mit  einem  Maschinenprogramm  hatten,  sollten 
Sie  das  weiter  unten  abgebildete  Demo-Programm  eingeben. 

Das  eigentliche  Maschinenprogramm  ist  in  der  Data-Zeile  am 
Ende  des  BASIC-Programms  enthalten.  Seine  recht  einfache 
Aufgabe  besteht  darin,  die  oberen  Bildschirmzeilen  mit  dem 
Buchstaben  A zu  füllen.  Sie  können  dieses  Programm  sofort  ein- 
geben und  wie  gewohnt  mit  RUN  starten. 

100  REM  ***  'A'  AUSGEBEN  *** 

110  FOR  1=49152  TO  49152+10 
120  : READ  A:POKE  I,A 
130  NEXT 

140  PRINT  CHR$(147):REM  SCREEN  L0ESCHEN 
150  SYS  491 52: REM  PROGRAMM  STARTEN 
160  END 
170  : 

180  DATA  169,1,162,0,157,0,4,202,208,250,96 

Zurück  zu  unserem  Demo-Programm.  BASIC-Programmierersind 
sicherlich  über  die  enorme  Geschwindigkeit  erstaunt,  mit  der  die 
256  Zeichen  ausgegeben  werden.  Irgendeine  Verzögerung  ist 
nicht  festzustellen,  das  Programm  arbeitet  für  das  menschliche 
Auge  praktisch  in  Nullzeit.  Zum  Vergleich  ein  BASIC-Pro- 
gramm,  das  analog  dem  Maschinenprogramm  arbeitet: 
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100  REM  ***  'A'  AUSGEBEN  IN  BASIC  *** 

110  PRINT  CHR$(147); :REM  SCREEN  LOESCHEN 
120  FOR  1=1  TO  256 
130  : PRINT"AH; 

140  NEXT 


Zugegeben:  Auch  das  BASIC-Programm  ist  nicht  allzu  langsam 
(circa  eine  Sekunde  zur  Ausgabe  aller  A).  Der  Unterschied  zwi- 
schen diesem  und  dem  Maschinenprogramm  ist  dennoch  er- 
staunlich. 


4.6  Benutzung  von  Betriebssystem-Routinen 

Der  folgende  Abschnitt  führt  alle  besprochenen  Betriebssystem- 
Routinen  auf. 


Routine : BSOUT  ($FFD2) 

Ausgabe  eines  Zeichens  auf  das  Standardgerät  "Bildschirm"  oder 
eine  geöffnete  logische  Datei,  auf  die  zuvor  mit  CHKOUT  die 
Ausgabe  umgelenkt  wurde. 

Parameter  hin:  ASCII-Code  des  Zeichens  Im  Akkunulator. 

Parameter  zurück:  Keine 

Beeinflußte  Register:  Keine 


Routine:  BASIN  (SFFCF) 

Eingabe  eines  Zeichens  vom  Standardgerät  "Tastatur"  oder  einer 
geöffneten  logischen  Datei,  auf  die  zuvor  mit  CHKIN  die  Ein- 
gabe umgelenkt  wurde. 

Parameter  hin:  Keine 

Parameter  zurück:  Zeichen  im  Akkumulator  (ASCII-Code). 

Beeinflußte  Register:  Akkumulator,  X-Register. 


Routine:  GETIN  (SFFE4) 

Zeichen  von  der  Tastatur  lesen. 

Parameter  hin:  Keine 

Parameter  zurück:  Zeichen  im  Akkumulator  (ASCII-Code). 

$00,  wenn  keine  Taste  gedrückt. 
Beeinflußte  Register:  Akkumulator,  X-Register,  Y-Register. 
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Routine:  CHKOUT  ($FFC9) 

Leitet  die  Ausgabe  auf  eine  zuvor  geöffnete  logische  Datei  um. 

Parameter  hin:  File-Nummer  (Dateinwmer)  im  X-Register. 

Parameter  zurück:  Keine 

Beeinflußte  Register:  Akkumulator,  X-Register. 


Routine:  CHKIN  (SFFC6) 

Leitet  die  Eingabe  auf  eine  zuvor  geöffnete  logische  Datei  um. 

Parameter  hin:  File-Nummer  (Dateinummer)  im  X-Register. 

Parameter  zurück:  Keine 

Beeinflußte  Register:  Akkumulator,  X-Register 


Routine:  CLRCH  (SFFCC) 

Schließt  alle  geöffneten  Datenübertragungskanäle  (ersetzt  jedoch 
nicht  das  folgende  Schließen  der  logischen  Datei  mit  CLOSE) 
und  lenkt  die  Ein-/Ausgabe  auf  die  Standardgeräte  Bildschirm 
und  Tastatur  um. 

Parameter  hin;  Keine 

Parameter  zurück:  Keine 

Beeinflußte  Register:  Akkumulator,  X-Register. 


Routine:  PLOT  ( SFFFO ) 

Setzt  den  Cursor  auf  die  angegebene  Position  oder  holt  die  ak- 
tuelle Cursor-Position. 

Parameter  hin:  Cursor  setzen:  Carry-Flag  löschen, 

Spalte  im  Y-Register  (0-39),  Zeile  im  X- 
Register  (0-24).  Cursor -Position  holen: 

Carry-Flag  setzen. 

Parasmter  zurück:  Cursor-Position  holen:  Spalte  im  Y-Register, 

Zeile  im  X-Register. 

Beeinflußte  Register:  Akkumulator,  X-Register,  Y-Register. 


Die  Routinen  des  BASIC-Interpreters 

Die  Routinen  des  BASIC-Interpreters  unterscheiden  sich  leider 
von  Rechner  zu  Rechner.  Die  Funktionsweise  ist  jedoch  immer 
identisch,  ebenso  die  hin-  bzw.  zurückübergebenen  Parameter. 
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Sie  dürfen  davon  ausgehen,  daß  jede  der  im  folgenden  genann- 
ten Routinen  alle  Register  beeinflußt! 


Routine:  CHKKOM 
Adresse : $AEFD 

Liest  das  aktuelle  Zeichen  aus  dem  BASIC-Text  und  prüft,  ob  es 
sich  um  ein  Komma  handelt. 

Parameter  hin:  Keine 

Parameter  zurück:  Keine 


Routine : G ET BYT 
Adresse : $B79E 

Liest  einen  Ein-Byte-Wert  aus  dem  BASIC-Text  oder  eine  nu- 
merische Variable  mit  entsprechendem  Inhalt  (0-255). 

Parameter  hin:  Keine 

Parameter  zurück:  Byte-Wert  im  X-Register. 


Routine:  FRMNUM 
Adresse:  $AD8A 

Wertet  einen  beliebigen  numerischen  Ausdruck  aus,  der  sich  im 
BASIC-Text  befindet. 

Parameter  hin:  Keine 

Parameter  zurück:  Ergebnis  im  FlieBkommaformat  im  FAC 

( F l i eßkomma- Akkimul ator ) . 


Routine:  ADRFOR 
Adresse:  $B7F7 

Wandelt  eine  Fließkommazahl,  die  sich  im  FAC  befindet,  ins 
Adreßformat  (Low-Byte/High-Byte)  und  kann  sehr  effektiv  zu- 
sammen mit  FRMNUM  zum  Einlesen  eines  Zwei-Byte-Wertes 
aus  dem  BASIC-Text  eingesetzt  werden. 

Parameter  hin:  Ftießkommazahl  im  FAC. 

Parameter  zurück:  Integer-Zahl  im  AdreBformat  im  Y-Register 

(Low-Byte)  und  im  Akkumulator  (High-Byte). 
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Routine:  ADRBYT 
Adresse : $B7EB 

Liest  einen  Zwei-Byte- Wert  und  einen  folgenden  - durch  ein 
Komma  getrennten  - Ein-Byte-Wert  aus  dem  BASIC-Text  ein. 

Parameter  hin:  Keine 

Parameter  zurück:  Zwei-Byte-Wert  im  AdreBformat  in  $14/$15 

und  Ein-Byte-Uert  im  X-Register. 

Routine:  GETPOS 
Adresse.  $B08B 

Liest  eine  Variable  beliebigen  Typs  aus  dem  BASIC-Text  und 
übergibt  einen  Zeiger  auf  die  Variable  (numerische  Variablen) 
bzw.  auf  die  Descriptoren  (String-Variablen). 

Parameter  hin:  Keine 

Parameter  zurück:  Zeiger  in  Akkumulator  (Low-Byte)  und  im  Y- 

Register  (High-Byte). 

Routine:  STRRES 
Adresse.  $B4F4 

Reserviert  Platz  für  einen  anzulegenden  String  und  vermindert 
zugleich  den  Zeiger  auf  das  Ende  des  String-Stacks  um  die 
String-Länge.  Ist  nicht  ausreichend  Platz  vorhanden,  gibt 
STRRES  die  Fehlermeldung  OUT  OF  MEMORY  ERROR  aus. 

Parameter  hin:  String-Länge  im  Akkumulator 

Parameter  zurück:  Keine 


Routine:  INTOUT 
Adresse.  $BDCD 

Gibt  eine  Integer-Zahl  ab  der  aktuellen  Cursor- Position  auf  dem 
Bildschirm  aus. 

Parameter  hin:  Integer-Zahl  im  X-Register  (Low-Byte)  und 

Akkumulator  (High-Byte). 

Parameter  zurück:  Keine 
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4.7  Weitere  Beispiele  und  BASIC-Ladeprogramme 

Mehrmals  in  diesem  Buch  versprach  ich  Ihnen,  auf  ein  Thema 
einzugehen,  das  leider  in  kaum  einem  Assembler-Lehrbuch  be- 
schrieben wird,  auf  die  Zusammenarbeit  von  Assembler-Routi- 
nen und  BASIC-Programmen. 

Im  folgenden  Teil  wird  Ihnen  das  nötige  Handwerkszeug  ver- 
mittelt, um  z.B.  Eingabe-  oder  Sortierroutinen  in  Assembler  zu 
schreiben,  die  von  einem  BASIC- Programm  genutzt  werden. 

Die  in  diesem  dritten  Teil  entwickelten  Programme  sind  deutlich 
komplexer  als  die  vorangegangenen  und  werden  deshalb  in  ver- 
schiedenen Teilschritten  entwickelt  und  erläutert.  Am  Ende  eines 
jeden  Abschnitts  wird  das  Listing  des  kompletten  Programms 
vorgestellt. 

Vor  der  Entwicklung  diverser  Programme  ist  jedoch  ein  wenig 
Theorie  unumgänglich,  da  Sie  unbedingt  darüber  Bescheid  wis- 
sen müssen,  wie  der  BASIC-Interpreter  einen  BASIC-Text  liest 
und  Variablen  organisiert. 

Da  man  ja  bekanntlich  durch  die  Praxis  immer  noch  am  besten 
lernt,  möchte  ich  Ihnen  nun  die  ersten  fünf  einer  Vielzahl  von 
äußerst  nützlichen  und  "gebrauchsfertigen"  Assembler-Routinen 
vorstellen.  Gebrauchsfertig  soll  heißen,  daß  Sie  diese  Programme 
ohne  jede  Änderungen  oder  Ergänzungen  sofort  nutzen  können. 
Alle  Routinen  bilden  jeweils  eine  geschlossene  Einheit  und 
greifen  nicht  auf  andere  Routinen  zu  (mit  Ausnahme  natürlich 
der  Betriebssystem-Routinen,  die  ja  ohnehin  vorhanden  sind). 

Alle  Routinen  dienen  demselben  Zweck:  Sie  machen  Ihnen  die 
verborgenen,  vom  BASIC  2.0  nicht  unterstützten  Fähigkeiten  des 
Commodore  64  verfügbar.  Damit  auch  die  Nicht-  oder  Noch- 
Nicht-Assemblerprogrammierer  von  diesen  Programmen  etwas 
haben,  finden  Sie  im  Anschluß  an  jedes  Assemblerlisting  einen 
sogenannten  BASIC-Lader  zu  dem  Programm. 

Was  ist  nun  ein  BASIC-Lader?  In  jedem  BASIC-Lader  ist  der 
Programmcode  des  Maschinenprogramms  in  Form  von  DATA- 
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Zeilen  abgelegt.  Nachdem  Sie  den  BASIC-Lader  abgetippt,  auf 
Diskette  gespeichert  (nicht  vergessen!)  und  gestartet  haben,  wer- 
den diese  DATAs  in  einer  Schleife  mittels  READ  gelesen  und  in 
die  festgelegten  Speicherzellen  gepoket.  Anschließend  können  Sie 
den  BASIC-Lader  löschen.  Die  Assembler- Routine  kann  nun  mit 
dem  passenden  SYS-Befehl,  den  Sie  im  Kopf  des  BASIC-Laders 
finden,  auf  gerufen  werden. 

Diese  ganze  Prozedur  (BASIC-Lader  abtippen  bzw.  laden,  starten 
und  löschen)  müssen  Sie  aber  nur  einmal  durchführen.  Etwas 
weiter  unten  werde  ich  Ihnen  zeigen,  wie  Sie  die  Programme, 
nachdem  sie  im  Speicher  abgelegt  wurden,  direkt  als  Maschinen-, 
Programm  auf  Diskette  speichern  und  später  auch  wieder  laden 
können. 

Wenn  Sie  am  Ende  des  Buches  alle  Programme  abgetippt  haben, 
können  Sie  sich  die  einzelnen  Routinen  auch  als  ein  Gesamtpro- 
gramm abspeichern.  Alle  Routinen  sind  nämlich  so  codiert,  daß 
sie  "nahtlos"  aneinanderpassen  und  alle  zusammen  verwendet 
werden  können.  Als  Speicher  habe  ich  den  freien  RAM-Speicher 
ab  Speicherzelle  49.152  genommen.  Dieser  vier  KByte  große 
Speicherbereich  wird  von  BASIC  nicht  verwendet  und  eignet 
sich  daher  sehr  gut  zur  Ablage  von  Maschinenroutinen. 

Der  angegebene  Speicherbereich  gilt  natürlich  nur  für  die  BA- 
SIC-Lader. Wenn  Sie  die  Assemblerlistings  abtippen,  können  Sie 
sich  die  Programme  in  jeden  beliebigen  Speicherbereich  "assem- 
blieren"  lassen.  Dazu  müssen  Sie  nur  die  Startadresse  am  Anfang 
des  Listings  entsprechend  ändern. 

Um  Komplikationen  bei  der  Eingabe  der  Assemblerprogramme 
zu  vermeiden,  habe  ich  die  Listings,  was  die  Verwendung  von 
Labels  und  Steueranweisungen  betrifft,  bewußt  sehr  "schlicht" 
gehalten.  Auch  wenn  Ihnen  nur  ein  sogenanntes  Monitorpro- 
gramm (darunter  versteht  man  eine  Kombination  aus  einem 
meist  sehr  einfach  gebauten  Assembler  und  einem  Diassembler) 
zur  Verfügung  steht,  sollten  Sie  die  Programme  problemlos  ver- 
arbeiten können. 
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Noch  ein  Wort  zu  den  BASIC-Ladern:  Gerade  beim  Eintippen 
langer  Zahlenkolonnen,  wie  sie  in  den  DATA-Zeilen  stehen, 
vertippt  man  sich  nur  zu  leicht.  Aus  diesem  Grund  steht  am 
Ende  jeder  Zeile  eine  sog.  "Prüfsumme,  die  die  Summe  der  in 
dieser  Zeile  stehenden  DATA -Werte  darstellt.  Beim  Einlesen  der 
DATAs  wird  nun  kontrolliert,  ob  die  auf  addierten  Werte  mit  der 
Prüfsumme  übereinstimmen.  Falls  nicht,  bricht  das  Programm 
mit  einer  entsprechenden  Fehlermeldung  ab.  Da  die  Fehlermel- 
dung die  Nummer  der  fehlerhaften  Zeile  enthält,  müssen  Sie  je- 
weils immer  nur  zehn  DATA-Werte  (soviele  stehen  in  einer  Pro- 
grammzeile) auf  Tippfehler  überprüfen.  Anschließend  starten  Sie 
das  Programm  neu.  Doch  genug  der  Vorrede,  schauen  wir  uns 
die  ersten  beiden  Assembler-Routinen  an. 

^ QQ  ■ ******************************************************* 

105  ;*  * 

110  ;*  programm:  dsavem  * 

120  ;*  speichert  einen  beliebigen  Speicherbereich  * 

130  ;*  auf  disk  ab  * 

140  ;*  * 

150  • ******************************************************* 

160  ;*  * 

170  ;*  aufruf:  sys  49489, pr$,ba,be  * 

175  ;*  pr$:  name  des  Programms  * 

180  ;*  ba:  blockanfang  * 

185  ;*  be:  blockende  * 

190  ;*  * 

^ 95  • ******************************************************* 

200  ; 

205  ; 

210  .ba  49489  ;***  startadresse  *** 

220  ; 

230  ; 

240  a ***  l abe l s ******************************************** 

250  .gl  zpl  = 251  ; Zwischenspeicher 

260  .gl  zp2  = 252 


270  ; 

280  ; 

290  ;*** 

Parameter  einiesen 

******************************** 

300 

jsr  Saefd 

;auf  komma  testen 

310 

jsr  $ad9e 

;f i le-namen 

320 

jsr  Sb6a3 

;holen 

330 

jsr  Sffbd 

;und  setzen 

340 

Idx  #8 

; f l oppy- geraet eadresse 

350 

jsr  Sffba 

; setzen 

360 

jsr  Saefd 

;auf  komma  testen 

370 

jsr  $ad8a 

; blockanfang  holen 

380 

jsr  Sb7f7 

.-nach  integer  wandeln 
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390 

Ida  $14 

;wert  »speichern 

400 

sta  zpl 

410 

Ida  $15 

420 

sta  zp2 

430 

jsr  $aefd 

;auf  komma  testen 

440 

jsr  $ad8a 

;blockende  holen 

450 

jsr  $b7f7 

;nach  integer  wandeln 

460 

sec 

; bl ockende>=blockanf ang? 

470 

Ida  $15 

;high -Bytes 

480 

sbc  zp2 

490 

beq  dsl 

500 

bcs  ds2 

510 

jmp  $b248 

,-nein,  dann  'illegal  quantity1 

520  dsl 

sec 

530 

Ida  $14 

; low- Bytes 

540 

sbc  zpl 

550 

bcs  ds2 

560 

jmp  $b248 

;nein,  dann  'illegal  quantity' 

570  ds2 

Idx  $14 

.-blockende  un  1 erhoehen 

580 

Idy  $15 

590 

inx 

600 

bne  ds3 

610 

iny 

620  ds3 

Ida  #zp1 

; zeiger  auf  blockanfang 

630  ; 

640  ;*** 

save*  rout i ne  ************************************** 

650 

stx  Sae 

; blockende  speichern 

660 

sty  $af 

670 

tax 

;zeiger  auf  blockanfang 

680 

Ida  $00, x 

.-blockanfang  umspeichern 

690 

sta  $c1 

700 

Ida  $01 ,x 

710 

sta  $c2 

720 

Ida  #$61 

; secundaeradresse  1 

730 

sta  $b9 

740 

Idy  $b7 

,-laenge  des  file-namens 

750 

bne  ds4 

760 

jmp  $f710 

;'missing  filename  error' 

770  ds4 

jsr  $f3d5 

;file-namen  senden 

780 

jsr  $f68f 

; ' savi ng ' ausgeben 

790 

Ida  $ba 

; geraeteadresse 

800 

jsr  $ed0c 

; listen  senden 

810 

Ida  $b9 

; secundaeradresse 

820 

jsr  $edb9 

;fuer  listen  senden 

830 

Idy  #0 

840 

jsr  $fb8e 

.-blockanfang  nach  $ac/ad 

850 

Ida  $ac 

.-blockanfang  (low) 

860 

jsr  $eddd 

; senden 

870 

Ida  $ad 

;(high) 

880 

jsr  $eddd 

; senden 

890  ds5 

jsr  ds8 

.-blockende  erreicht? 

900 

bcs  ds7 

;ja,  dann  fertig 

910 

sei 

;auf  ram  »schalten 
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920 

Ida  #53 

930 

sta  $01 

940 

Ida  ($ac),y 

;prograam-Byte 

950 

pha 

; zwi schenspei ehern 

960 

Ida  #55 

;auf  rom  zurueckschalten 

970 

sta  $01 

980 

cli 

990 

pla 

;programm-Byte  zurueckholen 

1000 

jsr  $eddd 

;und  senden 

1010 

jsr  $ffe1 

; stop- taste  pruefen 

1020 

bne  ds6 

;nicht  gedrueckt,  dann  weiter 

1030 

jmp  $f633 

;zur  original-routine 

1040  ds6 

jsr  $fcdb 

;aktuelle  adresse  erhoehen 

1050 

bne  ds5 

;<>0,  dann  weiter 

1060  ds7 

jsr  $f63f 

;zur  original-routine 

1070 

bcc  dsfr 

;kein  fehler 

1080 

jmp  $e104 

;zur  fehlerauswertung 

1090  dsfr 

rts 

; fertig! 

1100  ;*  endadresse  erreicht? 

* 

1110  ds8 

Ida  $af 

; endadresse  (high) 

1120 

bne  ds9 

1130 

Ida  $ae 

; low 

1140 

bne  ds9 

1150 

clc 

1160 

rts 

;endadresse=0,  dam  fertig 

1170  ds9 

jmp  $fcd1 

;zur  original-routine 

Und  das  ganze  als  BASIC-Lader: 

100  rem  **************************************************** 

105  rem  * * 

110  rem  * programm:  dsavem  * 

120  rem  * programnlaenge:  187  bytes  * 

130  rem  * speichert  einen  beliebigen  Speicherbereich  * 

140  rem  * auf  disk  ab  * 

150  rem  * * 

205  rem  * * 

210  rem  * auf ruf:  sys  49489, pr$,ba,be  * 

220  rem  * pr$:  name  des  Programms  * 

230  rem  * ba:  blockanfang  * 

240  rem  * be:  blockende  * 

265  rem  * * 

270  rem  **************************************************** 

280  : 

290  : 

400  rem  ***  datas  einiesen  *** 

410  restore:zl=1000 

420  ad=49489 : rem  startadresse  der  routine 
430  ps=0:z=0 

440  read  wt:if  wt=-1  then  print  "datas  ok!":end 
450  poke  ad,wt:ad=ad+1 :z=z+1 
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460  ps=ps+wt:rem  pruef summe 

470  if  z<10  then  440: rem  eine  zeile  lesen 

480  read  wt 

485  if  psout  then  print  "date-fehler  in  zeile";zl;M!":end 
490  zl*z 1+10: goto  430 
500  : 

510  : 

990  rem  ***  datas  *** 

1000  data  32,253,174,32,158,173,32,163,182,32,1231 
1010  data  189,255,162,8,32,186,255,32,253,174,1546 
1020  data  32,138,173,32,247,183,165,20,133,251,1374 
1030  data  165,21,133,252,32,253,174,32,138,173,1373 
1040  data  32,247,183,56,165,21,229,252,240,5,1430 
1050  data  176,13,76,72,178,56,165,20,229,251,1236 
1060  data  176,3,76,72,178,166,20,164,21,232,1108 
1070  data  208,1,200,169,251,134,174,132,175,170,1614 
1080  data  181,0,133,193,181,1,133,194,169,97,1282 
1090  data  133,185,164,183,208,3,76,16,247,32,1247 
1100  data  213,243,32,143,246,165,186,32,12,237,1509 
1110  data  165,185,32,185,237,160,0,32,142,251,1389 
1120  data  165,172,32,221,237,165,173,32,221,237,1655 
1130  data  32,255,193,176,30,120,169,53,133,1,1162 
1140  data  177,172,72,169,55,133,1,88,104,32,1003 
1150  data  221,237,32,225,255,208,3,76,51,246,1554 
1160  data  32,219,252,208,221,32,63,246,144,3,1420 
1170  data  76,4,225,96,165,175,208,6,165,174,1294 
1180  data  208,2,24,96,76,209,252.0,0,0.867 
2000  data  -1:rem  endmark ierung 

1 Q0  . ******************************************************* 

105  ' * 

110  ;*  Programm:  dloadm  * 

120  ;*  laedt  einen  beliebigen  Speicherbereich  * 

130  ;*  von  disk  in  den  rechner  * 

140  ;*  * 

150  . ******************************************************* 

160  ;*  * 

170  ;*  auf ruf:  sys  49676, pr$,ba  * 

175  ;*  pr$:  name  des  Programms  * 

180  ;*  ba:  blockanfang  * 

190  ;*  * 

y 95  . ******************************************************* 
200  ; 

205  ; 

210  .ba  49676  ;***  Startadresse  *** 

220  ; 

230  ; 

240  a ***  l abe l s ******************************************** 
250  .gl  zpl  = 251  /Zwischenspeicher 

260  .gl  zp2  = 252 
270  ; 

280  ; 

290  •***  parameter  einiesen  ******************************** 
300  Ida  #0  ;flag  fuer 
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310 

sta  $0a 

;load 

320 

jsr  Saefd 

;auf  kam»  testen 

330 

j$r  $ad9e 

;f i le-namen 

340 

jsr  $b6a3 

; holen 

350 

jsr  $ffbd 

;und  setzen 

360 

Idx  #8 

; f l oppy- geraet eadresse 

370 

Idy  #0 

; secundaeradresse 

380 

jsr  Sffba 

; setzen 

390 

jsr  $aefd 

;auf  komma  testen 

400 

jsr  $ad8a 

;blockanfang  holen 

410 

jsr  $b7f7 

;nach  integer  wandeln 

420 

Idx  $14 

; blockanfang 

430 

440 

445  ;*** 

Idy  $15 
Ida  $0a 

1 oad- rout i na  ************************************** 

450 

jsr  $ffd5 

;load-routine  auf rufen 

460 

bcc  dl 1 

;kein  fehler 

470 

jmp  $e104 

;zur  fehlerauswertung 

480  dl 1 

Ida  $0a 

; l oad- f lag 

490 

jsr  $ffb7 

;status  holen 

500 

and  #$bf 

;eof-bit  töeschen 

510 

beq  dl2 

;kein  fehler 

520 

Idx  #$1d 

;nummer  fuer  'load  error1 

530 

jmp  $a437 

;fehlermeldung  ausgeben 

540  dl2 

rts 

.•fertig! 

Und  der  BASIC-Lader: 

100  rem  **************************************************** 
105  rem  * * 

110  rem  * Programm:  dloadn  * 

120  rem  * programmlaenge:  61  bytes  * 

130  rem  * laedt  einen  beliebigen  Speicherbereich  * 

140  rem  * von  disk  in  den  rechner  * 

150  rem  * * 

200  rem  **************************************************** 
205  rem  * * 

210  rem  * auf ruf:  sys  49676 ,pr$, ba.be  * 

220  rem  * pr$:  name  des  Programms  * 

230  rem  * ba:  blockanfang  * 

265  rem  * * 

270  rem  **************************************************** 
280  : 

290  : 

400  rem  ***  datas  einiesen  *** 

410  restore:zl=1000 

420  ad=49676:rem  startadresse  der  routine 
430  ps=0:z=0 

440  read  ut:if  wt=-1  then  print  "datas  ok!":end 

450  poke  ad,wt:ad=ad+1 :z=z+1 

460  ps=ps+wt : rem  pruefsume 

470  if  z<10  then  440:rem  eine  Zeile  lesen 
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480  read  wt 

485  if  psowt  then  print  "data-fehler  in  zeileM;zl;"l":end 
490  zlszl+10:goto  430 
500  : 

510  : 

990  rem  ***  datas  *** 

1000  data  169,0,133,10,32,253,174,32,158,173,1134 
1010  data  32,163,182,32,189,255,162,8,160,0,1183 
1020  data  32,186,255,32,253,174,32,138,173,32,1307 
1030  data  247,183,166,20,164.21,165.10,32,213,1221 
1040  data  255,144.3,76,4.225,165,10,32,183,1097 
1050  data  255,41,191,240,5,162,29,76,55,164,1218 
1060  data  96,0,0,0,0,0,0,0,0,0,96 
2000  data  -1:rem  endmark ierung 

Diese  beiden  Routinen  erlauben  es  Ihnen,  beliebige  Speicherbe- 
reiche auf  Diskette  abzuspeichern  bzw.  zu  laden.  Das  Besondere 
bei  DSAVEM  ist  dabei,  daß  sich  der  gesamte  RAM-Speicher 
ansprechen  läßt,  also  auch  die  RAM-Bereiche  "unter"  dem  BA- 
SIC- und  Kernel-ROM!  Wenn  Sie  also  zum  Beispiel  unter  dem 
BASIC-ROM  eine  hochauflösende  Grafik  abgelegt  haben,  so 
können  Sie  diese  mit  DSAVEM  problemlos  auf  Diskette  sichern. 
Auch  DLOADM  weist  eine  Besonderheit  auf:  Im  Gegensatz  zum 
bekannten  "LOAD  "NAME",8,P  werden  bei  DLOADM  die  BA- 
SlC-Zeiger  nicht  verändert.  Der  gefürchtete  OUT  OF  MEMORY 
ERROR  nach  dem  Einladen  eines  Maschinenprogramms  tritt  da- 
her bei  DLOADM  nicht  auf. 

Wenn  Sie  die  BASIC-Lader  der  Programme  abgetippt  haben, 
dann  habe  ich  gleich  eine  praktische  Anwendung  für  DSAVEM. 
Wie  ich  schon  erwähnt  habe,  ist  es  recht  mühsam  immer  wieder 
den  BASIC-Lader  zu  laden  und  das  Maschinenprogramm  in  den 
Speicher  poken  zu  lassen.  Deshalb  werde  ich  Ihnen  jetzt  zeigen, 
wie  Sie  die  Programme  direkt  auf  Diskette  bekommen.  Als  Vor- 
bereitung starten  Sie  bitte  nun  den  BASIC-Lader  von  DSAVEM, 
damit  sich  das  Programm  im  Speicher  befindet.  Wir  werden  es 
nämlich  gleich  benötigen.  Danach  gehen  Sie  wie  folgt  vor: 

Im  Kopfbereich  jedes  BASIC-Laders  finden  Sie  unter  anderem 
die  Startadresse  der  Routine  (hinter  dem  SYS-Befehl)  sowie  ihre 
Länge.  DSAVEM  beispielsweise  beginnt  bei  Adresse  49.489  und 
hat  eine  Länge  von  187  Bytes.  Diese  beiden  Werte  sind  schon 
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ie  brauchen.  Bitte  geben  Sie  einfach  die  folgende 
leich  im  Direktmodus)  ein: 

,J,  "DSAVEM" , 49489, 49489+1 87- 1 

Das  ist  schon  alles.  Die  Routine  DSAVEM  wird  nun  unter  dem 
Namen  "DSAVEM"  auf  Diskette  gespeichert.  Um  das  Programm 
später  wieder  einzuladen,  verwenden  Sie  DLOADM: 

SYS  49676, "DSAVEM", 49489 

Voraussetzung  dafür  ist  natürlich,  daß  Sie  zuvor  DLOADM  in 
den  Speicher  geholt  haben!  Dazu  müssen  Sie  notgedrungen  auf 
das  gewohnte  "LOAD  "DLOADM", 8,1"  zurückgreifen  und  an- 
schließend mit  NEW  die  BASIC-Zeiger  zurücksetzen. 

Das  ist  ein  Fehler,  der  einem  leicht  passiert.  Man  ruft  von  einem 
BASIC-Programm  aus  eine  Maschinensprache -Routine  auf  und 
hat  vergessen,  diese  zuvor  in  den  Speicher  zu  laden.  In  den  mei- 
sten Fällen  hat  dies  einen  Systemabsturz  zur  Folge,  da  in  den 
entsprechenden  Speicherzellen  irgendwelche  Undefinierten  Werte 
stehen.  Um  das  zu  vermeiden,  sollte  man  alle  benötigten  Routi- 
nen immer  ganz  am  Anfang  eines  BASIC-Programms  einladen 
lassen. 

Der  eben  vorgestellte  Weg,  ein  durch  einen  BASIC-Lader  in  den 
Speicher  gepoketes  Maschinenprogramm  auf  Diskette  abzuspei- 
chern, gilt  für  alle  in  diesem  Buch  vorgestellten  Routinen: 

SYS  49489,"NAME",Startadresse,Startadresse+Länge-1 

Für  NAME,  Startadresse  und  Länge  setzen  Sie  jeweils  die  im 
Kopf  des  BASIC-Laders  angegebenen  Werte  ein.  Aber,  wie  ge- 
sagt, bitte  vergessen  Sie  nicht,  zuvor  DSAVEM  in  den  Rechner 
zu  laden! 

Die  nächsten  beiden  Routinen  sind  nicht  weniger  interessant  als 
DSAVEM  und  DLOADM. 
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J 00  . ******************************************************* 

105  ;*  * 

110  ;*  progranm:  transfer  * 

120  ;*  verschiebt  beliebige  Speicherbereiche  * 

130  ;*  * 

150  ;*  * 

160  ;*  aufruf:  sys  49152^,1)6^,  kn  * 

165  ;*  ba:  blockanfang  (quelle)  * 

170  ;*  be:  blockende  (quelle)  * 

175  ;*  na:  blockanfang  (ziel)  * 

180  ;*  kn:  speicherart  * 

185  ;*  (1=zeichengeneratorf  3-ram,  5=ro«)  * 

190  ;*  * 

200  ; 

205  ; 

210  .ba  49152  ;***  startadresse  *** 

220  ; 

230  ; 

240  .***  L abe l s ******************************************** 

245  .gl  zpl  = 251  ; Zwischenspeicher 

250  .gl  zp2  = 252 

255  .gl  zp3  = 253 

260  .gl  zp4  =254 

270  ; 

280  ; 

320  ;***  parameter  einiesen  ******************************** 


330 

jsr  Saefd 

;auf  komma  testen 

340 

jsr  Sad8a 

;blockanfartg  holen 

350 

jsr  $b7f7 

;nach  integer  wandeln 

360 

Ida  $14 

;wert  umspeichern 

370 

sta  zpl 

380 

Ida  $15 

390 

sta  zp2 

400 

jsr  $aefd 

;auf  komna  testen 

410 

jsr  $ad8a 

;blockende  holen 

420 

jsr  $b7f7 

;nach  integer  wandeln 

430 

sec 

; blockende  >=  blockanfang? 

440 

Ida  $15 

;high-Bytes 

450 

sbc  zp2 

460 

beq  tri 

470 

bcs  tr2 

480 

jmp  $b248 

;nein,  dann  'illegal  quantity1 

490  tri 

sec 

500 

Ida  $14 

; low- Bytes 

510 

sbc  zpl 

520 

bcs  tr2 

530 

jmp  $b248 

;nein,  dann  'illegal  quantity' 

540  tr2 

Idy  $14 

;blockende  um  1 erhoehen  ... 

550 

Idx  $15 

560 

iny 

; low- Byte 

570 

bne  tr3 

;<>0,  dann  fertig 
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580 

inx 

;high-Byte 

590  tr3 

sty 

zp3 

und  Zwischenspeichern 

600 

stx 

zp4 

610 

jsr 

$aefd 

;auf  komma  testen 

620 

jsr 

$ad8a 

/neuen  blockanfang  holen 

630 

jsr 

$b7f7 

/nach  integer  wandeln 

640 

pha 

/auf  stack  Zwischenspeichern 

650 

tya 

660 

pha 

670 

jsr 

Saefd 

/auf  komma  testen 

680 

jsr 

$b79e 

/speicherart-Flag  holen 

690 

cpx 

#1 

;=1? 

700 

beq 

tr4 

710 

cpx 

#3 

/=3? 

720 

beq 

tr4 

730 

cpx 

#5 

;=5? 

740 

beq 

tr4 

750 

jmp 

$b248 

/nein,  dann  'illegal  quantity' 

760  ; 

770  ;*** 

Parameter  setzen 

********************************** 

780  tr4 

pla 

/neuer  blockanfang 

790 

sta 

$58 

800 

pla 

810 

sta 

$59 

820 

Ida 

zpl 

/alter  blockanfang 

830 

sta 

$5f 

840 

Ida 

zp2 

850 

sta 

$60 

860 

Ida 

zp3 

/altes  blockende 

870 

sta 

$5a 

880 

Ida 

zp4 

890 

sta 

$5b 

900 

txa 

/speicherart-Flag 

910 

clc 

920 

ade 

«50 

930 

sei 

/interrupt  sperren 

940 

sta 

$01 

/Speicherkonfiguration  setzen 

950  ; 

960  ;*** 

transfer- 

- rout i ne 

********************************** 

970 

sec 

/blockanfang  ermitteln 

980 

Ida 

$5a 

990 

sbc 

$5f 

1000 

sta 

$22 

1010 

Ida 

$5b 

1020 

sbc 

$60 

1030 

sta 

$23 

1040 

sec 

/anfangsadresse  vergleichen 

1050 

Ida 

$60 

/high-Bytes 

1060 

sbc 

$59 

1070 

beq 

tr5 

1080 

bcs 

tr6 

1090 

jmp 

tri  1 

1100  tr5 

sec 
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1110 

Ida  $5f 

; low- Bytes 

1120 

sbc  $58 

1130 

beq  tri 1 

1140 

bcs  tr6 

1150 

jmp  trll 

1160  ;*  neuer 

blockanfang  <= 

altem,  daher  von  der  * 

1170  ;*  anfangsadresse  an  umspeichern  * 

1180  tr6 

Idy  «0 

1190 

Idx  $23 

;anzahl  der  pages 

1200 

beq  tr8 

; keine  ganze  page  vorhanden 

1210  tr7 

Ida  ($5f ),y 

;ein  byte  verschieben 

1220 

sta  ($58), y 

1230 

iny 

1240 

bne  tr7 

;naechstes  byte 

1250 

inc  $60 

1260 

inc  $59 

1270 

dex 

;pagezaehler 

1280 

bne  tr7 

;naechste  page 

1290  tr8 

Idx  $22 

;laenge  der  restpage 

1300 

beq  trIO 

;=0,  dann  fertig 

1310  tr9 

Ida  ($5f ),y 

;ein  byte  verschieben 

1320 

sta  ($58), y 

1330 

iny 

1340 

dex 

;restzaehler 

1350 

bne  tr9 

;naechstes  byte 

1360  trIO 

Ida  #$37 

;alte  Speicherkonfiguration 

1370 

sta  $01 

;wiederherstellen 

1380 

cli 

; interrupt  freigeben 

1390 

rts 

.■fertig! 

1400  ;*  neuer 

blockanfang  > 

altem,  daher  von  der  * 

1410  ;*  endadresse  an  umspeichern  * 

1420  tri  1 

Ida  $23 

; zeiger  auf  letzte 

1430 

clc 

;quellpage  richten 

1440 

ade  $60 

1450 

sta  $60 

1460 

Ida  $23 

1470 

clc 

1480 

ade  $59 

1490 

sta  $59 

1500 

Idy  $22 

;restlaenge 

1510 

beq  tr13 

;kein  rest  vorhanden 

1520  tr12 

dey 

1530 

Ida  ($5f),y 

;ein  byte  verschieben 

1540 

sta  ($58), y 

1550 

cpy  #0 

;rest  umgespeichert? 

1560 

bne  tr12 

;nein 

1570  tr13 

Idx  $23 

;anzahl  pages 

1580 

beq  tr16 

;=0,  dann  fertig 

1590  tr14 

dec  $60 

1600 

dec  $59 

1610  tr15 

dey 

1620 

Ida  ($5f),y 

;ein  byte  verschieben 

1630 

sta  ($58), y 
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1640 

cpy  #0 

;rest  umgespeichert? 

1650 

bne  tr15 

;nein 

1660 

dex 

1670 

bne  tr14 

;naechste  page 

1680  tr16 

Ida  «37 

;alte  Speicherkonfiguration 

1690 

sta  $01 

;wiederherstellen 

1700 

cli 

Interrupt  freigeben 

1710 

rts 

;fertigl 

Der  BASIC-Lader: 


**••***•*•***•••***•*•****•*•••••••*•**********•••** 

* * 
* programm:  transfer  * 

rem  * programmlaenge:  250  bytes 
rem  * verschiebt  beliebige  Speicherbereiche 


rem 

rem 

rem 


rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 


* 
* 
* 

**************************************************** 
* * 

* 
* 


100 
105 
110 
120 
130 
135 
200 
205 
210 
220 
230 
240 
250 
260 
265 
270 
280  : 

290  : 

400  rem  ***  datas  einiesen  *** 

410  restore:zl=1000 

420  ad=49152:rem  Startadresse  der  routine 
430  ps=0:z=0 


auf  ruf:  sys  49152,ba,be,na,kn 
ba:  blockanfang  (quelle) 
blockende  (quelle) 
blockanfang  (ziel) 
speicherart 

( 1 =zei chengenerator , 3=ram,  5=rom) 


be: 

na: 

kn: 


**************************************************** 


440  read  wt:if  wt=-1  then  print  "datas  ok!":end 

450  poke  ad, wt : ad=ad+ 1 : z=z+ 1 

460  ps=ps+wt:rem  pruefsunme 

470  if  z<10  then  440:rem  eine  zeile  lesen 

480  read  wt 

485  if  psowt  then  print  "data-fehler  in  zeile";zl;"!":end 
490  zl=zl+10:goto  430 
500  : 

510  : 


990  rem  ***  datas  *** 

1000  data  32,253,174,32,138,173,32,247,183,165,1429 
1010  data  20,133,251,165,21,133,252,32,253,174,1434 
1020  data  32,138,173,32,247,183,56,165,21,229,1276 
1030  data  252,240,5,176,13,76,72,178,56,165,1233 
1040  data  20,229,251,176,3.76,72,178.164,20.1189 
1050  data  166,21,200,208,1,232,132,253,134,254,1601 
1060  data  32,253,174,32,138,173,32,247,183,72,1336 
1070  data  152,72,32,253,174,32,158,183,224,1,1281 
1080  data  240,11,224,3,240,7,224.5,240,3,1197 
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1090  data  76,72.178,104,133,88,104,133,89,165,1142 
1100  data  251,133,95,165,252,133,96,165,253,133,1676 
1110  data  90,165,254,133,91,138,24,105,50,120,1170 
1120  data  133,1,56,165,90,229,95,133,34,165,1101 
1130  data  91,229,96,133,35,56,165,96,229,89,1219 
1140  data  240,5,176,15,76,197,192,56,165,95,1217 
1150  data  229,88,240,43,176,3,76,197,192,160.1404 
1160  data  0,166,35,240,14,177,95,145,88,200,1160 
1170  data  208,249,230,96,230,89,202,208,242,166,1920 
1180  data  34.240,8,177.95,145,88.200,202,208,1397 
1190  data  248,169,55,133,1,88,96,165,35,24,1014 
1200  data  101,96,133,96,165,35,24,101,89,133,973 
1210  data  89,164,34,240,9,136,177,95,145,88,1177 
1220  data  192,0,208,247,166,35,240,16,198,96,1398 
1230  data  198,89,136,177,95,145,88,192,0,208,1328 
1240  data  247,202,208,240,169,55,133,1,88,96,1439 
2000  data  -1:rem  endmarkierung 
1 00  a ******************************************************* 
105  ;*  * 

110  ;*  Programm:  myfill  * 

120  ;*'fuellt  beliebige  Speicherbereiche  mit  einem  wert  * 
130  ;*  * 

140  ******************************************************** 
150  ;*  * 

160  ;*  aufruf:  sys  49402, ba,be,wt  * 

170  ;*  ba:  blockanfang  * 

175  ;*  be:  blockende  * 

180  ;*  wt:  fuellwert  (0-255)  * 

190  ;*  * 

1 93  ■ ******************************************************* 
200  ; 

205  ; 

210  .ba  49402  ;***  Startadresse  *** 

220  ; 

230  ; 

240  • ***  [ sbe l s ******************************************** 

250  .gl  zpl  = 251  ; Zwischenspeicher 

260  .gl  zp2  = 252 
270  ; 

280  ; 

320  •***  parameter  einiesen  ******************************** 


330 

jsr  $aefd 

;auf  konina  testen 

340 

jsr  $ad8a 

;blockanfang  holen 

350 

jsr  $b7f7 

;nach  integer  wandeln 

360 

Ida  $14 

;wert  umspeichern 

370 

sta  zpl 

380 

Ida  $15 

390 

sta  zp2 

400 

jsr  $aefd 

;auf  komma  testen 

410 

jsr  $ad8a 

;blockende  holen 

420 

jsr  $b7f7 

;nach  integer  wandeln 

430 

sec 

;blockende  >=  blockanfang 

440 

Ida  $15 

;high-Bytes 
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450 

sbc  zp2 

460 

beq  mfl 

470 

bcs  mf2 

480 

jnip  $b248 

;nein,  dann  'illegal  quantity' 

490  mf 1 

sec 

500 

Ida  $14 

;low-Bytes 

510 

sbc  zpl 

520 

bcs  mf2 

530 

jmp  $b248 

;nein,  dann  'illegal  quantity' 

540  mf2 

jsr  $aefd 

;auf  komma  testen 

550 

jsr  $b79e 

;fuellwert  holen 

560 

stx  zw 

Zwischenspeichern 

570  ; 

580  •***  fuell-routine  ************************************* 

590 

Idy  «0 

600  mf3 

Ida  zw 

; fuellwert 

610 

sta  (zp1),y 

; abspei ehern 

620 

Ida  $15 

;endadresse  erreicht? 

630 

cmp  zp2 

640 

beq  mf4 

650 

jmp  mf5 

660  mf4 

Ida  $14 

670 

cmp  zpl 

680 

bne  mf5 

690 

rts 

;ja,  dann  fertigt 

700  mf5 

inc  zpl 

710 

bne  mf6 

720 

inc  zp2 

730  mf6 

jmp  mf3 

;nein,  dann  weiter 

Der  BASIC-Lader: 

100  rem  **************************************************** 

105  rem  * 

* 

110  rem  * 

Programm:  myfill 

* 

120  rem  * 

programmlaenge:  87  bytes 

130  rem  * 

fuellt  beliebige  Speicherbereiche  mit  einem  wert  * 

140  rem  * 

* 

200  rem  **************************************************** 

205  rem  * 

* 

210  rem  * 

auf ruf:  sys  49402, 

ba,be,wt  * 

220  rem  * 

ba:  blockanfang 

* 

230  rem  * 

be:  blockende 

* 

240  rem  * 

wt:  fuellwert  (0-255)  * 

250  rem  * 

* 

270  rem  **************************************************** 


280  : 

290  : 

400  rem  ***  datas  einiesen  *** 

410  restore:zl=1000 

420  ad=49402:rem  Startadresse  der  routine 
430  ps=0:z=0 
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440  read  wt:if  ut=-1  then  print  "datas  ok!":end 

450  poke  ad,ut:ad=ad+1 :z=z+1 

460  ps=ps+wt : rem  pruef summe 

470  if  z<10  then  440:rem  eine  zeile  lesen 

480  read  wt 

485  if  ps<>wt  then  print  "data-fehler  in  zeile";zl;"!,,:end 
490  zl=zl+10:goto  430 
500  : 

510  : 

990  rem  ***  datas  *** 

1000  data  32,253,174,32,138,173,32,247,183,165,1429 
1010  data  20,133,251,165,21,133,252,32,253,174,1434 
1020  data  32,138,173,32,247,183,56,165,21,229,1276 
1030  data  252,240,5,176,13,76,72,178,56,165,1233 
1040  data  20,229,251,176,3,76,72,178,32,253,1290 
1050  data  174,32,158,183,134,2,160,0,165,2,1010 
1060  data  145,251,165,21,197,252,240,3,76,72,1422 
1070  data  193,165,20,197,251,208,1,96,230,251,1612 
1080  data  208,2,230,252,76,52,193,0,0,0,1013 
2000  data  -1:rem  endmarkierung 


Sicher  sind  Ihnen  beim  Durchlesen  oder  Abtippen  der  Listings 
schon  viele  Anwendungsmöglichkeiten  für  diese  beiden  Routinen 
eingefallen.  Mit  MYFILL  lassen  sich  beispielsweise  blitzschnell 
der  Grafikspeicher  oder  Teile  des  Bildschirms  löschen.  Mit 
TRANSFER  können  Sie  beliebige  Speicherbereiche  verschieben, 
wobei  sich  der  Quellbereich  und  der  Zielbereich  sogar  auch 
überlappen  dürfen.  Probieren  Sie  doch  einmal  TRANSFER 
1024,2023,1025,3.  Dadurch  wird  der  Inhalt  des  Textbildschirms 
um  eine  Stelle  nach  rechts  verschoben.  MYFILL  und  TRANS- 
FER werden  uns  später  bei  der  Grafikprogrammierung  eine 
große  Hilfe  sein.  Sie  sollten  die  beiden  Routinen  daher  unbe- 
dingt eintippen,  bevor  Sie  Kapitel  6 durcharbeiten. 

Haben  Sie  nicht  manchmal  auch  schon  gedacht,  daß  es  doch 
ganz  günstig  wäre,  wenn  man  die  Funktionstasten  des  Commo- 
dore  64  mit  häufig  benötigten  Befehlsnamen  belegen  könnte,  um 
sich  so  beim  Eingeben  von  BASIC-Programmen  etwas  Tipparbeit 
zu  ersparen?  Genau  dazu  dient  die  folgende  Routinensammlung. 

100  ******************************************************** 

105  ;*  * 

110  ;*  programm:  funkt  ionstasten  * 

120  ;*  routinen  zur  belegung  der  funkt  ionstasten  * 

130  ;*  mit  texten  * 
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140  ;* 

150  ;* 

160  ; 

170  ; 

180  ; 

190  .ba  50108 
200  ; 


;***  startadresse  *** 


210  AAAAAAAAAAAAAAAAAAAAAA1AAAAAAAAA 

230  .gl  zpl  = 251  .'Zwischenspeicher 

240  .gl  zp2  = 252 

250  .gl  zp3  = 253 

260  ; 

270  ; 

280  ;*  * 

285  ;*  dfkey  - tastentext  zuweisen  * 

290  ;*  * 

295  • ******************************************************* 
300  ;*  * 

305  ;*  aufruf:  sys  50108, (nr)=(txS)  * 

310  ;*  nr:  nummer  der  funkt ionstaste  (1-8)  * 

315  ;*  tx$:  zuweistext  (maximal  10  Zeichen)  * 

320  ;*  * 

325  • ******************************************************* 

330  ; 


340  dfkey 

jsr  $aefd 

;auf  komma  testen 

350 

jsr  $aefa 

;auf  'klammer  auf1  pruefen 

360 

jsr  $b79e 

; tastennummer  holen 

370 

jsr  $aef7 

;auf  'klammer  auf'  pruefen 

380 

txa 

; tastennummer  in  akku 

390 

bne  dfk2 

;<>0,  dann  weiter 

400  dfkl 

jnp  $b248 

; ' i l l ega l quantity'  anzeigen 

410  dfk2 

cmp  #9 

V 

00 

420 

bcs  dfkl 

;ja,  dann  fehler 

430 

dex 

440 

stx  zw 

;tastennr.  Zwischenspeichern 

450 

Ida  #$b2 

;auf  '='  testen 

460 

jsr  $aeff 

470 

jsr  Saefl 

;tastentext  in  klammern  holen 

480 

jsr  $b6a3 

;stringparaineter  holen 

490 

sta  zpl 

; st r i ng l aenge  zwi schenspei ehern 

500 

cmp  #11 

;>10? 

510 

bcc  dfk3 

;nein,  dann  weiter 

520 

jnp  $a571 

; 'string  too  long  ' anzeigen 

530  dfk3 

Ida  zw 

; tastennummer  *11 

540 

asl 

550 

asl 

560 

ade  zw 

570 

asl 

580 

ade  zu 

590 

clc 

;wert  zu  Speicheranfangsadresse 

600 

ade  #<(fkeysp) 

; addieren 
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610 

sta  zp2 

620 

Ida  «0 

630 

ade  #>(fkeysp) 

640 

sta  zp3 

650 

Idy  «0 

;ausgabetext  in  Speicher 

660 

Ida  zpl 

;stringlaenge»0? 

670 

bne  dfk4 

;nein 

680 

sta  (zp2),y 

;ja,  dann  '01  in  Speicher 

690 

rts 

;und  zurueck 

700  dfk4  Ida  ($22) ,y 

;zeichen  aus  string 

710 

sta  (zp2),y 

;in  Speicher  ab legen 

720 

iny 

;zaehler  erhoehen 

730 

cpy  zpl 

;stringlaenge  erreicht? 

740 

bne  dfk4 

;nein 

750 

Ida  «0 

;text  mit  null 

760 

sta  (zp2),y 

;abschli essen 

770 

rts 

;fertig! 

780 

790 

800 

***********************1 

****** 

805 

* 

* 

810 

•*  fkeylist  - aktuelle  belegungen  anzeigen 

* 

815 

* 

* 

820 

***********************1 

************************** 

****** 

825 

* 

* 

830 

* auf ruf:  sys  50196 

* 

835 

* 

* 

840 

****** 

845 

850  fkeylist  jsr  $aad7 

;cr  ausgeben 

860 

Ida  #<(fkeysp) 

;zeiger  auf  textspeicher 

870 

sta  zpl 

880 

Ida  #>(fkeysp) 

890 

sta  zp2 

900 

Idx  #1 

;tastennumicr 

910 

stx  zw 

; zwi schenspei ehern 

920  f kl 1 Ida  #"f“ 

; ■ f ■ ausgeben 

930 

jsr  $ffd2 

940 

Ida  #0 

;tastennr.  (high) 

950 

Idx  zw 

; low 

960 

jsr  Sbdcd 

; ausgeben 

970 

Ida 

; 1 : 1 ausgeben 

980 

jsr  $ffd2 

990 

Ida  “ 

;leerstelle  ausgeben 

1000 

jsr  Sffd2 

1010 

Idy  #0 

1020 

Ida  (zpl).y 

;kein  text  vorhanden? 

1030 

beq  fkl2 

;ja,  dann  ausgabe  ueberspringen 

1040 

Ida  zpl 

; zeiger  auf  textspeicher  (low) 

1050 

Idy  zp2 

;high 

1060 

jsr  Sable 

;text  ausgeben 

1070  fkl2  jsr  $aad7 

;cr  ausgeben 

1080 

Idx  zw 

; tastennunmer 
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1090 

inx 

;un  1 erhoehen 

1100 

cpx  #9 

;>8? 

1110 

*bcc  fkl3 

;nein,  dam  weiter 

1120 

rts 

; sonst  fertig! 

1130  fkl3 

stx  zw 

;tastennr.  Zwischenspeichern 

1140 

clc 

; zeiger  um  11  erhoehen 

1150 

Ida  zpl 

1160 

ade  #11 

1170 

sta  zpl 

1180 

Ida  zp2 

1190 

ade  #00 

1200 

sta  zp2 

1210 

jmp  f kl 1 

;naechsten  text  ausgeben 

1215  ; 

1220  ; 

1225  ■ ****************************************************** 
1230  ;*  * 

1235  ;*  fkeyon  - tastenbelegung  aktivieren  * 

1240  ;*  * 

1245  * ****************************************************** 
1250  ;*  * 

1255  ;*  auf ruf:  sys  50275  * 

1260  ;*  * 

1 265  * ****************************************************** 
1270  ; 

1290  fkeyon  Ida  #<(tastabfr)  ;neuen  vektor 


1300 

1310 

1320 

1330 

1340 

1350 

1355 

1360 

1365 

1370 

1375 

1380 


sta  655  ;setzen 

Ida  #>(tastabfr) 
sta  656 

rts  ; fertig! 

****************************************************** 
* * 

* fkeyoff  * tastenbelegung  desaktivieren  * 

* * 
.****************************************************** 


1385  ;*  aufruf:  sys  50286  * 
1390  ;*  * 
1 395  * ****************************************************** 
1400  ; 

;alten  vektor 
; setzen 


Ida  #«$eb48) 
sta  655 
Ida  #>(Seb48) 
sta  656 
rts 


1410  fkeyoff 
1420 
1430 
1440 
1450 
1455  ; 

1460  ; 

1465  • ****************************************************** 
1470  ;*  * 

1475  ;*  ausfuehrungsroutine  * 


; fertig! 
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1480  ;* 

* 

4 AftC  .**#*************************************************** 

1490  ; 

1495  tastabfr 

Ida  $9d 

;modus-Flag 

1500 

beq  ttl 

;prgmodus,  dann  fertig 

1510 

Idy  $cb 

;nunmer  der  gedrueckten  taste 

1520 

cpy  $c5 

;=  zuvor  gedrueckter  taste? 

1530 

beq  ttl 

;ja,  dann  fertig 

1540 

Ida  <*f5),y 

;asc-code  der  taste 

1550 

cmp  #137 

;>136? 

1560 

bcs  ttl 

;ja,  dann  keine  funkt  ionstaste 

1570 

cnp  #133 

; >=133? 

1580 

bcs  tt2 

;ja,  dann  funkt ionstaste 

1590  ttl 

jmp  $eb48 

;nein,  dann  fertig 

1600  tt2 

sbc  #133 

; zeiger  auf  textspeicher 

1610 

sta  zu 

; berechnen  (tastencode  * 22) 

1620 

asl 

1630 

asl 

1640 

ade  zw 

1650 

asl 

1660 

ade  zw 

1670 

asl 

1680 

Idx  $028d 

;flag  fuer  sondertasten 

1690 

cpx  #1 

;shift-taste  gedrueckt? 

1700 

bne  tt3 

;nein 

1710 

clc 

;ja,  dann  speicherzeiger  um  11 

1720 

ade  #11 

;erhoehen 

1730  tt3 

tax 

; zeiger  nach  x 

1740 

Ida  fkeysp, x 

; erstes  Zeichen  holen 

1750 

bne  tt4 

;<>0,  dann  weiter 

1760 

Idy  $cb 

;asc-code  der  gedrueckten  taste 

1770 

Ida  ($f5),y 

1780 

jmp  $eb48 

;zur  original-routine 

1790  tt4 

Idy  #0 

;zaehler  initialisieren 

1800  tt5 

Ida  fkeysp, x 

;text  holen 

1810 

beq  tt6 

;=0,  dann  fertig 

1820 

sta  $0277, y 

;in  tastaturpuffer  schreiben 

1830 

inx 

; zeiger  erhoehen 

1840 

iny 

1850 

jmp  tt5 

;naechstes  Zeichen 

1860  tt6 

sty  $c6 

; laenge  des  ausgabetextes 

1870 

Idx  #$ff 

;flag  1 tastaturcode  ungueltig1 

1880 

jmp  Seb26 

;zur  original-routine 

1890  ; 

1900  ;*  Speicher  fuer  fkey-strings  (laenge:  88  bytes)******* 

1910  fkeysp 

.by  0,0, 0,0,0, 

0. 0,0, 0,0,0,0,0,0, 0,0, 0,0,0, 0,0,1 

1920 

.by  0,0, 0,0,0, 

0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,1 

1930 

.by  0,0, 0,0,0, 

0,0, 0,0, 0,0,0, 0,0, 0,0, 0,0,0, 0,0,1 

1940 

.by  0,0, 0,0,0, 

0,0,0, 0,0,0,0,0,0,0, 0,0, 0,0, 0,0,1 
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Und  der  BASIC-Laden 

100  rem  **************************************************** 
105  rem  * * 

110  rem  * programm:  funkt ions tasten  * 

120  rem  * programmlaenge:  357  bytes  * 

130  rem  * routinen  zur  belegung  der  funktionstasten  * 

K0  rem  * mit  texten  * 

150  rem  * * 

165  rem  * * 

170  rem  * dfkey  - tastentext  zuweisen  * 

175  rem  * auf ruf:  sys  50108, (nr)=(tx$)  * 

180  rem  * nr:  nurnmer  der  funktionstaste  (1-8)  * 

185  rem  * tx$:  zuweistext  (maximal  10  Zeichen)  * 

190  rem  * * 

1 95  rem  **************************************************** 

200  rem  * * 

205  rem  * fkeylist  - aktuelle  belegungen  anzeigen  * 

210  rem  * auf  ruf:  sys  50196  * 

215  rem  * * 

225  rem  * * 

230  rem  * fkeyon  - tastenbelegung  aktivieren  * 

235  rem  * auf ruf:  sys  50275  * 

240  rem  * * 

245  rem  **************************************************** 

250  rem  * * 

255  rem  * fkeyoff  - tastenbelegung  desaktivieren  * 

260  rem  * auf  ruf:  sys  50286  * 

265  rem  * * 

280  •em 
290  : 

400  rem  ***  datas  ei niesen  *** 

410  restore:zl=1000 

420  ad=50108:rem  Startadresse  der  routine 
430  ps=0:z=0 

440  read  wt:if  wt=-1  then  print  "datas  ok!":end 

450  poke  ad,wt:ad=ad+1:z=z+1 

460  ps=ps+wt : rem  pruef summe 

470  if  z<10  then  440: rem  eine  zeile  lesen 

480  read  wt 

485  if  psowt  then  print  "data-fehler  in  zeile";zl;,l!":end 
490  zl=zl+10:goto  430 
500  : 

510  : 

990  rem  ***  datas  *** 

1000  data  32,253,174,32,250,174,32,158,183,32,1320 
1010  data  247,174,138,208,3,76,72,178,201,9,1306 
1020  data  176,249,202,134,2,169,178,32,255,174,1571 
1030  data  32,241,174,32,163,182,133,251,201,11,1420 
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1040  data  144,3,76,113,165,165,2,10,10,101,789 
1050  data  2,10,101,2,24,105,201,133,252,169,999 
1060  data  0,105,196,133,253,160,0,165,251,208,1471 
1070  data  3,145,252,96,177,34,145,252,200,196,1500 
1080  data  251,208,247,169,0,145,252,96,32,215,1615 
1090  data  170,169,201,133,251,169,196,133,252,162,1836 
1100  data  1,134,2,169,70,32,210,255,169,0,1042 
1110  data  166,2,32,205,189,169,58,32,210,255,1318 
1120  data  169,32,32,210,255,160,0,177,251,240,1526 
1130  data  7,165,251.164.252,32,30,171,32,215,1319 
1140  data  170,166,2,232,224,9,144,1,96,134,1178 
1150  data  2,24,165,251,105,11,133,251,165,252,1359 
1160  data  105,0,133,252,76,35,196,169,121,141,1228 
1170  data  143,2,169,196,141, 144,2,96, 169,72,1134 
1180  data  141,143,2,169,235,141,144,2,96,165,1238 
1190  data  157,240,16,164,203,196,197,240,10,177,1600 
1200  data  245,201,137,176,4,201,133,176,3,76,1352 
1210  data  72,235,233,133,133,2,10,10,101,2,931 
1220  data  10,101,2,10,174,141,2,224,1,208,873 
1230  data  3,24,105,11,170,189,201,196,208,7,1114 
1240  data  164,203,177,245,76,72,235,160,0,189,1521 
1250  data  201,196,240,8,153,119,2,232,200,76,1427 
1260  data  181,196,132,198,162,255,76,38,235,0,1473 
1270  data  0,0,0,0,0,0, 0,0, 0,0,0 
1280  data  0,0,0, 0,0,0, 0, 0,0,0, 0 
1290  data  0,0,0, 0,0,0, 0, 0,0,0, 0 
1300  data  0,0, 0,0, 0,0, 0,0, 0,0,0 
1310  data  0,0, 0,0, 0,0, 0,0, 0,0,0 
1320  data  0,0, 0,0, 0,0,0, 0,0, 0,0 
1330  data  0,0,0, 0,0, 0,0,0, 0,0,0 
1340  data  0,0, 0,0, 0,0, 0,0, 0,0,0 
1350  data  0,0,0,0,0,0,0,0, 0,0,0 
2000  data  -1:rem  encknarkierung 


Da  man  die  Funktionstasten  manchmal  auch  noch  für  andere 
Zwecke  benötigt,  gibt  es  die  Möglichkeit,  die  Belegung  ein-  und 
auszuschalten.  Durch  SYS  50196  können  Sie  sich  einen  Überblick 
über  die  Belegung  aller  acht  Tasten  verschaffen.  Eine  Beispiel- 
belegung könnte  etwa  so  aussehen: 

Fl:  HST 
F2:  RUN 
F3:  INPUT 
F4:  PRINT 
F5:  GET 
F6:  GOTO 
F7:  GOSUB 
F8:  NEU 
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Noch  ein  kleiner  Trick:  Um  zu  erreichen,  daß  ein  Befehl  nicht 
nur  auf  den  Bildschirm  geschrieben,  sondern  gleich  ausgeführt 
wird,  hängen  Sie  hinten  einfach  ein  RETURN  (CHR$(13))  an: 

SYS  50108,(1)=(MLIST"+CHR*(13)) 

Wenn  Sie  jetzt  die  Funktionstaste  Fl  drücken,  wird  der  LIST- 
Befehl  sofort  ausgeführt. 


4.8  Ein  6510-Assembler 

Der  Assembler  ermöglicht  es  uns,  Maschinenprogramme  genauso 
wie  ein  BASIC-Programm  einzugeben.  Eine  Zeile  besteht  aus  der 
Zeilennummer,  dann  kann  eine  Marke  folgen.  Nun  kommt  der 
Assembler- Befehl  mit  dem  optionalen  Operand.  Damit  Sie  Ihre 
eigene  auch  später  noch  verstehen,  kann,  durch  ein  Semikolon 
getrennt,  ein  Kommentar  folgen,  der  vom  Assembler  nicht  be- 
achtet wird,  jedoch  im  Listing  mit  ausgegeben  wird  und  zu  Ihrer 
Information  dient.  Er  entspricht  also  dem  BASIC-Befehl  REM. 
Eine  komplette  Assembler- Zeile  kann  z.B.  so  aussehen: 

100  TEXT  LDA  *70, X ; STARTUERT  HOLEN 

Dieses  sogenannte  Quell-  oder  Source-Programm  muß  dann  mit 
der  Endung  .SRC  gespeichert  werden.  An  dieser  Endung  kann 
der  Assembler  erkennen,  daß  es  sich  um  eine  Quelldatei  handelt. 


Der  Editior 

Als  Editor  für  Quelltexte  soll  der  normale  BASIC-Editor  des 
C64  dienen.  Damit  dies  auch  einwandfrei  funktioniert,  laden 
und  starten  Sie  bitte  vorher  das  folgende  Programm  mit  RUN. 


PROGRAMM :STARTPRG 

100  FOR  I = 53100  TO  53191 

110  READ  X : POKE  I,X  : S = S + X : NEXT 

120  DATA  169,119,160,207,141,  2,  3,140,  3,  3,  96,  32 

130  DATA  96,165,134,122,132,123,  32,115,  0,170,240,243 

140  DATA  162,255,134,  58,144,  6,  32,121,165,  76,225,167 

150  DATA  32,107,169,160,  0,162,  0,189,  0,  2,232,201 

160  DATA  32,240,248,201,  48,144,  4,201,  58,144,240,153 
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170  DATA  0,  2,201,  0,240,  7,189,  0,  2,200,232,208 

180  DATA  242,200,200,200,200,200,  76,162,164,169,131,160 
190  DATA  164,141,  2,  3,140,  3,  3,  96 

200  IF  S < > 11096  THEN  PRINT  "FEHLER  IN  DATAS  II"  : END 

210  SYS  S3100  : PRINT  "OK" 

Ein  Beispiel: 

Geben  Sie  das  folgende  Programm  ein,  und  speichern  Sie  es  un- 
ter dem  Namen  TEST.SRC. 


100 

LDX  #0 

110  MARKE 

TXA 

120 

STA  $0400, X 

130 

LDA  #1 

140 

STA  $0800, X 

150 

INX 

160 

BNE  MARKE 

170 

RTS 

180 

.EN 

Laden  und  starten  Sie  nun  den  Assembler.  Auf  dem  Bildschirm 
sehen  Sie  dann: 


6510  -ASSEMBLER 

SOURCE- FILE-NAME  ? TEST  <-  Hier  geben  Sie  den  Dateinamen  an 
LISTING  J/N  ? J 

DRUCKER  J/N  ? N 


Nach  kurzer  Zeit  erscheint  PASS  1 und  dann  PASS  2 auf  dem 
Bildschirm.  Jetzt  fragt  der  Assembler,  ob  das  erzeugte  Maschi- 
nenprogramm auf  Diskette  gespeichert  werden  soll.  Antworten 
Sie  mit  J(Ja). 


Das  fertige  Programm  liegt  nun  auf  der  Diskette  unter  dem  Na- 
men TEST.OBJ  und  im  Speicher  ab  der  Adresse  $C000  (49152) 
vor.  Überzeugen  Sie  sich,  indem  Sie 

SYS  49152 


eingeben.  Doch  nun  noch  ein  paar  Besonderheiten  des  As- 
semblers: 
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.BY  Danach  muß  ein  Wert  im  Bereich  von  0 bis  255  folgen. 
Dabei  können  Sie  außer  Konstanten  natürlich  auch  Sym- 
bole angeben,  deren  Wert  jedoch  nicht  größer  255  sein 
darf. 


.BY  100 
.BY  $7F 
.BY  CR 


Bei  diesem  Befehl  gibt  es  noch  eine  zusätzliche  Option.  Oft  ist 
es  nämlich  erforderlich,  einen  16-Bit-Wert  in  zwei  8-Bit-Werte 
zu  zerlegen.  Dazu  gibt  es  die  Operatoren  > und  <.  Das  Größer- 
zeichen kennzeichnet  dabei  das  High-Byte  (Bit  7 bis  15),  wärend 
das  Kleinerzeichen  für  das  Low-Byte  steht  (Bit  0-7).  Dazu  fol- 
gendes Beispiel: 

100  CONST  = SAB3F 
110  .BY  »CONST 
120  .BY  >CONST 

Dieser  Programmabschnitt  legt  die  Werte  $3F  und  $AB  nach- 
einander im  Programm  ab.  Die  unmittelbare  Adressierung  erfolgt 
über  das  Zeichen  #. 

130  LDA  #<CONST 
HO  LDX  #> CONST 


Zur  Zeropage-Adressierung  wird  das  Zeichen  * benutzt. 

100  START  = $B0 
110  LDA  *START 


Doch  nun  das  Listing  des  Assemblers. 

PROGRAMM: ASSEMBLER 

100  REM  6510  ASSEMBLER  LE 

110  PRINT  CHR$  (147):  PRINT  : PRINT  : PRINT  ,''6510  - ASSEMBLER": 

PRINT  : DG  = 8 

120  INPUT  "SOURCE-FILE-NAME  ";SN$ 

130  IF  RIGHTS  <SN$,4)  = ".SRC"  THEN  SN$  = LEFTS  (SN$,  LEN  (SN$)  - 4) 
140  DDS  = "0":  REM  DRIVENUMMER 

150  INPUT  "LISTING<  2 SPACE>J/N<  5 SPACE>";A$:  IF  A$  < > "J"  THEN  PM 

= 1:  GOTO  190 

160  PF  = 4:  PG  = 3 
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170  IMPUT  "DRUCKER<  2 SPACE>J/N<  5 SPACE>";AS:  IF  A$  = "J"  THEM  PG  - 

4 

180  OPEN  PF,PG 

190  GOSUB  5000 

200  A = 0:  AD  « 49152:  PRINT  : PRINT  : PA  = A 

210  PRINT  "PASS  1":  GOSUB  4000:  PRINT  "PASS  2":  FF%  = 0:  FEX  = 0 

220  OPS  ■ DOS  ♦ ":  " + SNS  + ".SRC" 

230  OPEN  8,DG,0,0P$ 

240  GET  #8,AS,AS:  REM  STARTAORESSE 

250  IF  PN  > 1 THEN  PRINT  CHRS  (145),, ZNS 

260  FX  - 0:  IF  AD  > 65535  THEN  PRINT  : PRINT  : PRINT 

"BERE I CHSUEBERSCHRE I TUNG I " : GOTO  1000 

270  A = AD:  GOSUB  3240:  PRS  = AS  + "<  2 SPACE>":  GOSUB  2000:  IF 

LEFTS  (XS,3)  = ".EN"  THEN  1000 

280  XXS  = LEFTS  (XS,1):  IF  XXS  = “*"  THEN  PRS  = '•<  16  SPACE>":  LNS  = 

"<  5 SPACE>" 

290  IF  XXS  = OR  XXS  = "»»  OR  XXS  = “="  THEN  GOSUB  2900:  GOTO  380 

300  ON  LMX  GOTO  320 

310  SA  = OF  + AD:  PA  = AD:  LMX  * 1 

320  XXS  = LEFTS  (X$,3):  FOR  J = 0 TO  NNX:  IF  XXS  = MN$(J)  THEN  350 

330  NEXT 

340  FLS( 1 ) = "A":  AX  = 1:  FX  = 1:  GOSUB  1520:  GOTO  370 

350  GOSUB  2400:  FX  =0:  IF  TX  = 5 AND  TX(J,9)  > 0 THEN  TX  = 9:  REM 

RELATIV 

360  ON  TX  + 1 GOSUB 

500,600,600,600,600,800,800,800,500,900,600,600,800 
370  POKE  OF  + AD,A 

380  AD  = AD  + AX:  IF  LEFTS  (XS,2)  = "*="  THEN  400 

390  LX  - AD 

400  REM  ************  AUSGABE 

410  IF  FX  = 0 THEN  IF  FLS<0)  = " " AND  FLS(1)  = >•  " AND  FL$(2)  = " " 
THEN  430 

420  BSX  = BSX  + 1 
430  ON  PM  GOTO  250 

440  YS  = LEFTS  (YS  + "<  11  SPACE>",11):  FOR  I = 1 TO  3:  PRINT# 

PF,FLS(I);:  NEXT 

450  PRINT#  PF,PR$ZNSLNS"<  2 SPACE>"  LEFTS  (XS  + »<  4 SPACE>",6)YS“ 

nput 

460  GOTO  250 

500  REM  EIN-BYTE-BEFEHLE 

510  AX  « 1:  A = TX(J,TX):  IF  A < 0 THEN  FLS<2)  = "A":  GOTO  1510 

520  GOSUB  3240:  PRS  = PRS  + RIGHTS  (AS,2)  * "<  8 SPACE>":  RETURN 

600  REM  ZWEI -BYTE-BEFEHLE 

610  A = T%(J,TX):  IF  A < 0 THEN  FL$<2)  = "A":  GOTO  1500 

620  GOSUB  3240:  PRS  = PRS  «•  RIGHTS  (AS, 2) 

630  YYS  = YAS:  IF  LEFTS  (YYS,1)  = ,l#"  THEN  YYS  = MIDS  (YYS,2) 

640  IF  LEFTS  (YYS,1)  ="*"  THEN  YYS  = MIDS  (YYS,2) 

650  AX  = 2:  IF  LEFTS  (YY$,1)  = ">»  OR  LEFTS  (YYS,1)  = "<"  THEN  YYS  = 
MIDS  (YYS, 2) 

660  AS  = LEFTS  (YYS.1):  IF  AS  = "$"  OR  AS  > “/"  AND  AS  < ":  " THEN  AS 

= YYS:  GOTO  690 

670  SLS  = YYS:  GOSUB  4500 

680  AS  * "$■'  + HES 
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690  GOSUB  3100 

700  IF  LEFT*  (YA$,2)  = "#>"  THEN  A = INT  (A  / HI) 

710  IF  LEFT*  (YA*,2)  * "#<“  THEN  A = A - INT  (A  / HI)  * HI 

720  IF  A > LO  THEN  FLS(2)  = “O":  F%  = 1:  A = 0 

730  GOSUB  3240:  POKE  OF  + AD  + 1,ALX:  PR*  = PR$  ♦ " " ♦ RIGHT*  ("00" 

+ A*,2)  + "<  5 SPACE>" 

740  A = TX(J.TX):  RETURN 

800  REM  DREI-BYTE-BEFEHLE 
810  AX  = 3 
820  A = TX( J,TX) 

830  GOSUB  3240:  PR*  - PR*  + RIGHT*  (AS, 2) 

840  A*  = LEFT*  <YA*,1):  IF  A*  = "*"  OR  A*  > "/"  AND  A*  < ":  " THEN  A* 

= YA*:  GOTO  870 

850  SL*  = YA*:  GOSUB  4500 

860  A*  - "*"  + HE* 

870  GOSUB  3100:  GOSUB  3240:  PR*  = PR*  + » » + RIGHT*  ("00"  + AS, 2)  + 

" " + LEFT*  (A*,2)  «■  »<  2 SPACE>» 

880  POKE  OF  + AD  + 1.ALX:  POKE  OF  + AD  + 2.AHX 

890  A = TX(J,TX):  RETURN 
900  REM  RELATIV 
910  AX  = 2 

920  A = TX( J,TX):  GOSUB  3240:  PR*  = PR*  + RIGHT*  (A*,2) 

930  AS  = LEFT*  (Y*,1):  IF  A*  = »*"  OR  A*  > "/»  AND  A$  < »:  " THEN  A* 

= Y$:  GOTO  960 

940  SL*  = Yt:  GOSUB  4500 

950  A*  = »*"  + HE* 

960  GOSUB  3100:  IF  FL*(2)  = "U"  THEN  A = AD  + 2 

970  DF  = A - (AD  + 2):  IF  DF  < - 128  OR  DF  > 127  THEN  FL*(3)  = "R": 

FX  = 1:  DF  = 0 

980  A = DF  AND  LO:  GOSUB  3240 

990  PR*  = PR*  + » » + RIGHT*  (AS, 2)  + "<  5 SPACE>":  POKE  OF  + AD  + 

1 ,A:  A = TX( J,TX) : RETURN 

1000  PR*  = "<  15  SPACE>":  IF  FX  = 0 THEN  1020 

1010  BSX  = BSX  + 1 

1020  IF  AE  < AD  + OF  THEN  AE  = AD  + OF 
1030  ON  PM  GOTO  1060 

1040  FOR  I = 0 TO  3:  PRINT#  PF, FL*( I ); : NEXT 

1050  PRINT#  PF,PR*ZN*LN*"<  2 SPACE»"  LEFT*  (X*  + "<  4 SPACE>»,6)Y*" 
"RM$ 

1060  CLOSE  8:  INPUT  "AUFZEICHNUNG«  2 SPACE>J/N<  6 SPACE>";A$:  IFA* 

< > "J"  THEN  1130 

1070  A*  = DD*  + ":  " + SN*  + ".OBJ" 

1080  AX  = LEN  (AS):  POKE  183, AX:  POKE  187,351  AND  LO:  POKE  188,351 

/ HI 

1090  FOR  I = 1 TO  AX:  POKE  350  + I,  ASC  ( MID*  (A$,D):  NEXT  : REM 

FI  LE -NAME 

1100  A = SA:  GOSUB  3240:  POKE  251.ALX:  POKE  252, AHX:  REM 

STARTADRESSE 

1110  A = AE:  GOSUB  3240:  POKE  781, ALX:  POKE  782, AHX:  REM 

ENDADRESSE 

1120  POKE  780,251:  SYS  65496:  REM  SAVE 

1130  A = PA:  GOSUB  3240:  PA*  = AS:  A = AD:  GOSUB  3240:  AD*  = AS:  A = 

AD  - PA:  GOSUB  3240 
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1140  BAS  = AS:  ON  PH  GOTO  1180 

1150  PRINT#  PF:  PRINT#  PF, PAS"  / "ADS"  / "BAS 

1160  PRINT#  PF, "SOURCEFILE  IST  "SNS  + ".SRC" 

1170  PRINT#  PF.BSX"  FEHLER":  PRINT#  PF 

1180  INPUT  "SYMBOLTABELLE  J/N  ";ZS:  IF  ZS  < > "J"  THEN  1400 

1190  MX  = 2:  IF  PG  - 4 THEN  PRINT#  PF,  CHRS  (12):  MX  = 5 

1200  INPUT  «SORTIERT«  2 SPACE>J/N  ";ZS:  IF  ZS  = "J"  THEN  1300 

1210  ON  PM  GOTO  1220 

1220  MX  = 0:  PS  = "":  FOR  I = LLX  TO  ULX 

1230  IF  LBS(I)  = "<  5 SPACE>"  THEN  1290 

1240  PS  = PS  + LBS(I)  + "<  2 SPACE>"  ♦ HES(I)  + "<  5 SPACE>":  MX  = MX 
1 

1250  IF  MX  < > MX  THEN  1290 
1260  ON  PM  GOTO  1280 
1270  PRINT#  PF, PS 

1280  PS  = "":  MX  = 0:  IF  I > = ULX  THEN  1400 

1290  NEXT  I:  IF  PS  < > ""  THEN  1260 

1300  HIS  = CHRS  (127)  + CHRS  (127)  + CHRS  (127)  + CHRS  (127)  + 

CHRS  (127):  FX  = 0:  REM  SORT 

1310  MX  = 0:  SLS  = HIS:  FOR  I = LLX  TO  ULX:  IF  LB$(I)  = "<  5 SPACE>" 

THEN  1340 

1320  IF  LB$( I ) < SLS  THEN  SLS  = LB$(I):  MX  = I + 1 
1330  ULX  = I 

1340  NEXT  I:  IF  FX  < MX  THEN  1360 

1350  FX  =0:  IF  PM  = 0 THEN  PRINT#  PF 

1360  IF  MX  = 0 THEN  1400 
1370  ON  PM  GOTO  1390 

1380  PRINT#  PF,SLS"<  2 SPACE>"HE$(MX  - 1)"<  5 SPACE>"; 

1390  LBS(MX  - 1)  = "<  5 SPACE>":  FX  = FX  + 1:  GOTO  1310 

1400  REM 

1410  IF  PG  = 4 THEN  PRINT#  PF,  CHRS  (12) 

1420  CLOSE  PF:  END 

1500  POKE  OF  + AD  + 2,0:  REM  NOP-FUELLER 

1510  POKE  OF  + AD  + 1,0 

1520  A = 0:  PRS  = PRS  + NPS(AX):  RETURN 

1600  IF  LEFTS  (LNS,1)  = "."  THEN  I * - 1:  RETURN 

1610  IF  MIDS  (LN$,4, 1 ) < > " » THEN  I = NNX  + 1:  RETURN 

1620  MNS  = LEFTS  (LNS,3):  REM  LABEL  = MNEMON1C  ? 

1630  FOR  I = 0 TO  NNX:  IF  MNS  < > MN$(I)  THEN  NEXT 

1640  RETURN 

2000  GET  #8,A$,BS:  IF  AS  + B$  = ""  THEN  2290:  REM  LINKADRESSE 

2010  GET  #8,Z1$,Z2S 

2020  ZN  = ASC  (Z1S  + CHRS  (0))  + HI  * ASC  (Z2S  + CHRS  (0)) 

2030  ZNS  = RIGHTS  ("<  3 SPACE>"  + STRS  (ZN), 5)  + " " 

2040  GOSUB  2300:  IF  FFX  THEN  RETURN 

2050  LNS  = XS  = YS  = »":  RMS  = XX  = 0 

2060  FOR  I = 0 TO  3:  FLS(I)  = " ":  NEXT  I:  IF  ZS  = "*"  THEN  2190 

2070  IF  ZS  = »;"  THEN  2280 
2080  REM  LABELNAME 

2090  IF  ZS  = " " OR  FFX  THEN  LNS  = LEFTS  (LNS  + "<  4 SPACE>",5): 
GOTO  2120 

2100  LNS  = LNS  + ZS:  IF  LEN  (LNS)  = 6 THEN  XX  = 1:  FL$(0)  = "L" 

2110  GOSUB  2300:  GOTO  2090 
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2120  GOSUB  1600:  IF  I < = NNX  THEN  X$  = LN$:  LN$  = ••<  5 SPACE>": 

GOTO  2200 

2130  XX  = ASC  (LNS):  IF  XX  < 65  OR  XX  > 90  THEN  FLS(O)  = "S" 

2140  REM  OPERATION 

2150  GOSUB  2300:  IF  FFX  THEN  RETURN 

2160  IF  2$  < > ■ " THEN  2190 

2170  GOTO  2150 

2180  GOSUB  2300:  IF  FFX  THEN  RETURN 

2190  IF  Z$  < > " " THEN  X$  = X$  + ZS:  GOTO  2180 

2200  IF  FFX  THEN  RETURN 

2210  IF  ZS  = THEN  2280 

2220  IF  ZS  < > " " THEN  2260:  REM  OPERAND 

2230  GOSUB  2300:  IF  FFX  THEN  RETURN 

2240  GOTO  2200 

2250  GOSUB  2300:  IF  FFX  THEN  RETURN 

2260  IF  ZS  < > « " THEN  YS  = YS  + ZS:  GOTO  2250 

2270  GOSUB  2300:  IF  FFX  THEN  RETURN  : REM  BEMERKUNG 

2280  RMS  = RMS  + ZS:  GOTO  2270 

2290  XS  = ».EN»:  RMS  = »END  ASSUMED“:  INS  = «<  6 SPACE>“:  YS  = ««:  ZNS 

= »<  6 SPACE>":  RETURN 

2300  GET  «8, ZS:  FFX  = ZS  = »«:  RETURN 

2400  REM  ADRESSIERUNGSART  ERMITTLEN 

2410  IF  YS  = »»  THEN  TX  = 8:  RETURN  : REM  IMPLIZIT 

2420  YAS  = YS:  IF  LEFTS  <YAS,1)  = »(»  THEN  YAS  = MIDS  (YA$,2) 

2430  IF  RIGHTS  (YAS,1)  = »)»  THEN  YAS  = LEFTS  (YAS,  LEN  (YAS)  - 1) 

2440  IF  RIGHTS  (YAS, 3)  = »),Y»  THEN  YAS  = LEFTS  (YAS,  LEN  (YAS)  - 3) 

2450  IF  RIGHTS  (YAS, 2)  = »,Y»  OR  RIGHTS  (YAS, 2)  = »,X»  THEN  YAS  = 

LEFTS  (YAS,  LEN  (YAS)  - 2) 

2460  ZS  = YS:  KS  = LEFTS  (YS,1) 

2470  IF  ZS  = “A"  THEN  TX  = 0:  RETURN  : REM  AKKU 

2480  IF  KS  = THEN  TX  * 1:  RETURN  : REM  IMMIDIATE 

2490  IF  KS  = »("  THEN  2600:  REM  INDIREKT 

2500  ZP  i KS  > »*»:  REM  ZEROPAGE 

2510  ZS  = MIDS  (YS,2  ♦ ZP) 

2520  IF  LEN  (ZS)  < 2 THEN  2550 

2530  KS  = MIDS  (ZS,  LEN  (ZS)  - 1,1) 

2540  IF  KS  = »,»  THEN  2570:  REM  INDIZIERT 

2550  TX  = 5 

2560  TX . = TX  ♦ 3 * ZP:  RETURN  : REM  ABSOLUT  BZW.  ZEROPAGE 

2570  KS  = RIGHTS  (ZS,1):  IF  KS  = "X"  THEN  TX  = 6:  GOTO  2560 

2580  IF  KS  = »Y»  THEN  TX  = 7:  GOTO  2560 

2590  TX  = - 1:  RETURN  : REM  SYNTAX  ERROR 

2600  KS  = RIGHTS  (ZS,1):  IF  KS  - »)»  THEN  2630 

2610  IF  RIGHTS  (ZS, 2)  < > »,Y»  THEN  2590 

2620  TX  = 11:  RETURN 

2630  IF  MIDS  (ZS,  LEN  (ZS)  - 2,2)  = ",X"  THEN  TX  = 10:  RETURN 

2640  TX  = 12:  RETURN 

2700  IF  XS  = »=»  THEN  2730:  REM  PSEUDO-OPS  PASS  1 

2710  IF  LEFTS  (XS,2)  = »*="  THEN  2780 

2720  AX  = 0:  RETURN 

2730  AX  = 0:  IF  YS  = »*■  THEN  RETURN 

2740  AX  z ASC  ( LEFTS  (LNS,1)):  IF  AX  < 65  OR  AX  > 90  THEN  RETURN 
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2750  AS  = LEFTS  (Y$,1):  IF  AS  < > »$"  AND  (AS  < "0"  OR  AS  > “9") 

THEN  RETURN 

2760  AS  = YS:  GOSUB  3100:  IF  FX  THEN  MLS(HCX)  = FL$(2):  RETURN 

2770  GOSUB  3240:  HES(HCX)  = RIGHTS  ("0000H  + AS, 4):  RETURN 
2780  AX  = 0:  Y1S  = LEFTS  (YS,1):  IF  Y1S  = "S“  OR  Y1S  > «/«  AND  Y1S  < 

":  " THEN  2800 
2790  RETURN 

2800  AS  = YS:  GOSUB  3100:  IF  FX  THEN  RETURN 

2810  HA  = A:  GOSUB  3240:  XX  = ASC  ( LEFTS  (LNS  + CHRS  <0),1>):  IF 

XX  > 64  AND  XX  < 91  THEN  HES(HCX)  = AS 
2820  RETURN 

2900  IF  XXS  = ,,="  THEN  2940:  REM  PSEUDO-OPS  PASS  2 
2910  IF  LEFTS  (XS,2)  = "*="  THEN  2990 
2920  FLS(1)  = "S" 

2930  AX  = 0:  FX  = 1:  PRS  = "<  16  SPACE>":  RETURN 

2940  AX  - 0 

2950  AS  = LEFTS  (YS,1) 

2960  IF  AS  < > AND  AS  < > "S"  AND  (AS  < "0"  OR  AS  > ••9")  THEN 
FLS<2)  = "S":  GOTO  2930 

2970  SLS  = LNS:  FX  = 0:  GOSUB  4500:  IF  FX  THEN  FL$(0)  = FL$(2): 

FLS<2)  = " ••:  GOTO  2930 

2980  PRS  = HES  + "<  12  SPACE>":  RETURN 

2990  AX  = 0:  Y1S  = LEFTS  <Y$,1):  IF  Y1S  = "S"  OR  Y1S  > "/“  AND  Y1S  < 
":  " THEN  3010 

2991  YZS  = LEFTS  <YS,1):  LHX  = YZS  = ">"  OR  YZS  = »>"  OR  YZS  = 

YAS  = MIDS  (Y$,1  - LHX) 

2992  YZS  = LEFTS  (YAS,1):  IF  YZS  = "S"  OR  YZS  > "/"  AND  YZS  < 

THEN  HES  = YAS:  GOTO  2994 

2993  SLS  = YAS:  FX  = 0:  GOSUB  4500:  HES  = "S"  + HES:  IF  FX  THEN 

FLS(O)  = FLS(2):  FLS<2)  = '•  “ 

2994  AS  = HES:  GOSUB  3100:  IF  A > LO  AND  LHX  = 0 THEN  A = 0:  FL$(1)  = 

IIQII 

2995  IF  LEFTS  <YS,1)  = ">"  THEN  A = INT  (A  / HI) 

2996  IF  LEFTS  <Y$,1)  = "<"  THEN  A = A - INT  (A  / HI)  * HI 

2998  POKE  AD,A:  AX  = 1:  GOSUB  3240:  PRS  = PRS  + RIGHTS  ("00"  + A$,2) 

♦ »<  6 SPACE»":  RETURN 

3000  FL$<2)  = "S":  FX  = 1:  GOTO  3030 

3010  AS  = YS:  GOSUB  3100:  IF  FX  THEN  3030 

3020  AD  = A:  GOSUB  3240:  PRS  = AS  + "<  2 SPACE»" 

3030  PRS  = PRS  ♦ »<  10  SPACE»":  RETURN 

3100  REM  WANDLUNG  HEX  -»  DEC  AS  -»  A 

3110  ZS  * LEFTS  (AS,1):  IF  ZS  = "$"  THEN  AS  = RIGHTS  (AS,  LEN  (AS)  - 

1):  GOTO  3150 

3120  IF  ZS  < "0"  OR  ZS  » "9"  THEN  FLS(2)  = "S":  FX  = 1:  RETURN 

3130  A = VAL  (AS):  IF  A > 65535  OR  A < 0 THEN  FLS(2)  = "0":  FX  = 1 
3140  RETURN 

3150  A = 0:  LX  = LEN  (AS):  IF  LX  > 4 THEN  FX  = 1:  FL$(2)  = "L": 

RETURN 

3200  FOR  I = 1 TO  LX:  AAX  = ASC  ( MIDS  (AS,I))  - 48 

3210  IF  AAX  < 0 OR  AAX  > 9 THEN  IF  AAX  < 17  OR  AAX  » 22  THEN  FX  = 1 : 

FLS(2)  = "S":  RETURN 

3220  IF  AAX  > 9 THEN  AAX  = AAX  - 7 

3230  A = A + AAX  * 16  ‘ (LX  - I):  NEXT  : RETURN 
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3240  AHX  = A / HI : ALX  = A - AHX  * Hl : AS  = AS(AHX  / 16)  + A$(AHX  AND 
15)  + A$(ALX  / 16)  + A$(ALX  AND  15) 

3250  RETURN 

4000  DIM  LBS(349),HES(349),MLS(349):  HA  = AD:  REM  ADRESSBUCH 

AUFBAUEN 

4010  FOR  I = 0 TO  349:  LBS(I)  = "<  5 SPACE>":  HE$(I)  = "0000":  MLS(I) 
= " »:  NEXT 

4020  OPS  = DDS  ♦ ":  " + SN$  + ".SRC" 

4030  OPEN  8,DG,0,OPS 

4040  GET  #8, AS, AS:  LLX  = 349 

4050  IF  ST  < >0  THEN  CLOSE  8:  END 

4060  GOSUB  2000:  PRINT  CHRS  (145), ZNS:  1F  LNS  = "»  OR  LEFTS 

(LNS.1)  = " " THEN  4210 

4070  XX  = ASC  ( LEFTS  (LNS,1)):  IF  XX  < 65  OR  XX  > 90  THEN  4210 

4080  GOSUB  4100:  GOTO  4130 

4090  LNS  = LEFTS  (LNS  + »<  4 SPACE>",5):  REM  HASH-COOE  BILDEN 

4100  HC  = 0:  FOR  I = 1 TO  5 

4110  HCX  = ASC  ( MIOS  (LNS, 1,1)):  HC  = HC  + (HCX  / 10  - INT  (HCX  / 
10))  * 10  ' (6  - I):  NEXT  I 

4120  HCX  = (HC  / 307  - INT  (HC  / 307))  * 300:  RETURN 

4130  A = HA:  GOSUB  3240 

4140  IF  LBS(HCX)  < > »<  5 SPACE>"  THEN  4180 

4150  LBS(HCX)  = LNS:  HES(HCX)  = AS:  IF  HCX  > ULX  THEN  ULX  = HCX 

4160  IF  HCX  < LLX  THEN  LLX  = HCX 

4170  GOTO  4210 

4180  IF  LBS(HCX)  = LNS  THEN  MLS(HCX)  = "M":  GOTO  4210 

4190  HCX  = HCX  + 1 : IF  HCX  < 350  THEN  4140 

4200  PRINT  "SYMBOLTABELLE  VOLL":  CLOSE  8:  END 

4210  IF  X$  = ".EN"  THEN  CLOSE  8:  RETURN 

4220  XXS  = LEFTS  (XS,1):  IF  XXS  = OR  XXS  = »*»  OR  XXS  = »="  THEN 
GOSUB  2700:  HA  = HA  ♦ AX:  GOTO  4060 

4230  FX  = 0:  XXS  = LEFTS  (X$,3):  FOR  J = 0 TO  NNX:  IF  XXS  < > 

MNS(J)  THEN  NEXT  : GOTO  4270 

4240  GOSUB  2400 

4250  IF  TX(J,TX)  > =0  THEN  4280 

4260  IF  T%  = 5 AND  TX(J,9)  > = 0 THEN  TX  - 9:  GOTO  4280 

4270  FX  = 1:  HA  = HA  + 1:  GOTO  4060 

4280  HA  = HA  + LX(TX):  GOTO  4060 

4500  REM  *********  LABEL  SUCHEN 

4510  XX  = ASC  ( LEFTS  (SLS,1)):  IF  XX  < 65  OR  XX  > 90  THEN  FLS(2)  = 

"S":  FX  = 1:  HES  = "0000":  RETURN 

4520  IF  LEN  (SLS)  > 5 THEN  FLS(2)  = "L" 

4530  SVS  * LNS:  LNS  = SLS:  GOSUB  4090:  SLS  = LNS:  LNS  = SVS 

4540  IF  LBS(HCX)  = "<  5 SPACE>»  OR  HCX  > ULX  THEN  FLS(2)  = "U":  FX  = 

1:  HES  = "0000":  RETURN 

4550  IF  LBS(HCX)  < > SLS  THEN  4580 

4560  HES  = HES(HCX):  IF  MLS(HCX)  < > " " THEN  FLS(2)  = MLS(HCX) 

4570  RETURN 

4580  HCX  = HCX  + 1 : GOTO  4540 

4590  Y1S  = "":  Y2S  = "":  1=1:  REM  ZERLEGEN  VON  YS  IN  Y1S  UND  Y2S 

4600  IF  MIDS  (YS, 1,1)  < > ","  THEN  Y1S  = Y1S  + MIDS  (YS,I,1) 

4610  IF  I > LEN  (YS)  THEN  FX  = 1:  RETURN 

4620  IF  MIDS  (YS,I,1)  < > ",»  THEN  1=1+1:  GOTO  4600 
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4630  I = I ♦ 1:  IF  I > LEN  (YS)  THEN  FX  - 1:  RETURN 

4640  Y2S  = Y2S  + MIDS  <YS,I,1):  IF  I = LEN  (Y$)  THEN  FX  * 0:  RETURN 

4650  I - I + 1 : GOTO  4640 

5000  READ  NNX:  HI  = 256:  LO  = 255 

5010  DIH  AS(15),MNS(NNX),TX(NNX, 12),LX(12),FLS(3),NPS(3) 

5020  FOR  I = 0 TO  15:  READ  AS(I):  NEXT 

5030  NPS(1)  * “00<  8 SPACE>":  NP$<2)  = "00  00<  5 SPACE>":  NP*(3)  = "00 
00  00<  2 SPACE >" 

5040  FOR  I - 0 TO  12:  READ  LX(I>:  NEXT 

5050  FOR  J = 0 TO  NNX:  READ  MNS(J):  FOR  JJ  = 0 TO  12:  READ  A$:  IF 

AS  = "-1"  THEN  A = - 1:  GOTO  5070 

5060  A * 0:  FOR  I = 1 TO  2:  X = ASC  ( RIGHTS  (AS,I))  - 48:  X = X ♦ <X 

> 9)  * 7:  A * A «•  X * 16  * (I  - 1):  NEXT 

5070  TX( J, JJ)  * A:  NEXT  : NEXT  : RETURN 

6000  DATA  55  : REN  ANZAHL  MNEMONICS 

6010  DATA  0,1, 2,3,4, 5,6,7,8,9,A,B,C,D,E,F 

6020  DATA  1 ,2,2,2,2,3,3,3,1 ,2, 2,2,3 

7000  DATA  ADC, -1,69,65, 75, -1,6D, 70,79,-1,-1,61, 71,-1 

7010  DATA  AND, -1,29,25, 35, -1,20,30,39,-1,-1, 21, 31,-1 

7020  DATA  ASL.OA, -1 ,06, 16, -1 ,0E, IE, -1,-1 , -1 , -1 , -1  ,-1 

7030  DATA  BCC, -1, -1,-1, -1,-1, -1,-1, -1,-1, 90, -1,-1 ,-1 

7040  DATA  BCS, -1, -1, -1,-1 ,-1,-1, -1,-1, -1, BO, -1,-1 ,-1 

7050  DATA  BEO, -1 , -1 , -1 , -1 , -1 ,-1 , -1 , -1 , -1 , FO, -1 , -1 , -1 

7060  DATA  BMI , -1 , -1 , -1 , -1 , -1 , -1 , -1 ,-1 , -1 ,30,-1 , -1 , -1 

7070  DATA  BIT, -1,-1, 24, -1,-1,2C, -1,-1, -1,-1 ,-1  ,-1,-1 

7080  DATA  BNE,-1,-1,-1 ,-1,-1, -1,-1, -1, -1. DO, -1 ,-1, -1 

7090  DATA  BPL, -1 ,-1 , -1 , -1 , -1 , -1 , -1 , -1 , -1 .10,-1 , -1 , -1 

7100  DATA  BRK.-1, -1, -1,-1, -1,-1, -1,-1, 00,-1, -1. -1,-1 

7110  DATA  BVC.-1, -1,-1, -1,-1, -1,-1, -1,-1, 50,-1, -1,-1 

7120  DATA  BVS.-1, -1,-1, -1,-1, -1,-1, -1,-1, 70,-1, -1,-1 

7130  DATA  CLC, -1,-1, -1,-1, -1,-1, -1,-1, 18,-1, -1, -1,-1 

7140  DATA  CLD,-1,-1,-1,-1,-1,-1,-1,-1,D8,-1,-1,-1,-1 

7150  DATA  CLI, -1,-1, -1,-1, -1,-1, -1,-1, 58,-1, -1, -1,-1 

7160  DATA  CLV,-1 , -1 , -1 ,-1 , -1,-1 , -1 ,-1 ,B8,-1 ,-1 ,-1 ,-1 

7170  DATA  CMP, -1 ,C9,C5,D5,-1,CD,DD,D9,-1 ,-1 ,C1 ,D1 , -1 

7180  DATA  CPX, -1, E0,E4, -1,-1, EC, -1, -1,-1, -1,-1, -1,-1 

7190  DATA  CPY, -1, CO, C4, -1 ,-1 ,CC,-1 , -1,-1, -1,-1, -1,-1 

7200  DATA  DEC, -1 , -1 ,C6,D6, -1 , CE, DE, -1,-1, -1,-1, -1,-1 

7210  DATA  DEX, -1,-1, -1,-1, -1,-1, -1,-1, CA, -1,-1, -1,-1 

7220  DATA  DEY,-1,-1 ,-1 ,-1,-1, -1,-1 ,-1, 88,-1, -1 ,-1  ,-1 

7230  DATA  EOR, -1 .49,45,55, -1 ,4D,5D, 59,-1 ,-1 .41 ,51 , -1 

7240  DATA  INC.-1 ,-1,E6,F6,-1, EE, FE, -1,-1, -1 ,-1,-1, -1 

7250  DATA  INX,-1,-1,-1,-1,-1,-1,-1,-1,E8, -1,-1, -1,-1 

7260  DATA  INY.-1 ,-1,-1, -1,-1, -1 ,-1 ,-1,C8,-1 ,-1, -1 ,-1 

7270  DATA  JNP.-1 ,-1,-1, -1,-1, 4C,-1 ,-1 ,-1,-1 ,-1 ,-1 ,6C 

7280  DATA  JSR.-1, -1,-1, -1,-1, 20,-1, -1,-1, -1,-1, -1,-1 

7290  DATA  LDA, -1 ,A9,A5,B5, -1,AD,B0,B9, -1 ,-1 ,A1 ,B1 , -1 

7300  DATA  LDX, -1,A2,A6,-1,B6,AE,-1, BE, -1, -1,-1, -1,-1 

7310  DATA  LDY, -1,A0, A4, B4,-1,AC,BC,-1,-1, -1,-1, -1,-1 

7320  DATA  LSR, 4A, -1,46, 56, -1.4E.5E, -1,-1, -1,-1, -1,-1 

7330  DATA  NOP, -1 , -1 , -1 ,-1,-1,-1,-1,-1,EA, -1,-1, -1,-1 

7340  DATA  ORA, -1,09,05, 15, -1,00, ID, 19,-1, -1,01, 11,-1 

7350  DATA  PHA.-1 ,-1 ,-1,-1, -1,-1, -1,-1, 48,-1, -1,-1, -1 


422 

Das  große  Commodore 

7360 

DATA 

PHP.-1,- 

.-1.-1.-1, -1,-1. -1,08, 

-1.-1,- 

7370 

DATA 

PLA.-1,- 

,-1. -1.-1, -1,-1. -1.68, 

-1.-1,- 

7380 

DATA 

PLP.-1,- 

.-1.-1, -1,-1, -1,-1. 28, 

-1.-1.- 

7390 

DATA 

ROL.2A,- 

,26,36, -1,2E,3E,-1,-1, 

-1.-1.- 

1#-1 

7400 

DATA 

ROR.6A,- 

,66,76, -1,6E,7E, -1,-1, 

-1.-1.- 

1,-1 

7410 

DATA 

RTI.-1,- 

,-1,-1, -1,-1, -1,-1, 40, 

-1.-1.- 

1,-1 

7420 

DATA 

RTS.-1,- 

.-1. -1.-1, -1,-1. -1.60, 

-1,-1.- 

1,-1 

7430 

DATA 

SBC. -1 ,E9,E5,F5,-1 ,ED, FD, F9, -1 , 

-1.E1.F 

1 , “ 1 

7440 

DATA 

SEC, -1 , - 

.-1, -1.-1. -1.-1. -1,38, 

-1,-1.- 

1,-1 

7450 

DATA 

SED , - 1 , - 

.-1.-1.-1.-1.-1.-1.F8, 

-1.-1.- 

1,-1 

7460 

DATA 

SEI.-1,- 

.-1,-1, -1,-1. -1.-1. 78. 

-1.-1.- 

7470 

DATA 

STA.-1,- 

,85,95,-1,80,90,99,-1. 

-1.81,9 

7480 

DATA 

STX.-1,- 

, 86,-1, 96, 8E,- 1,-1, -1, 

-1.-1.- 

7490 

DATA 

STY.-1,- 

,84,94,-1,8C,-1,-1,-1, 

-1.-1.- 

1,-1 

7500 

DATA 

TAX, -1 , - 

.-1.-1.-1.-1.-1.-1.AA, 

-1.-1.- 

1,-1 

7510 

DATA 

TAY.-1,- 

.-1.-1.-1.-1.-1.-1.A8, 

-1.-1.- 

1,-1 

7520 

DATA 

TSX.-1,- 

.-1.-1.-1.-1.-1.-1.BA, 

-1.-1.- 

1,-1 

7530 

DATA 

TXA.-1,- 

.-1.-1.-1.-1.-1.-1.8A, 

-1.-1.- 

1,-1 

7540 

DATA 

TXS, -1 , - 

,-1.-1. -1.-1, -1.-1.9A, 

-1.-1.- 

1,-1 

7550 

DATA 

TYA, -1 , - 

.-1,-1, -1,-1, -1,-1, 98, 

-1.-1.- 

1,-1 

4.9  Ein  Einzelschrittsimulator  für  den  6510 

In  diesem  Unterkapitel  finden  Sie  ein  Programm,  das  beim  Aus- 
testen Ihrer  Programme  - sowie  der  Fehlersuche  - sehr  nützlich 
sein  kann.  Dieses  Programm  simuliert  die  Arbeit  eines  6510- 
Prozessors.  Wenn  Sie  das  Programm  mit  RUN  starten,  erscheinen 
die  Register-Bezeichnungen  des  Prozessors  sowie  anschließend 
die  Inhalte  der  Register  auf  dem  Bildschirm: 

PC  AC  XR  YR  SR  SP  NV-BDIZC 
0000  00  00  00  00  00  00100000 


Die  Bedeutung  haben  Sie  sicherlich  schon  erkannt: 

PC  Programmzähler  (program  counter) 

AC  Akkumulator  (accu) 

XR  X-Register 
YR  Y- Register 
SR  Status-Register 
SP  Stapelzeiger  (stack  pointer) 

N Negative- Flag 
V Overflow- Flag 
B Break-Flag 
D Dezimal-Flag 
I Interrupt-Flag 
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Z Zero- Flag 
C Carry- Flag 

Die  oben  angegebenen  Werte  sind  die  Startwerte,  die  durch 
Drücken  einer  Taste  geändert  werden  können. 

Sie  können  durch  Drücken  der  folgenden  Tasten  die  Register- 
Inhalte  ändern. 

E Prograomzöhler 
A Accu 
X X-Register 
T Y-Register 
S Stack-Pointer 
N Negative- Flag 
V Overflow- Flag 
B Break-Flag 
D Dezimal -Flag 
I Interrupt- Flag 
Z Zero- Flag 
C Carry- Flag 

Die  wichtigste  Taste  jedoch  ist  die  Leertaste.  Betätigen  Sie  diese 
Taste,  so  wird  der  Maschinenbefehl  der  sich  gerade  im  Pro- 
grammzähler befindet  und  in  disassemblierter  Form  unterhalb 
der  Register  Zusehen  ist,  ausgeführt.  Danach  können  sich  auch 
die  Register-  und  Flag-Inhalte  ändern. 

Ein  Beispiel:  Benutzen  Sie  dazu  der  Einfachheit  halber  einen 
Programmabschnitt  aus  dem  Betriebssystem.  Dazu  setzen  Sie  den 
Progammzähler  auf  $A81D.  Sie  erhalten  dann  folgende  Anzeige: 

PC  AC  XR  YR  SR  SP  NV-BDIZC 

A81D  00  00  00  20  FF  00100000 

A81D  SEC 

Drücken  Sie  nun  die  Leertaste,  um  die  Ausführung  des  Befehls 
zu  simulieren,  so  erhalten  Sie: 

PC  AC  XR  YR  SR  SP  NV-BDIZC 

A81D  00  00  00  21  FF  00100001 


A81D 


LDA  $2B 
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Der  Befehl  wurde  also  ausgeführt,  das  Carry-Flag  ist  gesetzt. 
Der  Wert  des  Status-Registers  hat  sich  automatisch  auf  $21  mit- 
geändert. Der  Programmzähler  wurde  um  eins  auf  $A81E  wei- 
tergezählt. Dort  steht  nun  der  Ladebefehl.  Auch  diesen  können 
Sie  nun  durch  Drücken  der  Leertaste  ausführen  lassen. 

PC  AC  XR  YR  SR  SP  NV-BDIZC 

A820  01  00  00  21  FF  00100001 

A820  SBC  #$01 

Der  Akkumulator  wurde  also  mit  dem  Inhalt  der  Speicherstelle 
$2b  geladen,  die  den  Wert  1 enthielt.  Beachten  Sie  bitte  das  Z- 
und  N-Flag  gelöscht  bleiben.  Der  Programmzähler  steht  nun  auf 
$A820,  also  zwei  Bytes  weiter. 


An  dieser  Stelle  möchte  ich  die  Simulation  abbrechen.  Der  große 
Vorteil  dieses  Simulators  ist,  daß  Sie  genau  sehen,  was  bei  jedem 
Befehl  passiert.  Sie  können  vor  jeder  Ausführung  eines  Befehls 
willkürlich  Register-  und  Flag-Inhalte  ändern,  um  zu  sehen,  wie 
der  Prozessor  darauf  reagiert  und  nach  der  Ausführung  des  Be- 
fehls den  Programmzähler  wieder  auf  diesen  zurücksetzen,  um 
ihn  mit  geänderten  Register-  oder  Flag-Inhalten  noch  einmal 
ausführen  zu  lassen.  Hier  nun  das  Programm: 


PROGRAMM: SIMULATOR 

100  PRINT  "<CLR  HOMExCTRL  H><WHT><CRSR  DOWNx  6 SPACE>6510 
E I NZELSCHR I TT - S I MULATOR" 

110  PRINT  •■<  6 SPACE> 

120  PRINT  "<  4 SPACExCOMM  A><  4 SHIFT  *><COMM  R><  16  SHIFT  *><COMM 
R><  8 SHIFT  *><COMM  S> 

130  PRINT  "<  4 SPACExSHIFT  ->  PC  <SHIFT  ->  AC  XR  YR  SR  SP  <SHIFT  - 
>NV-BDIZC<SHI FT  ->" 

140  PRINT  "<  4 SPACExSHIFT  -><  4 SPACExSHIFT  -x  16  SPACExSHIFT  -x 
8 SPACExSHIFT  ->'• 

150  PRINT  "<  4 SPACExCOMM  Z><  4 SHIFT  *><C0MM  E><  16  SHIFT  *><COMM 
E><  8 SHIFT  *><COMM  X> 

160  FF  = 255:  HI  = 256:  UL  = 2 * 16:  SC  = 2 ‘ 15  - 1 : SP  = FF 
170  DIM  MN$(FF),OP(FF),AD(FF),SP(FF),H$(15) 

180  FOR  J = 0 TO  15:  READ  H$(J):  NEXT 

190  FOR  J = 0 TO  FF:  READ  MN$(J),OP( J),AD(J):  NEXT 

200  REM  REGISTER-ANZEIGE 

210  PRINT  "<H0ME><  5 CRSR  DOWNx  5 CRSR  RIGHT»"; 

215  IF  PC  > = UL  THEN  PC  = PC  - UL 

220  A = PC:  GOSUB  2290:  PRINT  "<  2 CRSR  RIGHT>"; 
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230 

A = AC: 

GOSUB  2320: 

PRINT 

"<CRSR 

RIGHT>"; 

240 

A = XR: 

GOSUB  2320: 

PRINT 

"<CRSR 

RIGHT>"; 

250 

A * YR: 

GOSUB  2320: 

PRINT 

"<CRSR 

RIGHT>M; 

255 

GOSUB  900:  REM  SR 

260 

A s SR: 

GOSUB  2320: 

PRINT 

"<CRSR 

RIGHT>M; 

270 

A = SP: 

GOSUB  2320: 

PRINT 

"<  2 CRSR  RIGHT>" 

280  PRINT  CHRS  (48  + N); 

290  PRINT  CHRS  (48  ♦ V); 

300  PRINT  "1"; 

310  PRINT  CHRS  (48  + B); 

320  PRINT  CHRS  (48  + D); 

330  PRINT  CHRS  (48  + I); 

340  PRINT  CHRS  (48  + Z>; 

350  PRINT  CHRS  (48  ♦ C) 

360  PRINT  "<  5 CRSR  DOUN><  19  SPACE><  18  CRSR  LEFT>"; 
400  GET  TS:  IF  TS  = 1111  THEN  400 


405 

IF 

TS 

= 

II  II 

THEN 

1100: 

REM  SIMULATION 

410 

IF 

TS 

= 

lipll 

THEN 

PRINT  »PC<  2 SPACE>"; : A 

= PC 

GOSUB 

2290: 

INPUT 

"< 

6 CRSR  LEFT>" 

AS: 

GOSUB  2380:  PC  - A: 

GOTO 

1000 

420 

IF 

TS 

S 

llAll 

THEN 

TS  = 

"AC" 

A = AC:  GOSUB 

540: 

AC  = 

A: 

GOTO  200 

430 

IF 

TS 

= 

"X" 

THEN 

TS  = 

"XR" 

A = XR:  GOSUB 

540: 

XR  = 

A: 

GOTO  200 

440 

IF 

TS 

= 

uyii 

THEN 

TS  = 

"YR" 

A = YR:  GOSUB 

540: 

YR  = 

A: 

GOTO  200 

450 

IF 

TS 

= 

iigu 

THEN 

TS  = 

"SP" 

A = SP:  GOSUB 

540: 

SP  = 

A: 

GOTO  200 

460 

IF 

TS 

= 

hNu 

THEN 

N = 1 

- N 

GOTO  200 

470 

IF 

TS 

= 

iiyn 

THEN 

V = 1 

- V 

GOTO  200 

480 

IF 

TS 

= 

iign 

THEN 

B = 1 

- B 

GOTO  200 

490 

IF 

TS 

= 

IIQII 

THEN 

D = 1 

- D 

GOTO  200 

500 

IF 

TS 

= 

ii  2 ii 

THEN 

I = 1 

- I 

GOTO  200 

510 

IF 

TS 

= 

ii^h 

THEN 

Z = 1 

- Z 

GOTO  200 

520 

IF 

TS 

= 

HC" 

THEN 

C = 1 

- C 

GOTO  200 

525 

IF 

TS 

= 

"<CRSR  DOUN>" 

THEN 

S = P:  E = P:  PC  = P 

GOTO 

1010 

527 

IF 

TS 

= 

"M" 

THEN 

3000 

528 

IF 

TS 

= 

llgll 

THEN 

3100 

530  GOTO  400 

540  PRINT  T$"<  2 SPACE>";:  GOSUB  2320:  INPUT  '•<  4 CRSR  LEFT>,,;AS: 

GOTO  2380 

900  SR  = N * 128  +V*64+32+B*16+D*8+  I *4+Z*2+C: 
RETURN 

910  N = SGN  (SR  AND  128):  V = SGN  (SR  AND  64):  B = SGN  (SR  AND  16): 
D = SGN  (SR  AND  8) 

920  I = SGN  (SR  AND  4):  Z = SGN  (SR  AND  2):  C = SR  AND  1 : RETURN 
980  N^  SGN  (AC  AND  128):  Z = 1 - SGN  (AC):  REM  FLAGS 
990  PC  = PC  + 1 + L 
1000  S = PC:  E = PC 

1010  PRINT  «<HOME><  8 CRSR  DOWN>":  GOSUB  2040:  GOTO  200 

1100  A = OP(  PEEK  (PC)):  L = 0:  IF  A = 0 THEN  990 

1110  ON  A GOTO 

1200, 1210,1220,1230,1240,1250, 1260,1270,1280,1290, 1300,1310,1320, 1330 
1115  A = A - 14 
1120  ON  A GOTO 

1340, 1350, 1360, 1370, 1380, 1390, 1400,1410, 1420,1430, 1440, 1450, 1460, 1470 
1125  A = A - 14 
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1130  ON  A GOTO 

1480,1490,1500,1510,1520,1530,1540,1550,1560,1570,1580,1590,1600,1610 
1135  A = A - 14 
1140  ON  A GOTO 

1620, 1630, 1640, 1650,1660, 1670, 1680, 1690, 1700,1710,1720,1730,1740,1750 
1150  GOTO  200 

1200  IF  D THEN  1205:  REM  ADC 

1201  GOSUB  1900:  V = 1 - SGN  (AC  AND  128):  AC  = AC  + OP  + C:  C = - 
(AC  > FF) 

1202  AC  = AC  AND  FF:  N = SGN  (AC  AND  128):  V = V AND  N:  GOTO  980 

1205  GOSUB  1900:  AC  = VAL  <H$(AC  / 16)  + H$(AC  AND  15)):  OP  = VAL 
(H$(OP  / 16)  + H$(OP  AND  15)) 

1206  AC  = AC  + OP  + C:  C = - (AC  > 99):  IF  AC  >99  THEN  AC  = AC  - 100 

1207  AS  = MIDS  ( STRS  (AC),2):  GOSUB  2390:  AC  = A:  GOTO  980 

1210  REM  AND 

1211  GOSUB  1900:  AC  = AC  AND  OP:  GOTO  980 

1220  REM  ASL 

1221  IF  AD(  PEEK  (PC))  = 4 THEN  AC  = AC  * 2:  C = - (AC  > FF):  AC  = AC 

AND  FF:  GOTO  980 

1222  GOSUB  1900:  A = OP  * 2:  C = - (A  > FF):  A = A AND  FF:  GOSUB 

1850 

1223  N = SGN  (OP  AND  FF):  Z = 1 - SGN  (OP):  GOTO  990 

1230  REM  BCC 

1231  FL  = 1 - C:  GOTO  1800 

1240  REM  BCS 

1241  FL  = C:  GOTO  1800 

1250  REM  BEQ 

1251  FL  = Z:  GOTO  1800 

1260  REM  BIT 

1261  GOSUB  1900:  N = SGN  (OP  AND  128):  V = SGN  (OP  AND  64):  Z = 1 - 

SGN  (OP  AND  AC):  GOTO  990 

1270  REM  BMI 

1271  FL  = N:  GOTO  1800 

1280  REM  BNE 

1281  FL  = 1 - Z:  GOTO  1800 

1290  REM  BPL 

1291  FL  = 1 - N:  GOTO  1800 

1300  REM  BRK 

1301  PC  = PC  + 2:  IF  PC  > = UL  THEN  PC  = PC  - UL 

1302  PH  = INT  (PC  / HI):  PL  = PC  - PH  * HI:  SP(SP)  = PH:  SP  = SP  - 1 
AND  FF:  SP(SP)  = PL:  SP  = SP  - 1 AND  FF 

1303  SP(SP)  * SR:  SP  * SP  - 1 AND  FF:  B = 1:  1=1:  GOSUB  900:  PC  = 


PEEK 

(UL  - 

2)  + HI  * PEEK  (UL  - 

1310 

REM 

BVC 

1311 

FL  = 

1 - V:  GOTO  1800 

1320 

REM 

BVS 

1321 

FL  = 

V:  GOTO  1800 

1330  REM  CLC 

1331  C = 0:  GOTO  990 

1340  REM  CLD 

1341  D = 0:  GOTO  990 

1350  REM  CLI 

1351  I = 0:  GOTO  990 
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1360  REN  CLV 

1361  V = 0:  GOTO  990 

1370  REN  CNP 

1371  GOSUB  1900:  * = AC  - OP 

1372  N = SGN  (A  AND  128):  2 = - (A  = 0):  C = - (A  > =0):  GOTO  990 

1380  REN  CPX 

1381  GOSUB  1900:  A = XR  - OP:  GOTO  1372 

1390  REN  CPY 

1391  GOSUB  1900:  A = YR  - OP:  GOTO  1372 

1400  REN  OEC 

1401  GOSUB  1900:  A = OP  - 1 AND  FF:  GOSUB  1850 

1402  GOTO  1442 

1410  REN  DEX 

1411  XR  s (XR  - 1)  AND  FF:  GOTO  1452 

1420  REN  DEY 

1421  YR  = (YR  - 1)  AND  FF:  GOTO  1462 

1430  REN  EOR 

1431  GOSUB  1900:  AC  = (AC  OR  OP)  AND  NOT  (AC  AND  OP) 

1432  GOTO  980 

1440  REH  INC 

1441  GOSUB  1900:  A = OP  + 1 AND  FF:  GOSUB  1850 

1442  N - SGN  (A  AND  128):  Z = 1 - SGN  (A):  GOTO  990 

1450  REN  INX 

1451  XR  = (XR  + 1 ) AND  FF 

1452  Z ■ 1 - SGN  (XR):  N = SGN  (XR  AND  128):  GOTO  990 

1460  REN  INY 

1461  YR  = (YR  + 1)  AND  FF 

1462  Z = 1 - SGN  (YR):  N = SGN  (YR  AND  128):  GOTO  990 

1470  REH  JHP 

1471  GOSUB  1900:  PC  = AD:  GOTO  1000 

1480  REN  JSR 

1481  A = PC  + 2:  PH  = INT  (A  / HI):  PL  = A - PH  * HI:  SP(SP)  = PH:  SP 
= SP  - 1 AND  FF:  SP(SP)  = PL:  SP  = SP  - 1 AND  FF 

1482  PC  = PEEK  (PC  + 1)  + PEEK  (PC  + 2)  * HI:  GOTO  1000 

1490  REM  LDA 

1491  GOSUB  1900:  AC  = OP:  GOTO  980 

1500  REM  LDX 

1501  GOSUB  1900:  XR  = OP:  GOTO  1452 

1510  REH  LDY 

1511  GOSUB  1900:  YR  = OP:  GOTO  1462 

1520  REM  LSR 

1521  IF  AD(  PEEK  (PC))  < > 4 THEN  1524 

1522  AC  = AC  / 2 

1523  C = - (AC  < > INT  (AC)):  AC  = AC  AND  FF:  GOTO  980 

1524  GOSUB  1900:  A = OP  / 2:  C = - (A  < > INT  (A)):  A = A AND  FF: 
GOSUB  1850 

1525  GOTO  1442 

1530  REM  NOP 

1531  GOTO  990 

1540  REM  ORA 

1541  GOSUB  1900:  AC  = AC  OR  OP:  GOTO  980 

1550  REM  PHA 

1551  SP(SP)  = AC:  SP  = SP  - 1 AND  FF:  GOTO  990 
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1560  REM  PHP 

1561  GOSUB  900:  SP(SP)  = SR:  SP  = SP  - 1 AND  FF:  GOTO  990 

1570  REM  PLA 

1571  SP  = (SP  + 1)  AND  FF:  AC  = SP(SP):  GOTO  980:  REM  FLAGS  SETZEN 

1580  REM  PLP 

1581  SP  = (SP  + 1)  AND  FF:  SR  = SP(SP):  GOSUB  910:  GOTO  990 

1590  REM  ROL 

1591  IF  AD(  PEEK  (PC))  = 4 THEN  AC  = AC  * 2 + C:  GOTO  1523 

1592  GOSUB  1900:  A = OP  * 2 + C:  C = - (A  > FF) 

1593  A = A AND  FF:  GOSUB  1850 

1594  GOSUB  1442 

1600  REM  ROR 

1601  IF  AD(  PEEK  (PC))  = 4 THEN  AC  = AC  / 2 + 128  * C:  GOTO  1523 

1602  GOSUB  1900:  A = OP  / 2 + 128  * C:  C = - (A  < > INT  (A)):  GOTO 

1593 

1610  REM  RTI 

1611  SP  = SP  + 1 AND  FF:  SR  = SP(SP):  GOSUB  910:  GOTO  1621 

1620  REM  RTS 

1621  SP  = SP  + 1 AND  FF:  A = SP(SP):  SP  = SP  + 1 AND  FF:  PC  = A + 

SP(SP)  * HI:  GOTO  990 

1630  IF  D THEN  1635:  REM  SBC 

1631  GOSUB  1900:  V = SGN  (AC  AND  128):  AC  = AC  - OP  - 1 + C:  C = - 

(AC  > = 0) 

1632  AC  = AC  AND  FF:  N = SGN  (AC  AND  128):  V = V AND  1 - N:  GOTO  980 

1635  GOSUB  1900:  AC  = VAL  (H$(AC  / 16)  + HS(AC  AND  15)):  OP  = VAL 
(H$(OP  / 16)  + H$(OP  AND  15)) 

1636  AC  = AC  - OP  + C - 1:  C = - (AC  > =0):  IF  AC  < 0 THEN  AC  = AC 

+ 100 

1637  A$  = MID$  ( STR$  (AC),2):  GOSUB  2390:  AC  = A:  GOTO  980 

1640  REM  SEC 

1641  C = 1 : GOTO  990 

1650  REM  SED 

1651  D = 1:  GOTO  990 

1660  REM  SEI 

1661  1=1:  GOTO  990 

1670  REM  STA 

1671  GOSUB  1900:  A = AC:  GOSUB  1850 

1672  GOTO  990 

1680  REM  STX 

1681  GOSUB  1900:  A = XR:  GOSUB  1850 

1682  GOTO  990 

1690  REM  STY 

1691  GOSUB  1900:  A = YR:  GOSUB  1850 

1692  GOTO  990 

1700  REM  TAX 

1701  XR  = AC:  GOTO  1452 

1710  REM  TAY 

1711  YR  = AC:  GOTO  1462 

1720  REM  TSX 

1721  XR  = SP:  GOTO  1452 

1730  REM  TXA 

1731  AC  = XR:  GOTO  980 

1740  REM  TXS 
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1741  SP  * XR:  GOTO  990 

1750  REM  TYA 

1751  AC  * YR:  GOTO  980 

1800  REM  BRANCH-8EFEHLE 

1810  IF  FL  = 0 THEN  L - 1:  GOTO  990 
1820  GOSUB  1985:  GOTO  1000 

1850  REM  POKE 

1870  IF  AD  < HI  OR  AD  > HI  + FF  THEN  1880 

1875  SP(AD  - HI)  = A:  RETURN 

1880  IF  ES  THEN  POKE  AD,A 

1885  RETURN 

1900  REM  OPERAND  HOLEN 

1910  A = AD(  PEEK  (PC)) 

1920  ON  A GOSUB 

1930.1935,1940,1945,1950,1955,1960,1965,1970,1975,1980,1985,1990 

1925  IF  AD  < HI  OR  AD  > HI  + FF  THEN  RETURN 

1927  OP  = SP (AD  - HI):  RETURN 

1930  AD  = 0:  RETURN  : REM  IMPLIED 

1935  AD  = PC  + 1:  OP  = PEEK  (AD):  L = 1:  RETURN  : REM  # 

1940  AD  = PEEK  (PC  + 1):  OP  = PEEK  (AD):  L = 1:  RETURN  : ZEROPAGE 

1945  AD  = 0:  RETURN  : REM  A 

1950  AD  = PEEK  (PC  + 1)  + HI  * PEEK  (PC  + 2):  OP  = PEEK  (AD):  L = 2: 
RETURN  : REM  ABSOLUT 

1955  AD  = PEEK  (PC  + 1)  + XR  AND  FF:  OP  = PEEK  (AD):  L = 1:  RETURN 

1960  AD  = PEEK  (PC  + 1)  + YR  AND  FF:  OP  = PEEK  (AD):  L = 1:  RETURN 

1965  AD  = PEEK  (PC  + 1)  + HI  * PEEK  (PC  2)  + XR:  OP  = PEEK  (AD):  L 

= 2:  RETURN  : REH  ABSOLUT, X 

1970  AD  = PEEK  (PC  + 1)  + HI  * PEEK  (PC  + 2)  + YR:  OP  = PEEK  (AD):  L 
= 2:  RETURN  : REM  ABSOLUT, Y 

1975  AD  = PEEK  (PC  + 1)  + HI  * PEEK  ( PEEK  (PC  + 1)  + 1):  OP  = PEEK 
(AD):  L = 1:  RETURN 

1980  AD  = PEEK  (PC  + 1)  + XR  AND  FF:  AD  = PEEK  (AD)  + Hl  * PEEK  (AD 

♦ 1):  OP  = PEEK  (AD):  L = 1:  RETURN 

1985  A = PEEK  (PC  + 1):  A = A + HI  * (A  > 127)  + 2 + PC 

1986  PC  = INT  (A  / HI)  * HI  + ((A  + (A  > SC)  * UL)  AND  FF):  RETURN  : 
REM  RELATIV 

1990  AD  = PEEK  (PC  + 1)  + HI  * PEEK  (PC  ♦ 2):  AD  = PEEK  (AD)  + HI  * 
PEEK  (AD  + 1):  OP  = PEEK  (AD):  RETURN 

2040  FOR  P = S TO  E:  PRINT  " 

2050  A = P:  GOSUB  2290:  REM  ADRESSE 

2060  PRINT  » A = PEEK  (P):  GOSUB  2320:  PRINT  '•  J = PEEK 

(P):  OP  = AD(J) 

2070  ON  OP  GOSUB 

2350 , 2360 , 2360 , 2350 , 2370 , 2360 , 2360 , 2370 , 2370 , 2360 , 2360 , 2360 , 2370 
2080  PRINT  » ";MN$( J)H 

2090  ON  OP  GOSUB 

2110,2120,2130,2140,2150,2160,2170,2180,2190,2200,2210,2220,2240 
2100  PRINT  "<  8 SPACE>":  NEXT  P 

2105  IF  P > = UL  THEN  P = P - UL 
2110  RETURN 

2120  PRINT  : GOSUB  2330:  P = P + 1:  RETURN 

2130  GOSUB  2330:  P = P + 1:  RETURN 
2140  PRINT  “ A";:  RETURN 
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2150  GOSUB  2260:  P = P + 2:  RETURN 

2160  GOSUB  2330:  P = P + 1:  PRINT  ",X";:  RETURN 

2170  GOSUB  2330:  P = P + 1:  PRINT  ",Y"; : RETURN 

2180  GOSUB  2260:  P = P + 2:  PRINT  ",X";:  RETURN 

2190  GOSUB  2260:  P = P + 2:  PRINT  RETURN 

2200  PRINT  GOSUB  2330:  P = P + 1:  PRINT  "),Y'';:  RETURN 

2210  PRINT  »<«;:  GOSUB  2330:  P = P + 1:  PRINT  »,X)»;:  RETURN 

2220  A = PEEK  (P  + 1):  A = A + HI  * (A  > 127)  + 2 + P 
2230  A = INT  (A  / HI)  * HI  + ((A  + (A  > SC)  * UL)  AND  FF):  PRINT 
GOSUB  2290:  P = P + 1:  RETURN 

2240  PRINT  GOSUB  2260 

2250  PRINT  ")";:  P = P ♦ 2:  RETURN 

2260  PRINT  »S»; 

2270  A = PEEK  (P  + 1)  + HI  * PEEK  (P  ♦ 2) 

2280  REM  HEXADRESSE  A 

2290  HB  = INT  (A  / HI):  A = A - HI  * HB 

2300  PRINT  H$(HB  / 16)H$(HB  AND  15); 

2310  REM  HEX-BYTE  A 

2320  PRINT  H$(A  / 16)H$(A  AND  15);:  RETURN 

2330  PRINT  "$»; 

2340  A = PEEK  (P  + 1):  GOTO  2320 

2350  PRINT  "<  5 SPACE»»;:  RETURN 

2360  GOSUB  2340:  PRINT  »<  3 SPACE»»;:  RETURN 

2370  GOSUB  2340:  PRINT  " »;:  A = PEEK  (P  + 2):  GOTO  2320 

2380  IF  ASC  <A$)  = 42  THEN  END 

2390  A = 0:  FOR  J = 1 TO  LEN  (A$):  X = ASC  ( RIGHTS  (A$,J))  - 48:  X 
= X + (X  > 9)  * 7:  A = A + X * (16  ‘ (J  - 1)):  NEXT  : RETURN 
3000  PRINT  : PRINT  »<  2 CRSR  DOWN»":  PRINT  »ADRESSE:  < 3 

SPACE>$****<  6 CRSR  LEFT>"; : INPUT  AS:  GOSUB  2380 

3010  PRINT  "<CRSR  UP»»,,:  AD  = A:  OP  = PEEK  (A):  GOSUB  1925:  A = OP: 
GOSUB  2320:  INPUT  »<  4 CRSR  LEFT»“;A$:  GOSUB  2380 

3020  GOSUB  1850:  PRINT  “<CRSR  UP»<  29  SPACE»»:  IF  AD  = PC  THEN  1000 

3030  GOTO  200 

3100  INPUT  »ECHTSIMULATION<  3 SPACE»J<  3 CRSR  LEFT»»;ESS:  ES  = ESS  = 
"J":  GOTO  200 

10000  DATA  0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 

10010  DATA  "BRK", 11 , 1 ,"ORA", 35,1 1 ,"???", 0, 1 

10020  DATA  "???", 0,1, "???", 0,1, "ORA", 35, 3 

10030  DATA  »ASL», 3, 3, «???", 0,1, "PHP", 37,1 

10040  DATA  »ORA», 35, 2, "ASL", 3, 4, "???», 0,1 

10050  DATA  »???», 0,1, "ORA", 35, 5, »ASL», 3,5 

10060  DATA  "???",0, 1 ,"BPL", 10, 12, "ORA", 35, 10 
10070  DATA  "???», 0,1, »???», 0,1, "???», 0,1 

10080  DATA  »ORA», 35, 6, "ASL", 3, 6, "???», 0,1 

10090  DATA  »CLC», 14,1, »ORA«, 35, 9, »???», 0,1 

10100  DATA  "???", 0,1, "???», 0,1, "ORA", 35, 8 

10110  DATA  "ASL", 3, 8, "???", 0, 1 ,"JSR",29,5 

10120  DATA  "AND", 2, 11, "???«, 0,1, "???«, 0,1 

10130  DATA  »BIT», 7, 3, »AND», 2, 3, »ROL», 40, 3 

10140  DATA  "???", 0, 1 ,"PLP",39, 1 , "AND", 2, 2 

10150  DATA  «ROL», 40, 4, »???», 0,1, »BIT», 7,5 

10160  DATA  "AND", 2, 5, »ROL«, 40, 5, "???", 0,1 

10170  DATA  »BMI», 8, 12, "AND", 2, 10, "???», 0,1 
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10180  DATA  "777", 0,1, "777", 0,1, "AND", 2, 6 

10190>  OATA  “ROL", 40, Ä,"???", 0,1, "SEC", 45,1 

10200  OATA  "AHO", 2,9, "???", 0,1, "???», 0,1 

10210  OATA  "???", 0,1, "AMD", 2, 8,"ROL", 40,8 

10220  DATA  "???",0,1,"RTI",42,1,"EOR",24,11 

10230.  DATA  "???", 0,1, "???", 0,1, "???", 0,1 

10240  DATA  "EOR",24,3,"LSR",33,3,"???",0,1 

10250  DATA  "PHA",36,1,"EOR",24,2,"LSR",33,4 

10260  DATA  "???", 0,1, "JHP", 28,5, "EOR", 24, 5 

10270  DATA  "LSR", 33,5, "???",0,1,"BVC", 12,12 

10280  DATA  "EOR", 24, 10, "???", 0,1, "???", 0,1 

10290  DATA  "???", 0,1, "EOR", 24,6,"LSR",33,6 

10300  DATA  "???", 0,1, "CLI", 16,1, "EOR", 24, 9 

10310  DATA  "???", 0,1, "???", 0,1, "???", 0,1 

10320  DATA  "EOR",24,8,"LSR",33,8,"???",0,1 

10330  DATA  "RTS", 43, 1,"ADC», 1,11, "???", 0,1 

10340  DATA  "???", 0, 1, "???", 0,1,"ADC", 1,3 

10350  DATA  "ROR", 41, 3, "???", 0,1,"PLA“, 38,1 

10360  DATA  "ADC", 1,2, "ROR", 41, 4, »???", 0,1 

10370  DATA  "JMP",28, 13, "ADC", 1 ,5,»ROR",41 ,5 

10380  DATA  "???», 0,1,»BVS», 13, 12, "ADC", 1,10 

10390  DATA  "???", 0,1, "???", 0,1, »???", 0,1 

10400  DATA  "ADC", 1,6, "ROR", 41, 6, »???", 0,1 

10410  DATA  "SEI", 47,1, "ADC", 1,9, "???", 0,1 

10420  DATA  "???", 0,1, "???", 0,1, "ADC", 1,8 

10430  DATA  "ROR», 41, 8,"??7», 0,1, »???", 0,1 

10440  DATA  »STA«, 48, 11, "???«, 0,1, "???", 0,1 

10450  DATA  "STY",50,3,"STA",48,3,"STX",49,3 

10460  DATA  "???», 0, 1 ,"DEY», 23, 1 ,"???", 0, 1 

10470  DATA  "TXA",54,1,"???",0,1,"STY",50,5 

10480  DATA  »STA», 48, 5. »STX», 49, 5, »???", 0,1 

10490  DATA  »BCC»,4,12,"STA»,48,10,"???",0,1 

10500  DATA  »???», 0,1, "STY", 50, 6, »STA», 48,6 

10510  DATA  "STX", 49,7, "???», 0,1, "TYA“, 56,1 

10520  DATA  »STA», 48,9, "TXS", 55,1, »???", 0,1 

10530  DATA  "777", 0,1, "STA", 48,8, »???", 0,1 

10540  DATA  »77?",0,1,»LDY",32,2,»LDA»,30,11 

10550  DATA  "LDX",31,2,"???»,0,1,»LDY",32,3 

10560  DATA  »LDA",30,3,"LDX»,31,3,»???",0,1 

10570  DATA  "TAY»,52,1,"LDA",30,2,"TAX",51,1 

10580  DATA  "???»,0,1,"LDY»,32,5,»LDA",30,5 

10590  DATA  "LDX»,31,5,"???»,0,1,»BCS»,5,12 

10600  DATA  »LDA», 30, 10, "777", 0,1, »???», 0,1 

10610  DATA  "LDY" ,32,6, "LDA" ,30,6, "LDX" ,31,7 

10620  DATA  »???", 0,1, »CLV«, 17,1, "LDA", 30, 9 

10630  DATA  »TSX», 53,1, »???", 0,1, »LDY», 32, 8 

10640  DATA  "LDA", 30, 8, »LDX«, 31 ,9,«???«, 0,1 

10650  DATA  »CPY», 20, 2, «CMP», 18,11, »???", 0,1 

10660  DATA  "???", 0,1, "CPY", 20, 3, »CMP», 18,3 

10670  DATA  "DEC", 21, 3, "???», 0,1, »INY», 27,1 

10680  DATA  »CMP», 18, 2, "DEX", 22,1, "???", 0,1 

10690  DATA  »CPY», 20, 5, »CMP», 18, 5, "DEC", 21, 5 

10700  DATA  "???",0,1 ,"BNE",9,12,"CMP", 18, 10 
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10710 

DATA 

"???", 0, 1, "7??", 0,1, "777», 0,1 

10720 

DATA 

"CMP",18,6<,,DEC"f21 ,6,  ,,???,,,0,1 

10730 

DATA 

"CLD", 15, 1,"CMP", 18,9, "???", 0,1 

10740 

DATA 

"???", 0, 1 ,"???", 0, 1 , ,,CMP",18f8 

10750 

DATA 

"DEC", 21 ,8, "???", 0, 1 , "CPX", 19,2 

10760 

DATA 

"SBC" , 44 , 1 1 ,»???", 0, 1 ,"???", 0 , 1 

10770 

DATA 

"CPX" , 1 9 , 3 , "SBC" , 44 , 3 , " I NC" , 25 , 3 

10780 

DATA 

"???" , 0, 1 , " I NX" , 26, 1 , "SBC" ,44,2 

10790 

DATA 

"NOP" , 34 , 1 , "777" , 0, 1 , "CPX" ,19,5 

10800 

DATA 

"SBC" , 44 , 5 , " I NC" , 25 , 5 , "77?" , 0 , 1 

10810 

DATA 

"BEQ" ,6,12, "SBC" ,44 , 1 0 , "77?" , 0, 1 

10820 

DATA 

"???",  0, 1 , "777",  0, 1 , "SBC",  44, 6 

10830 

DATA 

"INC", 25, 6, "777", 0,1, "SED", 46,1 

10840 

DATA 

"SBC", 44, 9, "777", 0,1, "???", 0,1 

10850 

DATA 

"777", 0,1, "SBC", 44, 8, "INC", 25, 8 

10860 

DATA 

"77?", 0,1 

4.10  Ein  Disassembler  für  den  6510 

In  diesem  Unterkapitel  finden  Sie  einen  vollständigen  Disassem- 
bler für  den  6510-Prozessor.  Zweck  eines  solchen  Programms  ist 
es,  Maschinenprogramme,  die  im  Speicher  des  Rechners  stehen, 
in  die  symbolischen  Bezeichnungen  zurück  zu  übersetzen,  die 
man  auch  bei  der  Eingabe  von  Machinenprogrammen  benutzt. 
Aus  der  Byte-Folge  $a9,  $80  macht  der  Disassembler  z.B.  LDA 
#$80.  Der  Disassembler  selbst  wird  einfach  mit  RUN  gestartet 
und  fragt  dann  nach  der  Start-  und  Endadresse  des  Bereichs, 
den  er  disassemblieren  soll. 

Noch  kurz  etwas  zur  Arbeitsweise  des  Disassemblers:  Das  Pro- 
gramm holt  sich  ein  Byte  aus  dem  Speicher  und  interpretiert  dies 
als  Befehlscode.  Dieser  Befehlscode  dient  als  Index  in  einer  Ta- 
belle, aus  der  das  Befehlswort,  z.B.  LDA,  sowie  die  Adressie- 
rungsart des  Befehls  geholt  werden.  Aus  der  Länge  weiß  der 
Disassembler,  wie  lang  der  Befehl  ist  und  in  welcher  Form  der 
Operand  anzugeben  ist.  Dies  geschieht  dann  über  Unterpro- 
gramme. 

Hier  nun  das  Listing  des  Disassemblers: 

PROGRAMM  :D  I SASSEMBLER 


100  REM  6510  - DISASSEMBLER 
110  DIM  MN$(255),AD(255),H$<15) 


Auch  Assembler  ist  nicht  schwer 


433 


120  FF  = 255:  HI  = 256:  UL  = 2 * 16:  SC  = 2 ‘ 15  - 1 

130  PRINT  "<CLR  HOME><  3 CRSR  DOUNx  8 CRSR  RIGHT>6510  - DISASSEMBLER11 

HO  FOR  I - 0 TO  15:  READ  H$(I):  NEXT 

150  FOR  I = 0 TO  255:  READ  MN$( I ), AD( I ) : NEXT 

160  PRINT  "<CRSR  DOUN>ST ARTADRESSE : -<  3 SPACE>S****<  6 CRSR  LEFT>"; : 
INPUT  A$ 

170  GOSUB  540:  S - A 

180  PRINT  "<CRSR  D0WN>END ADRESSE«  2 SPACE>:  -<  3 SPACE>$****<  6 CRSR 

LEFT>"; : INPUT  AS:  PRINT 

190  GOSUB  540:  E = A 

200  FOR  P = S TO  E 

210  A - P:  GOSUB  450:  REM  ADRESSE 

220  PRINT  " A = PEEK  (P):  GOSUB  480:  PRINT  " I = PEEK  (P): 

OP  * AD( I ) 

230  ON  OP  GOSUB  510,520,520,510,530,520,520,530,530,520,520,520,530 

240  PRINT  11  llaMNS(I)H  M* 

250  ON  OP  GOSUB  270,280*290,300,310,320,330,340,350,360,370,380,400 

260  NEXT  P:  GOTO  160 

270  PRINT  : RETURN 


280 

PRINT 

GOSUB  490:  P = P 

+ 1: 

PRINT  : 

RETURN 

290 

GOSUB  490: 

P 

= P + 1:  PRINT 

: RETURN 

300 

PRINT  " A" 

RETURN 

310 

GOSUB  420: 

P 

= P + 2:  PRINT 

: RETURN 

320 

GOSUB  490: 

P 

= P + 1:  PRINT 

",X": 

RETURN 

330 

GOSUB  490: 

P 

= P + 1:  PRINT 

".Y“: 

RETURN 

340 

GOSUB  420: 

P 

= P + 2:  PRINT 

",X“: 

RETURN 

350 

GOSUB  420: 

P 

= P + 2:  PRINT 

",YM: 

RETURN 

360 

PRINT  "("; 

GOSUB  490:  P = P 

♦ 1: 

PRINT  " 

),Y": 

RETURN 

370 

PRINT  "("; 

GOSUB  490:  P = P 

+ 1: 

PRINT  " 

,X)": 

RETURN 

380  T = PEEK  (P  + 1):  Q = T + HI  * (T  > 127)  + 2 + P 

390  A = INT  (0  / HI)  * HI  + ((0  + (0  > SC)  * UL)  AND  FF):  PRINT  "S";: 

GOSUB  450:  P=P*1:  PRINT  : RETURN 

400  PRINT  GOSUB  420 

410  PRINT  ,,)M:  P = P ♦ 2:  RETURN 

420  PRINT 

430  A = PEEK  (P  + 1)  + HI  * PEEK  (P  + 2) 

440  REM  HEXADRESSE  A 

450  HB  = INT  (A  / HI):  A = A - HI  * HB 

460  PRINT  H$(HB  / 16)HS(HB  AND  15); 

470  REM  HEX-BYTE  A 

480  PRINT  H$(A  / 16)H$(A  AND  15);:  RETURN 

490  PRINT 

500  A = PEEK  (P  + 1):  GOTO  480 

510  PRINT  ••<  5 SPACE>"; : RETURN 

520  GOSUB  500:  PRINT  '■<  3 SPACE>"; : RETURN 

530  GOSUB  500:  PRINT  " ";:  A = PEEK  (P  + 2):  GOTO  480 

540  IF  ASC  (AS)  = 42  THEN  END 

550  A = 0:  FOR  I = 1 TO  4:  V = ASC  ( RIGHTS  (A$,I))  - 48:  V = V + (V 

> 9)  * 7:  A = A + V * (16  * (I  - D):  NEXT  : RETURN 

1000  DATA  0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 

1010  DATA  "BRK", 1 ,"ORA", 11 ,"???", 1 

1020  DATA  “???", 1, '•???", 1,“ORA", 3 

1030  DATA  "ASL" , 3 ,"???", 1 , "PHP" , 1 
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1040  DATA  "ORA" , 2 , "ASLM , 4 ,"???", 1 
1050  DATA  "???", 1 , "ORA" , 5 , "ASL" , 5 
1060  DATA  "???", 1,"BPL», 12, "ORA", 10 
1070  DATA  "???", 1, »???", 1, "???", 1 

1080  DATA  "ORA", 6, "ASL", 6,"???", 1 

1090  DATA  "CLC",1,»0RA",9, "???", 1 

1100  DATA  »???", 1, "7??", 1, "ORA", 8 

1110  DATA  "ASL",8,"???",1 ,"JSR",5 

1120  DATA  "AND", 1 1, "???", 1,"???",1 

1130  DATA  "BIT", 3, "AND", 3, "ROL", 3 

1140  DATA  »???", 1,"PLP",1, "AND", 2 

1150  DATA  "ROL", 4, "777", 1, "BIT", 5 

1160  DATA  "AND", 5, "ROL", 5, "777", 1 

1170  DATA  "BMI", 12, "AND", 10,"???", 1 
1180  DATA  "???", 1, "???", 1,"AND", 6 

1190  DATA  "ROL", 6,»???", 1, "SEC", 1 

1200'  DATA  "AND", 9, »???",  1, "???",  1 

1210  DATA  "???", 1, "AND", 8, "ROL", 8 

1220  DATA  "???», 1,"RTI",1,"EOR", 11 

1230  DATA  »???", 1, "???", 1, "???", 1 

1240  DATA  "EOR",3,»LSR",3,"???",1 

1250  DATA  "PHA",1  ,,,EOR",2,"LSR",4 

1260  DATA  "???", 1 , "JHP", 5, "EOR", 5 

1270  DATA  "LSR",5,"???", 1 ,"BVC", 12 

1280  DATA  "EOR", 10, "???", 1, "???", 1 

1290  DATA  "???», 1, "EOR", 6, "LSR", 6 

1300  DATA  »???", 1,"CLI",1, "EOR", 9 

1310  DATA  "???", 1,»???", 1, "???", 1 

1320  DATA  "EOR", 8, "LSR", 8, "???", 1 

1330  DATA  "RTS", 1,"ADC", 11, "???", 1 

1340  DATA  »???", 1, "???", 1,"ADC", 3 

1350  DATA  "ROR", 3, "???", 1,"PLA",1 

1360  DATA  "ADC" ,2, "ROR" , 4 , "???" , 1 

1370  DATA  “JHP", 13, "ADC", 5, «ROR», 5 

1380  DATA  "???", 1,»BVS", 12, "ADC", 10 
1390  DATA  »???", 1, "???", 1, “???", 1 

1400  DATA  "ADC", 6, "ROR", 6, "???", 1 

1410  DATA  «SEI", 1, «ADC«, 9,“???", 1 

1420  DATA  "???", 1, "???", 1, "ADC", 8 

1430  DATA  "ROR", 8, "???", 1, "???", 1 

1440  DATA  "STA",11 ,"???", 1 ,"???", 1 

1450  DATA  "STY " , 3 , "ST A" , 3 , "STX" , 3 

1460  DATA  "???", 1,"DEY",1, "???", 1 

1470  DATA  "TXA", 1 ,"???", 1 ,"STY",5 

1480  DATA  "STA", 5, "STX", 5, "???", 1 

1490  DATA  "BCC", 12, "STA", 10, "???», 1 
1500  DATA  "???", 1, "STY", 6, "STA", 6 

1510  DATA  "STX", 7, "???", 1,"TYA",1 

1520  DATA  "STA", 9, "TXS",1, "???", 1 

1530  DATA  "???", 1, "STA", 8, "???", 1 

1540  DATA  "???", 1 ,"LDY",2,"LDA“, 1 1 

1550  DATA  "LDX" , 2 , "77?" , 1 , "LDY" ,3 

1560  DATA  "LDA" ,3, "LDX" , 3 , "77?" , 1 
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1570  DATA  "TAY" , 1 , "LDA" ,2, "TAX" , 1 

1580  DATA  "???", 1,"LDY"f5f"LDA", 5 

1590  DATA  "LDX" , 5 ,"???", 1 , "BCS" ,12 

1600  DATA  "LDA", 10, "???", 1,"???",1 

1610  DATA  "LDY" ,6, "LDA" ,6,"LDX" ,7 

1620  DATA  "???", 1 , "CLV", 1 ,"LDA",9 

1630  DATA  "TSX",1, "???", 1, "LDY", 8 

1660  DATA  "LDA", 8, "LDX", 9,»???", 1 

1650  DATA  "CPY" ,2, "CMP" , 1 1 ,"???", 1 

1660  DATA  "7?7",1 ,"CPY",3,"CHP",3 

1670  DATA  "DEC", 3, "???", 1,"INY",1 

1680  DATA  "CMP", 2,"DEX", 1, "???", 1 

1690  DATA  "CPY", 5, "CMP", 5, "DEC", 5 

1700  DATA  "???", 1,"BNE", 12, "CMP",10 
1710  DATA  "777", 1, "777", 1, "777", 1 

1720  DATA  "CMP", 6, "DEC", 6, "???", 1 

1730  DATA  "CLD" , 1 , "CMP", 9, "???", 1 

1740  DATA  "???", 1 ,"777", 1 ,"CHP",8 

1750  DATA  "DEC", 8,"???", 1 ,"CPX",2 

1760  DATA  "SBC", 11, "???", 1, "???", 1 

1770  DATA  "CPX", 3, “SBC", 3, "INC", 3 

1780  DATA  "???", 1 ," I NX" , 1 , "SBC" , 2 

1790  DATA  "NOP",1, "???", 1, "CPX", 5 

1800  DATA  "SBC" , 5 , " I NC" , 5 ,"???", 1 

1810  DATA  "BEQ" ,12, "SBC" , 1 0 ,"???", 1 
1820  DATA  "???», 1, "???», 1, "SBC", 6 

1830  DATA  "INC", 6, "???", 1, "SED", 1 

1840  DATA  "SBC", 9,"???", 1, "???", 1 

1850  DATA  "777", 1, "SBC", 8, "INC", 8 

1860  DATA  "???», 1 


4.11  Die  64er-Maus  1351 

Die  Maus  ist  ein  sehr  leicht  zu  bedienendes  Eingabeinstrument. 
Sie  belegt  die  gleichen  Anschlüsse  wie  auch  der  Joystick. 

Doch  wie  funktioniert  eigentlich  die  Maus?  Die  Bewegung  der 
in  der  Maus  befindlichen  Kugel  wird  auf  zwei  Rollen  übertra- 
gen. Die  eine  Rolle  übernimmt  die  Bewegung  in  X-  und  die  an- 
dere in  Y-Richtung.  An  jeder  der  Rollen  ist  ein  Kranz  mit  Lö- 
chern befestigt.  Die  Löcher  lassen  einen  Lichtstrahl,  der  auf 
einen  Fotowiderstand  fällt,  ungehindert  durch.  Durch  Drehen 
des  Kranzes  entsteht  ein  ständiger  Wechsel  zwischen  hell  und 
dunkel.  Die  Bewegung  der  Maus  wird  somit  nicht  wie  beim 
Joystick  durch  das  Vorhanden-  und  Nichtvorhandensein  des  Si- 
gnals erkannt. 
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Das  folgende  Maschinenprogramm  ermöglicht  es,  die  Commo- 
dore-Maus  1351  in  Port  1,  die  speziell  für  den  C64  entwickelt 
wurde,  abzufragen.  Es  liegt  in  $8000,  von  wo  es  nach  $C000  ko- 
piert wird.  In  $C000  liegt  das  Interrupt-Programm,  das  die  Maus 
steuert.  Das  Mausprogramm  erkennt,  welches  Zeichen  sich  unter 
dem  Mauszeiger  befindet.  Außerdem  lassen  sich  die  X-  und  Y- 
Koordinaten  in  den  Adressen  $037D  und  $037E  abf ragen. 

Nachdem  das  Maschinenprogramm  in  den  Speicher  geladen 
wurde,  kann  es  mit  SYS  32832  gestartet  werden.  Im  BASIC- 
Loader  ist  dies  bereits  im  Programm  eingebunden  und  braucht 
nur  mit  RUN  gestartet  zu  werden.  Nun  folgt  das  Maschinen-Li- 
sting  und  der  BASIC-Loader: 

Sprite-Daten 

8000  F8  00  00  90  00  00  B8  00 
8008  00  DC  00  00  8E  00  00  07 
8010  00  00  02  00  00  00  00  00 
8018  00  00  00  00  00  00  00  00 
8020  00  00  00  00  00  00  00  00 
8028  00  00  00  00  00  00  00  00 
8030  00  00  00  00  00  00  00  00 
8038  00  00  00  00  00  00  00  00 

Programmanfang 

8040  LDY  #$00  Zähler  auf  Null 

8042  LDA  $8000, Y Sprite-Daten 

8045  STA  $0E00,Y  nach  Puffer  1 kopieren 

8048  INY  Zähler  erhöhen 

8049  CPY  #$40  wenn  fertig, 

804B  BNE  $8042  dann  weiter 
804D  LDA  #$01  Sprite  1 
804F  STA  $D015  einschalten 
8052  STA  $D027  und  Farbe  setzen 
8055  LDA  #$64  Sprite 

8057  STA  $0000  X-Richtung 

805A  STA  $D001  Y-Richtung 

805D  LDA  #$00  Überlauf-Register 

805F  STA  $D010  setzen 

8062  LDA  #$38  Zeiger  auf 

8064  STA  $07F8  Puffer  1 

8067  LDY  #$00  Zähler  auf  Null 

8069  LDA  $807C,Y  Interrupt -Rout ine  nach 

806C  STA  $C00O,Y  $C000  kopieren 

806F  INY  Zähler  erhöhen 
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8070  CPY  #S01 
8072  BME  $8069 
8074  LDA  «SCO 
8076  STA  S0A04 

8079  JHP  SCOOO 
807C  NOP 

8070  NOP 
807E  NOP 
807F  NOP 

8080  NOP 

8081  NOP 

8082  NOP 

8083  NOP 

8084  NOP 

8085  NOP 

8086  NOP 

8087  NOP 

8088  NOP 

8089  NOP 
808A  NOP 
8088  NOP 
808C  NOP 

8080  NOP 
8086  NOP 
808F  SEI 

8090  LDA  «S21 
8092  STA  $0314 
8095  LDA  «SCO 

8097  STA  $0315 
809A  PLP 

8098  CLI 
809C  RTS 
8090  NOP 

809E  LDA  $0419 
80 AI  LDY  SC001 
80A4  JSR  SC058 
80A7  STY  SC0D1 
80AA  CLC 
80AB  ADC  $0000 
80AE  STA  $0000 

8081  TXA 
80B2  ADC  «SOO 
80B4  ANO  «SOI 
80B6  EOR  $0010 
80B9  STA  $0010 
80BC  LDA  S041A 
80BF  LDY  SC002 
80C2  JSR  SC058 
80C5  STY  SC002 
80C8  SEC 

80C9  EOR  «$FF 
80CB  ADC  $0001 
80CE  STA  $0001 


wenn  fertig, 
dann  weiter 
Wert 

zwi schenspei ehern 

Sprung  zur  Interrupt-Routine 


Interrupt  sperren 

IRQ  auf 

SC021 

setzen 

und 

Register  holen 
Interrupt  freigeben 
Rücksprung 
keine  Operation 
Hauskoordinate  holen 


Carry  für  Addition  löschen 
zur  alten  Position  addieren 
und  speichern 
X-Reg.  nach  Akku 
auf 

Überlauf 

prüfen 

und  speichern 
Mauskoordinaten  holen 


Carry  für  Addition 
Bits  umdrehen 

Zur  alten  Position  addieren 
und  speichern 
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80D1  JMP  $C083 

Rücksprung 

80D4  STY  $C0D4 

Werte 

80D7  STA  $C0D3 

zwi schenspei ehern 

80DA  LDX  #$00 

X-Reg.  löschen 

80DC  SEC 

Carry  für  Subtraktion  löschen 

80DD  SBC  $C0D4 

subtrahieren 

80EO  AND  #$7F 

Bit  8 löschen 

80E2  CMP  #$40 

wenn  Werte  gleich. 

80E4  BCS  $80ED 

dann  verzweige 

80E6  LSR 

mal  2 

80E7  BEQ  $80FB 

verzweige,  wenn  kein  Überlauf 

80E9  LDY  SC0D3 

alten  Wert  laden 

80EC  RTS 

Rücksprung 

80ED  ORA  #$C0 

Bits  setzen 

80EF  CMP  #$FF 

und  vergleichen 

80F1  BEQ  $80FB 

verzweige,  wenn  kein  Überlauf 

80F3  SEC 

Carry  für  Rechenoperation 

80F4  ROR 

Bits  verschieben 

80F5  LDX  #$FF 

alte  Werte 

80F7  LDY  $C0D3 

holen 

80FA  RTS 

Rücksprung 

80FB  LDA  #$00 

Akku  löschen 

80F0  RTS 

Rücksprung 

80FE  BRK 

80FF  LDA  $D000 

X-Position  laden 

8102  SBC  #$18 

und  subtrahieren 

8104  LDX  #$FF 

Wert  laden 

8106  INX 

und  erhöhen 

8107  SBC  #$08 

so  lange  subtrahieren 

8109  BCS  $8106 

bis  Überlauf 

81  OB  TXA 

X-Reg.  wieder  nach  Akku 

81 OC  SBC  #$01 

subtrahieren 

81 OE  STX  $03 FD 

und  speichern 

8111  SEC 

Carry  setzen 

8112  LDA  $D001 

Y-Position  laden 

8115  SBC  #$32 

und  subtrahieren 

8117  LDX  #$FF 

Wert  laden 

8119  INX 

und  erhöhen 

81 1A  SBC  #$08 

so  lange  subtrahieren 

81  IC  BCS  $8119 

bis  Überlauf 

81  IE  TXA 

X-Reg.  nach  Akku 

81 1F  SBC  #$01 

subtrahieren 

8121  STX  $03FE 

und  speichern 

8124  LDA  $0010 

Prüfen  ob 

8127  CMP  #$01 

Überlauf 

8129  BNE  $8148 

verzweige,  wenn  ja 

81 2B  LDA  $03 FD 

Puffer 

812E  CMP  #$1D 

richtig  ? 

8130  BEQ  $8148 

verzweige,  wenn  nein 

8132  LDA  $03FD 

Puffer 

8135  CMP  #$1E 

richtig  ? 

8137  BEQ  $8148 

verzweige,  wenn  nein 

8139  LDA  $03 FD 

Puffer 
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813C  CMP  #$1F 
813E  BEQ  $8148 
8140  LDA  $03 FD 
8143  ADC  #$20 
8145  STA  $03 FD 
8148  JHP  $EA31 


richtig  ? 

verzweige,  wenn  nein 
Puffer  laden 
richtig  stellen 
und  speichern 

Sprung  zur  Interrupt-Routine 


Und  hier  der  BASIC-Loader: 


100  FOR I =32768T0331 00 : READA : POKE I , A : NEXT 
105  SYS  32832 

110  DATA248,0,0, 144,0,0, 184,0,0,220,0,0, 142,0,0,7,0,0 

120  DAT A2, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 

130  DATAO, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 

140  DATAO, 0,0,0,0,0,0,0,0,0, 160,0, 185,0, 128, 153,0, 14 

150  DATA200,192,64, 208,245, 169,1, 141,  21,208,141, 

39,208,169,100,141,0,208 

160  DATA141 ,1 ,208, 169,0, 141 , 16,208, 169,56, 141,248,7, 160,0, 185,124,128 
170  DATA153.0, 192,200, 192,209,208,245, 169, 192, 141, 4, 10,76,0, 192, 234, 234 
180  DAT A234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 
234,120 

190  DATA169.33, 141, 20, 3, 169, 192, 141, 21 ,3,40,88,96,234, 173,25, 212, 172 
200  DATA209, 192,32,88, 192, 140,209, 192,24,109,0,208, 141,0,208,138,105,0 
210  DATA41 ,1,77, 16,208, 141 , 16,208,173,26,212,172,210, 192,32,  88, 192,140 
220  DATA210, 192,56,73, 255, 109, 1,208, 141, 1,208,76, 131, 192, 140, 212, 192, 141 
230  0ATA211, 192, 162, 0,56,237,212, 192,41, 127,201 ,64, 176,7,74, 240, 18, 172 
240  DATA211, 192, 96,9, 192, 201, 255, 240, 8,56, 106, 162, 255, 172, 21 1,192, 96, 169 
250  DATA0,96,0, 173, 0,208,233, 24, 162, 255, 232, 233, 8, 176,251, 138, 233,1 
260  DATA142,253,3, 56, 173, 1,208,233, 50, 162,255, 232,233,8, 176,251, 138,233 
270  DATA1, 142, 254, 3, 173, 16, 208, 201, 1,208, 29, 173, 253, 3, 201, 29, 240, 22 
280  DATA173,253,3, 201, 30,240, 15, 173,253,3,201, 31, 240,8, 173, 253, 3, 105 
290  DATA32,141, 253,3, 76,49,234, 0,0 
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5.  Die  Floppy  VC  1 541 

In  praktisch  jedem  Ihrer  Programme  haben  Sie  irgendwelche 
Daten  zu  verwalten.  Selbst  bei  nur  kleinen  Datenmengen  lohnt  es 
sich  dabei,  diese  Daten  in  separaten  Dateien  auf  einer  Diskette 
auszulagern.  Die  Verwaltung  der  Daten  gestaltet  sich  dadurch 
aber  wesentlich  einfacher  und  vor  allem  flexibler  als  etwa  bei 
der  Arbeit  mit  DATA-Zeilen. 

Und  auch  wenn  sie  "nur"  Ihre  Programme  auf  Diskette  speichern 
möchten,  sollten  Sie  ein  wenig  darüber  Bescheid  wissen,  wie  die 
Floppy  arbeitet  und  wie  eine  Diskette  organisiert  ist. 

In  diesem  Kapitel  möchte  ich  Sie  daher  umfassend  über  alle 
Aspekte  der  Floppy-Programmierung  informieren.  Sie  lernen, 
wie  man  der  Floppy  Befehle  übermittelt,  beispielsweise,  um  eine 
Datei  zu  löschen  oder  um  ihr  einen  anderen  Namen  zu  geben. 
Sie  erfahren  die  Unterschiede  zwischen  der  sequentiellen  und 
relativen  Datenspeicherung  und  vieles  mehr. 

Anmerkung:  Die  Floppy  1541,  über  die  es  in  diesem  Kapitel  ge- 
hen soll,  ist  das  "Standardlaufwerk"  für  den  Commodore  64.  In 
der  Zwischenzeit  gibt  es  von  Commodore  aber  auch  einige  an- 
dere Modelle  (1541-11,  1570/71,  1581),  die  ebenfalls  am  Com- 
modore 64  betrieben  werden  können.  Diese  Geräte  sind  - zu- 
mindest nach  Aussagen  von  Commodore  - völlig  "befehlskompa- 
tibel"  zur  1541.  D.h.,  sie  sind  zwar  intern  anders  aufgebaut, 
"verstehen"  aber  sämtliche  Befehle,  die  man  der  1541  geben 
kann,  selbst  die  Spezialbefehle  am  Ende  dieses  Kapitels.  Wenn 
Sie  also  zufällig  eines  dieser  Modelle  besitzen  sollten,  so  ist  die- 
ses Kapitel  für  Sie  ebenfalls  von  Nutzen. 


5.1  Die  Ansteuerung  der  Floppy 

Die  Floppy  1541  zählt  zu  den  sogenannten  "intelligenten"  Lauf- 
werken. Sie  verfügt  über  ein  eigenständiges  Betriebssystem,  das 
die  Arbeit  der  Floppy  unabhängig  vom  Commodore  64  steuert. 


442 


Das  große  Commodore  64-Buch 


Möchte  man  daher  eine  bestimmte  Aktion  bewirken,  beispiels- 
weise eine  Datei  löschen,  so  muß  man  nur  einen  entsprechenden 
Befehl  senden.  Den  Rest  erledigt  die  Floppy  selbst.  Am  Ende 
des  Vorgangs  bekommt  man  gegebenenfalls  eine  Rückmeldung 
der  Floppy,  beispielsweise  die  Anzahl  der  gelöschten  Dateien. 

Wie  sieht  nun  die  Befehlsübermittlung  an  die  Floppy  aus? 

Befehlsübermittlung  in  BASIC 

Zunächst  muß  mit  Hilfe  der  OPEN-Anweisung  der  sogenannte 
"Befehlskanal"  zur  Floppy  geöffnet  werden: 

OPEN  LF,8, 15 

Für  die  logische  File-Nummer  LF  dürfen  Sie  Werte  zwischen  1 
und  127  verwenden.  Die  logische  File-Nummer  signalisiert  dem 
Commodore  64  später,  auf  welche  Datei  Sie  jeweils  zugreifen 
wollen.  Die  8 ist  die  Geräteadresse  der  Floppy.  Bei  der  15  da- 
hinter handelt  es  sich  um  die  sogenannte  Sekundäradresse,  die 
der  Floppy  in  diesem  Fall  mitteilt,  daß  Sie  einen  Befehl  über 
den  Befehlskanal  senden  wollen.  Nach  dem  öffnen  des  Befehls- 
kanals können  Sie  jederzeit  mit 

PRINT#LF, "BEFEHL" 

einen  Befehl  an  die  Floppy  senden.  Zum  Schluß  müssen  Sie  den 
Befehlskanal  mit 

CLOSE  LF 

wieder  schließen.  Das  ganze  gliedert  sich  also  in  drei  Phasen: 

► Befehlskanal  öffnen:  open  i 5,8,1 5 

► Befehl  senden:  print#15,"befehl" 

► Befehlskanal  schließen:  close  15 

Falls  Sie  nur  einen  einzigen  Befehl  senden  wollen,  läßt  sich  das 
ganze  auch  etwas  abkürzen: 


OPEN  15,8,15,"BEFEHL":CLOSE  15 
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Im  Prinzip  können  Sie  den  Befehlskanal  während  der  ganzen 
Zeit,  in  der  Sie  mit  der  Floppy  arbeiten,  geöffnet  halten.  Wenn 
Sie  im  Direktmodus  arbeiten,  müssen  Sie  allerdings  vorsichtig 
sein.  Durch  das  Einladen  eines  BASIC- Programms  in  den  Rech- 
nerspeicher wird  der  Befehlskanal  nämlich  automatisch  ge- 
schlossen! Ein  späteres  PRINT#  15  hätte  dann  einen  FILE  NOT 
OPEN  ERROR  zur  Folge. 

Im  Direktmodus  ist  es  daher  am  besten,  wenn  man  die  abge- 
kürzte Variante  der  Befehlsübermittlung  verwendet.  In  den  mei- 
sten Fällen  sendet  man  ohnehin  jeweils  nur  einen  Befehl.  Bevor 
wir  die  ersten  Befehle  betrachten,  möchte  ich  Ihnen  erst  noch 
zeigen,  wie  die  Floppy  in  Assembler  angesteuert  wird. 

Befehlsübermittlung  in  Assembler 

Die  logische  Abfolge  der  einzelnen  Schritte  ist  in  Assembler  ge- 
nau dieselbe  wie  in  BASIC.  Zuerst  wird  der  Befehlskanal  geöff- 
net, dann  der  Befehl  gesendet  und  schließlich  der  Befehlskanal 
wieder  geschlossen.  Da  für  alle  diese  Zwecke  entsprechende 
Routinen  des  Betriebssystems  zur  Verfügung  stehen,  wird  das 
ganze  zwar  etwas  länger,  aber  nicht  viel  komplizierter. 

100  ;***  routine:  befehl  senden  *** 

110  ; 

120  .ba  49152  ;*  Startadresse  * 

130  ; 


140 

Ida 

#$0f 

; logische  file-nr.  15 

150 

Idx 

#$08 

; geraeteadresse 

160 

Idy 

#$0f 

; sekundaeradr . 15 

170 

jsr 

Sffba 

;parameter  setzen 

180  ; 

190 

Ida 

#$0b 

;befehlslaenge! 

200 

Idx 

#<( befehl) 

; zeiger  auf 

210 

Idy 

#>(  befehl) 

;befehlstext 

220 

jsr 

$ffbd 

; Parameter  setzen 

230  ; 

240 

jsr 

4* 

O 

o 

; open- routine  auf rufen 

250  ; 

260 

Ida 

#$0f 

; logische  file-nr.  15 

270 

jsr 

$ffc3 

;close-routine  aufrufen 

280  ; 

290  befehl 

.tx 

"befehlstext" 
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Der  Einfachheit  halber  habe  ich  hier  die  verkürzte  Form  der 
Befehlsübermittlung  verwendet.  Der  Befehlstext  wird  direkt  mit 
OPEN  gesendet  und  anschließend  der  Befehlskanal  wieder  ge- 
schlossen. 

Formatieren  von  Disketten 

Wie  Sie  bereits  wissen,  muß  eine  Diskette  vor  der  ersten  Benut- 
zung formatiert  werden.  Dazu  hält  die  Floppy  den  Befehl  NEW 
parat: 


"NEU:DISKETTENNAME,ID" 

oder  abgekürzt: 

"N:DISKETTENNAME, ID" 

Hinweis:  Ich  werde  im  folgenden  immer  die  abgekürzte  Form 

der  Befehle  verwenden,  da  man  sich  damit  einiges  an 
Tipparbeit  erspart  und  die  Befehle  trotzdem  noch  gut 
lesbar  sind. 

Der  Diskettenname  darf  bis  zu  16  Zeichen  lang  sein.  Anhand  der 
dahinter  angegebenen  ID  erkennt  die  Floppy  einen  Disketten- 
wechsel. 

Es  ist  daher  sehr  wichtig,  daß  jede  Ihrer  Disketten  eine  andere 
ID  besitzt.  Die  ID  darf  aus  zwei  beliebigen  Zeichen  oder  Ziffern 
bestehen. 

Am  besten  wird  es  sein,  wenn  Sie  sich  Ihre  Disketten  einfach 
von  "01"  bis  "99"  durchnumerieren.  In  BASIC  sieht  das  Formatie- 
ren so  aus: 

100  rem  ***  routine:  diskette  formatieren  *** 

110  open  15,8,15 

120  print#15,"n:arbeitsdisk,01" 

130  ctose  15 
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Und  das  ganze  in  Assembler: 


100  ;***  routine:  diskette  formatieren  *** 
110  ; 

120  . ba  49152  ;*  Startadresse  * 

130  ; 


140 

Ida 

#$0f 

; logische  file-nr.  15 

150 

Idx 

#$08 

; geraeteadresse 

160 

Idy 

#$0f 

;sekindaeradr.  15 

170 

jsr 

Sffba 

;para*eter  setzen 

180  ; 

190 

Ida 

#$10 

;befehlslaenge! 

200 

Idx 

#<(befehl) 

; zeiger  auf 

210 

Idy 

#>(befehl) 

; befehlstext 

220 

jsr 

$ffbd 

; Parameter  setzen 

230  ; 

240 

jsr 

$ffc0 

;open*routine  auf rufen 

250  ; 

260 

Ida 

#$0f 

; logische  file-nr.  15 

270 

jsr 

$ffc3 

;close-routine  aufrufen 

280  ; 

290  befehl 

.tx 

"n:arbeitsdisk,01H 

Der  gesamte  Formatiervorgang  dauert  etwa  90  Sekunden.  Das 
laute  Rattern  ganz  am  Anfang  sollte  Sie  nicht  beunruhigen.  Da- 
bei wird  nur  der  Schreib-/Lesekopf  der  Floppy  justiert,  um  eine 
einwandfreie  Formatierung  der  Diskette  zu  gewährleisten.  Häu- 
fig hat  man  ältere  Disketten,  deren  Inhalt  man  nicht  mehr  benö- 
tigt und  die  man  deshalb  für  andere  Zwecke  verwenden  möchte. 
Dazu  muß  man  natürlich  zunächst  die  alten  Daten  auf  der  Dis- 
kette löschen.  Am  einfachsten  geht  das,  indem  Sie  die  Diskette 
neu  formatieren. 


Dabei  dürfen  Sie  die  ID  der  Diskette  auch  weglassen  (die  Dis- 
kette behält  dann  die  alte  ID),  wodurch  sich  der  Formatiervor- 
gang auf  wenige  Sekunden  verkürzt.  Beim  Formatieren  ohne  ID 
wird  nämlich  nur  das  Inhaltsverzeichnis  der  Diskette  gelöscht 
(damit  sind  dann  automatisch  auch  sämtliche  Daten  gelöscht). 
Ein  Beispiel: 

110  open  15,8,15 

120  print#15,"n:neoe  disk" 

130  close  15 


gibt  der  eingelegten  Diskette  den  Namen  "NEUE  DISK". 
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Vorsicht:  Beim  Neuformatieren  älterer  Disketten  sollte  man 

sich  grundsätzlich  sehr  sorgfältig  davon  überzeugen, 
daß  man  die  gespeicherten  Daten  auch  wirklich  nicht 
mehr  benötigt! 

Fehlermeldungen  der  Floppy  auslesen 

Wie  auch  der  Commodore  64  Sie  gelegentlich  durch  Fehlermel- 
dungen, wie  etwa  SYNTAX  ERROR,  darauf  aufmerksam  macht, 
daß  Sie  irgend  etwas  falsch  gemacht  bzw.  falsch  eingegeben  ha- 
ben, so  reagiert  auch  die  Floppy  auf  Fehler  mit  einer  entspre- 
chenden Meldung. 

Daß  ein  Fehler  aufgetreten  ist,  erkennen  Sie  am  hektischen 
Blinken  der  roten  LED  an  der  Frontseite  der  Floppy.  Wie  kommt 
man  nun  aber  an  die  Fehlermeldung  heran? 

Dazu  müssen  wir  wieder  den  Befehlskanal  öffnen  und  an- 
schließend die  Fehlermeldung  einiesen: 

100  rem  ***  routine:  fehlermeldung  auslesen  *** 

110  open  15,8,15 

120  input#15,nr,ft$,tr,sk 

(125  print  nr;ft$;tr;sk) 

130  close  15 

Jede  Fehlermeldung  gliedert  sich  in  vier  Teile,  die  in  die  vier 
Variablen  NR,  FT$,  TR  und  SK  eingelesen  werden. 

NR:  NR  enthält  die  Nummer  des  auf getretenen  Fehlers. 

FT$:  FT$  enthält  den  Fehlertext. 

TR,SK:  Bei  einigen  Fehlermeldungen  erhalten  sie  in  TR  und 

SK  die  Nummer  der  Spur  und  des  Sektors  des  Da- 
tenblocks, in  dem  der  Fehler  auf  trat.  Ansonsten  en- 
halten  TR  und  SK  den  Wert  Null. 

Liegt  im  Augenblick  des  Auslesens  kein  Fehler  vor,  sendet  die 
Floppy  die  Meldung 
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00  OK  00  00 

Eine  vollständige  Liste  aller  Fehlermeldungen  samt  Beschreibung 
der  Ursachen  und  möglicher  Abhilfen  finden  Sie  übrigens  im 
Anhang.  Ich  werde  aber  auch  in  diesem  Kapitel  an  den  ent- 
sprechenden Stellen  auf  die  Fehlermeldungen  kurz  eingehen.  Die 
Fehlermeldung,  die  Sie  wohl  am  häufigsten  bekommen  werden, 
dürfte 

34  SYNTAX  ERROR  00  00 

sein.  In  diesem  Fall  haben  Sie  den  betreffenden  Befehl  falsch 
geschrieben  (vielleicht  haben  Sie  einfach  nur  den  Doppelpunkt 
oder  ein  Komma  vergessen).  Korrigieren  Sie  dann  bitte  den  Be- 
fehl und  versuchen  es  noch  einmal.  Die  Fehlermeldung 

62  FILE  NOT  FOUND  00  00 


tritt  auf,  wenn  man  versucht,  auf  eine  auf  der  eingelegten  Dis- 
kette nicht  vorhandene  Datei  zuzugreifen.  Hier  liegt  der  Fehler 
oft  in  einem  falsch  geschriebenen  Dateinamen.  In  Assembler 
möchte  ich  mich  auFs  Einlesen  der  Fehlernummer  beschränken: 


100  ;***  routine:  fehlermmner  aus lesen  *** 
110  ; 

120  .ba  49152  ;*  Startadresse  * 

130  ; 


140 

Ida 

#S0f 

150 

Idx 

#$08 

160 

Idy 

#$0f 

170 

jsr 

Sffba 

180  ; 
190 

jsr 

$ffc0 

200  ; 
210 

Idx 

#$0f 

220 

jsr 

$ffc6 

230  ; 
240 

jsr 

$ffcf 

250 

sta 

251 

260 

jsr 

$ffcf 

270 

sta 

252 

280  ; 
290 

jsr 

$ffcc 

300 

Ida  #$0f 

310 

jsr 

$ffc3 

; logische  file-nr.  15 
;geraeteadresse 
;sekundaeradr.  15 
; Parameter  setzen 

; open- routine  auf rufen 

;log.  file-nr. 

;eingabe  aus  logischer  datei 

;1. Ziffer  holen 
;und  ab legen 
;2. Ziffer  holen 
;und  ab legen 

;auf  Standardeingabe 
; zurückschalten 
; logische  file-nr.  15 
;close- routine  aufrufen 
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Die  beiden  Ziffern  der  Fehlernummer  werden  in  den  Speicher- 
zellen 251  und  252  zwischengespeichert.  Natürlich  können  Sie 
auch  die  gesamte  Fehlermeldung  mit  JSR  $FFCF  einiesen  und  in 
einem  Puffer  ablegen.  Das  Ende  der  Meldung  erkennen  Sie  an 
dem  Code  $OD  ('Return’).  Zu  beachten  ist,  daß  die  Floppy  die 
Meldung  als  String  sendet.  Lautet  die  Meldung  also 

00  OK  oo  oo 

so  stehen  in  251  und  252  keine  zwei  Nullen,  sondern  der  ASCII- 
Code  48  für  Null! 

Das  Inhaltsverzeichnis  einer  Diskette 

Auf  jeder  Diskette  legt  die  Floppy  ein  Verzeichnis  an,  das  soge- 
nannte "Directory",  in  dem  alle  auf  der  Diskette  gespeicherten 
Dateien  vermerkt  werden. 

Das  Directory  läßt  sich  wie  ein  Programm  in  den  Rechnerspei- 
cher laden.  Es  hat  den  Namen  "$"  (das  Dollarzeichen): 

LOAD  "$",8 

Aber  Vorsicht:  Durch  das  Einladen  des  Directories  geht  ein  evtl, 
im  Rechnerspeicher  vorhandenes  BASIC-Programm  verloren! 
Dieser  Umstand  ist  sehr  ärgerlich.  Hat  man  zum  Beispiel  ein 
BASIC-Programm  geschrieben  und  möchte  dann  vor  dem  Ab- 
speichern nachsehen,  ob  die  richtige  Diskette  eingelegt  oder  ob 
noch  genügend  Platz  auf  der  Diskette  vorhanden  ist,  so  geht  das 
nur,  indem  man  das  BASIC-Programm  zerstört. 

Aus  diesem  Grund  habe  ich  eine  kleine  Maschinensprache-Rou- 
tine geschrieben,  die  Ihnen  das  Directory  ohne  Programmverlust 
am  Bildschirm  ausgibt.  Die  Routine  wird  einfach  mit 

SYS  50002 

auf  gerufen.  Durch  Drücken  der  <Stop>-Taste  können  Sie  die 
Ausgabe  jederzeit  abbrechen.  Im  Anschluß  an  das  folgende  As- 
sembler-Listing  finden  Sie,  wie  gewohnt,  einen  BASIC-Lader 
zur  Routine. 
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105  ;*  * 

110  ;*  progranm:  dir  * 

120  ;*  listet  das  directory  einer  diskette  ohne  * 

130  ;*  programmverlust  am  bildschirm  auf  * 

140  ;*  * 

^50  . ******************************************************* 

160  ;*  * 

170  ;*  auf ruf:  sys  50002  * 

190  ;*  * 

1 95  . ******************************************************* 
200  ; 

205  ; 

210  .ba  50002  ;***  startadresse  *** 

220  ; 

230  ; 

240  •*#*  tdbcls  ******************************************** 

250  .gl  zu  = 2 ; Zwischenspeicher 

260  .gl  zpl  = 251 
265  ; 

270  ; 

275  .***  initialisierung  *********************************** 
280  Ida  #1  ;fi le-namen-laenge 

285  Idx  #<(dirname);file-namen-position 

290  Idy  #>(dirname) 


300 

jsr  Sffbd 

; Parameter  setzen 

310 

Ida  #8 

; f l oppy- geraeteadresse 

320 

sta  $ba 

330 

Ida  #$60 

; secundaeradresse 

340 

sta  Sb9 

350 

jsr  Sf3d5 

;fi le-namen  senden 

360 

Ida  $ba 

; floppy  auf  senden  schalten 

370 

jsr  $ffb4 

;talk  senden 

380 

Ida  Sb9 

390 

jsr  $ff96 

; sec. adr esse  senden 

400 

Ida  #0 

410 

sta  $90 

;status-Flag  loeschen 

420 
430  ; 

jsr  $aad7 

;return  ausgeben 

440  ;*** 

directory  holen  und  ausgeben  ********************** 

450 

Idy  #5 

.■erste  5 Zeichen  ueber lesen 

460  drl 

sty  zu 

.-wert  Zwischenspeichern 

470 

jsr  $ffa5 

;ein  byte  einiesen 

480 

sta  zpl 

;blockanzahl  (low) 

490 

Idy  zu 

,-zaehler 

500 

dey 

510 

bne  drl 

;<>0,  dann  naechstes  byte 

520 

jsr  $ffa5 

;ein  byte  holen 

530 

Idy  $90 

;file-ende  erreicht? 

540 

bne  dr4 

;ja,  dann  fertig 

550 

Idx  zpl 

,-blockanzahl  (low) 

560 

jsr  $bdcd 

;blockanzahl  ausgeben 

570 

Ida  #“  11 

;leerstelle  ausgeben 

450 
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jsr  $ffd2 

590  dr2 

jsr  *ffa5 

;ein  byte  holen 

600 

Idx  $90 

; Status  testen 

610 

bne  dr4 

;dir  zu  ende 

620 

tax 

630 

beq  dr3 

;gleich  0,  file-eintragende 

640 

jsr  $ffd2 

;aktuelles  Zeichen  ausgeben 

650 

jmp  dr2 

;naechstes  byte  bearbeiten 

660  dr3 

Ida  #13 

;return  ausgeben 

670 

jsr  $ffd2 

680 

jsr  $ffe1 

; stop- taste  testen 

690 

beq  dr4 

;gedrueckt,  dann  abbrechen 

700 

Idy  #3 

710 

jmp  drl 

;naechste  3 Zeichen  ueberlesen 

720  dr4 

jsr  Sffab 

;untalk  senden 

730 

jmp  $f642 

;file  sch li essen 

740  ; 

750  ;***  file-name  fuer  directory  *** 
760  dirname  .tx  "$" 


Und  der  BASIC-Lader: 

100  rem  **************************************************** 
105  rem  * * 

110  rem  * programm:  dir  * 

120  rem  * programmlaenge:  106  bytes  * 

130  rem  * listet  das  directory  einer  diskette  ohne  * 

140  rem  * programmier lust  am  bildschirm  auf  * 

150  rem  * * 

200  rem  **************************************************** 
205  rem  * * 

210  rem  * auf ruf:  sys  50002  * 

265  rem  * * 

270  pgfj]  ******SS****S**************#t********M#SM***M**** 
280  : 

290  : 

400  rem  ***  datas  einiesen  *** 

410  restore:zl=1000 

420  ad=50002 : rem  startadresse  der  routine 
430  ps=0:z=0 

440  read  wt:if  wt=-1  then  print  "datas  ok!":end 

450  poke  ad,wt:ad=ad+1:z=z+1 

460  ps=ps+wt:rem  pruefsumme 

470  if  z<10  then  440:rem  eine  zeile  lesen 

480  read  wt 

485  if  ps<>wt  then  print  "data-fehler  in  zeile,,;zl;"!":end 
490  zl=zl+10:goto  430 
500  : 

510  : 

990  rem  ***  datas  *** 

1000  data  169,1,162,187,160,195,32,189,255,169,1519 
1010  data  8,133,186,169,96,133,185,32,213,243,1398 
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1020  data  165,186,32,180,255,165,185,32,150,255,1605 
1030  data  169,0,133,144,32,215,170,160,5,132,1160 
1040  data  2,32,165,255,133,251,164,2,136,208,1348 
1050  data  244,32,165,255,164,144,208,41,166,251,1670 
1060  data  32,205,189,169,32,32,210,255,32,165,1321 
1070  data  255,166,144,208,24,170,240,6,32,210,1455 
1080  data  255,76,150,195,169,13,32,210,255,32,1387 
1090  data  225,255,240,5,160,3,76,121,195,32,1312 
1100  data  171,255,76,66,246,36,0,0,0,0,850 
2000  data  -1:rem  enckoarkierung 


Sehen  wir  uns  einmal  ein  typisches  Directory  irgendeiner  belie- 
bigen Diskette  an: 


0 

"datendisk  " 

ad  2a 

25 

"datei  Verwaltung" 

prg 

10 

"index" 

seq 

70 

"adressen" 

rel 

473  blocks  free. 


In  der  revers  geschriebenen  Kopfzeile  steht  der  Name  der  Dis- 
kette (DATENDISK)  sowie  ihre  ID  (AD).  Die  Kennung  "2A" 
wird  von  der  Floppy  beim  Formatieren  automatisch  erzeugt.  An 
dieser  Kennung  erkennt  die  Floppy,  daß  die  Diskette  von  ihr 
(bzw.  einer  anderen  Commodore-Floppy)  formatiert  wurde. 

Unterhalb  der  Kopf zeile  sehen  Sie  die  einzelnen  Dateien.  Die 
Namen  in  der  Mitte  dürften  Ihnen  klar  sein.  Wir  haben  also  drei 
Dateien  mit  den  Namen  "DATEIVERWALTUNG",  "INDEX"  und 
"ADRESSEN". 

Doch  was  bedeuten  die  Zahlen  am  Anfang  und  die  dreistelligen 
Kürzel  am  Ende  der  Zeilen? 

Die  Zahlen  geben  die  Größe  der  einzelnen  Dateien  an.  Aller- 
dings nicht  in  Byte,  sondern  in  der  Anzahl  der  Datenblöcke,  die 
Sie  auf  der  Diskette  belegen.  Dazu  muß  man  wissen,  daß  eine 
Diskette  (beim  Formatieren)  in  256  Byte  große  Blöcke  unterteilt 
wird.  Diese  Blöcke,  auch  Sektoren  genannt,  wiederum  sind  zu 
konzentrischen  Spuren  (ähnlich  den  Rillen  einer  Schallplatte) 
zusammengefaßt. 
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Wie  wir  später  noch  sehen  werden,  läßt  sich  jeder  dieser  Daten- 
blöcke durch  Angabe  seiner  Spur-  und  Sektornummer  auch  di- 
rekt ansteuern.  Man  spricht  dann  von  einem  Direktzugriff  auf 
die  Diskette.  Im  Augenblick  ist  aber  nur  wichtig,  daß  Sie  wis- 
sen, daß  jede  Datei  in  einzelnen  Datenblöcken  gespeichert  wird. 
Die  Blöcke  sind  dazu  über  einen  Zeiger  miteinander  verkettet, 
d.h.,  jeder  Datenblock  enthält  (ganz  am  Anfang)  die  Spur-  und 
die  Sektornummer  des  nächsten  Blocks. 

Aus  diesem  Grund  passen  in  einen  Block  jeweils  nur  2S4  Daten- 
Bytes. 

Mit  diesen  Informationen  läßt  sich  die  tatsächliche  Größe  jeder 
Datei  leicht  berechnen: 

Blockanzahl *254 

Die  Datei  "DATEIVERWALTUNG"  umfaßt  also  25*254=6350 
Bytes.  Die  Kürzel  hinter  den  Dateinamen  geben  an,  um  welchen 
Dateityp  es  sich  handelt: 

PRG  steht  für  Programmdateien  (BASIC-  oder  Maschinen- 
programme, die  mit  SAVE  gespeichert  wurden). 

SEQ  steht  für  sequentielle  Dateien,  in  denen  irgendwelche 

Daten  gespeichert  sind.  Mehr  im  nächsten  Abschnitt. 
REL  steht  für  relative  Dateien,  in  denen  ebenfalls  Daten 
abgelegt  werden.  Mehr  im  übernächsten  Abschnitt. 

In  der  letzten  Zeile  jedes  Directories  steht  schließlich  noch,  wie 
viele  Datenblocks  frei,  also  noch  nicht  mit  Daten  belegt  sind. 

Bei  unserer  Beispieldiskette  sind  das  im  Augenblick  473  Blocks. 
Die  Gesamtanzahl  der  Blöcke  beträgt  bei  jeder  Diskette  664.  Auf 
einer  Diskette  lassen  sich  also  maximal  664*254=168.656  Bytes 
speichern. 

Um  sich  einen  Überblick  über  seine  Disketten-  bzw.  Programm- 
sammlung zu  verschaffen,  ist  es  am  einfachsten,  wenn  man  sich 
die  Directories  der  Disketten  ausdruckt. 
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Das  geht  sehr  leicht: 

LOAD  "$",8 
OPEN  4,4 
CMD  4 
LIST 
PRINT#4 
CLOSE4 

Disketten  initialisieren 

Vielleicht  haben  Sie  sich  in  der  Zwischenzeit  schon  gefragt,  wo- 
her die  Floppy  eigentlich  weiß,  welcher  Datenblock  einer  Dis- 
kette bereits  mit  Daten  belegt  ist  und  welcher  noch  nicht.  Nun, 
um  hier  nicht  die  Übersicht  zu  verlieren,  legt  die  Floppy  er- 
gänzend zum  Directory  für  jede  Diskette  eine  Blockbelegungsta- 
belle (engl.  Block  Availability  Map,  kurz  BAM)  an. 

Bei  jedem  Diskettenwechsel  wird  diese  BAM  von  der  Diskette  in 
einen  internen  Speicherbereich  der  Floppy  geholt.  Einen  Disket- 
tenwechsel kann  die  Floppy  aber  nur  erkennen,  wenn  die  beiden 
Disketten  verschiedene  ID’s  besitzen.  Ist  das  nicht  der  Fall,  ar- 
beitet die  Floppy  unter  Umständen  mit  einer  falschen  BAM,  was 
natürlich  fatale  Folgen  haben  kann. 

Wenn  Sie  beispielsweise  eine  Diskette  im  Laufwerk  hatten,  die 
fast  leer  war,  und  anschließend  eine  nahezu  volle  Diskette  (mit 
derselben  ID)  einlegen,  um  auf  ihr  ein  Programm  oder  Daten 
abzuspeichern,  dann  sucht  sich  die  Floppy  die  freien  Blöcke  aus 
der  BAM  der  leeren  Diskette  und  überschreibt  dadurch  höchst- 
wahrscheinlich bereits  auf  der  eingelegten  Diskette  gespeicherte 
Daten.  Aus  diesem  Grund  gibt  es  die  Möglichkeit,  die  BAM 
"von  Hand"  in  den  Floppy-Speicher  zu  holen.  Diesen  Vorgang 
bezeichnet  man  auch  als  Initialisieren  der  Diskette.  Der  Befehl 
dafür  lautet: 

INI T I AL I ZE 

oder  abgekürzt: 


i 
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In  BASIC  sieht  das  so  aus: 


100  rem  ***  routine:  diskette  initialisieren  *** 
110  open  15,8,15 
120  print#15,"i" 

130  close  15 


Und  das  ganze  in  Assembler 

100  ;***  routine:  diskette  initialisieren  *** 
110  ; 

120  .ba  49152  ;*  startadresse  * 

130  ; 

140 
150 
160 
170 
180  ; 

190 
200 
210 
220 
230  ; 

240 
250  ; 

260 
270 
280  ; 

290  befehl 


Disketten  validieren 

Bei  aller  Sorgfalt,  mit  der  die  Floppy  natürlich  arbeitet,  kann  es 
mitunter  Vorkommen,  daß  ein  Datenblock  in  der  BAM  als  belegt 
gekennzeichnet  ist,  obwohl  er  überhaupt  keiner  Datei  mehr  zu- 
geordnet ist. 


Die  häufigste  Ursache  dafür  liegt  in  gelöschten  Dateien.  Beim 
Löschen  einer  Datei  wird  diese  nämlich  nur  im  Directory  der 
Diskette  als  "gelöscht"  gekennzeichnet:  Ihre  Datenblocks  bleiben 
zunächst  "belegt".  Dadurch  wird  sozusagen  eine  "Hintertür"  of- 
fengehalten, um  die  Datei  wieder  zurückzuholen  (indem  man 
den  Löscheintrag  im  Directory  zum  Beispiel  mit  einem  soge- 
nannten Diskettenmonitor  rückgängig  macht).  Das  funktioniert 
allerdings  nur  so  lange,  wie  man  keine  neuen  Daten  auf  der  be- 
treffenden Diskette  speichert. 


Ida  #$0f 
Idx  #$08 
Idy  #$0f 
jsr  $ffba 

Ida  #$01 
Idx  #<(befehl) 
Idy  #>(befehl) 
jsr  $ffbd 

jsr  $ffc0 

Ida  #$0f 
jsr  $ffc3 


.■logische  file-nr.  15 
; geraeteadresse 
;sekur>daeradr.  15 
; parameter  setzen 

;befehlslaenge! 

; zeiger  auf 
;befehlstext 
; Parameter  setzen 

; open- routine  aufrufen 

; logische  file-nr.  15 
; close- routine  aufrufen 


.tx 
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Um  nun  aber  die  BAM  gegebenenfalls  auf  den  neuesten  Stand 
zu  bringen,  besteht  die  Möglichkeit,  die  Diskette  "auf räumen”  zu 
lassen.  Diesen  Vorgang  bezeichnet  man  auch  als  "Validieren". 
Der  Befehl  dafür  schreibt  sich  analog: 

VAL I DATE 


oder  abgekürzt: 
v 

Beim  Validieren  überprüft  die  Floppy  jeden  der  664  Daten- 
blöcke der  Diskette.  Ist  ein  Block  keiner  im  Directory  eingetra- 
genen Datei  zugeordnet,  so  wird  er  als  frei  gekennzeichnet.  In 
BASIC  sieht  das  so  aus: 

100  rem  ***  routine:  diskette  validieren  *** 

110  open  15,8,15 
120  print#15,"v" 

130  close  15 


Und  das  ganze  in  Assembler: 


100  ;***  routine:  diskette  validieren  *** 
110  ; 

120  .ba  49152  ;*  Startadresse  * 

130  ; 


140 

Ida  #$0f 

; logische  file-nr.  15 

150 

Idx  #$08 

;geraeteadresse 

160 

Idy  #$0f 

;sekundaeradr.  15 

170 

jsr  Sffba 

; Parameter  setzen 

180  ; 

190 

Ida  #$01 

;befehlslaengel 

200 

Idx  #<( befehl) 

; zeiger  auf 

210 

Idy  #>(befeht) 

; befehlstext 

220 

jsr  $ffbd 

; Parameter  setzen 

230  ; 

240 

jsr  $ffc0 

;open-routine  aufrufen 

250  ; 

260 

Ida  #$0f 

; logische  file-nr.  15 

270 

jsr  $ffc3 

;c lose- routine  aufrufen 

280  ; 

290  befehl 

.tx  "v" 
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Dateien  löschen 

Eine  Datei,  die  Sie  nicht  mehr  benötigen,  können  Sie  auf  der 
Diskette  jederzeit  löschen.  Dazu  gibt  es  den  Befehl  SCRATCH: 

»SCRAT  CH :DATE 1 NAME" 

oder  abgekürzt: 

"S  DATEINAME" 

In  BASIC  sieht  das  so  aus: 

100  rem  ***  routine:  datei  loeschen  *** 

110  open  15,8,15 

120  print#15,,ls:daten(alt)" 

130  close  15 

Und  das  ganze  in  Assembler: 

100  ;***  routine:  datei  loeschen  *** 

110  ; 

120  .ba  49152  ;*  Startadresse  * 

130  ; 


140 

Ida  #$0f 

; logische  file-nr.  15 

150 

Idx  #$08 

;geraeteadresse 

160 

Idy  #$0f 

;sekundaeradr.  15 

170 

jsr  $ffba 

; Parameter  setzen 

180  ; 
190 

Ida  #$0c 

;befehlslaenge! 

200 

Idx  #<(befehl) 

; zeiger  auf 

210 

Idy  #>(befehl) 

; befehlstext 

220 

jsr  $ffbd 

;parameter  setzen 

230  ; 
240 

jsr  $ffc0 

; open- routine  auf rufen 

250  ; 
260 

Ida  #$0f 

; logische  file-nr.  15 

270 

jsr  $ffc3 

;c lose- routine  aufrufen 

280  ; 

290  befehl 

.tx  "s:daten(alt)" 

Mit  einem  SCRATCH-Befehl  lassen  sich  auch  mehrere  Dateien 
gleichzeit  löschen.  Dazu  gibt  man  die  Dateinamen  hintereinander 
an,  beispielsweise  löscht 


OPEN  15,8, 15,"S:DATEI 1 ,DATEI2,DATEI3" : CLOSE  15 
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drei  Dateien  auf  einmal.  Die  Länge  des  Befehls-Strings  ist  aller- 
dings auf  40  Zeichen  beschränkt.  Bei  ähnlichen  Dateinamen 
kann  man  sich  auch  der  beiden  sogenannten  Jokerzeichen  * und 
? bedienen. 

Das  Fragezeichen  ? signalisiert  der  Floppy,  daß  das  Zeichen  an 
der  entsprechenden  Stelle  beliebig  sein  darf. 

OPEN  15,8,15, "S:DATEI?":CLOSE  15 

löscht  daher  ebenfalls  die  drei  Dateien,  allerdings  auch  evtl,  vor- 
handene Dateien  mit  den  Namen  DATEI4,  DATEI5  usw.!  Der 
Stern  * kennzeichnet  den  Rest  des  Dateinamens  als  beliebig. 

OPEN  15,8, 15,,,S:DAT*":CL0SE  15 

löscht  also  sämtliche  Dateien,  die  mit  "DAT"  beginnen. 

Vorsicht : Eine  Datei,  die  mit  SCRATCH  gelöscht  wurde,  kann 

- zumindest  mit  normalen  Mitteln  - nicht  mehr  zu- 
rückgeholt werden!  Insbesondere  bei  der  Arbeit  mit 
den  Jokerzeichen  sollten  Sie  daher  sehr  sorgfältig 
darauf  achten,  daß  Sie  nicht  aus  Versehen  eine 
falsche  Datei  löschen. 

Wenn  Sie  nach  dem  Löschen  den  Fehlerkanal  auslesen,  erhalten 
Sie  die  Anzahl  der  gelöschten  Dateien. 

03  FILES  SCRATCHED  00  00 

beispielsweise  besagt,  daß  drei  Dateien  gelöscht  wurden. 

Dateien  umbenennen 

Wesentlich  "ungefährlicher"  als  das  Löschen  ist  das  Umbenennen 
einer  Datei.  Dazu  stellt  die  Floppy  einen  Befehl  zur  Verfügung: 

RENAME: NEUER  NAME=ALTER  NAME 


oder  abgekürzt: 
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R: NEUER  NAME-ALTER  NAME 

Möchten  Sie  beispielsweise  die  Datei  DATEN  in  DATEN(ALT) 
umbenennen,  so  sieht  das  in  BASIC  wie  folgt  aus: 

100  rem  ***  routine:  datei  umbenennen  *** 

110  open  15,8,15 

1 20  pr  i nt#1 5 , 11  r : da ten(  a 1 1 )=daten" 

130  close  15 


Und  das  ganze  in  Assembler 


100  ;***  routine:  datei  umbenennen  *** 
110  ; 

120  .ba  49152  ;*  startadresse  * 

130  ; 


140 

Ida 

#$0f 

; logische  file-nr. 

15 

150 

Idx 

#$08 

;geraeteadresse 

160 

Idy 

#$0f 

;sekundaeradr.  15 

170 

jsr 

$ffba 

; Parameter  setzen 

180  ; 

190 

Ida 

#$12 

;befehlslaenge! 

200 

Idx 

#<(befehl) 

; Zeiger  auf 

210 

Idy 

#>(befehl) 

;befehlstext 

220 

jsr 

Sffbd 

; Parameter  setzen 

230  ; 

240 

jsr 

$ffc0 

;open-routine  aufrufen 

250  ; 

260 

Ida 

#$0f 

; logische  file-nr. 

15 

270 

jsr 

$ffc3 

;close-routine  aufrufen 

280  ; 

290  befehl 

-tx 

"r:daten(alt)=daten" 

Dateien  kopieren 

Ein  Befehl,  der  auf  den  ersten  Blick  keinen  allzu  großen  Sinn 
macht,  ist  COPY.  COPY  kopiert  eine  Datei  innerhalb  einer  Dis- 
kette. Nun  möchte  man  ja  aber  in  der  Regel  allenfalls  eine  Ko- 
pie einer  Datei  auf  einer  anderen  Diskette  haben  und  keine  zwei 
Dateien  mit  demselben  Inhalt  auf  einer  Diskette. 


COPY  hat  aber  durchaus  seine  Existenzberechtigung.  Mit  ihm 
lassen  sich  nämlich  auch  mehrere  sogenannte  "sequentielle  Da- 
teien" (mehr  dazu  im  nächsten  Abschnitt)  zu  einer  neuen  Datei 
zusammenfassen: 
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COPY : NEUEDATE  I =DATE 1 1 , DATE I 2 , DATE I 3 , . . . 

oder  abgekürzt: 

C : NEUEDATE I =OATE I 1 ,DATEI2,DATEI3, . . . 

Die  hinter  dem  Gleichheitszeichen  stehenden  Dateien  werden  zu 
der  Datei  NEUEDATEI  zusammengefaßt.  Die  Einzeldateien  sind 
natürlich  auch  anschließend  noch  verfügbar! 

In  BASIC  könnte  das  so  aussehen: 

100  rem  ***  routine:  da t eien  zusanmenfügen  *** 

110  open  15,8,15 

120  print#15,"c: jahr=quart1 ,quart2,quart3,quart4" 

130  close  15 


Und  das  ganze  in  Assembler: 


100  ;***  routine:  dateien  zusanmenfügen  *** 
110  ; 

120  .ba  49152  ;*  startadresse  * 

130  ; 


140 

Ida 

#*0f 

150 

Idx 

#*08 

160 

Idy 

#*0f 

170 

jsr 

$ffba 

180  ; 

190 

Ida 

#*22 

200 

Idx 

#<( befehl) 

210 

Idy 

#>(befehl) 

220 

jsr 

Sffbd 

230  ; 

240 

jsr 

* 

o 

o 

250  ; 

260 

Ida 

#*0f 

270 

jsr 

*ffc3 

280  ; 

290  befehl 

.tx 

"c: jahr=qu 

; logische  f i le-nr.  15 
;geraeteadresse 
,-sekundaeradr.  15 
;parameter  setzen 

;befehlslaenge! 

; zeiger  auf 
;befehlstext 
; Parameter  setzen 

; open- routine  auf rufen 

;logische  fi le-nr.  15 
; c l ose-  rout  i ne  auf  rufen 

rtl fquart2,quart3,quart4" 


Die  vier  Quartalsdateien  QUART1  bis  QUART4  (die  vielleicht 
irgendwelche  Quartalsdaten  enthalten)  werden  zu  der  Jahresdatei 
JAHR  zusammengefügt. 
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5.2  Sequentielle  Dateien 

Die  einfachste  Form  der  Datenspeicherung  findet  in  sogenannten 
sequentiellen  Dateien  statt.  Jede  Datei  ist  dabei  in  einzelne  Da- 
tensätze unterteilt.  Jeder  Datensatz  wiederum  besteht  aus  einer 
bestimmten  Anzahl  von  Datenfeldern: 


Datei 

Datensatz  1 

Datensatz  2 

Datensatz  3 

F.1 

m 

El 

F.1 

El 

El 

F.1 

El 

El 

Wie  aus  der  Abbildung  ersichtlich  ist,  werden  die  einzelnen  Da- 
tensätze in  der  Datei  hintereinander  - als  eine  Sequenz  - abge- 
legt. Daher  kommt  auch  der  Name  sequentielle  Datei.  Eine  se- 
quentielle Datei  kann  nur  komplett  geschrieben  oder  gelesen 
werden.  Ein  direkter  Zugriff  auf  einen  bestimmten  Datensatz  ist 
nicht  möglich,  dafür  dürfen  die  einzelnen  Datensätze  aber  eine 
unterschiedliche  Länge  haben. 

Nehmen  wir  als  Beispiel  einmal  eine  Adreß Verwaltung,  die  viel- 
leicht aus  100  Datensätzen  besteht.  In  jedem  Datensatz  ist  eine 
Adresse  abgelegt,  die  aus  fünf  Teilen  besteht: 

Nachname 

Vorname 

StraBe 

Ort 

Telefon 

Nachname,  Vorname  usw.  sind  die  Datenfelder  eines  Daten- 
satzes. Um  diese  Adressen  nun  zu  verwalten,  wird  die  gesamte 
Datei  am  Programmanfang  in  den  Rechnerspeicher  (in  ein  Va- 
riablenfeld) geholt. 

Dadurch  ergibt  sich  schon  eine  wichtige  Einschränkung,  was  die 
Datenmenge  betrifft:  Sie  ist  durch  den  verfügbaren  Rechner- 
speicher beschränkt.  Dafür  stehen  die  Daten  im  Rechner  aber 
extrem  schnell  zur  Verfügung.  So  kann  man  sich  beispielsweise 
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ganz  einfach  blitzschnell  auch  eine  ganz  bestimmte  Adresse  am 
Bildschirm  ausgeben  lassen. 

Am  Ende  des  Programms  wird  die  komplette  Datei  wieder  auf 
die  Diskette  zurQckgeschrieben.  Das  ist  natürlich  nur  dann  er- 
forderlich, wenn  Sie  einzelne  Adressen  geändert  oder  neue  hin- 
zugefügt haben.  Damit  ist  das  Grundprinzip  der  sequentiellen 
Datei  auch  schon  erklärt.  Die  sequentielle  Datenspeicherung 
zählt  zwar  nicht  zu  den  schnellsten,  dafür  aber  mit  Sicherheit  zu 
den  einfachsten  Arten  der  Datenverwaltung. 

Gehen  wir  nun  die  einzelnen  Programmierschritte  der  Reihe 
nach  durch. 

Eine  sequentielle  Datei  öffnen 

Als  erstes  muß  die  Datei  geöffnet  werden.  Durch  das  öffnen  der 
Datei  signalisieren  Sie  dem  Rechner  und  der  Floppy,  daß  Sie  auf 
die  Datei  zugreifen  wollen.  Der  OPEN-Befehl  ist  wie  folgt  auf- 
gebaut: 

OPEN  LF, 8, SA, "Dateiname, S, Modus" 

LF  ist  die  logische  File-Nummer,  über  die  Sie  sich  bei  späteren 
Lese-  oder  Schreibzugriffen  auf  die  Datei  beziehen  können.  Für 
LF  können  Sie  Werte  zwischen  1 und  127  wählen.  Bei  der  8 
handelt  es  sich  um  die  Geräteadresse  der  Floppy. 

Die  Sekundäradresse  SA  hat  für  die  Floppy  eine  ähnliche  Be- 
deutung wie  die  logische  File-Nummer  für  den  Rechner.  An- 
hand der  Sekundäradresse  erkennt  die  Floppy,  auf  welche  Datei 
Sie  bei  einem  Schreib-/Lesezugriff  jeweils  zugreifen  wollen. 

Falls  Sie  daher  mehrere  sequentielle  Dateien  gleichzeitig  öffnen 
wollen  (bis  zu  drei  sind  erlaubt),  ist  es  sehr  wichtig,  daß  diese 
verschiedene  Sekundäradressen  haben! 

Für  SA  sind  nur  Werte  zwischen  2 und  14  zugelassen.  Die  Werte 
0 und  1 sind  für  das  Speichern  und  Laden  von  Programmen  re- 
serviert, die  IS,  wie  Sie  ja  bereits  wissen,  für  den  Befehlskanal. 


462 


Das  große  Commodore  64-Buch 


Am  einfachsten  ist  es,  wenn  man  für  die  logische  File-Nummer 
und  die  Sekundäradresse  jeweils  denselben  Wert  nimmt.  Möchte 
man  die  Maximalzahl  von  drei  Dateien  gleichzeitig  öffnen,  dann 
sähe  das  so  aus: 

OPEN  2,8,2,... 

OPEN  3,8,3,... 

OPEN  4,8,4,... 

Wenn  Sie  sich  an  diese  einfachen  Werte  halten,  verlieren  Sie 
nicht  so  schnell  den  Überblick  und  vermeiden  meist  nur  sehr 
schwer  zu  entdeckende  Fehler  bei  späteren  Schreib-  und  Lesezu- 
griffen. Die  drei  Parameter  in  den  Anführungszeichen  sind 
schnell  erklärt.  Der  Dateiname  dürfte  klar  sein.  Er  darf  bis  zu 
16  Zeichen  lang  sein.  Das  "S"  steht  für  den  Dateityp,  also  se- 
quentiell. 

"Modus"  bezeichnet  die  Art  des  Zugriffs  (Lesen  oder  Schreiben). 
Sie  müssen  also  bereits  beim  öffnen  der  Datei  festlegen,  ob  Sie 
aus  ihr  Daten  lesen  (Modus  "R"  für  "Read")  oder  in  sie  Daten 
schreiben  (Modus  "W"  für  "Write")  wollen. 

OPEN  2,8,2,"DATEN,S,W" 

öffnet  die  Datei  DATEN  also  zum  Schreiben.  Falls  auf  der  ein- 
gelegten Diskette  bereits  eine  Datei  mit  diesem  Namen  existiert 
(egal  von  welchem  Dateityp),  erhalten  Sie  die  Fehlermeldung 
FILE  EXISTS.  In  diesem  Fall  müssen  Sie  entweder  einen  ande- 
ren Namen  wählen  oder  die  vorhandene  Datei  zuvor  mit 

OPEN  1 5 , 8, 1 5 , "S : DATEN" : CLOSE  15 
löschen. 

OPEN  2, 8,2, "DATEN, S,R" 

öffnet  die  Datei  DATEN  zum  Lesen.  Falls  auf  der  Diskette 
keine  sequentielle  Datei  dieses  Namens  existiert,  bekommen  Sie 
die  Fehlermeldung  FILE  NOT  FOUND.  In  Assembler  sieht  das 
ganze  ähnlich  aus: 
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100  ;***  routine:  sequentielle  datei  öffnen 
110  ; 

120  .ba  49152  ;*  Startadresse  * 

130  ; 


140 

Ida 

#$02 

150 

Idx 

#$08 

160 

Idy 

#$02 

170 

jsr 

$ffba 

180  ; 

190 

Ida 

#$0d 

200 

Idx 

#<(text) 

210 

Idy 

#>(text) 

220 

jsr 

Sffbd 

230  ; 

240 

jsr 

$ffc0 

250  ; 

260 

Idx 

#$02 

270 

jsr 

$ffc6 

280  ; 

290  text 

.tx 

"datei na 

; logische  file-nr.  2 
;geraeteadresse 
;sekundaeradr.  2 
; Parameter  setzen 

;textlaenge! 

; zeiger  auf 
;text 

; Parameter  setzen 

;open-routine  aufrufen 

; logische  file-nr.  2 
; datei  auf  eingabe  schalten 

«s,r" 


Um  in  die  Datei  zu  schreiben,  müssen  Sie  die  letzten  drei  Pro- 
grammzeilen austauschen: 


270  jsr  $ffc9  ; datei  auf  ausgabe  schalten 

280  ; 

290  text  .tx  "dateiname,s,wM 


Eino  sequentielle  Datei  schließen 

Nachdem  die  Daten  gelesen  oder  geschrieben  wurden,  muß  die 
Datei  wieder  geschlossen  werden.  In  BASIC  verwenden  Sie  dazu 
den  CLOSE- Befehl: 

CLOSE  LF 

LF  ist  die  logische  File-Nummer,  die  Sie  beim  öffnen  der  Datei 
angegeben  haben.  In  Assembler  sind  drei  Befehle  erforderlich: 


500 

jsr  $ffcc 

;auf  Standardeingabe 

; zurückschalten 

510 

Ida  #$02 

; logische  file-nr.  2 

520 

jsr  $ffc3 

;close-routine  aufrufen 

Das  Schließen  der  Datei  signalisiert  dem  Rechner  und  der 
Floppy,  daß  die  Arbeit  mit  dieser  Datei  beendet  ist.  Insbeson- 
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dere  in  bezug  auf  die  Floppy  ist  es  daher  sehr  wichtig,  daß  Sie 
auch  das  Schließen  nicht  vergessen. 

Wenn  Sie  beispielsweise  eine  sequentielle  Datei  zum  Schreiben 
geöffnet  haben  und  vergessen,  sie  zu  schließen,  dann  war  die 
ganze  Mühe  umsonst.  Die  Datei  läßt  sich  anschließend  nämlich 
nicht  mehr  lesen!  Bei  jedem  Öffnungsversuch  zum  Lesen  erhal- 
ten Sie  nur  die  Fehlermeldung  WRITE  FILE  OPEN. 

Besonders  tückisch  wird  das  ganze  beim  Austesten  von  Pro- 
grammen, die  mit  Floppy-Dateien  arbeiten.  Wenn  Ihr  Programm 
beispielsweise  infolge  eines  Syntaxfehlers  irgendwo  abbricht, 
sollten  Sie  zuallererst  nachsehen,  ob  im  Moment  noch  eine  Datei 
geöffnet  ist,  und  falls  ja,  diese  sofort  mit 

CLOSE  LF 

schließen.  Sobald  Sie  nämlich  den  Syntaxfehler  in  Ihrem  Pro- 
gramm behoben  haben,  ist  es  zu  spät,  da  der  Rechner  beim  Ein- 
geben einer  neuen  Programmzeile  automatisch  alle  internen 
Vermerke  über  geöffnete  Dateien  löscht.  Die  Datei  ist  dann  zwar 
für  den  Rechner  "geschlossen",  nicht  aber  für  die  Floppy!  Eine 
nicht  geschlossene  Datei  ist  übrigens  bei  der  Floppy  leicht  "op- 
tisch" erkennbar:  Sobald  eine  Datei  (egal  welchen  Typs)  geöffnet 
wird,  beginnt  die  rote  LED  der  Floppy  zu  leuchten  und  erlischt 
erst  wieder,  nachdem  die  letzte  Datei  geschlossen  ist. 

Daten  schreiben  und  lesen 

Kommen  wir  zum  wichtigsten,  dem  Schreiben  und  Lesen  von 
Daten.  Dazu  benötigen  wir  die  drei  BASIC-Befehle  PRINT#, 
INPUT#  und  GET#.  Nehmen  wir  einmal  an,  Sie  möchten  in  die 
Datei  ADRESSEN  1 den  Datensatz 

Klaus 

Mueller 

Beispielstr.  29 
8000  Muenchen  60 
0811/12  34  56 

schreiben,  dann  gehen  Sie  wie  folgt  vor: 
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100  open  2,8,2, "adressen1,s,w" 
110  print#2,"klaus" 

120  p^int#2,,,laueller,, 

130  print#2,"beispielstr.  29" 
140  print#2,"8000  muenchen  60" 
150  print#2, "0811/12  34  56" 

160  close  2 


Wieder  einiesen  läßt  sich  der  Datensatz  ebenso  leicht: 


200  open  2,8,2,"adressen1,s,r 

210,  input#2,vn$ 

220  input#2,nr\$ 

230  input#2,sr$ 

240  input#2,ot$ 

250  input#2,tf$ 

260  close  2 

270  : 

280  print  "Vorname: 

";vn$ 

290  print  "nachname: 

";nn$ 

300  print  "Strasse: 

";sr$ 

310  print  "ort:" 

";ot$ 

320  print  "telefon: 

";tf$ 

Auf  dem  Bildschirm  erhalten  Sie  folgende  Ausgabe: 


VORNAME: 

KLAUS 

NACHNAME: 

MUELLER 

STRASSE: 

BEISPIELSTR.  29 

ORT: 

8000  MUENCHEN  6 

TELEFON: 

0811/12  34  56 

Damit  der  INPUT#-Befehl  die  einzelnen  Datenfelder  auseinan- 
derhalten kann,  müssen  diese  entweder  durch  ein  "Return" 
(ASCII-Code  1 3)  oder  ein  Komma  (,)  voneinander  getrennt  sein. 

Das  "Return"  wird  vom  PRINT#-Befehl  am  Ende  jeder  Zeile 
automatisch  gesendet.  Wohlgemerkt  aber  nur  am  Ende!  Wollen 
Sie  mehrere  Datenfelder  in  einer  PRINT#-Zeile  zusammenfas - 
Sen,  dann  müssen  Sie  selbst  für  die  Feldertrennung  sorgen,  in- 
dem Sie  ein  Komma  zwischen  die  Felder  setzen: 
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100  open  2,8,2,"adressen1,s,uM 

110  print#2,"klaus";",";"mueller";",";"beispielstr.  29" 

140  print#2,"8000  muenchen  60";",";"0811/12  34  56" 

160  close  2 

Die  Felder  1,2  und  3 sowie  4 und  5 sind  nun  durch  ein  Komma 
getrennt,  die  Felder  3 und  4 durch  ein  "Return".  Natürlich  kön- 
nen Sie  auch  innerhalb  einer  Zeile  "Return"  einfügen: 

100  open  2,8,2, "adressen1fs,w" 

110  print#2,"klaus";chr$<13);"mueller";chr$(13);"beispielstr.  29" 
140  print#2,"8000  muenchen  60";chrS(13);"0811/12  34  56" 

160  close  2 

Jeden  Datensatz  durch  einen  einzelnen  PRINT#-Befehl  zu 
schreiben,  ist  sehr  umständlich.  Wesentlich  einfacher  wird  das 
ganze  mit  einer  Einleseschleife  und  fünf  eindimensionalen  Va- 
riablenfeldern: 

100  Input  "anzahl  der  datensaetze:";az 

110  rem  felder  dimensionieren 

120  dim  vn$(az),nnS(az),sr$(az),otS(az),tf$(az) 

130  : 

140  rem  datensaetze  erfragen 

150  for  z=1  to  az 

160  input  "vorname:  ";vn$(z) 

170  input  "nachname:  ";nn$(z) 

180  input  "Strasse:  ";sr$(z) 

190  input  "ort:"  ";ot$(z) 

200  input  "telefon:  ";tf$(z) 

210  next  z 
220  : 

230  rem  datensaetze  in  datei  schreiben 
240  open  2,8,2,"adressen2,s,w" 

250  for  z=1  to  az 
260  print#2,vn$(z) 

270  print#2,nn$(z) 

280  print#2,sr$(z) 

290  print#2,ot$(z) 

300  print#2,tf$(z) 

310  next  z 
320  close  2 

Das  Programm  erlaubt  es  Ihnen,  eine  beliebige  Anzahl  von  Da- 
tensätzen einzugeben,  die  dann  in  der  Datei  ADRESSEN2  abge- 
legt werden.  Um  es  noch  etwas  flexibler  zu  gestalten,  könnte 
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man  die  Anzahl  der  Datensätze  in  der  Datei  mit  abspeichern 
lassen.  Dazu  fügen  Sie  einfach  eine  Programmzeile  24S  ein: 

245  print#2,az 


Mit  dem  folgenden  Programm,  das  die  Daten  wieder  einliest, 
haben  Sie  schon  fast  eine  kleine  Adreßverwaltung: 

500  rem  datensaetze  einiesen 
510  open  2l8,2>"adressen2ls>r" 

520  input  az:rem  anzahl  der  datensaetze 

530  dim  vn$(az),mS(az),sr$(az),ot$(az),tf$(az):rem  felder 

540  for  z=1  to  az 

550  input#2,vn$(z) 

560  input#2,nn$(z) 

570  input#2,sr$(z) 

580  input#2,ot$(z) 

590  input#2,tf$(z> 

600  next  z 
610  close  2 
620  : 

630  rem  datensaetze  ausgeben 

640  for  z=1  to  az 

650  print  "vorname:  ";vn$(z) 

660  print  "nachname:  ";m$(z) 

670  print  "Strasse:  ";sr$(z) 

680  print  "ort:"  ";ot$(z) 

690  print  "telefon:  ";tf$(z) 

700  print 

710  print  "bitte  eine  taste  druecken!" 

720  get  tt$:if  tt$=""  then  720: rem  auf  tastendruck  warten 
730  next  z 

Insbesondere  dann,  wenn  man  eine  fremde  Datei  einiesen 
möchte,  stellt  sich  oft  das  Problem,  daß  man  den  internen  Auf- 
bau der  Datei  nicht  genau  kennt,  also  nicht  weiß,  aus  wie  vielen 
Datensätzen  die  Datei  besteht  und  wie  groß  die  einzelnen  Da- 
tensätze jeweils  sind. 


In  diesem  Fall  nützt  einem  der  INPUT#-Befehl  nur  wenig. 
Nicht  zuletzt,  da  die  Eingabelänge  bei  INPUT#  auf  88  Zeichen 
beschränkt  ist.  Dafür  gibt  es  aber  noch  einen  anderen  Eingabe- 
befehl, der  jeweils  nur  ein  einzelnes  Zeichen  einliest:  GET#. 


Was  wir  außerdem  noch  benötigen,  ist  die  Möglichkeit,  festzu- 
stellen, wann  das  Ende  einer  Datei  erreicht  ist.  Da  es  ja  nicht 
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gesagt  ist,  daß  jede  Datei  mit  einem  "Return",  das  wir  leicht 
abf ragen  können,  endet,  bedienen  wir  uns  der  sogenannten 
"reservierten  Variablen"  ST. 

Enthält  ST  einen  Wert  ungleich  64,  so  können  wir  aus  der  aktu- 
ellen Datei  unbesorgt  weiter  Daten  einiesen.  Das  Dateiende  ist 
dann  noch  nicht  erreicht. 

Nebenbei  bemerkt:  Da  die  Variable  ST,  wie  gesagt,  vom  Be- 
triebssystem "reserviert"  ist,  darf  man  sie  nicht  für  eigene 
Zwecke  verwenden.  Wenn  Sie  das  versuchen,  beispielsweise 
durch  eine  Wertzuweisung  "ST=...",  erhalten  Sie  eine  entspre- 
chende Fehlermeldung.  Das  folgende  kleine  Programm  ist  in  der 
Lage,  eine  beliebige  sequentielle  Datei  zu  lesen: 

100  open  2,8,2l"datei>s>r" 

110  : 

120  if  st=64  then  210:rem  dateiende  erreicht? 

130  get#2,eg$:rem  ein  Zeichen  holen 
140  if  eg$=chrS(13)  then  180:rem  'return1? 

150  dt$sdt$+eg$ 

160  goto  120:rem  naechstes  Zeichen 
170  : 

180  print  dtS 

190  dt$=,,,,:goto  120: rem  naechster  datensatz 
200  : 

210  close  2 


Die  einzelnen  Datensätze  werden  nacheinander  in  die  Variable 
DT$  eingelesen  und  auf  dem  Bildschirm  ausgegeben. 

Die  einzige  Bedingung  dabei:  Ein  Datensatz  darf  nicht  länger  als 
255  Zeichen  sein,  da  ja  DT$  keine  längeren  Zeichenketten  auf- 
nehmen kann.  Kennt  man  die  Länge  der  Datensätze  bzw.  der 
einzelnen  Felder,  dann  genügt  eine  einfache  FOR-NEXT- 
Schleife: 

100  open  2f8,2,"datei,s,r" 

110  dt$="" 

120  for  z=1  to  150 
130  get#2,eg$ 

140  dt$=dt$+eg$ 

150  next  z 
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Das  Programmstück  liest  ein  ISO  Byte  langes  Datenfeld  ein  und 
legt  es  in  der  Variablen  DT$  ab.  Bevor  man  jetzt  das  nächste 
Feld  einliest,  darf  man  aber  nicht  vergessen,  das  trennende 
"Return"  zu  überlesen!  Das  Programmstück  müßte  also  wie  folgt 
erweitert  werden: 

160  get  eg$:rem  'return'  lieber  lesen 
165  rem  naechstes  datenfeld 
170  nt$="" 

180  for  z=1  to  ... 

190  get#2,eg$ 

200  nt$=nt$+eg$ 

210  next  z 


ln  Assembler  möchte  ich  mich  der  Einfachheit  halber  auf  das 
Schreiben  und  Lesen  eines  Datensatzes  beschränken.  Dabei  gehe 
ich  davon  aus,  daß  sich  der  zu  schreibende  Datensatz  in  einem 
Pufferspeicher  befindet  (Programmzeile  580)  und  mit  einem 
"Return"  abgeschlossen  ist: 


100  ;***  routine:  datensatz  schreiben  *** 
110  ; 

120  .ba  49152  ;*  Startadresse  * 


125  ; 

130  ; 

135  ;*  datei  oeffnen  * 


140 

Ida  #$02 

150 

Idx  #$08 

160 

Idy  #$02 

170 

jsr  $ffba 

180  ; 

190 

Ida  #$0d 

200 

Idx  #<(text) 

210 

Idy  #>(text) 

220 

jsr  $ffbd 

230  ; 

240 

jsr  $ffc0 

250  ; 

260 

Idx  #$02 

270 

jsr  $ffc9 

280  ; 

285  ; 

290  ;*  datensatz  schreiben 

300 

Idy  #0 

310  schleife 

Ida  puffer, y 

320 

jsr  $ffd2 

330 

cmp  #$0d 

340 

beq  fertig 

; logische  file-nr.  2 
; geraeteadresse 
;sekundaeradr.  2 
;parameter  setzen 

;textlaenge! 

; Zeiger  auf 
;text 

; Parameter  setzen 

;open-routir»e  auf  rufen 

; logische  file-nr.  2 
;datei  auf  ausgabe  schalten 


;zeichen  aus  puffer  holen 
;und  ausgeben 
; 1 return1? 

;ja,  ausgabe  beenden 
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350  Imy  ;zeiger+1 

360  jmp  schleife  ;naechstes  Zeichen 

370  ; 

380  ; 

500  ;*  datei  sch  Hessen  * 

510  fertig  jsr  $ffcc  ;auf  Standardeingabe 

; zurückschalten 

520  Ida  #$02  .'logische  file-nr.  2 

530  jsr  $ffc3  ;c lose- rout ine  auf rufen 

540  ; 

550  ; 

560  ;*  datenbereich  * 

570  text  .tx  "dateiname.s.w" 

580  puffer  .tx  . .datensatz. . . 11 

Der  zu  lesende  Datensatz  wird  in  dem  in  Programmzeile  580 
eingerichteten  Puffer  abgelegt.  Dieser  Puffer  muß  natürlich 
ausreichend  groß  dimensioniert  werden: 

100  ;***  rout ine:  datensatz  lesen  *** 

110  ; 

120  .ba  49152  ;*  Startadresse  * 

125  ; 

130  ; 

135  ;*  datei  oeffnen  * 


140 

Ida  #$02 

.■logische  file-nr.  2 

150 

Idx  #$08 

;geraeteadresse 

160 

Idy  #$02 

;sekundaeradr.  2 

170 

jsr  $ffba 

.'Parameter  setzen 

180  ; 

190 

Ida  #$0d 

;textlaengel 

200 

Idx  #<(text) 

; zeiger  auf 

210 

Idy  #>(text) 

; text 

220 

jsr  $ffbd 

; Parameter  setzen 

230  ; 

240 

jsr  $ffc0 

; open- rout ine  auf rufen 

250  ; 

260 

Idx  #$02 

.'logische  file-nr.  2 

270 

jsr  $ffc6 

;datei  auf  eingabe  schalten 

280  ; 

285  ; 

290  ;*  datensatz  lesen  * 

300 

Idy  #0 

310  schleife 

jsr  $ffcf 

;ein  Zeichen  lesen 

320 

cmp  #$0d 

; 1 return 1 ? 

330 

beq  fertig 

;ja,  eingabe  beenden 

340 

sta  puffer, y 

;zeichen  in  puffer  ablegen 

350 

iny 

;zeiger+1 

360 

jmp  schleife 

;naechstes  Zeichen 

370  ; 
380  ; 
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500  ;*  datei  sch  Hessen  * 

510  fertig  jsr  Sffcc  ;auf  Standardeingabe 

; zurückschalten 

520  Ida  #$02  ; logische  file-nr.  2 

530  jsr  $ffc3  ; c lose- rout ine  aufrufen 

540  ; 

550  ; 

560  ;*  datenbereich  * 

570  text  .tx  "datei name,s,r" 

580  puffer  .tx  " " 

Sequentielle  Dateien  erweitern 

Ein  nicht  zu  unterschätzender  Nachteil  der  sequentiellen  Daten- 
speicherung ist  die  mangelnde  Flexibilität,  wenn  es  um  Ände- 
rungen an  den  Daten  geht.  Im  Normalfall  muß  die  gesamte  Datei 
eingelesen,  die  Änderungen  durchgeführt  und  anschließend  die 
Datei  wieder  zurückgeschrieben  werden. 

Falls  Sie  die  Datei  aber  nur  um  zusätzliche  Datensätze  erweitern 
wollen  und  diese  Datensätze  auch  noch  "hinten"  an  die  Datei  an- 
gehängt werden  sollen,  gibt  es  einen  wesentlich  einfacheren  Weg. 
Dazu  müssen  Sie  die  Datei  in  einem  speziellen  Modus,  dem  Ap- 
pend-Modus,  öffnen: 

OPEN  2,8,2, "DATEN, S.A" 

Wenn  Sie  anschließend  mit 

PRINT#2,"NEUE  DATEN" 

in  die  Datei  schreiben,  werden  die  zusätzlichen  Daten  automa- 
tisch an  die  bereits  in  der  Datei  vorhandenen  Daten  angehängt. 
Zum  Schluß  dürfen  Sie  natürlich  nicht  vergessen,  die  Datei  mit 

close  2 

zu  schließen.  Nehmen  wir  ein  einfaches  Beispiel:  Zuerst  schrei- 
ben wir  in  eine  neue  Datei  mit  dem  Namen  BEISPIEL  fünf  Da- 
tensätze: 


100  open  2,8,2,"beispiel,s,w" 
110  print#2,"datensatz  1" 

120  print#2,"datensatz  2" 
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130  print#2, "datensatz  3" 
140  pr i nt#2 , "datensatz  4" 
150  print#2,"datensatz  5" 
160  close  2 


Anschließend  hängen  wir  drei  Datensätze  an: 

200  open  2l8,2,“beispiel,s,a" 

210  print#2, "datensatz  6" 

220  print#2 ."datensatz  7" 

230  print#2, "datensatz  8" 

240  close  2 


Die  Datei  BEISPIEL  enthält  nun  acht  Datensätze,  die  Sie  mit 
dem  folgenden  Programmstück  einiesen  können: 

300  open  2,8f2f“beispiel,s,  r" 

310  for  z=1  to  8 
320  input#2,dz$ 

330  print  dz$ 

340  next  z 
350  close  2 


In  Assembler  möchte  ich  mich  auf  einen  Datensatz  beschränken: 


100  ;***  routine:  datensatz  anhaengen  *** 
110  ; 

120  .ba  49152  ;*  Startadresse  * 

125  ; 

130  ; 


135  ;*  datei 

oeffnen  * 

140 

Ida  #$02 

; logische  file-nr.  2 

150 

Idx  #$08 

;geraeteadresse 

160 

Idy  #$02 

;sekundaeradr.  2 

170 
180  ; 

jsr  $ffba 

; Parameter  setzen 

190 

Ida  #$0d 

;textlaenge! 

200 

Idx  #<(text) 

; zeiger  auf 

210 

Idy  #>(text) 

; text 

220 
230  ; 

jsr  $ffbd 

; Parameter  setzen 

240 
250  ; 

jsr  $ffc0 

;open-routine  auf rufen 

260 

Idx  #$02 

;logische  file-nr.  2 

270 

jsr  $ffc9 

;datei  auf  ausgabe  schalten 

280  ; 

285  ; 

290  ;*  datensatz  schreiben  (anhaengen)  * 

300  Idy  #0 

310  schleife  Ida  puffer.y  ; Zeichen  aus  puffer  holen 
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320 

jsr  $ffd2 

330 

cmp  #*0d 

340 

beq  fertig 

350 

iny 

360 

jnp  schleife 

370  ; 

380  ; 

500  ;*  datei 

sch li essen  * 

500  fertig 

jsr  Sffcc 

510 

Ida  «$02 

520 

jsr  $ffc3 

520  ; 

530  ; 

;und  ausgeben 
; 'return1? 

; ja,  ausgabe  beenden 
; zeige r+1 

;naechstes  Zeichen 


;auf  Standardeingabe 
; zurückschalten 
; logische  file-nr.  2 
; c lose- rout ine  aufrufen 


530  ;*  datenbereich  * 

290  text  .tx  Hdateiname,s,a" 

540  puffer  .tx  "...datensatz... 


Nicht  zuletzt  wegen  der  doch  recht  "starren"  Struktur  der  se- 
quentiellen Dateien  hat  man  eine  weitere  Dateiform  eingeführt, 
die  sogenannten  "relativen  Dateien",  mit  denen  wir  uns  im  näch- 
sten Abschnitt  befassen  werden. 


5.3  Relative  Dateien 

Eine  sogenannte  relative  Datei  ist  in  Grunde  genommen  nicht 
viel  anders  auf  gebaut  als  eine  sequentielle  Datei.  Der  entschei- 
dende Unterschied  liegt  in  der  Art  des  Zugriffs  auf  die  einzel- 
nen Datensätze.  Bei  einer  relativen  Datei  kann  man  jeden  Da- 
tensatz direkt  ansprechen,  also  schreiben  oder  lesen.  D.h.,  es 
muß  nicht  extra  die  gesamte  Datei  in  den  Rechnerspeicher  gela- 
den werden,  sondern  eben  nur  der  jeweils  benötigte  Datensatz. 

Der  Vorteil  liegt  klar  auf  der  Hand:  Die  Datenkapazität  einer 
relativen  Datei  ist  nur  durch  die  Größe  einer  Diskette  begrenzt 
und  nicht  wie  bei  der  sequentiellen  Datei  durch  die  Größe  des 
Rechnerspeichers. 

Außerdem  gestaltet  sich  die  Datenverwaltung  mit  einer  relativen 
Datei  natürlich  wesentlich  flexibler.  Möchte  man  beispielsweise 
einen  bestimmten  Datensatz  (von  vielleicht  1000)  ändern,  so  muß 
man  nur  diesen  einen  Satz  lesen  und  - nach  den  durchgeführten 
Änderungen  - wieder  zurückschreiben. 
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Wie  so  oft  hat  das  ganze  aber  auch  einen  Haken:  alle  Datensätze 
einer  relativen  Datei  (auch  Records  genannt)  müssen  dieselbe 
Länge  aufweisen.  Diese  Einschränkung  ergibt  sich  aus  der  Art 
und  Weise,  wie  die  Floppy  die  Position  eines  Datensatzes  inner- 
halb der  Gesamtdatei  ermittelt.  Nehmen  wir  einmal  an.  Sie  ha- 
ben eine  relative  Datei  mit  500  Datensätzen,  wobei  jeder  Da- 
tensatz 110  Byte  lang  ist.  Nun  möchten  Sie  den  137.  Datensatz 
lesen.  Die  Floppy  führt  jetzt  eine  einfache  Rechnung  durch: 

Datensatzlänge*(Datensatznumner-1)=Position 

Da  Sie  den  137.  Datensatz  benötigen,  müssen  die  ersten  136  Da- 
tensätze "überlesen"  werden.  Wegen  der  konstanten  Datensatz- 
länge von  110  Byte  belegen  diese  136  Sätze  genau 
110*136=14960  Byte  in  der  relativen  Datei.  Der  137.  Datensatz 
beginnt  also  ab  der  Position  14961!  Auf  diese  Stelle  innerhalb 
der  Datei  setzt  die  Floppy  einen  Zeiger,  so  daß  Sie  den  Daten- 
satz anschließend  lesen  oder  schreiben  können. 

Eine  relative  Datei  Öffnen  und  schließen 

Zuerst  muß  die  Datei  aber  geöffnet  werden.  Das  geschieht,  wie 
gewohnt,  mit  dem  OPEN-Befehl.  Im  Gegensatz  zu  den  sequen- 
tiellen Dateien  ist  es  dabei  aber  egal,  ob  Sie  in  die  Datei  schrei- 
ben oder  aus  ihr  lesen  möchten.  Der  OPEN-Befehl  hat  das  fol- 
gende Format: 

OPEN  LF , 8, SA , "DATE I NAHE , L , "+CHR$(RL ) 

bzw.  in  Assembler: 


HO 

Ida  #$02 

;togische  file-nr.  2 

150 

Idx  #$08 

;geraeteadresse 

160 

Idy  #$02 

;sekundaeradr.  2 

170 

jsr  $ffba 

; Parameter  setzen 

180  ; 
190 

Ida  #$0d 

;textlaenge! 

200 

Idx  #<(text) 

; zeiger  auf 

210 

Idy  #>(text) 

; text 

220 

jsr  $ffbd 

; Parameter  setzen 

230  ; 
240 

jsr  $ffc0 

; open- rout ine  auf rufen 
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280  ; 

290  text  .tx  "dateirvame.l," 

300  .by  rl 

LF  ist  wiederum  die  logische  File-Nummer  der  Datei;  SA  ihre 
Sekundäradresse.  Das  "L"  hinter  dem  Dateinamen  signalisiert  der 
Floppy,  daß  Sie  eine  relative  Datei  öffnen  wollen.  Übrigens 
kann  immer  nur  eine  relative  Datei  geöffnet  sein.  Möchte  man 
mit  mehreren  relativen  Dateien  gleichzeitig  arbeiten,  muß  man 
die  Dateien  vor  jedem  Zugriff  öffnen  und  anschließend  sofort 
wieder  schließen.  Eine  zusätzlich  geöffnete  sequentielle  Datei  ist 
aber  erlaubt. 

RL  steht  für  die  Record-Länge.  Die  Record-Länge  kann  zwi- 
schen 1 und  254  Byte  gewählt  werden  und  muß  bei  jedem  öff- 
nen der  Datei  mit  angegeben  werden.  Eine  nachträgliche  Ände- 
rung der  Record-Länge  ist  nicht  möglich.  Wenn  Sie  bei  einem 
späteren  Zugriff  auf  die  Datei  eine  andere  Record-Länge  als 
beim  Einrichten  der  Datei  angeben,  reagiert  die  Floppy  mit  ei- 
ner Fehlermeldung. 

Bevor  man  eine  relative  Datei  einrichtet,  muß  man  sich  daher 
sehr  sorgfältig  überlegen,  wie  groß  ein  Datensatz  maximal  wer- 
den kann.  Dabei  spielt  es  auch  eine  Rolle,  wie  Sie  den  Datensatz 
bzw.  die  einzelnen  Datenfelder  später  einiesen  wollen. 

Wenn  sie  mit  INPUT#  arbeiten,  müssen  die  Records  bzw.  die 
einzelnen  Datenfelder  mit  einem  "Return"  abgeschlossen  sein. 
Dieses  "Return"  belegt  aber  ein  Byte  des  Records.  Falls  die  Da- 
tensätze also  beispielsweise  50  Bytes  groß  sind,  müssen  Sie  als 
Record-Länge  51  Bytes  angeben. 

Eine  Alternative  ist  der  GET#-Befehl,  der  ja  immer  nur  ein 
Zeichen  holt.  Der  große  Nachteil  von  GET#:  Es  ist  insbesondere 
bei  langen  Records  viel  zu  langsam.  Ich  werde  Ihnen  deshalb  et- 
was weiter  unten  eine  Maschinensprache-Routine  vorstellen,  mit 
der  sich  Records  bis  zur  Maximallänge  von  254  Bytes  in  einem 
Stück  in  eine  Variable  einiesen  lassen. 
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Das  öffnen  der  Datei  haben  wir  nun  hinter  uns.  Doch  wie  geht 
es  weiter?  Im  Augenblick  enthält  die  Datei  ja  noch  kein  einziges 
Byte,  geschweige  denn  einen  kompletten  Datensatz.  An  dieser 
Stelle  kommt  die  eingangs  schon  erwähnte  Record-Positionierung 
ins  Spiel.  Um  die  Datei  voll  einzurichten,  setzen  wir  den  Re- 
cord-Zeiger einfach  auf  den  letzten  Record,  den  wir  voraus- 
sichtlich benötigen  werden,  und  beschreiben  diesen  Record  mit 
dem  ASCII-Code  2 55.  Wenn  Sie  also  eine  relative  Datei  mit  200 
Datensätzen  einrichten  wollen,  positionieren  Sie  auf  den  200. 
Record.  Dadurch  werden  automatisch  auch  alle  vor  diesem  Da- 
tensatz liegenden  Records  eingerichtet  oder  "freigegeben",  wie 
man  auch  sagt. 

Diese  Festlegung  ist  im  Gegensatz  zur  Record-Länge  aber  nicht 
endgültig.  Sie  können  die  Datei  jederzeit  um  zusätzliche  Daten- 
sätze erweitern,  indem  Sie  einfach  auf  einen  höheren  Record 
positionieren  und  diesen  mit  CHR$(255)  beschreiben. 

Wenn  Sie  dagegen  versuchen,  einen  Record  zu  lesen,  der  über 
dem  momentanen  Dateiende  liegt,  erhalten  Sie  von  der  Floppy 
die  Fehlermeldung  RECORD  NOT  PRESENT.  Der  Positionier- 
Befehl  wird  über  den  Befehlskanal  der  Floppy  gesendet  und  hat 
den  folgenden  Aufbau: 

OPEN  15,8,15 

PR I NT#1 5 , "P"+CHR$( SA)+CHR$(PL )+CHR$(PH )+CHR$(RP ) 

CLOSE  15 

bzw.  in  Assembler: 


100 

;*  befehlskanal  oeffnen 

* 

110 

Ida  #$0f 

.•logische  file-nr.  15 

120 

Idx  #$08 

; geraeteadresse 

130 

Idy  #$0f 

;sekundaeradr.  15 

140 

jsr  $ffba 

; Parameter  setzen 

150 

jsr  SffcO 

;open-routine  aufrufen 

160 

Idx  #$0f 

; logische  file-nr.  15 

170 

jsr  $ffc9 

;datei  auf  ausgabe  schalten 

180 

;*  positionier-befehl  schreiben  * 

190 

Idy  #0 

200  schleife  Ida  puff er, y 

; Zeichen  aus  puffer  holen 

210 

jsr  $ffd2 

;und  ausgeben 

220 

cmp  #$0d 

; 1 return1? 

230 

beq  fertig 

;ja,  ausgabe  beenden 
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240  iny  ;zeiger+1 

2S0  jap  schleife  ;naechstes  Zeichen 

260  fertig  jsr  Sffcc  ;auf  Standardeingabe 

;zurückschalten 

270  ;*  befehlskanal  schliessen  * 

280  Ida  #$0f  ; logische  file-nr.  15 

290  jsr  $ffc3  ' ; c lose- rout ine  auf rufen 

300  ; 

310  ;*  befehlspuffer  * 

320  puffer  .tx  "p" 

330  .by  sa,pl,ph,rp,13 

Das  ganze  sieht  schlimmer  aus  als  es  ist!  SA  ist  die  Sekun- 
däradresse, die  Sie  beim  öffnen  der  Datei  gewählt  haben.  PL 
und  PH  enthalten  die  Record-Nummer  im  sogenannten  Low-/ 
High-Byte-Format.  PL  und  PH  lassen  sich  leicht  berechnen: 

PH=INT(RN/256) 

PL=RN-256*PH 

wobei  RN  die  Record-Nummer  ist.  RP  schließlich  enthält  einen 
Zeiger  auf  eine  Position  innerhalb  des  Records.  Möchte  man  den 
gesamten  Record  schreiben  oder  lesen,  muß  man  RP  auf  1 set- 
zen. Ein  Beispiel: 


200  rn=372:rew  record-numter 
210  ph=int(rn/256) 

220  pl=rn-256*ph 
230  rp=20 

200  print#15,,,p,,+chr$(2)+chr$(pl)*chr$(ph)+chr$(rp) 


Der  PRINT#-Befehl  in  Zeile  200  setzt  den  Record-Zeiger  auf 
das  20.  Byte  des  372.  Records.  Um  es  nicht  zu  vergessen:  Nach- 
dem wir  mit  der  Dateiarbeit  fertig  sind,  müssen  wir  die  Datei 
durch  ein 

CLOSE  2 

bzw.  in  Assembler  durch: 

500  Ida  #$02  ; logische  file-nr.  2 

510  jsr  $ffc3  ; c lose- rout ine  aufrufen 
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wieder  schließen.  Die  komplette  Befehlsfolge  zum  Einrichten  ei- 
ner relativen  Datei  sieht  also  so  aus: 

100  rl-100:rem  recordlaenge 
110  rn=500:rem  anzahl  der  records 
120  ph=int(rn/256) 

130  pl=rn-256*ph 

140  rp=1:rem  position  innerhalb  record 
150  : 

160  open  2,8,2, "name, l,"+chr$(rl) 

170  open  15,8,15:reoi  befehlskanal 
180  : 

190  print#15,"p,,+chr*<2)+chr$(pl)+chr*(ph)+chr$(rp) 

200  print#2,chr$(255) 

210  : 

220  close  2 
230  close  15 

Daten  schreiben  und  lesen 

Das  Schreiben  und  Lesen  eines  Records  gestaltet  sich  nun  denk- 
bar einfach: 

► Der  Befehlskanal  und  die  relative  Datei  werden  geöffnet. 

► Auf  den  betreffenden  Record  wird  positioniert. 

► Der  Record  wird  geschrieben  bzw.  gelesen. 

► Die  Datei  und  der  Befehlskanal  werden  geschlossen. 

Zum  Schreiben  eines  Records  verwenden  wir  den  PRINT#-Be- 
fehl.  Angenommen,  der  Record  ist  in  RD$  enthalten,  dann 
schreibt  ihn  ein 

PRINT#2,RD$ 

in  die  Datei.  Wenn  Sie  das  abschließende  "Return"  nicht  benöti- 
gen, schreiben  Sie: 

PRINT#2,RD$; 

In  Assembler  sieht  das  Schreiben  eines  Datensatzes  wie  folgt  aus. 
Der  Datensatz  befindet  sich  dabei  in  dem  Puffer  in  Programm- 
zeile 450: 
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320 

Idx 

#$02 

330 

jsr 

Sffc9 

340  ; 

350 

tdy 

#0 

360  schleife 

Ida 

puffer.y 

370 

jsr 

Sffd2 

380 

cmp 

#$0d 

390 

beq 

fertig 

400 

iny 

410 

jmp 

schleife 

420  ; 

430  fertig 

jsr 

* 

O 

O 

440  ; 

450  puffer 

.tx 

"...datei 

460 

.by 

13 

; logische  file-nr.  2 
;datei  auf  ausgabe  schalten 


;zeichen  aus  puffer  holen 
;und  ausgeben 
; ’return1? 

;ja,  ausgabe  beenden 
;zeiger+1 

;naechstes  Zeichen 

;auf  standardein-/ 

; ausgabe  zurücksch. 

itz..." 


Zum  Lesen  eines  Datensatzes  stehen  die  Befehle  INPUT#  und 
GET#  zur  Verfügung.  INPUT#  benötigt  am  Ende  des  Records 
ein  abschließendes  "Return".  Außerdem  kann  INPUT#  nur  Da- 
tensätze mit  einer  Länge  bis  zu  88  Zeichen  einiesen.  Mit  Hilfe 
einer  GET#-Schleife  lassen  sich  auch  längere  Records  einiesen. 

FOR  Z=1  TO  200:GET#2,EG$:DT$=DTS+EGS:NEXT  Z 

beispielsweise  liest  einen  200  Byte  langen  Datensatz  ein.  In  As- 
sembler sieht  das  Lesen  eines  Datensatzes  wie  folgt  aus.  Der 
Datensatz  wird  dabei  in  den  in  Programmzeile  450  eingerichteten 
Puffer  eingelesen,  der  ausreichend  groß  dimensioniert  sein  muß: 


320 

Idx  #$02 

; logische  file-nr.  2 

330 

jsr  $ffc6 

; datei  auf  eingabe  schalten 

340  ; 

350 

360  schleife 

Idy  #0 

Ida  puffer, y 

;zeichen  aus  puffer  holen 

370 

jsr  $ffd2 

;und  ausgeben 

380 

cmp  #$0d 

; ' re turn1? 

390 

beq  fertig 

;ja,  ausgabe  beenden 

400 

iny 

; zeige r+1 

410 

jmp  schleife 

;naechstes  Zeichen 

420  ; 

430  fertig 

jsr  $ffcc 

rauf  standardein-/ 

440  ; 

450  puffer 

; ausgabe  zurücksch. 
-tx  11 . . .datensatz. . ." 

Da  die  einzelnen  Records  in  Ihren  Programmen  häufig  länger  als 
88  Bytes  sein  werden  und  die  Arbeit  mit  GET#-Schleifen  sehr 
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zeitaufwendig  ist,  habe  ich  die  folgende  Maschinensprache  - 
Routine  DGETV  geschrieben. 

DGETV  liest  aus  einer  beliebigen  Floppy-Datei  eine  anzuge- 
bende Anzahl  Daten  in  eine  String-Variable  ein.  Dabei  können 
bis  zu  255  Zeichen  in  einem  Stück  gelesen  werden!  Der  Aufruf 
von  DGETV  erfolgt  mit 

SYS  49737, LF,VR$, LE 

LF  ist  die  gewohnte  logische  File-Nummer  der  Datei,  aus  der 
gelesen  werden  soll.  VR$  steht  für  den  Namen  der  Einlesevari- 
ablen. LE  schließlich  gibt  an,  wie  viele  Daten  eingelesen  werden 
sollen.  Anstelle  von 

FOR  Z=1  TO  200 : GET#2 , EG$ : DT$=DT$+EGS : NEXT  Z 

können  sie  nun  schreiben: 

SYS  49737,2, DT$,200 

Im  Anschluß  an  das  folgende  Assembler-Listing  finden  Sie  wie- 
der einen  BASIC -Lader  zu  DGETV: 


100  * ******************************************************* 
105  ;*  * 

110  ;*  Programm:  dgetv  * 

120  ;*  liest  daten  aus  einem  beliebigen  floppyfile  * 

130  ;*  in  eine  stringvariable  ein  * 

140  ;*  * 

150  . ******************************************************* 
160  ;*  * 

170  ;*  auf ruf:  sys  49737, lf,vr$, le  * 

175  ;*  If:  logische  file-nummer  der  datei  * 

180  ;*  vr$:  name  der  einlesevariablen  * 

185  ;*  le:  anzahl  der  zu  lesenden  daten  (1*255!)  * 

190  ;*  * 

^ 95  * ******************************************************* 
200  ; 

205  ; 

210  .ba  49737  ;***  startadresse  *** 

220  ; 

230  ; 

240  ;***  labels  ******************************************** 
250  .gl  zpl  = 251  .'Zwischenspeicher 

260  .gl  zp2  = 252 
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265  .gl  zp3  = 253 
270  ; 

280  ; 

29Q  •***  parameter  einiesen  ******************************** 


310 

jsr  $aefd 

;auf  komma  testen 

320 

jsr  $b7Ve 

; logische  file-numner  holen 

330 

jsr  teile 

;eingabekanal  definieren 

340 

jsr  Saefd 

;auf  komma  testen 

350 

jsr  Sb08b 

; variablenname  einiesen 

360 

sta  $49 

; Variablenadresse  zwischensp. 

370 

sty  $4a 

380 

jsr  $b6a3 

; Stringparameter  holen 

390 

jsr  $aefd 

;auf  komma  testen 

400 

jsr  Sb79e 

;laenge  einiesen 

410 

txa 

420 

bne  dgl 

;<>0,  dann  weiter 

430 

jmp  $b248 

illegal  quantity  error1 

440  dgl 

txa 

;laenge  in  akku 

450 

jsr  $b4f4 

, -platz  fuer  string  reservieren 

460 

sta  zpl 

;stringlaenge 

470 

stx  zp2 

;adresse  (low) 

480 

sty  zp3 

;adresse  (high) 

490 

Idy  #2 

; stringadresse  in 

500  dg2 

Ida  zp1,y 

,-stringdescriptor  e inschreiben 

510 

sta  ($49), y 

520 

dey 

530 

bpi  dg2 

540  ; 

550  ;*** 

6 i n l esc* rout i ns  *********************************** 

560 

Idy  «0 

;zaehler  initialisieren 

570  dg3 

jsr  $ffcf 

;ein  byte  von  floppy  holen 

580 

sta  (zp2),y 

;und  ab legen 

590 

iny 

600 

cpy  zpl 

;eingabelaenge  erreicht? 

610 

bne  dg3 

;nein,  dann  naechstes  byte 

620 

jmp  tffcc 

;kanaele  zurücksetzen 

Und  hier  der  BASIC-Loader: 


100  rem  **************************************************** 
105  rem  * * 
110  rem  * Programm:  dgetv  * 
120  rem  * programmlaenge:  69  bytes  * 
130  rem  * liest  daten  aus  einem  beliebigen  floppyfile  * 
140  rem  * in  eine  stringvariable  ein  * 
150  rem  * * 
200  rem  **************************************************** 
205  rem  * * 
210  rem  * aufruf:  sys  49737, lf,vr$, le  * 
220  rem  * If:  logische  f i le-nummer  der  datei  * 
230  rem  * vr$:  name  der  einlesevariablen  * 
240  rem  * le:  anzahl  der  zu  lesenden  daten  (1-255!)  * 
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265  rem  * * 

270  rem  **************************************************** 

280  : 

290  : 

400  rem  ***  datas  einiesen  *** 

410  restore:zl=1000 

420  ad=49737:rem  Startadresse  der  routine 
430  ps=0:z=0 

440  read  ut:if  wt=-1  then  print  "datas  ok!":end 

450  poke  ad.wt :ad=ad+1 :z=z+1 

460  ps=ps+wt : rem  pruefsuime 

470  if  z<10  then  440: rem  eine  zeile  lesen 

480  read  ut 

485  if  psowt  then  print  "data-fehler  in  zeile,,;zl;"!":end 
490  zl=zl+10:goto  430 
500  : 

510  : 

990  rem  ***  datas  *** 

1000  data  32,253,174,32,158,183,32,30,225,32,1151 
1010  data  253,174,32,139,176,133,73,132,74,32,1218 
1020  data  163,182,32,253,174,32,158,183,138,208,1523 
1030  data  3,76,72,178,138,32,244,180,133,251,1307 
1040  data  134,252,132,253,160,2,185,251,0,145,1514 
1050  data  73,136,16,248,160,0,32,207,255,145,1272 
1060  data  252,200,196,251,208,246,76,204,255,0,1888 
2000  data  -1:rem  endnarkierung 


Da  die  Routine  ja  recht  kurz  ist,  dürfte  sie  jeder  schnell  abge- 
tippt haben.  Ich  werde  deshalb  im  folgenden  nur  noch  mit 

PRINT#2,RDS; 

zum  Schreiben  eines  Records  (DGETV  benötigt  ja  kein  ab- 
schließendes "Return")  und 

SYS  49737,2, RD$,RL 

zum  Lesen  eines  Records  arbeiten.  Ein  Problem,  das  wir  bisher 
völlig  außer  acht  gelassen  haben,  ist  die  Länge  der  einzelnen 
Datenfelder.  Nehmen  wir  einmal  an.  Sie  haben  eine  Adreßdatei 
mit  den  Datenfeldern 

Nachname 

Vorname 

Strasse 

Ort 

Telefon 
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Zwei  typische  Datensätze  dieser  Datei  könnten  z.B.  so  aussehen: 

Mueller 

Klaus 

Kastanienweg.  63 
8000  Muenchen  60 
12  34  56 


Schmidhuber 

Uwe 

Forststr.  178 
1000  Berlin  32 
56  34  12 

Wenn  Sie  die  Feldinhalte  der  beiden  Sätze  vergleichen,  werden 
Sie  sofort  feststellen,  daß  einzig  die  beiden  Telefonnummern 
dieselbe  Länge  haben.  Alle  anderen  Feldinhalte  weisen  eine  un- 
terschiedliche Länge  auf,  wodurch  sich  natürlich  auch  verschie- 
dene Gesamtlängen  ergeben.  Der  erste  Datensatz  ist  52  Byte 
groß,  der  zweite  49  Byte. 

Bei  einer  relativen  Datei  müssen  alle  Datensätze  aber  dieselbe 
Länge  haben!  Was  also  tun?  Ganz  einfach,  die  Datenfelder  wer- 
den vor  dem  Zusammenfassen  zu  einem  Datensatz  auf  eine  be- 
stimmte, vorher  festgelegte  Länge  formatiert. 

Wir  müssen  also  zuerst  einmal  überlegen,  wie  lang  der  Inhalt  je- 
des Datenfelds  maximal  werden  kann.  Dabei  dürfen  wir  ruhig 
großzügig  sein: 

Nachname  (NN$):  25  Zeichen 
Vorname  (VNS):  15  Zeichen 
Strasse  (SR$):  20  Zeichen 
Ort  (OTS):  20  Zeichen 
Telefon  (TF$):  12  Zeichen 

Damit  ergibt  sich  eine  Record-Länge  von  92  Byte.  Das  folgende 
Programmstück  richtet  eine  passende  relative  Datei  für  50  Da- 
tensätze ein: 

100  r 1=92: rem  recordlaenge 
110  rn=50:rem  anzahl  der  records 
120  ph=int( rn/256) 

130  pl=rn-256*ph 
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140  rp=1:rem  position  innerhalb  record 
150  : 

160  open  2,8,2,"name, l, "+chr$(rl) 

170  open  15,8(15:rem  befehlskanal 
180  : 

190  print#15,"p"+chr$(2)+chr$(pl)+chr$(ph)+chr$(rp) 

200  print#2,chr$<255) 

210  : 

220  close  2 
230  close  15 

Zur  Formatierung  der  Datenfelder  verwenden  wir  die  bekannten 
String-Funktionen  LEN,  LEFT$,  MID$  und  RIGHTS.  Am  Bei- 
spiel des  Nachnamefeldes  möchte  ich  Ihnen  den  gesamten  For- 
matiervorgang einmal  demonstrieren.  Die  Maximallänge  des  Fel- 
des soll  ja  25  Byte  sein.  Zuerst  sorgen  wir  dafür,  daß  diese 
Länge  nicht  überschritten  wird: 

10  m$=left$(nn$,25) 

Falls  der  Nachname  jedoch  zu  kurz  ist,  muß  er  mit  Leerzeichen 
auf gefüllt  werden.  Diese  Aufgabe  übernimmt  eine  IF- Abfrage: 

20  if  len(m$)<25  then  goto  20 

Durch  diese  beiden  Anweisungen  ist  das  Nachnamefeld  nun  auf 
jeden  Fall  25  Byte  lang.  Beide  Anweisungen  lassen  sich  aber 
auch  in  einer  zusammenfassen: 

10  lr$="  H:rem  leerstring  (25  byte) 

20  nn$=left$(nn$+left$(lr$,abs(25-len(nn$))),25) 

Die  Anweisung  in  Zeile  20  sieht  komplizierter  aus  als  sie  ist. 
Falls  NN$  kürzer  als  25  Zeichen  ist,  wird  es  durch  das  innere 
LEFT$  um  die  entsprechende  Anzahl  Leerzeichen  aus  LR$  auf- 
gefüllt. Ist  NN$  dagegen  länger  als  25  Zeichen,  werden  die 
überzähligen  Zeichen  durch  das  äußere  LEFT$  abgeschnitten. 

Die  Funktion  ABS  sorgt  in  diesem  Fall  dafür,  daß  beim  inneren 
LEFT$  kein  negativer  Wert  auf  tritt.  Die  anderen  Felder  lassen 
sich  ebenso  formatieren.  Damit  können  wir  uns  ein  Programm 
zum  Eingeben  und  Schreiben  eines  Datensatzes  erstellen: 
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100  rem  datei  oeffnen 

105  r 1=92: re»  recordlaenge 

110  open  2,8,2, “name, l,"+chr$(rl) 

120  open  15,8,15:re»  befehlskanal 
130  : 

135  rem  adresse  eingeben 
140  input  "nach name:  ";nn$ 

150  input  “Vorname:  ";vn$ 

160  input  “stresse:  ”;sr$ 

170  input  "ort:  ";ot$ 

180  input  "telefon:  “;tfi 
185  : 

190  rem  felder  formatieren 

200  lr$="  ":rem  leerstring  (25  byte) 

210  nrtfsleft$(nn$+left$(lr$,ab8(25-len(nn$))),25) 

220  vn*=left$(vn$+left$(lr$,abs(15-len(vn$))),15) 

230  sr$=left$(sr$+left$(lr$,abs(20-len(sr$))),20) 

240  ot$=left$(ot$+left$(lr$,abs(20-len(ot$))),20) 

250  tf$=left$(tf$+left$(lr$,abs(12-len(tf$))),12) 

255  : 

260  rem  felder  zu  einem  record  zusammenfassen 
270  rd$=nn$+vn$+sr$+ot$+tf$ 

275  : 

280  rem  geuuenschte  record- nummer 
290  print: input  "record-nummer:  ";rn 
295  : 

300  rem  auf  record  positionieren 
310  ph= int (rn/256) 

320  pl=rn-256*ph 
330  rp=1 

340  print#15,"p“+chr$(2)+chr$(pl)+chr$(ph)+chr$(rp) 

345  : 

350  rem  record  schreiben 
360  print#2,rd$; 

370  : 

380  rem  noch  eine  adresse? 

390  input  “moechten  sie  noch  eine  adresse  eingeben:“; jn$ 

400  if  jnS="j"  then  140 
410  : 

420  rem  datei  sch li essen 
430  close  2 
440  close  15 

Geben  Sie  mit  dem  Programm  nun  einmal  mehrere  Adressen  ein. 
Die  Record-Nummern  dürfen  Sie  zwischen  1 und  50  frei  wäh- 
len. Mit  Hilfe  des  nun  folgenden  Programmstücks  können  Sie 
sich  die  Adressen  dann  wieder  ausgeben  lassen: 

500  rem  datei  oeffnen 

510  r 1=92: rem  recordlaenge 

520  open  2,8,2,"name,l,"+chr$(rl) 
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530  open  15,8,15:rem  befehlskanal 
540  : 

550  rem  gewuenschte  record-nummer 
560  input  "record-nunmer:  ";rn 
575  : 

580  rem  auf  record  positionieren 
590  ph= int (rn/256) 

600  pl=rn-256*ph 
610  rp=1 

620  pr  i nt#1 5 , "p"+ch  r$(  2)+ch  r$(pl  )+chr$(ph)+chr$(rp) 

635  : 

640  rem  record  lesen 
650  sys  49737,2, rd$,rl 
660  : 

670  rem  record  in  felder  aufteilen 
680  m$=mid$(rd$,1,25) 

690  vn$=mid$(rd$,26,15) 

700  sr$=mid$(rd$,41,20) 

710  ot$=mid$(rd$,61,20) 

720  tf$=mid$(rd$,81,12) 

730  : 

740  rem  adresse  ausgeben 
750  print  "nachname:  “;nn$ 

760  print  "vorname:  ";vn$ 

770  print  "Strasse:  ";sr$ 

780  print  "ort:  ";ot$ 

790  print  "telefon:  ";tf$ 

800  : 

810  rem  noch  eine  adresse? 

820  input  "noch  eine  adresse  ausgeben:"; jn$ 

830  if  jn$="j"  then  560 
840  : 

850  rem  datei  sch li essen 
860  close  2 
870  close  15 

Achtung : Bitte  achten  Sie  darauf,  daß  sich  die  Routine 

DGETV  beim  Start  des  Programms  im  Rechnerspei- 
cher befindet!  Ansonsten  bekommen  sie  in  der  Pro- 
grammzeile 650  einen  Systemabsturz. 


Von  besonderem  Interesse  sind  die  Programmzeilen  680  bis  720. 
Dort  wird  der  gelesene  Record  mit  MID$  wieder  in  die  einzel- 
nen Datenfelder  aufgeteilt. 
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5.4  Indexsequentielle  Dateien 

Ein  nicht  zu  unterschätzender  Nachteil  der  relativen  Datenspei- 
cherung ist  die  fehlende  Möglichkeit,  auf  einen  bestimmten  Da- 
tensatz direkt  über  einen  Feldinhalt  zugreifen  zu  können,  bei  ei- 
ner Adreßdatei  also  beispielsweise  die  zu  dem  Nachnamen 
"Mueller"  gehörende  Adresse  direkt  laden  zu  können. 

Statt  dessen  muß  man  die  Record-Nummer  des  betreffenden 
Datensatzes  kennen.  Eine  mögliche  Abhilfe  wäre  es,  die  Daten- 
sätze ständig  alphabetisch  sortiert  zu  halten.  Bei  großen  Daten- 
mengen ist  der  Aufwand  dazu  aber  viel  zu  groß. 

Deshalb  bedient  man  sich  häufig  einer  anderen  Methode,  der  so- 
genannten "indexsequentiellen  Datei".  Die  Grundidee  ist  dabei 
die  folgende:  Die  eigentlichen  Daten,  beispielsweise  Adressen, 
werden  in  einer  relativen  Datei  abgelegt.  Zusätzlich  wird  eine 
separate  sequentielle  Datei,  eine  sogenannte  "Indexdatei",  ange- 
legt, in  der  die  Inhalte  eines  Datenfeldes  sowie  die  zugehörigen 
Record-Nummern  der  entsprechenden  Datensätze  der  relativen 
Datei  gespeichert  werden. 

Bei  einer  Adreßdatei  nimmt  man  dazu  in  der  Regel  das  Nach- 
namefeld, über  das  man  ja  am  häufigsten  auf  eine  Adresse  zu- 
greift. Natürlich  läßt  sich  aber  jedes  beliebige  Feld  verwenden. 
Sogar  mehrere  sequentielle  Dateien  sind  denkbar.  Bei  einer 
Rechnungsdatei  z.B.  könnte  man  sowohl  die  Rechnungsnummern 
als  auch  die  Namen  der  Kunden  als  Index  verwenden. 

Möchte  man  nun  mit  der  Datei  arbeiten,  so  wird  zu  Beginn  die 
komplette  Indexdatei  in  den  Rechner  geladen.  Da  sie  ja  nur  aus 
den  Inhalten  eines  Datenfeldes  und  den  Record-Nummern  be- 
steht, nimmt  sie  nicht  allzu  viel  Speicherplatz  in  Anspruch. 

Gibt  man  jetzt  einen  Nachnamen  ein,  dann  sucht  die  Dateiver- 
waltung den  Nachnamen  in  der  Indexdatei  (was  natürlich  blitz- 
schnell geht),  holt  sich  die  zugehörige  Record-Nummer  und  lädt 
damit  den  Record  der  relativen  Datei,  der  die  entsprechende 
Adresse  enthält. 
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Das  nun  folgende  Programm  ist  ein  Beispiel  für  eine  Adreßver- 
waltung  mit  indexsequentieller  Dateiorganisation.  Das  Programm 
ist  bewußt  recht  schlicht  gehalten.  Ich  möchte  Ihnen  hier  ja 
nicht  nur  fertige  Lösungen  anbieten,  sondern  Sie  auch  zu  eigener 
Programmiertätigkeit  animieren.  Und  mit  den  Kenntnissen  aus 
den  letzten  beiden  Abschnitten  dürfte  es  Ihnen  nicht  schwer 
fallen,  das  Programm  individuell  zu  ergänzen. 

Beginnen  wir  mit  dem  Programmkopf  und  den  Vorbereitungen. 
Die  Kommentarzeilen  müssen  Sie  natürlich  nicht  alle  mit  abtip- 
pen. Ganz  weglassen  sollten  Sie  sie  allerdings  auch  nicht.  Sonst 
verlieren  Sie  später  leicht  die  Übersicht: 

1 00  rem  **************************************************** 

110  rem  * * 

120  rem  * programm:  adressen  * 

130  rem  * adreBverualtung  mit  indexsequentieller  * 

140  rem  * datei Organisation  * 

150  rem  * * 

170  r6"1 
180  : 

190  : 

200  rem  ***  initieiisieruns  ******************************** 

210  : 

220  rem  maschinenprogramm  nachladen 
230  if  f=0  then  f-1:load  "dgetvM,8, 1 
240  dm=250:rem  maximale  datensatzanzahl 
250  dim  id$(ckn):rem  indexfeld  (nachnamen) 

260  dim  in(dm):rem  zugehörige  record-nummern 
270  dim  ds$(7):rem  datenfelder 
280  gosub  510:rem  datei  oeffnen 

Die  Maximalanzahl  der  Adressen  wird  in  Zeile  240  auf  250  fest- 
gesetzt. Diesen  Wert  können  Sie  natürlich  nach  Belieben  abän- 
dern. Die  Variable  DM  wird  im  gesamten  Programm  verwendet, 
so  daß  diese  eine  Änderung  in  Zeile  240  genügt. 

290  : 

300  : 

310  : 

320  rem  ***  auswahlmenue  *********************************** 

330  : 

340  wl=0:print:print 

350  print  tab(11)  "adressenverwaltung" 

360  print 

370  print  tab(8)  "-1-:  adressen  eingeben" 
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380  print  tab(8)  "-2-:  adressen  ausgeben“ 

390  print  tab(8)  "-5-:  ende“ 

400  print 

410  print  tab(11)  "ihre  wähl  (1,2,5)";:input  wl 
420  if  wl=1  then  gosub  640: rem  adressen  eingeben 
430  if  wl=2  then  gosub  970: rem  adressen  ausgeben 
440  if  wl=5  then  goto  1310: rem  ende 
450  goto  340: rem  zum  auswahlmenue 
460  : 

470  : 

480  : 


Das  AuswahlmenQ  des  Programms  besteht  aus  den  drei  Menü- 
punkten 

ADRESSEN  EINGEBEN 
ADRESSEN  AUSGEBEN 
ENDE 


Wenn  Sie  das  Programm  um  neue  Funktionen  erweitern  wollen, 
etwa 


ADRESSEN  LOESCHEN  oder  ADRESSEN  AENDERN 


gehen  Sie  wie  folgt  vor:  Nachdem  Sie  für  die  neue  Programm- 
funktion ein  entsprechendes  Unterprogramm  geschrieben  haben, 
fügen  Sie  den  neuen  Menüpunkt  zwischen  den  Programmzeilen 
390  und  400  ein  und  weisen  ihm  eine  Kennziffer  zu. 


Anschließend  erweitern  Sie  die  IF-Abfragen  in  den  Zeilen  420 
bis  440  um  eine  weitere  Abfrage,  die  in  Ihr  Unterprogramm 
verzweigt.  Das  ist  schon  alles! 

490  rfffl  ***  d&tGi  ocffnen  ********************************** 

500  : 

510  If =1 :sa=2:dn$="adressen":r 1=1 07: gosub  1490: rem  relative  datei 

520  open  2,8,3,“index>s(r“:rem  sequentielle  datei 

530  gosub  1420:rem  f loppyfehlerkanal  aus  lesen 

540  if  er<>0  then  ad=0:goto  5 70: rem  datei  noch  nicht  angelegt 

550  input#2,ad:rem  datensatzanzahl 

560  for  i=1  to  ad:input#2,idS(i),in(i):next  i:rem  indexdatei 
570  close  2: rem  sequentielle  datei 
580  retum 
590  : 

600  : 

610  : 
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Das  erste  Unterprogramm  öffnet  die  relative  und  die  sequentielle 
Datei  und  liest  die  Indexdaten  ein.  Die  relative  Datei  hat  den 
Namen  "ADRESSEN".  Die  Record-Länge  beträgt  107  Bytes.  Die 
sequentielle  Datei  trägt  den  Namen  "INDEX".  In  ihr  sind  die 
Nachnamen  gespeichert. 


Da  die  Nachnamen  in  derselben  Reihenfolge  wie  die  Adressen  in 
der  relativen  Datei  abgelegt  sind,  ist  die  jeweilige  Record- 
Nummer  mit  der  Position  des  Nachnamens  innerhalb  der  Index- 
datei identisch.  Die  Adresse  des  10.  Nachnamens  beispielsweise 
befindet  sich  im  Record  10.  Daher  müssen  die  Record-Nummern 
nicht  extra  gespeichert  werden. 

620  rem  ***  adressen  eingeben  ****************************** 

630  : 

640  print:print 

650  input  "nachname  (15)  :";ds$(1) 

660  Input  "Vorname  (10)  :";ds$(2) 

670  input  "Strasse  (15)  :";ds$(3) 

680  input  "Wohnort  (15)  :";ds$(4) 

690  input  "telefon  (11)  :";ds${5) 

700  input  "bemerkungl  (20)  :“;ds$(6) 

710  input  "bemerkung2  (20)  :";ds$(7) 

720  ad=ad+1 :rem  anzahl  der  adressen 

730  id$(ad)=dsS(1):rem  nachname  in  indexdatei 

740  in(ad)=rn:rem  record-nummer 

750  rem  eingabefelder  auf  richtige  laenge  bringen 

760  te$="  ":rem  zun  auffuellen  der  felder 

770  ds$(1)=left$(ds$(1)+left$(le$,abs(15-len(ds$(1)))),15) 

780  ds$(2)=left$(ds$(2)+left$(le$,abs(10-len(ds$(2)))),10) 

790  ds$(3)=left$(dsS(3)+left$(le$,abs(15-len(ds$(3)))),15) 

800  ds$(4)=left$(ds*(4)+left$(le$,abs(15-len(ds$(4))))t15) 

810  ds$(5)=left$(ds$(5)+left$(le$,abs(11- len(ds$(5)))),11) 

820  dsS(6)=left$(ds$(6)+left*(leS,abs(20-len(ds$(6)))),20) 

830  ds$(7)=left$(ds$(7)+left$(le$,abs(20- len(ds$(7)))),20) 

840  rem  datensatz  zun  speichern  zusaimnenfassen 
850  rc$="":for  i=1  to  7:rcS=rc$+ds$(i ):next  i 
860  rem  datensatz  speichern 

870  rn=ad:rp=1 :gosub  1570: rem  auf  record  positionieren 
880  print#lf ,rc$:rem  datensatz  in  record  schreiben 
890  gosub  1420: rem  f loppyfehlerkanal  aus lesen 
900  print:print:print  tab(5)  "adresse  ist  gespeichert!" 

910  return 
920  : 

930  : 

940  : 
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Für  die  Adreßeingabe  stehen  Ihnen  sieben  Datenfelder  zur 
Verfügung: 

NACHNAHE 

VORNAHE 

STRASSE 

WOHNORT 

TELEFON 

BEHERKUNG1 

BEHERKUNG2 

Die  Zahlen  in  Klamern  hinter  den  Datenfeldbezeichnungen  ge- 
ben die  maximale  Datenfeldlänge  an.  Für  den  Nachnamen  stehen 
Ihnen  also  15  Zeichen  zur  Verfügung,  für  den  Vornamen  10 
Zeichen  usw... 

Wenn  Sie  diese  Werte  überschreiten,  ist  das  aber  auch  nicht 
weiter  schlimm.  Die  einzelnen  Felder  werden  in  den  Programm- 
zeilen 770  bis  830  automatisch  auf  die  richtige  Länge  formatiert. 

950  rem  ***  adressen  ausgeben  ***************************** 

960  : 

970  print:print: input  " nachname"  ;nnlS 

980  for  i=1  to  ad: rem  index  suchen 

990  if  nn$=id$(i)  then  gn=i : i=ad:next  i:goto  1040 

1000  next  i 

1010  print:print:print  tab(5)  "adresse  nicht  vorhanden!" 

1020  return 

1030  rem  adresse  gefunden 

1040  rn=gn:rp=1 :gosub  1570: rem  auf  record  positionieren 

1050  sys  49737, If.rcS, 107: record  einiesen 

1060  rem  record  auf teilen 

1070  ds$(1)=midS(rc$, 1,15): rem  nachname 

1080  ds$(2)=mid$(rcS,16,10):rem  vorname 

1090  ds$(3)=midS(rc$,26,15):rem  Strasse 

1100  ds$(4)=midS(rc$,41,15):rem  Wohnort 

1110  ds$(5)=mid$(rc$,56,11):rem  telefon 

1120  ds$(6)=mid$(rc$,67,20):rem  bemerkungl 

1130  ds$(7)=mid$(rc$,87,20):rem  bemerkung2 

1140  rem  datensatz  ausgeben 

1150  print:print 

1160  print  “nachname:  ";ds$(1) 

1170  print  "vorname:  ";ds$(2) 

1180  print  “Strasse:  ";ds$(3) 

1190  print  "Wohnort:  ";ds$(4) 

1200  print  "telefon:  ";ds$(5) 

1210  print  “bemerkungl:  ";dsS(6) 

1220  print  “bemerkung2:  ";ds$(7> 

1230  print:print:print  "weiter  mit  'space'!" 
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1240  get  eg$:if  eg$<>chr$(32)  then  1240 
1250  return 
1260  : 

1270  : 

1280  : 


Möchten  Sie  sich  nun  eine  bestimmte  Adresse  ausgeben  lassen, 
fragt  Sie  das  Programm  nach  dem  Nachnamen  und  sucht  diesen 
dann  in  dem  Variablenfeld  ID$.  War  die  Suche  erfolgreich,  dann 
ist  der  Schleifenzähler  I gleich  der  gesuchten  Record-Nummer. 
Der  betreffende  Record  wird  mit  der  Routine  DGETV  aus  dem 
letzten  Abschnitt  an  einem  Stück  eingelesen,  mit  MID$  in  die 
einzelnen  Datenfelder  aufgeteilt  und  zusammen  mit  den  ent- 
sprechenden Feldbezeichnungen  am  Bildschirm  ausgegeben. 

1290  rem  ***  ende  ***************************************** 

1300  : 

1310  print#15,"s:indexH:rem  indexdatei  loeschen 

1320  open  2,8,3, "index,s,w":rem  und  neu  schreiben 

1330  print#2,ad:rem  datensatzanzahl 

1340  for  i=1  to  ad:print#2,id$(i),l,"in(i):next  i 

1350  gosub  1650:  rem  relative  datei  sch  Hessen 

1360  end 

1370  : 

1380  : 

1390  : 


Sobald  Sie  das  Programm  beenden,  wird  die  Indexdatei  komplett 
auf  die  Diskette  zurückgeschrieben  und  alle  Dateien  geschlossen. 
Die  folgenden  vier  Unterprogramme  lassen  sich  in  jedem  Pro- 
gramm, das  mit  relativen  Dateien  arbeitet,  gut  einsetzen: 

1400  rem  ***  f loppyfehlerkanal  auslesen  ******************* 

1410  : 

1420  input#15,er,erS,tr,sk 
1430  return 
1440  : 

1450  : 

1460  : 

1470  rem  ***  relative  datei  oeffnen  *********************** 

1480  : 

1490  open  15,8,15, :rem  f loppyfehlerkanal 
1500  open  If ,8,sa,dn$+", l,"+chr$(rl):rem  datei 
1510  return 
1520  : 

1530  : 

1540  : 

1550  rem  ***  auf  record  positionieren  ********************* 
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1560  : 

1570  hb* int (rn/256) : lb=rn-256*hb 

1580  pr  i nt#1 5 , ,,pu+chr$(  sa  )+chr$(  lb)+chr$(hb)+chr$(rp) 
1590  return 
1600  : 

1610  : 

1620  : 

1630  rem  ***  relative  datei  sch  Hessen  ************** 
1640  : 

1650  close  lf:rem  datei 

1660  close  15:rem  f loppyfehlerkanal 

1670  return 


5.5  User-  und  Programmdateien 

Was  Programmdateien  sind  ist  Ihnen  mittlerweile  ja  bestens  be- 
kannt. Daher  möchte  ich  die  wichtigsten  Befehle  hier  nur  noch 
einmal  kurz  wiederholen.  Es  kommt  aber  auch  einiges  Neue 
hinzu. 

Grundsätzlich  kann  man  zwischen  zwei  Arten  von  Programmen 
unterscheiden:  BASIC-  und  Maschinensprache-Programme.  Beide 
Arten  werden  im  Directory  durch  das  Kürzel  "PRG"  gekenn- 
zeichnet. Ein  BASIC-Programm  läßt  sich  mit 

SAVE  "NAME" ,8 

auf  Diskette  abspeichern.  Möchte  man  sichergehen,  daß  das  Pro- 
gramm auch  korrekt  gespeichert  wurde,  so  kann  man  es  an- 
schließend mit 

VERIFY  "NAMEM,8 

überprüfen  lassen.  VERIFY  vergleicht  das  im  Speicher  befind- 
liche BASIC-Programm  Byte  für  Byte  mit  dem  auf  der  Diskette 
abgelegten.  Stimmen  beide  Progamme  überein  (was  die  Regel 
ist),  erhalten  Sie  die  Meldung 

OK 

ansonsten  einen 


VERIFY  ERROR 
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Falls  Sie  versuchen,  ein  Programm  mit  einem  Namen  zu  spei- 
chern, unter  dem  bereits  eine  andere  Datei  auf  der  Diskette  ab- 
gelegt ist,  reagiert  die  Floppy  mit  einem  FILE  EXISTS- Fehler. 
Es  würde  ja  auch  keinen  Sinn  machen,  zwei  Dateien  mit  densel- 
ben Namen  auf  einer  Diskette  zu  haben.  In  diesem  Fall  müssen 
Sie  entweder  einen  anderen  Namen  wählen  oder  die  alte  Datei 
mit 


OPEN  15,8,15,"$:NAME":CLO$E  15 

löschen.  Im  Handbuch  zur  Floppy  ist  auch  noch  eine  andere 
Möglichkeit  angegeben: 

SAVE"a:NAME",8 

Durch  den  vorangestellten  "Klammeraffen"  im  SAVE-Befehl 
wird  die  alte  Datei  ebenfalls  gelöscht. 

Warnung : Bitte  vergessen  Sie  diese  Möglichkeit  so  schnell  wie 

möglich,  und  wenden  Sie  sie  niemals  an!  Infolge  ei- 
nes Fehlers  im  Betriebssystem  der  Floppy  wird  durch 
den  Klammeraffen  unter  Umständen  der  gesamte 
Disketteninhalt  zerstört! 

Wieder  in  den  Rechnerspeicher  geladen  wird  ein  BASIC-Pro- 
gramm  mit 

LOAD  "NAME", 8 

Anschließend  kann  es  mit  RUN  gestartet  oder  mit  LIST  am 
Bildschirm  gelistet  werden.  Wie  ich  Ihnen  bereits  geraten  habe, 
ist  es  am  zweckmäßigsten,  wenn  man  häufig  benötigte  Pro- 
grammteile (beispielsweise  Eingabe-  oder  Ausgaberoutinen)  als 
Unterprogramme  schreibt  und  in  separaten  Programmdateien 
ablegt. 

Benötigt  man  dann  später  eines  dieser  Unterprogramme,  hängt 
man  es  einfach  an  das  betreffende  Programm  hinten  an.  Den 
Vorgang  des  "Anhängens"  bezeichnet  man  auch  als  "Mergen".  Wie 
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geht  man  dazu  nun  konkret  vor?  Schließlich  kann  man  mit 
LOAD  ja  immer  nur  ein  Programm  in  den  Rechner  holen. 

Ein  sehr  wichtiger  Punkt  vornweg:  Damit  das  zusammengefügte 
Programm  nachher  überhaupt  lauffähig  ist,  müssen  die  beiden 
Einzelprogramme  über  unterschiedliche  Zeilennummern  verfü- 
gen. Außerdem  müssen  die  Zeilennummern  des  zweiten  (ange- 
hängten) Programms  höher  sein  als  die  des  ersten. 

Sie  können  also  beispielsweise  keine  zwei  Programme  mergen, 
die  beide  mit  der  Programmzeile  100  beginnen.  Das  sollten  Sie 
beim  Aufbau  Ihrer  Unterprogrammsammlung  von  vornherein 
beachten.  Am  einfachsten  ist  es,  wenn  Sie  jedes  Unterprogramm 
mit  einer  neuen  lOOOer-Nummer  beginnen,  beispielsweise 

10000  rem  Unterprogramm  1 
10990  return 

11000  rem  Unterprogramm  2 


11990  return 

12000  rem  Unterprogramm  3 


12990  return 
usw. 


Wenn  Sie  mehrere  Unterprogramme  anhängen  wollen,  müssen  Sie 
auf  die  Reihenfolge  achten,  also  beispielsweise  nicht  zuerst  das 
Unterprogramm  3 und  dann  das  Unterprogramm  1 mergen,  da  ja 
sonst  die  Reihenfolge  der  Zeilennummern  nicht  stimmen  würde. 

Doch  kommen  wir  zum  Mergen  selbst.  Laden  Sie  dazu  das  erste 
Programm  in  den  Rechner.  Wie  Sie  ja  wissen,  ist  der  gesamte 
Speicher  des  Commodore  64  in  einzelne  Speicherzellen  unterteilt, 
die  von  Null  bis  65.535  "durchnumeriert"  sind. 

Ein  BASIC-Programm,  das  in  den  Rechnerspeicher  geladen 
wird,  wird  nun  in  einem  bestimmten  Speicherbereich  abgelegt. 
Den  Anfang  und  das  Ende  dieses  BASIC-Speichers  merkt  sich 
der  Rechner  in  vier  Speicherzellen: 

43/44:  Programmbeginn 
45/46:  Programmende 


496 


Das  große  Commodore  64-Buch 


Zuerst  lesen  wir  mit 

PRINT  PEEK(43),PEEK(44) 

die  Inhalte  der  Speicherzellen  43  und  44  aus  und  merken  sie  uns 
(nicht  in  Variablen,  da  deren  Inhalte  beim  Mergen  zerstört  wer- 
den!). Anschließend  ermitteln  wir  mit 

ED=PEEK(45)+PEEK<46)*256 

das  Programmende,  vermindern  diesen  Wert  mit  , 

ED=ED-2 

um  2,  teilen  das  Ergebnis  wieder  in  ein  Low-  und  ein  High- 
Byte  auf 

HB=INT(ED/256):LB=ED-HB*256 

und  setzen  diesen  Wert  als  neuen  Programmanfang 
POKE  43, LB: POKE  44, HB 
Jetzt  können  wir  mit 
LOAD  "NAME", 8 

das  zweite  Programm  nachladen.  Es  wird  nun  direkt  "hinter"  das 
erste  Programm  geladen.  Zum  Schluß  setzen  wir  wieder  den  al- 
ten Programmanfang.  Die  beiden  Werte  haben  Sie  sich  ja  ge- 
merkt. Normalerweise  müssen  Sie  das  aber  nicht  einmal,  da  die 
Werte  in  der  Regel  immer  dieselben  sind,  nämlich  1 und  8: 

POKE  43,1: POKE  44,8 

Das  war  schon  alles!  Das  neu  entstandene  Programm  können  Sie 
nun  mit  SAVE  wie  gewohnt  abspeichern.  Das  Mergen  läßt  sich 
übrigens  beliebig  oft  wiederholen;  natürlich  nur  so  lange,  bis  der 
Rechnerspeicher  voll  ist.  Sie  können  also  ohne  weiteres  mehrere 
Programme  aneinanderhängen,  ohne  die  Zwischenprodukte  extra 
abspeichern  zu  müssen. 
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Das  Speichern  und  Laden  von  Maschinenprogrammen  gestaltet 
sich  aber  leider  nicht  ganz  so  einfach. 

Ich  habe  Ihnen  ja  schon  zwei  Routinen  vorgestellt,  mit  denen  Sie 
Maschinenprogramme  sehr  komfortabel  abspeichern  und  an  eine 
beliebge  Speicheradresse  wieder  einladen  können.  Und  auch  der 
"normale"  LOAD-Befehl  läßt  sich  zum  Laden  von  Maschinen- 
programmen einsetzen: 

LOAD  "NAMEH,8,1 

lädt  ein  Maschinenprogramm  an  die  Adresse,  von  der  aus  es 
gespeichert  würde.  Dieser  Befehl  hat  allerdings  seine  Tücken.  Er 
verstellt  nämlich  den  Zeiger  auf  den  BASIC-Programmanfang 
(den  ich  Ihnen  ja  gerade  beim  Mergen  vorgestellt  habe)  auf  den 
Beginn  der  Maschinenroutine.  Nach  einem  solchen  LOAD-Be- 
fehl ist  daher  ein  NEW  erforderlich,  um  den  Zeiger  wieder  "zu- 
rechtzubiegen". 

Das  gilt  allerdings  nur,  wenn  man  im  Direktmodus  arbeitet.  Im 
Programmodus  gibt  es  aber  ein  anderes  Problem:  Nach  einem 
LOAD-Befehl  beginnt  das  BASIC-Programm  immer  wieder  von 
vorne!  Möchten  Sie  also  eine  Maschinenroutine  nachladen  und 
schreiben  deshalb: 

100  rem  maschinenroutine  nachladen 

110  load  Hname"J8f 1 

120  rem  weiteres  programm 


so  geraten  Sie  in  eine  Endlosschleife.  Eine  IF- Abfrage  schafft 
dem  Abhilfe: 

100  rem  maschinenroutine  nach  laden 
110  if  f 1=0  then  f l = 1 : l oad  Hname",8,1 
120  rem  weiteres  programm 

Sobald  das  Maschinenprogramm  nachgeladen  ist  und  das  BASIC- 
Programm  ein  zweites  Mal  in  Zeile  110  beginnt,  hat  die  Variable 
FL  ja  den  Wert  1.  Das  Programm  wird  daher  in  Zeile  120  fort- 
gesetzt. Auch  das  Einladen  mehrerer  Maschinenroutinen  läßt 
sich  so  leicht  realisieren: 


498 


Das  große  Commodore  64-Buch 


100  rem  maschinenroutinel  nach  laden 
110  if  f 1*0  then  fl=1:load  l,name1,,,8,1 
130  rem  maschinenroutine2  nach  laden 
140  if  fl*1  then  fl=2:load  "name2",8,1 
150  rem  maschinenroutine3  nach  laden 
1&0  if  fl=2  then  fls3:load  ,,name3,,,8, 1 
170  rem  weiteres  Programm 

Es  gibt  aber  auch  noch  einen  ganz  anderen  Weg,  auf  Programme 
(egal  ob  BASIC  oder  Maschinensprache)  zuzugreifen.  Dazu  muß 
man  wissen,  daß  sich  ein  Programm,  wie  eine  sequentielle  oder 
relative  Datei,  mit  OPEN  öffnen  läßt: 

OPEN  2, 8, 2, "NAME ,P, Modus" 

Das  "P"  hinter  dem  Namen  signalisiert  der  Floppy,  daß  es  sich 
um  eine  Programmdatei  handelt.  Mit  dem  "Modus"  müssen  Sie 
wieder  festlegen,  ob  Sie  auf  die  Datei  schreibend  oder  lesend 
zugreifen  wollen. 

Diese  Art  des  Zugriffs  eröffnet  vielfältige  Möglichkeiten.  So 
könnte  man  beispielsweise  ein  BASIC-Programm  Byte  für  Byte 
einiesen  lassen,  um  es  zu  analysieren  oder  zu  verändern.  Dazu 
muß  man  natürlich  die  interne  Struktur  eines  BASIC-Programms 
kennen.  Ein  anderer  Anwendungsfall  ist  die  Ermittlung  der 
Startadresse  eines  Maschinenprogramms.  Diese  wird  nämlich  als 
die  ersten  beiden  Bytes  der  Programmdatei  gespeichert  und  läßt 
sich  deshalb  leicht  lesen: 


100  open  2,8,2,"name,p,r":rem  datei  zun  lesen  oeffnen 
110  get#2,lb$:lb=asc(lb$):rem  lou-byte 
120  get#2,hb$:hb=asc(hb$):rem  high-byte 
130  close  2 

140  sa=hb*256+lb:rem  Startadresse 

Zum  Schluß  möchte  ich  Ihnen  noch  kurz  einen  Dateityp  vor- 
stellen, den  man  nur  sehr  selten  benötigt,  die  sogenannte  "User- 
Datei".  Eine  User-Datei  ist  im  Grunde  genommen  nicht  anderes 
als  eine  sequentielle  Datei.  Der  einzige  Unterschied  besteht  in 
dem  Kürzel  USR,  mit  dem  dieser  Dateityp  im  Directory  ge- 
kennzeichnet ist.  Geöffnet  wird  eine  User-Datei  mit 


OPEN  2, 8, 2, "NAME, U, Modus» 
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Das  "U"  hinter  dem  Namen  signalisiert  der  Floppy,  daß  es  sich 
um  eine  User-Datei  handelt.  Mit  dem  Modus  legen  Sie  wieder 
fest,  ob  Sie  in  die  Datei  schreiben  oder  aus  ihr  lesen  wollen. 
Ansonsten  gilt  für  die  User-Dateien  dasselbe  wie  für  die  se- 
quentiellen Dateien. 

Ein  Anwendungsfall  für  eine  User-Datei  ist  beispielsweise  das 
"Listen"  eines  BASIC -Programms  auf  Diskette.  Möchte  man  ein 
BASIC-Programm  zum  Beispiel  mit  einer  Textverarbeitung  ein- 
iesen, so  darf  man  dazu  nicht  das  mit  SAVE  auf  Diskette  abge- 
legte Programm  verwenden,  da  das  Programm  in  einem  speziel- 
len Format  abgespeichert  wird,  das  in  einer  Textverarbeitung 
nur  ein  heilloses  Durcheinander,  wenn  nicht  gar  einen  Pro- 
grammabsturz erzeugen  würde. 

Statt  dessen  erzeugt  man  eine  User-Datei,  in  die  das  betreffende 
Programm  gelistet  wird.  Zuerst  öffnet  man  die  User-Datei: 

OPEN  2,8f2f"NAMEfUtU" 

Anschließend  leitet  man  die  Bildschirmausgabe  mit 

CMD  2 

auf  die  Datei  um  und  listet  dann  das  Programm  wie  gewohnt  mit 

LIST 

Abschließend  wird  die  Datei  wieder  geschlossen: 

PRINT#2 
CLOSE  2 


5.6  Der  Direktzugriff  auf  die  Diskette 

Alle  auf  einer  Diskette  gespeicherten  Daten  sind  in  Blökken  zu 
je  256  Bytes  organisiert.  Mit  Hilfe  einer  Direktzugriffsdatei  ist 
es  nun  möglich,  auf  jeden  einzelnen  dieser  Blöcke  direkt  zuzu- 
greifen, d.h.  ihn  zu  lesen  und  zu  schreiben. 


500 


Das  große  Commodore  64-Buch 


Damit  lassen  sich  ohne  große  Umstände  eigene  Dateistrukturen 
verwirklichen.  Viel  interessanter  aber  dürfte  es  sein,  Manipula- 
tionen an  vorhandenen  Daten  vorzunehmen,  z.B.  im  Directory 
einer  Diskette. 

Wie  Sie  sich  leicht  denken  können,  muß  man  dabei  natürlich 
sehr  vorsichtig  sein.  Selbst  kleinste  Fehler  können  den  größten 
Schaden  anrichten!  So  genügt  beispielsweise  schon  ein  falsch 
zurückgeschriebener  Directory-Block,  um  das  gesamte  Inhalts- 
verzeichnis einer  Diskette  durcheinanderzubringen. 

Für  Ihre  ersten  Experimente  mit  dem  Direktzugriff  sollten  Sie 
nur  Kopien  Ihrer  Programm-  und  Datendisketten  verwenden! 

Die  logische  Abfolge  der  einzelnen  Schritte  ist  bei  einer  Di- 
rektzugrif fsdatei  in  etwa  dieselbe  wie  bei  den  anderen  Dateien. 
Wohlgemerkt,  nur  in  etwa.  Es  gibt  einen  sehr  wichtigen  Unter- 
schied: die  Zwischenspeicherung  der  Datenblöcke  in  einem  Puf- 
ferspeicher der  Floppy.  Gehen  wir  die  einzelnen  Schritte  einmal 
der  Reihe  nach  durch: 

Eine  Direktzugriffsdatei  öffnen  und  schließen 

Zunächst  müssen  wir  die  Direktzugriffsdatei  öffnen: 

OPEN  2,8,2,"#" 

Damit  die  Floppy  weiß,  daß  wir  eine  Direktzugriffsdatei  öffnen 
wollen,  verwenden  wir  als  Dateinamen  das  Doppelkreuz  #.  Die 
restlichen  drei  Parameter  kennen  Sie  ja  zur  Genüge.  Zusätzlich 
müssen  wir  auch  den  Befehlskanal  öffnen.  Warum,  das  werden 
Sie  gleich  sehen: 

OPEN  15,8,15 

In  Assembler  sieht  das  komplett  so  aus: 


130 

;*  befehlskanal  oeffnen 

• 

HO 

Ida  #$0f 

; logische  file-nr.  15 

150 

Idx  #$08 

;geraeteadresse 

160 

Idy  #$0f 

;sekundaeradr.  15 

170 

jsr  $ffba 

; Parameter  setzen 
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175 

jsr  $ffc0 

180  ; 

185  ;*  direktdatei  oeffnen 

190 

Ida  #$02 

200 

Idx  #$08 

210 

Idy  #$02 

220 

jsr  $ffba 

230 

Ida  #$01 

240 

Idx  #<(text) 

250 

Idy  #>(text) 

260 

jsr  $ffbd 

270 

jsr  $ffc0 

1000  ; 
1010  text 

•tx  "#" 

;open-routine  auf rufen 


; logische  file-nr.  2 
;geraeteadresse 
;sekundaeradr.  2 
; Parameter  setzen 
;textlaenge! 

; zeiger  auf 
;text 

; Parameter  setzen 
;open-routine  auf rufen 

;dateiname 


Nachdem  wir  fertig  sind,  dürfen  wir  nicht  vergessen,  die  Da- 
teien wieder  zu  schließen.  Dafür  ist,  wie  gewohnt,  der  CLOSE- 
Befehl  zuständig: 

CLOSE  2:CL0SE  15 
bzw.  in  Assembler: 


920 

jsr  $ffcc 

;auf  Standardeingabe 
; zurückschalten 

930 

Ida  #$02 

;direktdatei 

940 

jsr  $ffc3 

;c lose- rout ine  aufrufen 

950 

Ida  #$0f 

;befehlskanal 

960 

jsr  $ffc3 

;c lose- rout ine  aufrufen 

Einen  Datenblock  lesen 

Ans  Schließen  der  Datei  wollen  wir  im  Moment  natürlich  noch 
nicht  denken,  sondern  erst  einmal  sehen  wie  man  einen  Daten- 
block liest.  Wie  schon  ganz  zu  Beginn  dieses  Kapitels  kurz  er- 
wähnt, sind  die  Datenblocks  auf  der  Diskette  in  konzentrischen 
Spuren  (engl.:  Tracks)  angeordnet.  Jede  Spur  ist  in  einzelne  Sek- 
toren unterteilt,  in  die  jeweils  gerade  ein  Datenblock  paßt. 


Da  der  Spurumfang  ja  nach  außen  hin  immer  größer  wird,  bzw. 
umgekehrt  nach  innen  immer  kleiner,  paßt  in  die  einzelnen 
Spuren  nicht  dieselbe  Anzahl  Sektoren.  Auf  den  äußeren  Spuren 
können  einige  Sektoren  mehr  untergebracht  werden  als  auf  den 
inneren.  Insgesamt  enthält  jede  Diskette  36  Spuren  mit  der  fol- 
genden Sektoreinteilung  und  Nummernzuordnung: 
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Spur 

Sektor 

00-17 

00-20 

18-24 

00-18 

25-30 

00-17 

31  -35 

00-16 

Die  Spuren  sind  also  von  Null  bis  35  durchnumeriert.  Auf  den 
Spuren  0 bis  17  finden  21  Sektoren  Platz,  während  es  auf  den 
Spuren  31  bis  35  nur  noch  17  Sektoren  sind. 


Um  einen  bestimmten  Datenblock  anzusprechen,  gibt  man  nun 
einfach  seine  Spur-  und  Sektornummer  an.  27/5  beispielsweise 
bezeichnet  den  Datenblock  auf  Spur  27,  Sektor  5.  Wie  teilt  man 
diese  beiden  Werte  nun  aber  der  Floppy  mit?  Dazu  gibt  es  den 
"Block-Read-Befehl",  der  über  den  Befehlskanal  gesendet  wer- 
den muß  (daher  haben  wir  ihn  eingangs  gleich  mit  geöffnet). 
Der  Block-Read-Befehl  hat  das  folgende  Format: 

PRINT#15,"U1  2 0";SP;SK 
bzw.  in  Assembler: 


320 

Idx  #$0f 

330 

jsr  $ffc9 

340 

Idy  #0 

350  schleife 

Ida  puffer, y 

360 

jsr  $ffd2 

370 

cmp  #*0d 

375 

beq  fertig 

380 

iny 

385 

jmp  schleife 

390  fertig 

nop 

395  ; 

1100  puffer 

.tx  »ul  2 0» 

1110 

.by  sp,sk,13 

; logische  file-nr.  15 
;datei  auf  ausgabe  schalten 

; Zeichen  aus  puffer  holen 
;und  ausgeben 
; 'return'? 

;ja,  ausgabe  beenden 
;zeiger+1 

;naechstes  Zeichen 
/weiteres  programm 


"Ül"  ist  der  eigentliche  Block-Read-Befehl.  Die  2 dahinter  ist 
die  Sekundäradresse,  die  wir  beim  öffnen  der  Direktzugriffsda- 
tei gewählt  haben.  Die  0 dahinter  muß  immer  angegeben  wer- 
den. Zum  Schluß  folgen  schließlich  die  Spurnummer  "SP"  und 
die  Sektornummer  "SK"  des  anzusprechenden  Datenblocks. 
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Möchten  Sie  beispielsweise  den  Datenblock  auf  Spur  18,  Sektor  0 
(das  ist  der  erste  Directory-Block)  laden,  so  geben  Sie  ein: 

PRINT#15,"U1  2 0";18;0 

Genauso  gut  können  sie  auch  schreiben: 

PRINT#15, "Ul  2 0 18  0» 

Durch  diese  Anweisung  wird  der  Datenblock  nun  aber  nicht  in 
den  Rechnerspeicher  geholt  (wohin  auch?),  sondern  nur  in  einen 
internen  Pufferspeicher  der  Floppy  geladen.  Von  dort  aus  kön- 
nen wir  über  die  Direktzugriffsdatei,  die  wir  mit  der  logischen 
File-Nummer  2 geöffnet  haben,  die  Daten  Byte  für  Byte  lesen. 

Zuvor  müssen  wir  der  Floppy  aber  noch  mitteilen,  ab  welcher 
Position  im  Datenblock  wir  Daten  lesen  (oder  auch  schreiben) 
wollen.  Dazu  gibt  es  den  "Puffer-Pointer-Befehl",  der  einen  Zei- 
ger auf  die  gewünschte  Position  setzt: 

PRINT#15,"B-P  2"; PS 
bzw.  in  Assembler 


320 

Idx  #$0f 

; logische  file-nr.  15 

330 

jsr  Sffc9 

;datei  auf  ausgabe  schalten 

340 

Idy  #0 

350  schleife 

Ida  puffer, y 

;zeichen  aus  puffer  holen 

360 

jsr  $ffd2 

;und  ausgeben 

370 

cmp  #$0d 

; 1 return*? 

375 

beq  fertig 

;ja,  ausgabe  beenden 

380 

iny 

;zeiger+1 

385 

jmp  schleife 

;naechstes  Zeichen 

390  fertig 
395  ; 

nop 

.■weiteres  Programm 

1100  puffer 

.tx  "b-p  2" 

1110 

.by  ps,13 

Die  2 hinter  "B-P"  ist  wieder  die  Sekundäradresse.  PS  enthält 
den  Wert  für  den  Zeiger.  Da  ein  Datenblock  ja  gerade  256  Byte 
lang  ist,  kann  man  den  Zeiger  auf  eine  Position  zwischen  Null 
(1.  Daten-Byte)  und  255  (letztes  Daten-Byte)  setzen. 


PRINT#15,"B-P  2"; 175 
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setzt  beispielsweise  den  Zeiger  auf  die  Position  175.  Jetzt  endlich 
können  wir  die  Daten  lesen.  Dazu  benötigen  wir  den  GET#- 
Befehl. 

FOfi  Z=1  TO  6:GET#2,EG$:DT$=DT$+EG$:NEXT  Z 

liest  beispielsweise  die  Daten-Bytes  175  bis  180  in  DT$  ein. 


Einen  Datenblock  schreiben 

Analog  dazu  können  Sie  mit  PRINT#  in  den  Datenblock  schrei- 
ben. Geben  Sie  beispielsweise  ein: 

PRINT#15,"B-P  2"; 175 
PRINT#2, "BEISPIEL"; 


so  steht  der  Text  "BEISPIEL"  anschließend  im  Puffer  von  Posi- 
tion 175  bis  182.  Um  den  gesamten  Datenblock  wieder  auf  die 
Diskette  zurückzuschreiben,  bedarf  es  des  "Block-Write-Befehls", 
der  wie  folgt  auf  gebaut  ist: 

PRINT#15,"U2  2 0";SP;SK 


bzw.  in  Assembler: 


320 

Idx  #$0f 

330 

jsr  $ffe9 

340 

Idy  #0 

350  schleife 

Ida  puffer, y 

360 

jsr  $ffd2 

370 

cmp  #$0d 

375 

beq  fertig 

380 

iny 

385 

jmp  schleife 

390  fertig 

nop 

395  ; 

1100  puffer 

.tx  "u2  2 0" 

1110 

.by  sp.sk, 13 

PRINT#15,"U2 

2 0 11  7" 

; logische  file-nr.  15 
;datei  auf  ausgabe  schalten 

.'Zeichen  aus  puffer  holen 
;und  ausgeben 
; ’return1? 

;ja,  ausgabe  beenden 
;zeiger+1 

;naechstes  Zeichen 
.‘weiteres  programm 


schreibt  beispielsweise  den  aktuellen  Pufferinhalt  in  den  Sektor 
7 auf  der  Spur  11.  Damit  haben  wir  alle  Befehle  zusammen,  um 
uns  einmal  eine  praktische  Anwendung  für  den  Direktzugriff 
anzusehen. 
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Wie  Sie  ja  wissen,  muß  der  Name  einer  Diskette  beim  Forma- 
tieren angegeben  werden.  Möchte  man  den  Namen  später  än- 
dern, muß  die  Diskette  neu  formatiert  werden,  wobei  natürlich 
alle  auf  der  Diskette  gespeicherten  Daten  verloren  gehen. 


Wenn  man  nun  aber  weiß,  daß  der  Diskettenname  im  ersten  Di- 
rectory-Block auf  Spur  18,  Sektor  0 gespeichert  wird,  kann  man 
ihn  mit  Hilfe  des  Direktzugriffs  leicht  ändern,  wie  das  folgende 
Programm  zeigt: 

100  rem  namen  einer  diskette  aendern 
110  : 

120  rem  dateien  oeffnen 
130  open  15,8,15 
140  open  2,8,2,»#» 

150  : 

160  rem  block  in  puffer  lesen 
170  print#15,"u1  2 0 18  0" 

180  rem  auf  diskettennamen  positionieren 
190  print#15,"b-p  2 144» 

200  rem  alten  namen  lesen  und  ausgeben 
210  dt$="" 

220  get#2,egS 

230  if  eg$=chr$(160)  then  260: rem  ende  des  namens 
240  dt$=dt$+eg$ 

250  goto  220 

260  print  »alter  name:  ";dt$:print 
270  : 

280  rem  neuen  namen  erfragen 
290  input  "neuer  name:  ";nd$ 

300  nd$=left$(ndS,16):rem  maximal  16  Zeichen 
310  rem  namen  mit  ,shift'+l space'  auffuellen 
320  if  len(nd$)<16  then  nd$=nd$+chr$(160):goto  320 
330  : 

340  rem  neuen  namen  in  puffer  schreiben 
350  print#15,"b-p  2 144":zeiger  setzen 
360  print#2,ndS; :rem  namen  schreiben 
370  rem  block  auf  diskette  zuruecksch reiben 
380  print#15,"u2  2 0 18  0» 

390  : 

400  rem  dateien  schliessen 
410  close  2 
420  close  15 

Das  Programm  gibt  zunächst  den  alten  Namen  der  eingelegten 
Diskette  aus,  fragt  dann  nach  dem  gewünschten  neuen  Namen 
und  schreibt  diesen  schließlich  auf  die  Diskette.  Wenn  Sie  jetzt 
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mit  LOAD  "$",8  das  Directory  der  Diskette  laden,  werden  Sie 
feststellen,  daß  der  Name  korrekt  geändert  wurde. 

Einen  Datenblock  als  frei/belegt  kennzeichnen 

Wie  ich  schon  erwähnt  habe,  führt  die  Floppy  für  jede  Diskette 
eine  Blockbelegungstabelle,  die  BAM,  in  der  alle  belegten  und 
freien  Datenblöcke  vermerkt  sind.  Wenn  Sie  im  Direktzugriff 
auf  einer  Diskette  Daten  ablegen,  müssen  Sie  sich  darum  nicht 
unbedingt  kümmern.  Es  ist  aber  empfehlenswert,  denn  die  BAM 
stellt  auf  jeden  Fall  die  einfachste  Möglichkeit  dar,  auf  einer 
Diskette  nicht  den  Überblick  zu  verlieren.  Um  einen  Block  in 
der  BAM  als  "belegt"  zu  kennzeichnen,  gibt  es  den  "Block-Allo- 
cate-Befehl".  Er  hat  die  folgende  Syntax: 

PRINT#15,"B-A  0";SP;SK 
bzw.  in  Assembler: 


320 

Idx  #$0f 

; logische  file-nr.  15 

330 

jsr  $ffc9 

;datei  auf  ausgabe  schalten 

340 

Idy  #0 

350  schleife 

Ida  puffer, y 

; Zeichen  aus  puffer  holen 

360 

jsr  $ffd2 

;und  ausgeben 

370 

cmp  #$0d 

; ’return1? 

375 

beq  fertig 

;ja,  ausgabe  beenden 

380 

iny 

;zeiger+1 

385 

jmp  schleife 

;naechstes  Zeichen 

390  fertig 
395  ; 

nop 

.'weiteres  Programm 

1100  puffer 

.tx  "b-a  0" 

1110 

.by  sp,sk,13 

SP  und  SK  sind  wiederum  die  Spur-  und  die  Sektornummern  des 
betreffenden  Datenblocks.  Mit  Block- Allocate  kann  man  auch 
leicht  testen,  ob  ein  Block,  auf  dem  man  Daten  speichern 
möchte,  überhaupt  noch  frei  ist.  Wenn  Sie  z.B.  eingeben: 

PRINT#15,"B-A  0 18  0" 

dann  erhalten  Sie  garantiert  die  Fehlermeldung  NO  BLOCK,  da 
auf  Spur  18,  Sektor  0 das  Directory  beginnt.  Um  einen  Block  zu 
testen,  versucht  man  ihn  also  als  belegt  zu  kennzeichnen  und 
liest  dann  den  Fehlerkanal  aus.  Block-Allocate  bietet  dabei  noch 
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einen  besonderen  Service:  Falls  der  betreffende  Block  tatsächlich 
schon  belegt  ist,  enthalten  die  letzten  beiden  Variablen  der  Feh- 
lermeldung die  Nummern  des  nächsten  freien  Datenblocks  mit 
einer  höheren  Spur-  und  Sektornummer! 

100  rem  freien  datenblock  ermitteln 
110  open  15,8,15 

120  print#15,"b-a  0 0 0":rem  block  0/0  belegen 
130  input#2,fn,ft$,sp,sk:rem  fehlermeldung 
140  if  fn=65  then  print#15,"b-a  0M;sp;sk 
150  close  15 

Mit  dieser  kleinen  Routine  können  Sie  bei  Bedarf  leicht  einen 
freien  Datenblock  ermitteln.  In  Zeile  120  wird  dazu  versucht, 
den  Block  auf  Spur  0,  Sektor  0 als  belegt  zu  kennzeichnen.  Ist 
dieser  Block  noch  nicht  belegt,  dann  erhalten  Sie  die  Meldung 
"00  OK  00  00".  In  diesem  Fall  enthalten  SP  und  SK  die  korrek- 
ten Blocknummern  0 und  0. 

Ist  der  Block  dagegen  schon  belegt,  enthalten  SP  und  SK  die 
Blocknummern  des  nächsten  freien  Blocks,  den  Sie  dann  zur 
Speicherung  verwenden.  In  Zeile  140  wird  der  Block  deshalb  als 
belegt  kennzeichnet.  Um  einen  nicht  mehr  benötigten  Daten- 
block wieder  als  frei  kennzeichnen  zu  können,  gibt  es  den 
"Block-Free-Befehl": 

PRINT#15."B-F  0";SP;SK 
bzw.  in  Assembler: 


320 

Idx  #$0f 

; logische  fi le-nr.  15 

330 

jsr  $ffc9 

;datei  auf  ausgabe  schalten 

340 

Idy  #0 

350  schleife 

Ida  puffer, y 

; Zeichen  aus  puffer  holen 

360 

jsr  $ffd2 

;und  ausgeben 

370 

cmp  #$0d 

; 'return1? 

375 

beq  fertig 

;ja,  ausgabe  beenden 

380 

iny 

;zeiger+1 

385 

jmp  schleife 

;naechstes  Zeichen 

390  fertig 
395  ; 

n°P 

;weiteres  programn 

1100  puffer 

.tx  "b-f  0" 

1110 

•by  sp,sk,13 
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Der  Block-Free-Befehl  macht  also  den  Block-Allocate-Befehl 
wieder  rückgängig.  Bei  Block-Free  erhält  man  übrigens  auch 
dann  keine  Fehlermeldung,  wenn  der  betreffende  Block  bereits 
als  frei  gekennzeichnet  war. 

100  open  15,8,15 
110  for  z=0  to  20 
120  print#15,"b-f  0»;3/z 
130  next  z 
140  close  15 


beispielsweise  gibt  die  gesamte  Spur  3 frei.  Das  Belegen  und 
Freigeben  von  Blöcken  ist,  wie  gesagt,  nur  zur  eigenen  Kon- 
trolle. Der  Block- Write-Befehl  kümmert  sich  um  die  Eintragun- 
gen in  der  BAM  nicht.  Wenn  sie  allerdings  ein  Programm  oder 
eine  sequentielle  Datei  auf  der  betreffenden  Diskette  speichern, 
werden  die  von  Ihnen  belegten  Blöcke  nicht  überschrieben.  Die 
Floppy-Routinen  für  die  regulären  Dateien  sehen  in  der  BAM 
nach,  da  die  Blöcke  der  Dateien  gekennzeichnet  werden  müssen. 


Maschinenprogramme  laden  und  starten 

Eine  Erweiterung  des  Block-Read-Befehls  stellt  der  "Block- 
Execute-Befehr  dar.  Block-Execute  lädt  einen  Datenblock  in 
den  Pufferspeicher  und  führt  ihn  dann  als  Maschinenprogramm 
aus.  Der  Befehl  ist  wie  folgt  aufgebaut: 

PRINT#15,"B-E  2 0";SP;SK 
bzw.  in  Assembler: 


320 

Idx  #$0f 

/logische  file-nr.  15 

330 

jsr  $ffc9 

;datei  auf  ausgabe  schalti 

340 

Idy  #0 

350  schleife 

Ida  puffer, y 

/Zeichen  aus  puffer  holen 

360 

jsr  $ffd2 

/und  ausgeben 

370 

cmp  #$0d 

/ ’return'? 

375 

beq  fertig 

/ja,  ausgabe  beenden 

380 

iny 

/zeiger+1 

385 

jmp  schleife 

/naechstes  Zeichen 

390  fertig 
395  ; 

nop 

/weiteres  programm 

1100  puffer 

.tx  "b-e  2 0" 

1110 

• by  sp.sk,  13 

PR1NT#15,"B-E 

2 0 15  7" 
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beispielsweise  lädt  den  Datenblock  auf  Spur  15,  Sektor  7 und 
führt  ihn  aus.  Mehr  zum  Thema  Floppy-Speicher  und  Maschi- 
nenprogramme im  nächsten  Abschnitt. 


5.7  Der  Zugriff  auf  den  Floppy-Speicher 

Wie  Sie  ja  bereits  wissen,  ist  die  Floppy  mit  einem  eigenen  Be- 
triebssystem ausgestattet,  das  alle  Diskettenoperationen  weitest- 
gehend selbständig,  d.h.  ohne  die  Unterstützung  des  Commodore 
64  ausführt.  Neben  dem  Betriebssystem,  das  im  ROM  gespei- 
chert ist,  existieren  auch  noch  zwei  KByte  RAM,  die  normaler- 
weise als  Arbeits-  und  Pufferspeicher  genutzt  werden.  Mit  Hilfe 
der  im  folgenden  vorgestellten  Befehle  ist  es  nun  möglich,  den 
Floppy-Speicher  auszulesen  (RAM+ROM)  und  in  ihn  hineinzu- 
schreiben (RAM)  sowie  innerhalb  des  RAM-Speichers  eigene 
Maschinenprogramme  ausführen  zu  lassen.  Alle  die  Speicher- 
zugriffsbefehle  werden  über  den  Befehlskanal  gesendet.  Evtl, 
auszulesende  Daten  werden  von  der  Floppy  ebenfalls  über  den 
Befehlskanal  bereitgestellt.  Wir  müssen  also  zu  Beginn  nur  wie 
gewohnt  den  Befehlskanal  mit 

OPEN  15,8,15 

bzw.  in  Assembler  mit 


140 

Ida  #$0f 

; logische  file-nr.  15 

150 

Idx  #$08 

;geraeteadresse 

160 

Idy  #$0f 

;sekundaeradr.  15 

170 

jsr  Sffba 

; Parameter  setzen 

175 

jsr  SffcO 

; open- rout ine  auf rufen 

öffnen  und  am  Ende  nicht  vergessen,  ihn  zu  schließen.  Mit 
CLOSE  15 

bzw. 


920 

jsr  $ffcc 

;auf  Standardeingabe 
; zurückschalten 

930 

Ida  #$0f 

; logische  file-nr. 

940 

jsr  $ffc3 

;c lose- rout ine  aufrufen 
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Daten  aus  dem  Floppy-Speicher  lesen 

Um  Daten  aus  dem  Floppy-Speicher  auszulesen,  gibt  es  den 
"Memory-Read-Befehl". 

Ihm  wird  die  Speicheradresse,  ab  der  gelesen  werden  soll,  sowie 
die  Anzahl  der  zu  lesenden  Bytes  übergeben: 

PRINT#15t"M-R"  CHRJCLO)  CHR$(HI)  CHRS(AZ) 

bzw.  in  Assembler: 


320 

Idx  #$0f 

.■logische  file-nr.  15 

330 

jsr  $ffc9 

;datei  auf  ausgabe  schalten 

340 

Idy  #0 

350  schleife 

Ida  puffer, y 

; Zeichen  aus  puffer  holen 

360 

jsr  $ffd2 

;und  ausgeben 

370 

cmp  #$0d 

; 'return'? 

375 

beq  fertig 

;ja,  ausgabe  beenden 

380 

iny 

;zeiger+1 

385 

jmp  schleife 

;naechstes  Zeichen 

390  fertig 

nop 

.-weiteres  Programm 

395  ; 

1100  puffer 

.by  <( adresse) 

, > ( adresse) , anzah 1,13 

LO  und  HI  enthalten  die  Speicheradresse  im  bekannten  Low-/ 
High-Byte-Format.  Sehen  wir  uns  das  ganze  an  zwei  konkreten 
Beispielen  an.  Sehr  nützlich  ist  es  beispielsweise,  die  Anzahl  der 
freien  Blöcke  der  eingelegten  Diskette  zu  ermitteln. 


Dazu  muß  man  wissen,  daß  die  Floppy  diesen  Wert  in  den 
Speicherzellen  762  und  764  ablegt. 


100  open  15,8,15 

110  ad=762:hb= int (ad/256): lb=ad-hb*256:rem  adresse  zerlegen 
120  print#15,"m-r11  chr$(lb)  chr$(hb)  chr$(1) 

130  get#15,bl$:bl=asc(bl$) 

140  ad=764:hb= int (ad/256): lb=ad-hb*256:rem  adresse  zerlegen 
150  print#15,"m-rn  chr$(lb)  chr$(hb)  chr$(1) 

160  get#15,bh$:bh=asc(bh$) 

170  close  15 
180  bf=bl+256*bh 


Die  Variable  BF  enthält  nun  die  Anzahl  der  freien  Blocks.  Häu- 
fig möchte  man  von  einem  Programm  aus  kontrollieren,  ob  die 
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richtige  Diskette  im  Laufwerk  eingelegt  ist.  Am  einfachsten  geht 
das  natürlich,  indem  man  den  Diskettennamen  überprüft.  Der 
Name  der  momentan  eingelegten  Diskette  steht  im  Floppy- 
Speicher  immer  ab  Adresse  1936,  von  wo  wir  ihn  leicht  auslesen 
können: 

100  open  15,8,15 

110  ad=1936:hb=int(ad/256):lb=ad-hb*256 
:rem  adresse  zerlegen 

120  print#15,"ia-r"  chr$(lb)  chr$(hb)  chr$(16) 

130  input#15,dn$ 

170  close  15 

DNS  enthält  jetzt  den  Diskettennamen,  der  allerdings  mit  dem 
ASCII-Code  160  (<Shift>+<Space>)  auf  16  Zeichen  aufgefüllt  ist. 
Bevor  man  den  Namen  daher  vergleicht,  muß  man  die  Ver- 
gleichsvariable ebenfalls  auf  16  Zeichen  auffüllen.  Eine  allge- 
meine Routine  dazu  könnte  so  aussehen: 

200  vg$=Mdisk1":rein  diskettenname 

210  if  len(vg$)<16  then  vg$=vg$+chrS(160):goto  210 

Anschließend  können  Sie  die  beiden  Namen  mit 

300  if  dn$=vg$  then  ... 

miteinander  vergleichen. 

Daten  in  den  Floppy-Speicher  schreiben 

Während  man  beim  Auslesen  des  Floppy-Speichers  kaum  einen 
Schaden  anrichten  kann,  muß  man  beim  Schreiben  (ähnlich  wie 
bei  den  POKE-Befehlen  in  den  Rechnerspeicher)  sehr  vorsichtig 
sein.  Der  Befehl  zum  Schreiben  von  Daten  heißt  "Memory- Write" 
und  ist  wie  folgt  auf  gebaut: 

PRIMT#15,"M-W"  CHR$(LO)  CHR$(HI)  CHR$(AZ)  CHR$(D1)  CHR$(D2)  ... 
bzw.  in  Assembler: 


320 

330 

340 


Idx  #$0f 
jsr  $ffc9 
Idy  «0 


.■logische  file-nr.  15 
;datei  auf  ausgabe  schalten 
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,-zeichen  aus  puffer  holen 
;und  ausgeben 
; ’return1? 

; ja,  ausgabe  beenden 
;zeiger+1 

;naechstes  Zeichen 
;weiteres  programn 

f 

1100  puffer  ,by  <(adresse),>(adresse),anzahl 
1110  .by  daten-byte1,daten-byte2,...,13 

LO  und  HI  enthalten  die  Speicheradresse,  ab  der  die  Daten  in 
der  Floppy  abgelegt  werden  sollen,  im  Low-/High-Byte-Format. 
Dahinter  folgt  die  Anzahl  der  zu  übertragenden  Daten  und 
schließlich  die  Daten  selbst.  Daß  man  mit  Hilfe  von  Memory- 
Write  in  sehr  elementare  Abläufe  der  Floppy  eingreifen  kann, 
zeigt  das  folgende  Beispiel: 

Bevor  die  Floppy  einen  bestimmten  Datenblock  einer  Diskette 
als  fehlerhaft  wertet,  versucht  sie  normalerweise,  fünfmal  nach- 
einander auf  ihn  zuzugreifen.  Erst  wenn  auch  der  fünfte  Ver- 
such scheitert,  wird  eine  entsprechende  Fehlermeldung  gesendet. 
Die  Anzahl  der  Zugrif fsversuche  ist  nun  in  der  Speicherzelle  106 
gespeichert.  Dieser  Wert  läßt  sich  mit  Memory-Write  natürlich 
ändern: 

100  input  "anzahl  der  versuche:  "az 
110  : 

120  open  15,8,15 

130  ad=106:hb=int(ad/256): lb=ad-hb*256:rem  adresse  zerlegen 
140  print#15,"m-w"  chr$(lb)  chr$(hb)  chr$(1)  chr$(az) 

170  close  15 

Das  Programm  erlaubt  es  Ihnen,  die  Anzahl  der  Zugriffsversu- 
che  beliebig  zu  variieren. 


350  schleife  Ida  puffer, y 


360 
370 
375 
380 
385 

390  fertig 


jsr  $ffd2 
cmp  #$0d 
beq  fertig 
iny 

jmp  schleife 
nop 


Floppy-Routinen  aufrufen 

Ein  Maschinenprogramm,  das  man  mit  Memory-Write  in  den 
Floppy-Speicher  übertragen  hat,  läßt  sich  mit  dem  Befehl  "Me- 
mory-Execute"  starten.  Das  Programm  muß  dazu  mit  einem  RTS 
abgeschlossen  sein.  Außerdem  kann  man  mit  Memory-Execute 
auch  Unterprogramme  des  Floppy-Betriebssystems  aufrufen.  Der 
Befehl  ist  wie  folgt  auf  gebaut: 


Die  Floppy  VC  1541 


513 


PRINT#15,"M-E"  CHR$(LO)  CHR$(HI) 
bzw.  in  Assembler: 


320 

Idx  #$0f 

; logische  file-nr.  15 

330 

jsr  $ffc9 

;datei  auf  ausgabe  schalten 

340 

Idy  «0 

350  schleife 

Ida  puffer, y 

;zeichen  aus  puffer  holen 

360 

jsr  $ffd2 

;und  ausgeben 

370 

cmp  #$0d 

; 'return'? 

375 

beq  fertig 

;ja,  ausgabe  beenden 

380 

iny 

; zeige r+1 

385 

jmp  schleife 

;naechstes  Zeichen 

390  fertig 
395  ; 

1100  puffer 

nop 

;ueiteres  programm 

.by  <( adresse) 

,>(adresse),13 

LO  und  HI  enthalten  die  Startadresse  des  Maschinenprogramms 
im  Low-/High-Byte-Format.  Das  folgende  Beispiel  verzweigt  ins 
Floppy-Betriebssystem  und  löscht  den  Kommandostring-Puffer 
der  Floppy: 

120  open  15,8,15 

130  ad=49597:hb=int(ad/256):lb=ad-hb*256:rem  adresse  zerlegen 
140  print#15,,,m-e"  chr$(lb)  cbr$(hb) 

170  close  15 

Damit  haben  wir  alle  Spezialbefehle  durch.  Wie  sie  gesehen  ha- 
ben, ist  die  Handhabung  dieser  Befehle  zwar  nicht  ganz  leicht, 
dafür  erlauben  sie  aber  zum  Teil  sehr  interessante  Effekte. 


5.8  Diskettenkopierschutz 

Wie  arbeitet  ein  solcher  Diskettenkopierschutz?  Wie  und  wofür 
kann  ich  ihn  selber  benutzen?  Das  sind  die  Fragen,  die  auf  den 
folgenden  Seiten  beantwortet  werden  sollen. 

Wofür  Sie  einen  Kopierschutz  brauchen,  ist  einfach  zu  beant- 
worten. Sie  können  mit  Hilfe  eines  solchen  Schutzes  sicherstel- 
len, daß  Ihr  mühsam  geschriebenes  Programm  nicht  ohne  Ihr 
Wissen  weitergegeben  werden  kann.  Diese  in  diesem  Buch  er- 
läuterten Schutzverfahren  sind  auch  ohne  weiteres  dazu  geeignet, 
professionelle  Software  zu  schützen.  Sie  entsprechen  nicht  den  in 
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einigen  Zeitschriften  oder  ähnlichem  beschriebenen  Verfahren, 
die  mit  jedem  drittklassigen  Kopierprogramm  kopiert  werden 
können.  Selbst  wenn  Sie  kein  Interesse  haben,  Ihre  Software  zu 
schützen,  ist  dies  auch  im  Hinblick  auf  die  interessante  Floppy- 
Programmierung  sehr  zu  empfehlen. 

Auf  die  Frage,  wie  ein  solcher  Kopierschutz  arbeitet,  ist  allge- 
mein zu  sagen,  daß  es  sich  hierbei  um  eine  Manipulation  auf  der 
geschützten  Diskette  handelt,  die  nicht  ohne  weiteres  von  einem 
Kopierprogramm  kopiert  werden  kann.  Wie  dieses  im  einzelnen 
aussieht,  wird  im  Laufe  dieses  Buches  noch  besprochen. 

Leider  müssen  wir  zum  Verständnis  der  folgenden  Programme 
ein  recht  gutes  Wissen  über  das  Arbeiten  der  Floppy  sowie 
Kenntnisse  der  Programmierung  in  Maschinensprache  voraus- 
setzen. Für  diejenigen,  die  diese  Kenntnisse  nicht  haben,  ist  dies 
dennoch  interessant,  weil  alle  Schutzsysteme  auch  in  Form  eines 
BASIC-Loaders  vorliegen  und  somit  für  jeden  nutzbar  sind. 

Unser  "Handwerkszeug" 

Bevor  wir  uns  intensiver  mit  der  Programmierung  eines  Kopier- 
schutzes befassen,  wollen  wir  zuvor  näher  auf  das  "Innenleben" 
der  Floppy  eingehen,  um  Ihnen  das  Verständnis  der  zu  bespre- 
chenden Kopierschutzsysteme  zu  ermöglichen.  Wenn  Sie  über 
dieses  Wissen  bereits  verfügen,  können  Sie  sich  sofort  dem  Auf- 
trägen eines  Kopierschutzes  widmen.  An  dieser  Stelle  nun  die 
Übersicht  über  die  Speicheraufteilung  der  Floppy  und  eine 
Übersicht  über  die  Nutzung  der  Puffer  der  Floppy. 

VIA  1 ist  der  Baustein,  der  den  Datenaustausch  zwischen  Com- 
puter und  Rechner  herstellt.  Er  verwaltet  den  seriellen  Bus. 

VIA  2 wird  ausschließlich  für  den  Datenaustausch  zwischen  der 
Floppy  und  der  Diskette  verwendet. 

Es  ist  noch  wissenswert,  daß  das  RAM  der  Floppy  ab  $8000 
gespiegelt  ist,  was  bedeutet,  daß  die  Speicherstellen  ab  $8000  die 
gleichen  Werte  und  auch  die  gleiche  Bedeutung  wie  die  Spei- 
cherstellen ab  $0000  haben. 
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Die  Arbeitsweise  des  DOS 

Die  VC  1541  ist  ein  "intelligentes"  Diskettenlaufwerk  mit  eigenem 
Mikroprozessor  und  Betriebssystem  (Disk  Operating  System, 
DOS).  Dadurch  wird  kein  Speicherplatz  und  keine  Rechenzeit 
des  angeschlossenen  Rechners  benötigt.  Der  Rechner  braucht  der 
Floppy  lediglich  Befehle  zu  übermitteln,  die  diese  dann  selbsttä- 
tig ausführt. 

Die  Floppy  hat  damit  drei  Aufgaben  gleichzeitig  zu  erledigen: 
Zum  einen  muß  sie  den  Datenverkehr  vom  und  zum  Rechner 
durchführen.  Die  zweite  Aufgabe  ist  die  Interpretation  der  Be- 
fehle, die  Verwaltung  von  Dateien,  der  zugeordneten  Übertra- 
gungskanäle und  der  Blockpuffer.  Die  dritte  Aufgabe  ist  die 
hardware-mäßige  Bedienung  der  Diskette;  dazu  gehört  das 
Schreiben  und  Lesen  einzelner  Blocks  auf  der  Diskette  sowie  das 
Formatieren  von  Disketten.  Diese  Aufgaben  muß  bei  der 
VC1541  ein  6502-Mikroprozessor  gleichzeitig  durchführen.  Dies 
ist  nur  mit  Hilfe  der  Interrupt-Technik  möglich.  Nur  so  können 
drei  Programme  quasi  gleichzeitig  ablaufen. 

Nachdem  wir  schon  etwas  näher  auf  den  Aufbau  der  Diskette 
eingegangen  sind,  wollen  wir  uns  einmal  ansehen,  wie  das  DOS 
alle  seine  Aufgaben  realisiert.  Dies  ist  besonders  dann  wichtig, 
wenn  man  selbst  Programme  in  der  Floppy  schreiben  will,  wie 
beispielsweise  seinen  eigenen  Kopierschutz. 

Beim  Schreiben  von  Programmen  im  Floppy-puffer  kann  man 
selbstverständlich  auch  viel  vom  Betriebssystem  der  Floppy  Ge- 
brauch machen,  das  für  die  meisten  Aufgaben  schon  Routinen 
parat  hat.  Doch  in  der  Floppy  ist  dies  nicht  so  problemlos  wie 
im  C64.  Das  Betriebssystem  der  Floppy  kann  man  in  zwei  Teile 
unterteilen.  Der  erste  Teil  ist  das  Hauptprogramm,  das  in  einer 
Endlosschleife  läuft.  Von  diesem  Programm  aus  wird  hauptsäch- 
lich der  serielle  Bus  verwaltet.  Fast  alle  Unterprogrammaufrufe 
werden  mit  absoluten  Sprüngen  realisiert  und  müssen  somit  auch 
mit  einem  JMP-Befehl  zurück  ins  Hauptprogramm  abgeschlossen 
werden.  Diese  Routinen  können  deswegen  kaum  für  die  eigene 
Arbeit  verwendet  werden,  da  sie  nach  einmaligem  Aufruf  sofort 
ins  Hauptprogramm  springen.  Sie  müssen  solche  Routinen  also 
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selbst  schreiben  und  können  nicht  auf  die  vorhandenen  Routinen 
des  Betriebssystems  zurückgreifen. 

Der  zweite  Teil  des  Betriebssystems  ist  dafür  um  so  besser  für 
eigene  Programme  zu  verwenden.  Es  handelt  sich  hierbei  um  ein 
Interrupt- Programm,  die  sogenannte  "Job-Schleife". 

Dieses  Programm  übermimmt  die  Lese-  und  Schreiboperationen 
auf  und  von  Diskette.  Bei  jedem  Interrupt  werden  die  Speicher- 
stellen $00  bis  $05  der  Zeropage,  die  die  "Schnittstelle"  zwischen 
dem  Hauptprogramm  und  Interrupt-Programm  hersteilen,  auf 
ihre  Werte  überprüft.  Werte,  die  größer  oder  gleich  $80  (128) 
sind,  werden  als  Befehle  (Jobs)  erkannt  und  daraufhin  ausge- 
führt. Jede  dieser  Speicherstellen  (Job-Speicher)  bezieht  sich  auf 
einen  bestimmten  Speicherbereich.  Zusätzlich  gehören  zu  jedem 
Job-Speicher  noch  zwei  Speicherstellen,  die  den  Track  und  den 
Sektor  angeben,  auf  die  sich  der  Job  (Befehl)  bezieht.  Nachfol- 
gend eine  Tabelle,  welche  den  Job-Speichern  ihre  Track-  und 
Sektorangabe  sowie  ihren  Speicherbereich  zuordnet: 


Job 

Track 

Sektor 

Speicherbereich 

$00 

$06 

$07 

$0300-$03FF 

$01 

$08 

$09 

$0400-$04FF 

$02 

$0A 

$0B 

$0500-$05FF 

$03 

$0C 

$00 

$0600-$06FF 

$04 

$0E 

$0F 

$0700-$07FF 

$05 

$10 

$11 

kein  RAM 

Anschließend  folgt  eine  Tabelle,  die  die  Job-Codes  und  ihre  Be- 
deutung zeigt. 


Job-Code 

Bedeutung 

$80128 
$90144 
$A0  160 
$B0  176 
$00192 
$00208 
$E0224 

Sektor  lesen 
Sektor  schreiben 
Sektor  verifizieren 
Sektor  suchen 
Bump,  Kopfanschlagen 
Programm  im  Puffer  ausführen 
Programm  im  Puffer  ausführen, 
vorher  Laufwerksmotor  ein- 
schalten und  Kopf  positionieren 
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Machen  wir  uns  nun  die  Verarbeitung  der  Job-Codes  anhand 
eines  einfachen  Beispiels  besser  verständlich: 

Wenn  vom  BASIC  aus  durch  einen  Ul -Befehl  ein  Block  gelesen 
werden  soll,  so  nimmt  das  Hauptprogramm  diesen  Befehl  entge- 
gen, erkennt  ihn  und  veranlaßt,  daß  der  entsprechende  Block 
gelesen  wird.  Diese  Veranlassung  sieht  jetzt  so  aus,  daß  die 
Track-  und  Sektornummer  in  die  Speicherstellen,  die  im  Zu- 
sammenhang mit  dem  angegebenen  Puffer  stehen,  geschrieben 
werden.  Daraufhin  wird  der  Job-Code  $80  (Sektor  lesen)  in  den 
entsprechenden  Job-Speicher  geschrieben. 

Nehmen  wir  an,  zum  Lesen  dieses  Blocks  wäre  Puffer  2 reser- 
viert worden;  dann  wären  die  Track-  und  Sektornummer  in  die 
Speicherstellen  $0A  und  $0B  geschrieben  worden.  Der  Job-Code 
$80  wäre  danach  in  den  Job-Speicher  $02  geschrieben  worden. 
Nach  diesen  Arbeitsgängen  beginnt  die  Aufgabe  der  Job- 
Schleife.  Diese  überprüft  jetzt  die  Job-Speicher,  findet  im  Job- 
Speicher  die  $80  und  holt  sich  aus  $0A  und  $0B  die  Track-  und 
Sektornummer  des  zu  lesenden  Sektors.  Daraufhin  wird  der 
Kopf  positioniert  und  der  Sektor  gelesen.  Die  gelesenen  Daten 
werden  im  Puffer  2 ($0500-$05FF)  abgelegt. 

Das  Hauptprogramm  befindet  sich  während  dieser  Zeit  in  einer 
Wartestellung.  Es  wartet  auf  die  READY-Meldung  des  Jobs. 
Diese  Rückmeldung  wird  in  denselben  Job-Speicher  geschrieben, 
in  den  auch  der  Befehl  geschrieben  wurde.  Die  Rückmeldungen 
unterscheiden  sich  von  den  Job-Codes  dadurch,  daß  bei  den 
Job-Codes  das  höchstwertige  Bit  gesetzt  und  bei  den  Rückmel- 
dungen gelöscht  ist.  Das  Hauptprogramm  überprüft  immer  das 
höchstwertige  Bit  und  beginnt,  sobald  die  Rückmeldung  kommt, 
diese  auszuwerten. 

Bevor  wir  auf  die  Rückmeldungen  eingehen,  noch  ein  Hinweis 
zu  den  Job-Codes,  die  ein  Programm  im  Puffer  ausführen:  Der 
Job-Code  $D0  startet  ein  Programm  bei  der  Anfangsadresse  des 
jeweiligen  Puffers.  Der  Befehl  $E0  fährt  den  Laufwerksmotor 
zuvor  noch  hoch,  positioniert  den  Kopf  und  führt  dann  wie  $D0 
das  Programm  im  angegebenen  Puffer  aus. 
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Wollen  wir  also  den  Inhalt  von  Track  24,  Sektor  8 in  den  Puffer 
#0  ($300  - $3FF)  lesen,  kann  dies  durch  folgende  Routine  ge- 
schehen: 


100  OPEN  1,8,15 

110  TRACK  = 24:  SECTOR  = 8:  LESEN  = 128 

120  PRINT#1 , HH-U"CHRS(6)CHR$(0)CHR$(2)CHR$(TRACK)CHR$(SECTOR) 
130  PRINT#1 , "M-U"CHR$(0)CHR$(0)CHR$(1)CHR$( LESEN) 

140  PRINT#1 , "M-R"CHR$(0)CHR$(0) 

150  GET#1,  A$:IF  AS=""  THEN  A$=CHR$(0) 

160  IF  ASC(A$)>127  THEN  140 
170  PRINT  "FEHLERCODE  =";  ASC(A$) 

180  CLOSE  1 


In  Zeile  120  werden  Track-  und  Sektornummer  für  Puffer  #0 
übergeben,  in  Zeile  130  der  Befehl  zum  Lesen.  Die  Programm- 
schleife in  Zeile  140  bis  160  wartet  das  Ende  des  Jobs  ab.  ln 
Zeile  170  wird  der  Fehlercode  ausgegeben.  Diese  Codes  haben 
folgende  Bedeutung: 


Coda 

Bedeutung 

DOS-Fehlermeldung 

$01 

Alles  OK 

00.  OK 

$02 

Headerblock  nicht  gefunden 

20.  READ  ERROR 

$03 

SYNC  nicht  gefunden 

21.  READ  ERROR 

$04 

Datenblock  nicht  gefunden 

22,  READ  ERROR 

$05 

Checksummenfehler  im  Datenblock 

23,  READ  ERROR 

$07 

Verify-Fehler 

25.  WRITE  ERROR 

$06 

Diskette  schreibgeschützt 

26.  WRITE  PROTECT  ON 

$09 

Checksummenfehler  im  Headerblock 

27,  READ  ERROR 

$OB 

Falsche  ID  gelesen 

29,  ID  MISMATCH 

$0F 

Diskette  nicht  eingelegt 

74,  DRIVE  NOT  READY 

Die  im  Floppyhandbuch  auf geführten  Fehlermeldungen  24, 
READ  ERROR  (GCR-Kodierung  wird  nicht  erkannt)  und  28, 
WRITE  ERROR  treten  bei  der  VC  1541  nicht  auf.  Zur  Bedeu- 
tung der  Fehlermeldungen  sehen  Sie  bitte  im  Anhang  nach. 

Zur  Benutzung  der  Disk-Controller-Routinen  sei  noch  folgendes 
vermerkt:  Wenn  Sie  einen  Block  mit  dem  Ul -Befehl  lesen,  so 
wird  der  Befehl  "Lese  Block"  an  die  Disk-Controller  übergeben. 
Wird  von  diesem  nun  ein  Fehler  gemeldet,  so  veranlassen  die 
"logischen  DOS-Routinen"  (das  Hauptprogramm)  weitere  Lese- 
versuche jeweils  eine  halbe  Spur  links  und  rechts  vom  Track. 
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Hat  auch  dies  keinen  Erfolg,  wird  ein  "Bump"  durchgeführt  (der 
Kopf  geht  nach  Track  1 und  gibt  die  typischen  Geräusche  bei 
einem  Lesefehler  von  sich)  und  das  ganze  wird  nochmal  ver- 
sucht. Normalerweise  werden  vom  DOS  fünf  Leseversuche  ge- 
macht, ehe  endgültig  ein  Fehler  gemeldet  wird.  Diesen  Mecha- 
nismus umgehen  wir,  wenn  wir  direkt  die  Disk-Controller-Rou- 
tinen  ansprechen.  Für  normale  Schreib-  und  Leseoperationen 
sollten  daher  weiterhin  die  Ul-  und  U2-Befehle  benutzt  werden. 


5.8.1  Das  Disketten-Aufzeichnungsverfahren 

Hier  versuchen  wir.  Ihnen  näher  zu  bringen,  wie  die  Bits  auf  die 
Diskette  kommen  und  von  dort  wieder  gelesen  werden  können. 
Wie  Sie  bereits  wissen,  ist  die  Diskette  in  35  Spuren  oder  Tracks 
unterteilt,  die  als  konzentrische  Ringe  auf  der  Diskette  angeonj- 
net  sind.  Die  äußerste  Spur  erhält  die  Nummer  1,  und  Track  35 
ist  die  innerste  Spur.  Um  die  einzelnen  Spuren  anzusteuern,  hat 
das  Laufwerk  einen  Schritt-  oder  Steppermotor,  mit  dem  der 
Schreib-/Lesekopf  über  jeden  Track  positioniert  werden  kann. 
Die  Aufzeichnung  der  Daten  geschieht  nun  bitweise.  Dabei  wird 
jedes  1 -Bit  durch  einen  Wechsel  der  Magnetisierungsrichtung 
gekennzeichnet,  während  bei  einem  O-Bit  nichts  passiert.  Die 
Bits  werden  in  einem  festen  Takt  geschrieben,  der  ca.  250000 
Bits/s  beträgt. 

Wenn  wir  nun  Daten  nach  diesem  Verfahren  auf  eine  Spur 
schreiben,  sind  wir  anschließend  nicht  mehr  in  der  Lage,  die 
Daten  korrekt  wieder  zu  lesen.  Da  sich  die  Diskette  fortlaufend 
dreht,  die  Spuren  also  keinen  Anfang  und  kein  Ende  haben, 
können  wir  den  Beginn  unserer  Aufzeichnung  nicht  ermitteln. 
Doch  selbst  wenn  wir  den  Anfang  der  Spur  feststellen  könnten, 
würden  wir  Probleme  haben,  den  Beginn  jedes  Bytes  festzustel- 
len. Theoretisch  ist  durch  den  Beginn  der  Aufzeichnung  auch 
der  Beginn  jedes  einzelnen  nachfolgenden  Bytes  bestimmt.  Dies 
setzt  jedoch  voraus,  daß  die  Umdrehungsgeschwindigkeit  der 
Diskette  immer  absolut  gleichbleibend  ist,  auch  von  einem  Drive 
zum  anderen.  Diese  Forderung  ist  jedoch  illusorisch,  und  man 
hat  sich  eine  andere  Möglichkeit  überlegt,  wie  man  den  Beginn 
der  einzelnen  Bytes  sicher  erkennen  kann. 
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Zuerst  unterteilt  man  einen  Track  in  mehrere  Sektoren.  Da  auf 
einer  Spur  bei  der  oben  genannten  Bit-Rate  mehr  als  6000  Bytes 
untergebracht  werden  können,  braucht  man  zum  einen  einen 
Pufferspeicher  dieser  Größe  in  der  Floppy.  Ein  weiterer  Nach- 
teil wäre  es,  daß  nur  maximal  35  Dateien  abzuspeichern  wären. 
Wenn  wir  ein  Programm  von  1 KByte  Länge  abspeichern  wür- 
den, so  wären  5 KByte  verschenkt,  die  Ausnutzung  der  Diskette 
also  sehr  unökonomisch.  Da  die  Tracks  von  außen  nach  innen 
schmaler  werden,  werden  die  äußeren  Tracks  in  mehr  Sektoren 
unterteilt  als  die  inneren.  Dazu  muß  die  Bit-Rate  nach  außen 
hin  gesteigert  werden.  Die  folgende  Tabelle  enthält  die  entspre- 
chenden Daten. 


Track 

Esmm 

1-17 

307692 

7692 

18-24 

285714 

7143 

25-30 

266667 

6667 

31-35 

250000 

6250 

Doch  damit  hat  sich  unser  Problem  nur  vergrößert:  Wie  erken- 
nen wir  den  Beginn  der  Sektoren  auf  dem  Track?  Wir  müssen 
also  bestimmte  Bit- Kombinationen  bevorzugt  erkennen  können, 
die  als  Daten-Bytes  nicht  Vorkommen  können.  Mit  acht  Bit  las- 
sen sich  256  Kombinationen  darstellen,  die  es  auch  alle  als  Da- 
ten-Bytes kann.  Der  Schlüssel  zur  Lösung  liegt  darin,  ein  Byte 
nicht  durch  8,  sondern  für  die  Diskettenäufzeichnung  durch 
mehr  Bits  darzustellen.  Damit  sind  wir  schon  beim  "Group  Code 
Recording",  wie  es  von  Commodore  verwendet  wird. 

Wir  benutzen  als  sogenanntes  Synchron-  oder  SYNC-Zeichen  die 
Bit-Kombination  %1 1111111  oder  $FF.  Die  Daten-Bytes  müssen 
nun  so  verschlüsselt  werden,  daß  niemals  acht  1 -Bits  hinterein- 
ander Vorkommen.  Das  "Group  Code  Recording",  kurz  GCR  ge- 
nannt, bildet  nun  jeweils  4 Bits  auf  5 Bits  ab.  Die  5-Bit-Kom- 
bination  ist  so  gewählt,  daß  die  obige  Forderung  erfüllt  ist.  Eine 
zusätzliche  Forderung  besteht  noch  darin,  dafür  zu  sorgen,  daß 
auch  niemals  mehr  als  zwei  O-Bit  hintereinander  folgen,  da  da- 
bei ja  kein  Wechsel  der  Magnetisierungsrichtung  erfolgt  und  es 
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dadurch  Probleme  beim  Lesen  der  Daten  geben  kann.  Die  Ta 
belle  gibt  nun  an,  wie  jeweils  4 Bits  verschlüsselt  werden. 


GCR-Code 

$0 

0000 

01010 

$1 

0001 

01011 

$2 

0010 

10010 

$3 

0011 

10011 

$4 

0100 

01110 

$5 

0101 

01111 

$6 

0110 

10110 

$7 

0111 

10111 

$8 

1000 

01001 

$9 

1001 

11001 

$A 

1010 

11010 

$B 

1011 

11011 

$C 

1100 

01101 

$D 

1101 

11101 

$E 

1110 

11110 

$F 

1111 

10101 

Durch  beliebiges  Aneinandereihen  des  GCR-Codes  kann  also 
niemals  ein  Bit-Muster  entstehen,  das  mehr  als  8 aufeinanderfol- 
gende 1 -Bits  oder  mehr  als  zwei  O-Bits  enthält.  Wir  können  also 
jetzt  den  Beginn  eines  Sektors  durch  SYNC-Bytes  markieren,  die 
durch  eine  Digitalschaltung  erkannt  und  gemeldet  werden.  Doch 
wie  wissen  wir,  welcher  Sektor  nach  einem  SYNC-Byte  folgt? 
Dazu  steht  vor  jedem  Sektor  ein  sogenanntes  BlockHeader-Feld 
(Sektorkopf),  das  Track-  und  Sektornummer  sowie  zusätzlich 
noch  die  Identifikation  der  Diskette  enthält  (das  sind  die  zwei 
Zeichen,  die  Sie  beim  Formatieren  der  Diskette  mit  angeben). 
Der  nachfolgende  eigentliche  Sektorinhalt  wird  wieder  durch 
vorausgehende  SYNC-Bytes  eingeleitet.  Damit  man  Blockheader 
und  Datenblock  unterscheiden  kann,  folgt  nach  dem  SYNC- 
Zeichen  ein  Kenn-Byte.  Ein  Headerblock  wird  durch  eine  8 
identifiziert,  ein  Datenblock  durch  eine  7.  Damit  Lesefehler,  die 
z.B.  durch  eine  verschmutzte  oder  zerkratzte  Diskette  entstehen 
können,  erkannt  werden,  enthält  jeder  Block  noch  eine 
Checksumme  über  alle  Bytes.  Ein  Blockheader  hat  damit  folgen- 
den Aufbau: 


Die  Floppy  VC  1541 


523 


5 Sync- Zeichen 

1 Headerblock-Kennzeichen  ($08) 

1 Checksimme  über  alle  Bytes 
1 Sektornuimer 
1 Track- Nimner 
1 ID2 

1 ID1 

2 Abschluß-Bytes  ($0F) 

8 Füll -Bytes  ($55) 

Bis  auf  die  SYNC- Zeichen  ($FF,  %1 1111111)  und  die  8 Füll- 
Bytes  ($55  %0 1010101)  werden  alle  anderen  Bytes  in  GCR-Code 
umgewandelt.  Die  Füll-Bytes  sind  erforderlich,  da  immer  nur 
eine  durch  4 teilbare  Anzahl  Bytes  in  GCR-Code  umgewandelt 
werden  kann.  Aus  einem  Byte  (8  Bits)  werden  nach  der  Um- 
wandlung 10  Bits.  4 Bytes  (32  Bits)  werden  in  40  Bits  umgewan- 
delt, was  gerade  5 Bytes  entspricht.  Das  folgende  Schema  soll 
deutlich  machen,  wie  die  Umwandlung  vonstatten  geht. 

Originaldaten  11112222  33334444  55556666  77778888 
GCR-Daten  11111222  22333334  44445555  56666677  7778888 

Eine  Zifferngruppe  soll  dabei  ein  "Nibble"  (4  Bits)  darstellen. 
Die  Umwandlung  geschieht  von  einer  DOS-Routine  mit  Hilfe 
der  GCR-Code-Tabelle,  die  ab  Adresse  $F77F  im  ROM  steht. 

Doch  jetzt  zum  Aufbau  des  Datenblocks. 

5 Sync-Zeichen 
1 Datenblock-Kennzeichen  ($07) 

256  Daten-Bytes 

1 Checksumme 

2 Abschluß -Bytes  ($00) 

MIN.  4 Füll-Bytes  ($55) 

Der  Block  wird  wieder  mit  5 SYNC-Zeichen  eingeleitet,  dann 
folgen  im  GCR-Code  das  Kennzeichen  für  den  Datenblock,  eine 
7,  dann  die  256  Daten-Bytes.  Zur  Fehlererkennung  folgt  eine 
Ein-Byte-Checksumme  (EXKLUSIV-ODER-VERKNÜPFUNG 
aller  Bytes)  und  zwei  Null-Bytes  als  Abschluß-Bytes.  Die  Anzahl 
der  Füll-Bytes  bis  zum  Beginn  des  nächsten  Headerblocks  ist 
variabel  und  wird  bei  der  Formatierung  aus  der  Gesamtkapazität 
des  jeweiligen  Tracks  ermittelt. 
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Ein  kompletter  Sektor  auf  Diskette  enhält  also  8 (Headerblock)  + 
260  (Datenblock)  Bytes,  die  in  GCR-Code  gewandelt  335  Bytes 
ergeben,  sowie  10  SYNC-Zeichen  und  mindestens  12  Füll-Bytes. 
Damit  besteht  ein  Sektor  aus  mindestens  357  Bytes  im  Verhältnis 
zu  256  Nutz-Bytes.  Es  gehen  also  ca.  28%  der  gesamten  Disket- 
tenkapazität für  die  Datenorganisation  verloren. 

Das  Beschreiben  der  Diskette  geschieht  bereits  komplett  beim 
Formatieren.  Sehen  wir  uns  jetzt  einmal  an,  wie  die  Floppy 
einen  Sektor  liest. 

1.  Laufwerksmotor  einschalten. 

2.  Schreib-/Lesekopf  über  Track  bringen. 

3.  Headerblock  für  gewünschten  Track  und  Sektor  erzeugen 
und  in  GCR-Code  umwandeln. 

4.  SYNC-Zeichen  abwarten. 

5.  Die  nächsten  8 Bytes  lesen  und  mit  dem  oben  erzeugten 
GCR-Code  vergleichen. 

6.  Falls  keine  Übereinstimmung:  zurück  zu  Schritt  4. 

7.  Der  richtige  Sektorheader  wurde  gefunden,  jetzt  SYNC- 
Zeichen  des  Datenblocks  abwarten. 

8.  Datenblock  lesen  und  GCR-Code  decodieren. 

Dies  sind,  vereinfacht  dargestellt,  die  Schritte,  die  beim  Lesen 
eines  Sektors  durchlaufen  werden.  Nicht  berücksichtigt  wurde 
dabei,  was  im  Fehlerfall  passiert,  z.B.  falls  ein  Checksummen- 
fehler festgestellt  wurde  oder  falls  schon  der  Headerblock  nicht 
korrekt  gelesen  werden  konnte. 

Das  Schreiben  eines  Blocks  verläuft  ähnlich.  Auch  hier  muß  zu- 
erst der  korrekte  Headerblock  gefunden  werden,  ehe  man  den 
alten  Datenblock  mit  den  neuen  Daten  überschreiben  kann. 

1.  Laufwerksmotor  einschalten. 

2.  Schreib-/Lesekopf  über  Track  bringen. 

3.  Datenblock  in  GCR-Code  umwandeln. 

4.  Headerblock  für  gewünschten  Track  und  Sektor  erzeugen 
und  in  GCR-Code  umwandeln. 

5.  SYNC-Zeichen  abwarten. 
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6.  Die  nächsten  8 Bytes  lesen  und  mit  dem  oben  erzeugten 
GCR-Code  vergleichen. 

7.  Falls  keine  Übereinstimmung:  zurück  zu  Schritt  5. 

8.  8 GAP-Bytes  überlesen. 

9.  5 SYNC-Zeichen  schreiben. 

10.  GCR-Daten  schreiben. 

11.  Geschriebenen  Sektor  lesen  und  mit  den  Daten  im  RAM  ver- 
gleichen (Verify). 

Beim  Schreiben  eines  Blocks  wird  also  nur  der  Datenblock  mit 
den  zugehörigen  SYNC-Bytes  geschrieben.  Der  Blockheader 
bleibt  unverändert,  er  wird  nur  einmal  bei  der  Formatierung 
erzeugt. 


5.8.2  Einführung  in  die  Lese-  und  Schreibtechnik 

Bevor  wir  dazu  übergehen,  die  einzelnen  Kopierschutzverfahren 
zu  erläutern,  sollte  erst  grundlegend  die  Methodik  des  Lesens 
und  Speicherns  von  Daten  auf  Diskette  besprochen  werden. 

Die  zur  Floppy-Steuerung  interessantesten  Register  sind  die  Re- 
gister 1 und  2 des  VIA  2.  Es  sind  die  Adressen  $1C00  und 
$1C01,  wobei  $1C00  hauptsächlich  zur  Ansteuerung  der  Lauf- 
werk-LED  und  der  Motoren  und  $1C01  zum  Lesen  und  Schrei- 
ben der  Daten  benötigt  werden. 

Erläuterung  der  Bit-Funktionen  der  Adresse  $1C00: 


m 

Funktion 

0 

Steppermotorsteuerung 

1 

Steppermotorsteuerung 

Q 

Laufwerksmotor 

Bit=0:  Motor  aus 

Laufwerk-LED 

Bit=0:  LED  aus 

Sfl 

Schreibschutz 

Bit=0:  Lichtschranke  unterbrochen 

H 

Einstellung  der  Bit-Rate 
zum  Tonkopf,  Speed-Flag 

Bedeutung  wie  Bit  5 

1 

SYNC-Signal  beim 
Lesen  gefunden 

Bit— 0:  SYNC  gefunden 
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Zum  Lesen  und  Schreiben  von  Daten  wird,  wie  schon  gesagt, 
$1C01  benutzt.  Schreibt  man  einen  Wert  in  dieses  Register,  so 
wird  dieser,  sofern  zuvor  auf  "Schreiben"  umgestellt  wurde,  die- 
ses Byte  auf  die  Diskette  geschrieben.  Doch  wie  kann  der  Pro- 
grammierer feststellen,  wann  das  Byte  vollständig  geschrieben 
oder  gelesen  wurde?  Um  dies  feststellen  zu  können,  existiert 
eine  Byte-Ready-Leitung,  die  mit  dem  Overflow-Flag  des  Pro- 
zessor-Status-Registers  verbunden  ist.  Sobald  ein  Byte  vollstän- 
dig übertragen  wurde,  wird  aufgrund  dieser  Leitung  das 
Overflow- Flag  gesetzt.  Dieses  Flag  wird  von  dieser  Leitung  zwar 
gesetzt,  jedoch  nicht  wieder  gelöscht.  Dies  muß  der  Program- 
mierer mit  Hilfe  des  CLV-Befehls  "von  Hand"  erledigen,  damit 
er  nicht  ständig  die  Ready-Meldung  für  ein  verarbeitetes  Byte 
erhält.  Die  Zeit,  in  der  ein  Byte  von  Diskette  gelesen  oder  auf 
Diskette  geschrieben  wird,  liegt  zwischen  26  und  32  Mikrose- 
kunden, je  nach  Einstellung  der  Speed-Flags. 

Zum  Starten  von  Programmen  in  der  Floppy  gibt  es  grundsätz- 
lich zwei  Möglichkeiten.  Zum  einen  können  Sie  Ihre  Programme 
über  die  Job-Codes  $E0  und  $D0  als  Interrupt-Programm  star- 
ten, zum  anderen  ist  es  auch  möglich,  die  Programme  direkt  zu 
starten.  Wir  werden  uns  erst  das  Starten  von  Programmen  mit 
Hilfe  der  Job-Codes  ansehen.  Beispiel  für  das  Laden  eines  Bytes: 

0500  BVC  $0500 

0502  CLV 

0503  LDA  S1C01 

In  der  ersten  Zeile  wird  so  lange  gewartet,  bis  das  V-Flag  (Byte- 
Ready)  auf  High  gesetzt  wird  als  Zeichen  dafür,  daß  ein  Byte 
anliegt.  Das  V-Flag  wird  daraufhin  "von  Hand"  wieder  auf  Low 
gesetzt.  Anschließend  wird  das  geladene  Byte  in  den  Akku  ge- 
holt. Beispiel  für  das  Speichern  eines  Bytes: 

0500  STA  $1C01 

0503  BVC  $0503 

0505  CLV 

Das  Speichern  eines  Bytes  läuft,  wie  Sie  sehen,  analog  dazu  ab. 
Das  Byte  wird  gespeichert,  worauf  auf  Byte-Ready  gewartet 
wird.  Abschließend  wird  das  V-Flag  wieder  gelöscht.  Vor  dem 
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Speichern  muß  man  der  Floppy  noch  mitteilen,  daß  die  Daten, 
die  in  die  Adresse  $1C01  geschrieben  werden,  auch  wirklich 
gespeichert  werden.  Dies  erledigt  das  folgende  kleine  Programm. 

LDA  SICOC 

AND  «S1F  PCR  auf  Schreibbetrieb  ungehalten 
ORA  «SCO 
STA  S1C0C 

LDA  «SFF  Port  für  Schrei b-/Lesekopf 
STA  S1C03  auf  Ausgang 

Natürlich  gibt  es  auch  eine  Routine  zum  Umschalten  auf  Lesen: 
LDA  sicoc 

ORA  «SEO  PCR  auf  Lesebetrieb  unschalten 
STA  SICOC 

LDA  «S00  Port  für  Sch reib- /Lesekopf 
STA  S1C03  auf  Eingang 

Diese  Routine  existiert  auch  in  dieser  Form  im  Betriebssystem 
der  Floppy  und  läßt  sich  auf  rufen  mit: 

JSR  SFEOO 

Um  Daten  gezielt  auf  Diskette  schreiben  und  auch  wieder  von 
dort  lesen  zu  können,  wird  es  häufig  nötig  sein,  auf  eine  SYNC- 
Markierung  zu  warten.  Auch  für  diesen  Fall  stellt  das  Betriebs- 
system der  Floppy  eine  Routine  zur  Verfügung.  Sie  läßt  sich 
auf rufen  mit: 

JSR  SF556 

Die  Routine  wartet  20  ms  auf  ein  SYNC-Signal.  Wird  dieses 
nicht  gefunden,  wird  eine  entsprechende  Fehlermeldung  ausge- 
geben. Hier  liegt  auch  der  Nachteil  im  Benutzen  der  Routine. 
Der  Programmierer  hat  keine  Möglichkeit,  selbst  auf  ein  even- 
tuelles Nichtauffinden  der  SYNC-Markierung  zu  reagieren,  da 
kein  Rücksprung  auf  den  Unterprogramm- Auf  ruf  folgt. 

Die  Lösung  ist  einfach.  Sie  übernehmen  die  Routine  in  Ihr  Pro- 
gramm und  können  somit  bei  negativer  Abfrage  zu  Ihrer  eigenen 
Routine  verzweigen.  Wenn  Sie  sicher  sind,  daß  eine  SYNC-Mar- 
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kierung  gefunden  wird,  können  Sie  das  entsprechende  Bit  auch 
ohne  Fehlerabfrage  direkt  abfragen. 

0500  BIT  $1C00  Port  abfragen 

0502  BMI  $0500  verzweige,  wenn  SYNC  nicht  gefunden 


Das  folgende  Programm  arbeitet  selbst  mit  Job-Codes  und  wird 
daher  mit  einem  M-E-Befehl  auf gerufen.  Es  erzeugt  einen  22 
READ- ERROR  auf  dem  eingestellten  Track  und  Sektor. 


0600  LDA  #$01 
0602  STA  $0A 
0604  LDA  #$00 
0606  STA  $0B 
0608  LDA  #$80 
060A  STA  $02 
060C  LDA  $02 
060E  BMI  $060C 
0610  LDA  #$09 
0612  STA  $47 
0614  LDA  #$90 
0616  STA  $02 
0618  LDA  $02 
061A  BMI  $0618 
061 C LDA  #$07 
061E  STA  $47 
0620  RTS 


N immer  des  zu  ladenden  Tracks 

in  Track-Speicher  für  Puffer  2 schreiben 

Nimmer  des  zu  ladenden  Sektors 

in  Sektorspeicher  für  Puffer  2 schreiben 

Job-Code  für  Track/Sektor  lesen 

in  Job-Speicher  des  Puffer  2 schreiben 

Job-Speicher  lesen 

warten,  bis  Job  abgearbeitet  ist 

eigenes  Erkennungszeichen  für  Datenblock 

in  die  entsprechende  Adresse  schreiben 

Job-Code  für  Block  speichern 

in  Job-Speicher  für  Puffer  2 schreiben 

Job- Spei  eher  lesen 

warten,  bis  Job  abgearbeitet  ist 

normales  Datenblock-Erkennungszeichen  laden 

und  speichern  (rücksetzen) 

Rücksprung 


In  unserem  Fall  wird  die  Erkennungsziffer  7 durch  die  Ziffer  9 
ersetzt.  Der  Daten-Header  kann  somit  nicht  mehr  gefunden  wer- 
den. Bei  diesem  ERROR  handelt  es  sich  um  einen  SOFT- 
ERROR,  da  die  Daten  des  zerstörten  Blocks  sich  trotz  einer 
Fehlermeldung  im  Speicher  der  Floppy  befinden.  Vom  BASIC 
oder  von  einem  gewöhnlichen  Diskmonitor  aus  ist  es  nicht  mög- 
lich, diesen  Block  ohne  Umstellung  der  Speicherzelle  $47  (71) 
auf  9 zu  lesen. 


Falls  Sie  diesen  Block  wieder  reparieren  wollen,  reicht  es  aus, 
0610  LDA  #$09  durch  0610  LDA  #$07  zu  ersetzen  und  das  Pro- 
gramm erneut  zu  starten.  Sie  speichern  somit  die  Orginalkenn- 
zahl  7 mitsamt  dem  Block  wieder  ab. 


Als  nächstes  stellen  wir  eine  Routine  vor,  die  den  Tonkopf  um 
beliebig  viele  Halbspuren  nach  innen  oder  außen  bewegt.  In 
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diesem  Beispiel  wird  der  Tonkopf  16  Spuren  nach  außen  und 
danach  wieder  nach  innen  gefahren.  Es  ist  ratsam,  die  Diskette 
vor  dem  Ausprobieren  dieser  Routine  zu  initialisieren,  damit  der 
Tonkopf  nicht  anstoßen  kann.  Für  die  Beobachtung  des  Ton- 
kopfes bei  diesem  Beispiel  und  bei  eigenen  Experimenten  ist  es 
von  Vorteil,  die  vier  Schrauben  an  der  Unterseite  der  Floppy  zu 
lösen  und  den  Deckel  vorsichtig  abzunehmen.  Unserer  Meinung 
nach  überwiegen  die  Vorteile  beim  Arbeiten  mit  einer  geöffne- 
ten Floppy  im  Gegensatz  zu  einer  geschlossenen.  Jetzt  aber  end- 
lich das  erwähnte  Programm. 


0500  SEI 

0501  LDA  S1C00 
0504  ORA  #$04 
0506  STA  $1C00 
0509  LDX  #$30 
050B  STX  $40 
0500  DEC  $40 
050F  BNE  $050D 

0511  DEX 

0512  BNE  $1500 
0514  LOY  #$10 
0516  JSR  $0530 
0519  DEY 

051A  BNE  $0516 
051C  LOY  #$10 
051E  JSR  $0537 

0521  DEY 

0522  BNE  $05 IE 
0524  LDA  $1000 
0527  AND  #$F8 
0529  STA  $1C00 
052C  CLI 

052D  RTS 
052E  NOP 
052F  NOP 


Interrupt  sperren 

Control -Register  laden 

Bit  für  Laufwerksmotor  setzen 

und  wieder  schreiben 

Uarteschleife 

um  dem 

Motor  Zeit 

zun  Hoch fahren 

zu  geben 

verzweige,  wenn  Zeit  nicht  abgelaufen 
Zähler  für  Stepanzahl  auf  $10  setzen 
Kopf  um  eine  Halbspur  nach  auBen  schieben 
Zähler  verringern 

verzweige,  wenn  noch  nicht  abgezählt 
Zähler  erneut  setzen 

Kopf  um  eine  Halbspur  nach  innen  schieben 
Zähler  verringern 

verzweige,  wenn  noch  nicht  abgezählt 

Control-Register  laden 

Bits  0 bis  2 löschen,  un  Motor  zu  stoppen 

und  wieder  schreiben 

Interrupt  wieder  ermöglichen 

Rücksprung 


Routine  zur  Kopfsteuerung 


0530  LDX  $1C00 

0533  DEX 

0534  CLC 

0535  BCC  $0538 


Control -Register  laden 

verringern,  un  Kopf  nach  auBen  zu  schieben 

Carry- Flag  setzen 

unbedingter  Sprung 


0537  LDA  $1C00 
053A  INX 
053B  TXA 
053C  AND  #$03 
053E  STA  $4B 


Control -Register  laden 

erhöhen  für  Kopfbewegung  nach  auBen 

Wert  in  Akku  schieben 

ersten  zwei  Bits  isolieren 

und  Zwischenspeichern 
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Control -Register  erneut  laden 
Bits  0 und  1 löschen 
und  mit  den  errechneten  Bits  verknüpfen 
und  speichern 
$09  ist  Zähler  für 
die  Uarteschleife, 
un  dem  Tonkopf 
genügend  Zeit 
zu  geben, 

positioniert  zu  werden 
Rücksprung 

Sie  werden  sich  sicher  fragen,  wie  es  möglich  ist,  daß  sich  der 
Tonkopf  mittels  dieser  Routine  bewegt.  Für  diese  Bewegung  sind 
die  Bits  0 und  1 des  Control-Registers  zuständig.  Der  Kopf  be- 
wegt sich  durch  systematische  Veränderung  dieser  Bits,  wenn 
zusätzlich  der  Laufwerksmotor  (Bit  3)  eingeschaltet  ist.  Durch 
eine  Veränderung  der  beiden  Bits  in  der  Folge  00/01/10/11/00 
bewegt  sich  der  Kopf  weiter  nach  innen,  und  durch  die  Folge 
00/11/10/01/00  bewegt  er  sich  nach  außen. 


0540  LDA  $1C00 
0543  AND  #$FC 
0545  ORA  $48 
0547  STA  $1C00 
054A  LDX  #$09 
054C  STX  $4B 
054E  DEC  $4B 
0550  BNE  S054E 

0552  DEX 

0553  BNE  $054E 
0555  RTS 


Hier  ein  Beispiel  zum  besseren  Verständnis.  Sind  die  Bits  0 und 
1 wie  in  unserem  Beispiel  gelöscht  und  wird  dann  das  erste  Bit 
gesetzt,  was  der  Bit-Folge  01  entspricht,  so  bewegt  sich  der 
Kopf,  wenn  man  ihm  genug  Zeit  läßt,  um  eine  Halbspur  nach 
innen.  Durch  das  Setzen  beider  Bits  bewegt  er  sich  nach  außen. 
Wie  Sie  sicher  festgestellt  haben,  wird  dieses  Programm  nicht 
über  die  Job-Codes,  sondern  direkt  gestartet  und  läuft  folglich 
auch  nicht  als  Interrupt-Programm.  Zum  Schluß  noch  ein  Bei- 
spiel für  das  Starten  eines  Programms  mittels  des  Job-Codes 
$E0. 


Das  folgende  Programm  fährt  den  Tonkopf  auf  den  eingestellten 
Track  und  liest  dort  den  ersten  Blockheader,  den  es  findet.  Die 
gelesenen  Daten  werden  aus  dem  GCR-Format  in  die  normalen 
Bit- Werte  gewandelt  und  in  den  Adressen  $16  bis  $1A  gespei- 
chert. Die  Speicherung  geschieht  in  der  Reihenfolge: 

$16  - Erste  ID  auf  Diskette 

$17  - Zweite  ID  auf  Diskette 

$18  - gelesener  Track 

$19  - gelesener  Sektor 

$1A  - Prüfsumme  über  den  Blockheader 
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Die  GCR-Daten  des  Headers  stehen  ab  $24. 


0500  JHP  $0503 
0503  IDA  #$19 
0505  STA  $0501 
0508  LOA  #$01 
050A  STA  $0A 
050C  LOA  #$00 
050E  STA  $0B 
0510  LOA  #$E0 
0512  STA  $02 
0514  LDA  $02 
0516  BHI  $0514 
0518  RTS 


Sprung  für  den  ersten  Durchlauf  unbedeutend 

Lou-Byte  der  Einsprungadresse 

in  den  JMP-Befehl  schreiben  (JHP  $0519) 

Track,  auf  dem  ausgeführt  werden  soll 

in  Speicher  für  Puffer  zwei  speichern 

Sektornummer  (unerheblich) 

speichern 

Job-Code  $E0  (Programm  im  Puffer  ausführen) 
in  Job-Speicher  für  Puffer  zwei  schreiben 
Job-Speicher  lesen 
verzweige  wenn  nicht  beendet 
Rücksprung 


Das  auszuführende  Interrupt-Programm 


0519  LDA  #$03 
051B  STA  $0501 
051E  LDX  #$5A 

0520  STX  $48 
0522  LDX  #$00 
0524  LDA  #$52 
0526  STA  $24 
0528  JSR  $F556 
052B  BVC  $052B 
052D  CLV 

052E  LDA  $1C01 
0531  CNP  $24 
0533  BNE  $0548 
0535  BVC  $0535 

0537  CLV 

0538  LDA  $1C01 
0538  STA  $25 ,* 
0530  INX 

053E  CPX  #$07 
0540  BNE  $0535 
0542  JSR  $F497 
0545  JHP  $FD9E 


Einsprung  wieder 
normalisieren  (JMP  $0503) 

90  Leseveruche 

im  Zahler  speichern 

Zeiger  auf  0 setzen 

GCR-Codierung  $08  (Header-Kennzeichen) 

in  Arbeitsspeicher  speichern 

auf  SYNC  warten 

auf  BYTE-READY  beim  Lesen  warten 

BYTE-READY  wieder  löschen 

gelesenes  Byte  vom  Port  holen 

mit  gespeichertem  Header  vergleichen 

verzweige,  wenn  kein  Blockheader  gefunden 

sonst  auf  BYTE-READY  warten 

Leitung  rücksetzen 

gelesenes  Byte  holen 

und  in  Arbeitsspeicher  schieben 

Zeiger  erhöhen 

schon  ganzen  HEADER  gelesen? 

verzweige,  wenn  noch  nicht  alle  Zeichen 

GCR-BYTE  in  Bit-Form  wandeln 

Rücksprung  aus  dem  Interrupt  (ok) 


0548  DEC  $4B 
054A  BNE  $0522 
054C  LDA  #$02 
054E  JHP  $F969 


Zähler  für  Fehlversuche  verringern 
verzweige  wenn  weitere  Versuche 
Fehlermeldung  ($02=Blockheader  nicht 
gefunden)  ausgeben  und  Programm  beenden 


Das  Programm  wird  ab  $0500  gestartet  und  stellt  den  JMP  $0503 
auf  JMP  $0519  um.  Daraufhin  wird  die  Track-Nummer  überge- 
ben und  der  Job-Code  $E0  in  den  Job-Speicher  $02  (Pufffer  2 - 
$0500)  übergeben.  Dieser  Code  wird  nun  von  der  interrupt-ge- 
steuerten Job-Schleife  erkannt,  die  mit  der  Bearbeitung  des  Co- 
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des  anfängt.  Als  erstes  wird  der  Tonkopf  auf  den  entsprechen- 
den Track  positioniert  und  das  auszuführende  Programm  ab 
$0500  (für  Puffer  2)  gestartet.  Da  der  erste  Befehl  jedoch  JMP 
$0519  ist,  wird  der  Programmteil,  der  vom  Benutzer  gestartet 
wurde,  übersprungen  und  der  JMP-Befehl  wieder  auf  JMP 
$0503  zurückgesetzt.  Das  jetzt  arbeitende  Programm  läuft  inter- 
rupt-gesteuert. Das  Hauptprogramm  wartet  bei  $0514  bis  $0516 
darauf,  daß  eine  Rückmeldung  vom  Interrupt-Programm  an- 
kommt. Das  Hauptprogramm  muß  immer  mit  einem  RTS  abge- 
schlossen werden,  da  sonst  keine  Meldung  an  den  Computer  geht 
und  die  Floppy  sich  aufhängt. 

Das  Interrupt-Programm  darf  nicht  mit  einem  RTS  abgeschlos- 
sen werden.  Am  Ende  dieses  Programms  muß  wieder  in  die  Job- 
Schleife  zurückgekehrt  werden,  welche  die  im  Akku  enthaltene 
Rückmeldung  an  den  Job-Speicher  übergibt.  Nachdem  das 
Hauptprogramm  die  Rückmeldung  erhält,  wird  es  mit  dem  RTS 
beendet.  Mit  $0545  JMP  $FD9E  wird  eine  $01  in  den  Akku  ge- 
laden und  danach  ebenfalls  mit  JMP  $F969  in  die  Job-Schleife 
gesprungen.  Einer  kleinen  Erklärung  bedarf  es  wohl  noch  bei 

$0524  LDA  #$52 

Die  $52  stellt  die  ersten  8 Bits  einer  im  GCR-Format  geschrie- 
benen $08  dar,  die  bekanntlich  für  das  Kennzeichen  des  An- 
fangs eines  Blockheaders  steht.  Normalerweise  kann  nach  dem 
Auffinden  einer  SYNC-Markierung  nur  eine  $08  (Blockheader) 
oder  $07  (Datenheader)  gefunden  werden.  Da  die  GCR- Daten 
der  beiden  Zahlen  sich  jedoch  schon  nach  den  ersten  8 Bits  un- 
terscheiden, reicht  es  aus,  nur  diese  zu  vergleichen. 

Hex  Bin  GCR 

7 00000111  01010101  11  = $55+%1 1 

8 00001000  01010010  01  = S52+X01 

Wenn  wir  schon  von  GCR-Codierung  sprechen:  Wie  kann  man 
Daten,  die  man  auf  Disk  schreiben  will,  in  das  GCR-Format 
und  umgekehrt  wieder  ins  Binärsystem  wandeln?  Für  diese  Fälle 
gibt  es  einige  Routinen  im  DOS  der  Floppy. 
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$F78F 


$F5F2 


$F934 

$F497 


Diese  Routine  wandelt  den  gesamten  aktiven  Puffer 
ins  GCR-Format.  Da  bei  der  Codierung  von  4 Bits 
zu  5 Bits  selbstverständlich  mehr  Platz  benötigt  wird, 
werden  die  ersten  GCS-Daten  in  dem  Ausweichpuf- 
fer vom  $01 BB  bis  $01  FF  geschrieben.  Die  restlichen 
Daten  stehen  im  aktiven  Puffer. 

Die  Routine  wandelt  die  GCR-Daten,  die  im  Aus- 
weichpuffer und  im  aktuellen  Puffer  stehen,  wieder 
in  den  Binärcode  zurück  und  speichert  die  Werte  im 
aktuellen  Puffer. 

Wandelt  den  Blockheader,  dessen  Werte  in  den 
Speicherstellen  $16  bis  $1A  stehen,  in  GCR-Daten 
um  und  speichert  sie  ab  $24. 

Wandelt  den  gelesenen  Blockheader  in  Binärcode  um. 
Die  GCR-Daten  stehen  hierbei  ab  $24  und  die 
Binärwerte  ab  $16  (siehe  Beispielprogramm). 


Das  sollte  als  Einführung  in  die  Programmierung  der  Floppy 
reichen.  Zum  Abschluß  noch  eine  Beschreibung  der  Register  der 
VIA  2,  die  von  großem  Interesse  für  die  Programmierung  der 
Floppy  ist. 


Wie  funktioniert  die  Formatroutine? 

Jeder  von  Ihnen  wird  schon  Erfahrung  mit  der  Formatroutine 
der  Floppy  gemacht  haben,  doch  hier  wollen  wir  sie  einmal 
nicht  aus  der  Sicht  des  Anwenders,  sondern  aus  der  Sicht  des 
Programmierers  betrachten. 

Die  Formatroutine,  die  bei  $FAC7  beginnt,  wird  von  der  Rou- 
tine ab  $C8C6  mit  dem  Job-Code  $E0  aufgerufen.  Dazu  wird 
von  dieser  Routine  in  die  Speicherstellen  $0600  bis  $0602  ein 
"JMP  $FAC7M  geschrieben  und  dieser  mit  dem  $E0-Befehl  ge- 
startet. 

Ab  jetzt  beginnt  die  eigentliche  Formatroutine.  Sie  prüft  die 
Speicherstelle  $51,  die  den  Track  angibt,  der  gerade  formatiert 
wird.  Sollte  der  Wert  dieser  Speicherstelle  $FF  sein,  so  erkennt 
das  Programm,  daß  die  Formatierung  gerade  begonnen  wurde, 
und  führt  einen  BUMP  (Anschlag  des  Kopfes)  aus.  Im  folgenden 
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wird  der  Track  genau  vermessen,  und  aufgrund  dieser  Messung 
werden  die  Abstände  zwischen  den  Sektoren  festgelegt.  Diese 
Messung  ist  auch  der  Grund  dafür,  daß  das  Formatieren  einer 
Diskette  so  lange  dauert.  Die  Sektoren  werden  nun  mitsamt  ihren 
Headern  auf  getragen,  womit  auch  schon  die  Formatierung  eines 
Tracks  beendet  ist.  Nun  wird  die  aktuelle  Track-Nummer  mit  36 
verglichen.  Sollte  sie  kleiner  sein,  verzweigt  das  Programm  zur 
Track- Positionierung,  von  wo  aus  wieder  in  die  Job-Schleife 
gesprungen  wird.  Die  Job-Schleife  prüft  erneut,  ob  ein  Job-Be- 
fehl ausgeführt  werden  soll,  und  erkennt  den  $E0-Job,  der  sich 
immer  noch  in  $03  (Job-Speicher  für  Puffer  3)  befindet.  Das 
führt  dazu,  daß  das  Formatierungsprogramm  ab  $FAC7  durch 
den  JMP-Befehl  ab  $0600  erneut  auf gerufen  wird.  Wenn  man  in 
die  Formatroutine  eingreifen  will,  reicht  es  aus,  ab  $0600  eine 
eigene  Routine  einzusetzen. 

Das  sollte  als  Einführung  in  die  Programmierung  der  Floppy 
reichen.  Viele  weitere  Erfahrungen  und  Anregungen  können  Sie 
durch  häufiges  und  intensives  Studium  der  DOS-Listings  erhal- 
ten. Zum  Abschluß  noch  die  Register-Beschreibung  der  Drive- 
Control-Register. 


Register-Beschreibung  der  VIA  2 


S1C00  Drive-Control-Bus 

Bit  0 Steppermotorsteuerung 

Bit  1 Steppermotorsteuerung 

Bit  2 Laufwerksmotor;  Bit=0:  Motor  aus 

Bit  3 Laufuerk-LED;  Bit=0:  LED  aus 

Bit  4 Schreibschutz;  Bit=0:  Lichtschranke  unterbrochen 

Bit  5 Zur  Einstellung  der  Bit-Rate  zum  Tonkopf  (Speed-Flag) 

Bit  6 Bedeutung  wie  Bit  5 

Bit  7 SYNC-Signal  beim  Lesen  gefunden;  Bit=0:  SYNC  gefunden 


$1C01  Port  A Ein- /Ausgabe-Register  - Datenbus  zum  R/W-Kopf 


$1C02  Datenrichtungs-Register  Port  B 


$1C03  Datenrichtungs-Register  Port  A 


$1C04  Timer  1 (Low) 


$1C05  Timer  1 (High) 
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$1C06  Tiner  1 (Low  Latch) 

Bein  Schreib-  oder  Lesezugriff  bleibt  der  Uert  des 
Tiners  unverändert.  Der  Uert  wird  in  diesen 
Zwischenspeicher  gespeichert  und  im  FREE-RUNNING- 
MODE  (SICH  Bit  6*1)  bei  jedem  Null -Durchgang  in  den 
Zähler  automatisch  übernommen. 


S1C07  Timer  1 (High  Latch) 
Siehe  S1C06 


S1C08  Timer  2 (Low) 


S1C09  Timer  2 (High) 


S1C0A  Schiebe-Register 


S1C08  Hilfssteuer-Register 

Bit  0 PA  (Latch-Enable-Disable) 

Bit  1 PB  (0=Disable  1=Enable  Latching) 

Bit  2 Schiebesteuer-Bit 
Bit  3 Schiebesteuer-Bit 
Bit  4 Schiebesteuer-Bit 

Bit  5 T2  Timercontrol  (0=Zeitlicher  Interrupt 

1=Abwärtszählen  mit  Signal  am  AnschuB  PB6) 
Bit  6 TI  Timercontrol 
Bit  7 TI  Timercontrol 


S1C0C  Peripheriesteuer-Register  (PCR) 

Bit  0 CA1  Interrupt-Steuerung  (0=Negati ve  Flanke  des 
Signals/1=Positive  Flanke) 

Bit  1 CA2  Control 
Bit  2 CA2  Control 
Bit  3 CA2  Control 

Bit  4 CB1  Interrupt-Steuerung  siehe  Bit  0 
Bit  5 CB2  Control 
Bit  6 CB2  Control 
Bit  7 CB2  Control 


S1C0D  Interrupt-Flag-Register 

Dieses  Register  signalisiert  das  Eintreffen  von 
Ereignissen  durch  Setzen  des  entsprechenden  Bits 
dieses  Registers. 

Bit  0 Aktive  Flanke  an  CA2 
Bit  1 Aktive  Flanke  an  CA1 
Bit  2 acht  Schiebeimpulse  von  SR  (S1C0A) 

Bit  3 Aktive  Flanke  an  CB2 

Bit  4 Aktive  Flanke  an  CB1 

Bit  5 Timer-Unterlauf  von  Timer  2 

Bit  6 Timer-Unter lauf  von  Timer  1 

Bit  7 Wird  gesetzt,  wenn  eines  der  Bits  sowohl  in 

diesem  Register  als  auch  in  S1C0E  gesetzt  ist. 
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$1C0E  Interrupt-Enable-Register 

Die  Bits  dieses  Registers  korrespondieren  mit  den 
Bits  aus  $1C0D.  Ist  in  diesem  Register  ein  Bit 
gesetzt  und  der  entsprechende  Zustand,  der  in  S1C0D 
angezeigt  wird,  erfüllt,  wird  ein  IRO  ausgeführt. 


$1C0F  Daten-Register  A 

Dieses  Register  spiegelt  den  Inhalt  aus  S1C00,  jedoch 
ohne  Handshake-Betrieb. 


Die  Formatroutine 

Durch  Änderung  der  Formatroutine  lassen  sich  einige  gut  zu  ge- 
brauchende Effekte  erzielen.  Es  ist  möglich,  einen  einzelnen 
Track  oder  die  Spuren  36  bis  41  zu  formatieren  sowie  sämtliche 
Blockheader-Parameter  zu  verändern. 


5.8.3  Formatieren  eines  einzelnen  Tracks 

Weiter  vorne  wurde  schon  allgemein  auf  die  Arbeitsweise  der 
Formatroutine  eingegangen.  Dort  haben  Sie  erfahren,  daß  die 
Formatroutine  vor  der  Formatierung  eines  Tracks  jedesmal  neu 
über  den  "JMP  $FAC7"  bei  $0600  auf  gerufen  wird.  An  dieser 
Stelle  greifen  wir  nun  ein  und  zwingen  die  Routine,  nur  einen 
Track  zu  formatieren.  Für  dieses  Vorhaben  reicht  das  folgende 
kleine  Programm,  das  mit  dem  Job-Code  E0  im  Job-Speicher 
$03  auf  gerufen  werden  muß. 


0600  JMP  $0603 
0603  LDA  $0C 
0605  STA  $51 
0607  LDA  #$0F 
0609  STA  $0601 

060C  JMP  $FAC7 
060 F JMP  $FD9E 


der  JMP  wird  vom  Programm  noch  verändert 
Nimmer  des  zu  formatierenden  Tracks  holen 
und  übergeben 

JMP-Befehl  auf  $060F  zeigen  lassen 
um  beim  erneuten  Aufruf  die  Formatierung 
zu  beenden 

zur  Formatroutine  springen 

beim  zweiten  Aufruf  Programm  beenden 


Hier  wird  das  Programm  mit  einem  B-E-Befehl  gestartet 


0612  LDA  #$01 
0614  STA  $0C 
0616  LDA  #$ E0 
0618  STA  $03 
061A  RTS 


Nummer  des  zu  formatierenden  Tracks  laden 

und  an  den  Job  übergeben 

Job-Befehl  E0  (Programm  auf führen)  laden 

und  in  den  Job-Speicher  schreiben 

Rücksprung 
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Als  nächstes  folgt  ein  BASIC-Programm,  das  es  erlaubt,  die 
entsprechende  Nummer  des  zu  formatierenden  Tracks  einzuge- 
ben. Zu  Beginn  des  Programms  wird  initialisiert,  damit  die  For- 
matroutine den  Track  auch  mit  der  richtigen  ID  formatiert. 
Sollte  dies  nicht  der  Fall  sein,  läßt  sich  ein  Block  auf  diesem 
Track  nicht  mehr  ohne  eigene  Software  lesen.  Ein  so  "zerstörter" 
Track  ist  jedoch  für  Kopierprogramme  des  heutigen  Standards 
kein  Problem.  Er  kann  lediglich  genutzt  werden,  um  Knackern 
den  Zugriff  auf  den  Block,  auf  dem  die  Kopierschutzabfrage 
steht,  zu  erschweren.  Jetzt  aber  das  angekündigte  Programm. 


0PEM1,8,15,"I" 

20  READ  X : I F X=-1THEN  100 

30  PRINTR1 ,"M-U»CHRS<N)CHR$(6)CHRS(1>CHR*(X) 

40  N=N+1:G0T0  20 

100  IMPUT  "WELCHER  TRACK" ;T 

110  IF  T >35  OR  T<1  THEN100 

120  PRINT#1 , "M-W"CHR$(19)CHR$(6)CHRS(1 )CHR$(T) 

130  PRINT#1,"M-E"CHR$(18)CHR*(6) 

140  PRINTtfl , "M-R"CHR$(3)CHRS(0)CHR$( 1 ) 

150  GET#1 ,A$:A=ASC  (A$+CHR$(0)) 

160  IF  A>127  THEN130 

170  IFA  =1  THENPRIMT" FORMAT l NG  0K":EM0 

180  PRINT"FORMAT  ERROR": END 

302  DATA  76,  3,  6,165,  12,133,  81,169,  15,141,  1,  6,  76,199,250,  76, 

158,253 

304  DATA169,  1,133,12,169,224,133,  3,96,  -1 


Wie  schon  gesagt,  wird  als  erstes  initialisiert.  Daraufhin  werden 
die  Daten  in  die  Floppy  ab  $0600  geschickt.  Nachdem  die 
Track-Nummer  eingegeben  wurde,  wird  sie  ebenfalls  zur  Floppy 
geschickt  und  das  Programm  ab  $0612  mit  dem  M-E-Befehl  ge- 
startet. Im  Anschluß  daran  wird  auf  die  Rückmeldung  im  Job- 
Speicher  $03  gewartet  und  nach  ihrem  Erhalt  die  entsprechende 
Meldung  ausgegeben. 


Es  ist  nicht  möglich,  mit  diesem  Programm  die  Spuren  oberhalb 
von  35  zu  formatieren,  was  nicht  von  der  Abfrage  in  Zeile  110, 
sondern  von  dem  DOS  der  Floppy  abhängt. 


Will  man  Track  18  formatieren,  so  stößt  man  auf  etwas  größere 
Probleme.  War  dieser  vor  der  Formatierung  zerstört,  so  daß  es 
nicht  möglich  ist  zu  initialisieren,  muß  vor  der  Formatierung  die 
ID  "per  Hand"  angegeben  werden.  Für  diesen  Zweck  müssen  Sie 
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mit  dem  M-W-Befehl  die  ID  in  die  Floppy-Speicherstellen  $12 
(18)  und  $13  (19)  schreiben.  Sie  werden  sich  vielleicht  fragen, 
wie  Sie  die  ID  Ihrer  Diskette  erfahren  sollen,  falls  Sie  das  Di- 
rectory nicht  mehr  laden  können.  Für  diesen  Fall  können  Sie  das 
weiter  vorne  beschriebene  Programm  verwenden,  das  den  näch- 
sten Blockheader,  den  es  findet,  liest  und  decodiert.  Die  ID  des 
Blockheaders  steht  dann  in  Speicherstelle  $16  (22)  und  $17  (23), 
von  wo  Sie  sie  ohne  weiteres  auslesen  können. 


Nach  dem  Formatieren  des  Tracks  18  kann  man  jedoch  nicht 
gleich  Programme  auf  der  Diskette  speichern.  Zuvor  müssen 
noch  die  BAM  und  das  Directory  erstellt  und  auf  Diskette  ge- 
speichert werden.  Dies  erledigt  für  uns  zum  größten  Teil  eine 
Routine  im  DOS  der  Floppy.  Wir  müssen  ihr  lediglich  den  Na- 
men unserer  Diskette  übergeben.  Es  ist  nicht  möglich,  die  Dis- 
kette "soft"  zu  formatieren  (Formatierungsbefehl  ohne  ID- An- 
gabe), da  dieser  Befehl  nur  angewendet  werden  kann,  wenn  die 
BAM  schon  vorher  vorhanden  war.  Das  folgende  Programm  wird 
in  der  Floppy  ab  $0400  mit  einem  M-E-Befehl  gestartet.  Die 
Daten  für  den  Diskettennamen  müssen  in  diesem  Fall  ab  $0420 
im  Speicher  stehen  und  mit  Komma  abgeschlossen  werden. 


0400  LDX  #$10 
04 02  LOA  $0420, x 
0405  STA  $0200, x 

0408  DEX 

0409  BPL  $0402 
040B  LDA  #$10 
0400  STA  $0274 

0410  JMP  $EE40 


16  Buchstaben  des  Namens 

vom  $0420  in  den 

Befehlspuffer  schieben 

Zähler  verringern 

verzweige,  wenn  noch  nicht  fertig 

16  Buchstaben  für  den  Namen 

in  Puffer  zutassen 

Befehl  ausführen,  Rücksprung 


Das  folgende  BASIC-Programm  erledigt  alle  Aufgaben  für  Sie. 
Der  Name  wird  der  Floppy  übergeben,  und  daraufhin  wird  das 
Programm  ausgeführt. 

0 0PEN1,8,15,"I" 

20  READ  X:IF  X=-1THEN  100 
30  PRINT#1,,,M-U"CHR$(N)CHR$(4)CHR$(1)CHR$(X) 

40  N=N+1 :GOTO  20 

100  INPUT  "D I SKNAME " ; N$ : N$=N$+  M , " 

110  FORN=0TO  LEN(N$)-1 

120  PRINT#1 ,"M-W"CHR$(32+N)CHR$(4)CHR$(1 )MID$(N$,N+1 , 1 ) : NEXT 
130  PRINT#1,"M-E"CHR$(0)CHR$(4) 
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302  DATA162,  16,189,  32.  4,157,  0,  2,202,  16,247,169,  16,141,116,  2, 
76,  64 

304  DATA238, -1 

Das  Programm  fügt  selbständig  das  Komma  am  Ende  des  Na- 
mens an.  Mit  diesen  Programmen  ist  es  Ihnen  also  auch  möglich, 
einen  einzelnen  Track  zu  formatieren,  solange  er  nicht  oberhalb 
von  Spur  35  liegt. 


Formatieren  der  Spuren  36  bis  41 

Es  ist  der  Floppy  ohne  weiteres  möglich,  ihren  R/W-Kopf  auf 
die  Spuren  oberhalb  der  Spur  35  zu  positionieren.  Wollen  Sie 
diese  Spuren  für  die  Ablage  von  Daten  verwenden,  so  stoßen  Sie 
noch  auf  ein  Problem.  Sie  können  den  R/W-Kopf  zwar  ohne 
Probleme  auf  die  Spuren  oberhalb  von  35  fahren,  dort  jedoch 
nicht  ohne  weiteres  lesen.  Denn  die  Tabelle,  aus  der  sich  das 
DOS  die  Anzahl  der  Sektoren  pro  Track  und  den  Speed  der 
entsprechenden  Spur  holt,  gilt  nur  für  die  Spuren  unterhalb  von 
36.  Wir  müssen  deswegen  sowohl  beim  Lesen  als  auch  beim 
Schreiben  den  Speed  und  die  Anzahl  der  Sektoren  selber  überge- 
ben. Damit  steht  dem  Formatieren  der  Spuren  36  bis  41  nichts 
mehr  im  Wege.  Zu  beachten  ist  lediglich,  daß  die  Formatroutine 
nach  der  Formatierung  eines  Tracks  erkennt,  daß  sie  sich  ober- 
halb von  Spur  35  befindet  und  den  Vorgang  daraufhin  abbricht. 
Wir  müssen  somit  diese  Routine  vor  der  Formatierung  eines 
weiteren  Tracks  erneut  starten,  was  bei  der  Formatierung  unter- 
halb von  36  nicht  gemacht  werden  mußte.  Im  folgenden  zeigen 
wir  das  Programm,  das  diese  Spuren  formatiert.  Es  wird  in  der 
Floppy  mit  dem  M-E-Befehl  ab  $0415  gestartet. 


0400  LOA  #$11 
0402  STA  $43 
0404  LDA  $1C00 
0407  AHO  #$9F 

0409  OKA  #$00 
040B  STA  $1C00 
04 0E  LOA  $08 

0410  STA  $51 
0412  JNP  SFAC7 


Anzahl  der  Sektoren  für  die 

Spuren  über  35  übergeben 

Control -Port  laden 

und  Speed  für  diese  Tracks 

einstellen  (kann  hier  geändert  werden) 

Wert  speichern 

Track-Nummer  laden 

und  die  Nummer  übergeben 

Format rout ine  anspringen 


Das  Programm  wird  hier  gestartet. 
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0415  JSR  $0042 
0418  LDA  #$24 
041A  STA  $37 
041C  STA  $08 
041E  LDA  #$E0 
0420  STA  $01 
0422  LDA  $01 
0424  BMI  $0422 
0426  CMP  #$02 
0428  BCS  $0432 
042A  INC  $37 
042C  LDA  $37 
042E  CMP  #$2A 
0430  BNE  $04 1A 
0432  RTS 


initialisieren 

Track,  bei  dem  die  Formatierung  beginnt, 

laden  $24  (36)  und  Zwischenspeichern 

Track-Nummer  an  Job  übergeben 

Job- Code  EO  für  Programn  ausführen 

in  Job-Speicher  schreiben 

Rückmeldung  erwarten 

verzweige,  wenn  Job  nicht  abgearbeitet 

Rückmeldung  auf  Fehler  prüfen 

verzweige,  wenn  Fehler  aufgetreten 

Track-Nummer  erhöhen 

und  vergleichen, 

ob  Spur  41  schon  überschritten 

wenn  nicht,  nächsten  Track  formatieren 

Rücksprung 


Im  folgenden  ein  BASIC-Programm,  das  Ihnen  die  Eingabe  des 
Anfangs-  und  des  End-Tracks  erlaubt.  Der  End-Track  sollte 
nicht  höher  als  Spur  42  liegen,  da  der  R/W-Kopf  sonst  anschlägt 
und  sich  dadurch  das  Laufwerk  dejustieren  kann.  Track  42 
schaffen  die  meisten  Floppys  noch  gerade  zu  formatieren,  sofern 
eine  qualitativ  hochwertige  Diskette  verwendet  wird.  Diesen 
Track  erreicht  bis  heute  kein  von  uns  bekanntes  Kopierpro- 
gramm. 


10  OPEN  1,8,15,"I" 

20  READ  X : I F X=-1THEN  100 
25  SU=SU+X 

30  PRINT#1,"M-U"CHR$(N)CHR$(4)CHR$(1)CHR$(X) 

40  N=N+1 :G0T0  20 

100  IF  SU  <>  5381  THENPRINT"FEHLER  IN  DATAS":STOP 
102  INPUT  "STATRTRACK  >35  ";S 
105  INPUT  "ENDTRACK  <42  »;E 
1 20  PR I NT#1 , "M-U"CHR$<25 )CHR$(4)CHR$( 1 )CHR$(S ) 

125  PRINT#1 ,"M-W"CHR$(47)CHR$(4)CHR$(1 )CHR$(E+1 ) 

130  PRINT#1 ,"M-E"CHR$(24)CHR$(4) 

140  PRI NT#1 , "M-R"CHR$< 1 )CHR$(0)CHR$( 1 ) 

150  GET#1 ,A$:A=ASC  (A*+CHR$(0)) 

160  IF  A>127  THEN140 

170  IFA  =1  THENPR INT“ FORMAT  ING  OK" : END 

180  PRINT"FORMAT  ERROR": END 

302  DATA169,  17,133,  67,173,  0,  28,  41,159,  9,  0,141,  0,  28,165,  8,133, 
81 

304  DATA  76,199,250,  32,  66,208,169,  36,133,  55,133,  8,169,224,133,  1,16 
5.  1 

306  DATA  48,252,201,  2,176,  8,230,  55,165,  55,201,  42,208,232,  96.  -1 


Wir  können  uns  jetzt  mit  Hilfe  dieses  Programms  die  Spuren  36 
bis  41  formatieren  und  sie  somit  für  die  Speicherung  von  Daten 
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vorbereiten.  Doch  die  Speicherung  und  das  Laden  von  Daten  auf 
diesen  Spuren  ist  nicht  so  leicht  wie  auf  den  normal  verwende- 
ten Tracks.  Wie  schon  gesagt,  kann  das  DOS  für  diese  "illegalen" 
Spuren  den  Speed  und  die  Sektorenanzahl  nicht  richtig  bestim- 
men. Aus  diesem  Grund  kann  man  weder  mit  den  USER-Be- 
fehlen  Ul  (Block  laden)  und  U2  (Block  speichern)  noch  mit  den 
Job-Codes  80  (Block  laden)  sowie  90  (Block  speichern)  arbeiten. 
Die  einzige  Möglichkeit,  die  uns  bleibt,  ist,  über  den  Job-Code 
E0  ein  Programm  aufzurufen,  das  den  Speed  und  die  Anzahl  der 
Sektoren  setzt  und  danach  die  Block-Lese-  oder  Schreibroutine 
anspringt.  Das  Programm,  das  einen  Block  liest,  sieht  dann  fol- 
gendermaßen aus: 

0600  IDA  S1C00  Control -Port  laden 

0603  AND  #$9F  Bits  für  Speed  löschen 
0605  ORA  #$00  und  mit  neuem  Speed  verknüpfen 
0607  STA  S1C00  Wert  wieder  speichern 
060A  LDA  #$11  Anzahl  der  Sektoren  laden 
060C  STA  $43  und  übergeben 

060E  LDA  #$05  High-Byte  der  Pufferadresse,  in  den 
0610  STA  $31  geladen  werden  soll,  angeben 
0612  JMP  $F4D1  zur  Laderoutine  springen 

Das  Programm  wird  hier  gestartet. 

0615  LDA  #$24  zu  ladenden  Track  für 

0617  STA  $0C  den  Job  übergeben 

0619  LDA  #$00  Sektor-Nummer  an 

061B  STA  $00  den  Job  übergeben 

0610  LDA  #$E0  Job-Code  für  Programm  ausführen  in  den 

061F  STA  $03  Job-Speicher  schreiben 

0621  LDA  $03  Rückmeldung  abwarten 

0623  BMI  $0621  verzweige,  wenn  noch  nicht  fertig 

0625  RTS  Rücksprung 


Das  Programm  wird  ab  $0615  mit  dem  M-E-Befehl  gestartet 
und  lädt  den  angegebenen  Sektor  in  Puffer  2 ($0500).  Auch  hier 
müssen  vor  dem  Laden  des  Blocks  der  Speed  und  die  Anzahl  der 
Sektoren  übergeben  werden,  worauf  die  Routine  zum  Lesen  ei- 
nes Blocks  angesprungen  wird.  Wenn  Sie  einen  Block  auf  die 
oberen  Spuren  sichern  wollen,  so  reicht  es  aus,  den  JMP  $F4D1 
bei  Adresse  $0612  in  ein  JMP  $F575  zu  ändern.  Das  nachfol- 
gende BASIC-Programm  erlaubt  Ihnen  die  Eingabe  des  Tracks 
und  des  Sektors,  von  dem  Sie  laden  wollen. 
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10  OPEN1 ,8, 15,"I" 

20  READ  X:IF  X=-1THEN  100 
25  SU=SU+X 

30  PR I NT#1 , "M-W"CHR$(N )CHR$(6)CHR$( 1 )CHR$(X) 

40  N=N+1:GOTO  20 

100  IFSU  <>  3608  THEN  PRINT"ERROR  IN  DATAS":STOP 

105  INPUT  "WELCHER  TRACK" ;T 

110  INPUT  "WELCHER  SEKTOR»;S 

120  PRI NT#1 , «M-W"CHR$(22)CHRS(6)CHRS( 1 )CHR$(T ) 

125  PRINT#1,"M-W"CHR$(26)CHR$(6)CHR$(1)CHR$(S) 

130  PRI NT#1 , "H-E»CHR*<21 )CHR$(6) 

135  FORN=1TO  500:NEXT 

140  PRINT#1 ,"M-R"CHR$(3)CHR$(0)CHR$(1 ) 

150  GET#1 ,AS:A=ASC  (A(+CHR$(0)) 

160  IF  A>127  THEN130 

170  IFA  =1  THENPRINT"OK":END 

180  PRINT"ERROR":END 

302  DATA173,  0,  28,  41,159,  9,  0,141,  0,  28,169,  17,133,  67,169,  5,133, 
49 

304  DATA  76,209,244,169,  36,133,  12,169,  0,133,  13,169,224,133,  3,165, 
3,  48 

306  DATA252,  96,-1 


Der  gelesene  Block  wird,  wie  schon  gesagt,  in  Puffer  2 ($0500) 
geschrieben,  von  wo  aus  er  in  den  Computer  geholt  werden 
kann.  Um  mit  diesem  Programm  einen  Block  zu  schreiben,  ist  es 
notwendig,  die  Zeile  304  und  die  Prüfsumme  über  die  Daten  zu 
ändern.  Anstatt  304  DATA  76,209,244  ...  muß  hier  304  DATA 
76,117,245  ...  stehen.  Die  Prüfsumme  in  Zeile  100  muß  dann 
3517  anstelle  von  3608  lauten.  Die  Daten,  die  auf  den  eingege- 
benen Track  und  Sektor  geschrieben  werden,  werden  natürlich 
auch  wieder  aus  Puffer  2 ($0500)  geholt.  Es  ist  nicht  möglich, 
mit  diesem  Programm  Blöcke  auf  den  Tracks  unterhalb  von 
Track  31  zu  schreiben,  da  diese  Tracks  mit  einem  anderen  Speed 
beschrieben  werden. 


5.8.4  Doppelte  Spuren 

Ein  Kopierschutzsystem,  daß  sich  weniger  durch  seine  Kompli- 
ziertheit als  durch  seine  Raffiniertheit  auszeichnet,  soll  nun  be- 
schrieben werden.  Es  ist  schwer  auszumachen,  weil  keine  Fehler 
auf  der  Diskette  zu  erkennen  sind.  Bei  diesem  Kopierschutz 
handelt  es  sich  auch,  wie  Sie  sich  sicher  denken  können,  um 
eine  Änderung  der  Formatroutine.  Der  Gedanke,  der  hinter  die- 
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sem  Kopierschutz  steckt,  ist  recht  einfach.  Die  unteren  Spuren 
werden  doppelt  angelegt.  Das  heißt,  daß  die  Tracks  auf  Diskette 
anstelle  der  gewohnten  Reihenfolge  Track  1,  Track  2,  Track  3 
usw.  die  Folge  Track  1,  Track  2,  Track  1,  Track  2,  Track  3, 
Track  4,  Track  5 usw.  auf weisen.  Sie  erkennen,  daß  der  Track  1 
und  Track  2 doppelt  auf  Diskette  vorhanden  sind. 

Sie  werden  sich  vielleicht  fragen,  was  das  in  Hinblick  auf  Ko- 
pierschutz bedeutet.  Die  Antwort  ist  einfach,  wenn  man  sich 
daran  erinnert,  wie  das  DOS  auf  die  einzelnen  Tracks  zugreift. 
Als  erstes  wird  "nachgesehen",  auf  welchem  Track  sich  der 
R/W-Kopf  gerade  befindet.  Danach  wird  die  Differenz  zwischen 
der  jetzigen  und  der  zu  ereichenden  Spur  errechnet  und  der 
R/W-Kopf  um  die  entsprechende  Anzahl  von  Spuren  verscho- 
ben. Der  Kopf  erreicht  nach  diesem  Prinzip  somit  nie  auf  nor- 
malem Wege  die  gedoppelten,  unterhalb  der  echten  liegenden 
Tracks  1 und  2.  Nach  genau  diesem  Prinzip  arbeitet  auch  die 
Positionierung  des  R/W-Kopfes  bei  den  Kopierprogrammen.  Für 
diese  ist  es  nicht  erkennbar,  daß  unterhalb  des  gefundenen 
Track  1 sich  noch  1,  2 oder  mehr  Tracks  befinden.  Es  gibt  keine 
Probleme  beim  Arbeiten  mit  der  Diskette,  auch  wenn  der  Kopf 
einmal  einen  "Bump"  (Anschlag  des  Kopfes)  machen  sollte,  denn 
er  fährt  zu  der  vor  dem  Anschlag  errechneten  Spur,  erkennt, 
daß  er  sich  noch  um  einige  Spuren  zu  tief  befindet,  und  fährt 
den  Kopf  an  die  richtige  Position. 

Wie  schon  anfangs  gesagt,  ist  es  sehr  einfach,  eine  Diskette  der- 
art zu  formatieren.  Man  muß  nur  vorher  den  Kopf  um  die  ein- 
gestellte Anzahl  von  Spuren  nach  innen  verschieben.  Von  dieser 
Verschiebung  merkt  das  DOS  nichts  und  "denkt",  es  würde  den 
Kopf  auf  Spur  1 fahren.  Statt  dessen  beginnt  es  jedoch  die  For- 
matierung einige  Spuren  höher. 

Nach  der  ausführlichen  Erklärung  des  Prinzips  wollen  wir  zur 
Praxis  übergehen  und  ein  solches  Programm  ausprobieren.  Das 
folgende  Maschinenspracheprogramm,  das  wie  immer  in  der 
Floppy  gestartet  wird,  erfüllt  diesen  Zweck.  Es  wird  ab  $0450 
mit  einen  M-E-Befehl  gestartet 
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0400  JMP  $0403  für  ersten  Aufruf  belanglos 

0403  LOA  #$17  Low-Byte  für  die  Änderung  des  JMP 

0405  STA  $0401  Low-Byte  des  JMP  auf  $0417  ändern 

0408  LDA  #$04  Anzahl  der  Halbspuren,  die  verschoben 

040A  STA  $37  werden,  Zwischenspeichern 

040C  JSR  $041A  Kopf  um  eine  Halbspur  verschieben 

040F  DEC  $37  Zähler  verringern 

0411  BNE  $040C  verzweige,  wenn  nicht  genug  verschoben 

0413  LDA  #$01  Nunner  des  Tracks,  ab  dem  formatiert 

0415  STA  $51  werden  soll,  übergeben 

0417  JMP  $FAC7  zur  Formatroutine  springen 


Kopf  -Verschieberoutine 

041A  LDX  $1C00  Control-Port  laden 

041D  INX  erhöhen  für  Kopfbewegung  nach  innen 

041E  TXA  Wert  in  Akku  schieben 

041 F AND  #$03  erste  zwei  Bits  isoliern 

0421  STA  $4B  und  Zwischenspeichern 

0423  LDA  $1C00  Control -Port  laden 

0426  AND  #$FC  Bit  0 und  1 löschen 

0428  ORA  $4B  mit  den  errechneten  Bits  verknüpfen 

042A  STA  $1C00  und  Speichern 

042D  LDX  #$00  Zähler  für  Uarteschleife  setzen,  um 
042F  LDY  #$05  dem  Kopf  genügend  Zeit  zu  lassen 

0431  DEX  positioniert  zu  werden 

0432  BNE  $0431.  verzweige,  wenn  Low-Byte  nicht  abgelaufen 

0434  DEY  High-Byte  verringern 

0435  BNE  $0431  springe,  wenn  High-Byte  nicht  abgelaufen 

0437  RTS  Rücksprung 

Das  Programm  wird  hier  gestartet. 

0438  LDA  #$12  Track  18  für  Job 

043A  STA  $08  übergeben 

043C  LDA  #$E0  Job- Code  E0  laden 

043E  STA  $01  und  in  Job-Puffer  schreiben 

0440  LDA  $01  Rückmeldung  holen 

0442  BMI  $0440  verzweige,  wenn  noch  nicht  fertig 

0444  CMP  #$02  Rückmeldung  auf  Fehler  prüfen 

0446  BCS  $0459  verzweige,  wenn  Fehler  erkannt 

0448  LDX  #$10  Disknamen  für  BAM  16  Buchstaben  erlauben 

044A  STX  $0274  Anzahl  übergeben 

044D  LDA  $0480, X Namen  von  $0480  in 

0450  STA  $0200, X den  Befehls-Puffer  schreiben 

0453  DEX  Zähler  verringern 

0454  BPL  $0440  verzweige,  wenn  nicht  alle  Buchstaben 

0456  JMP  $EE40  BAM  schreiben,  Rücksprung 

0459  RTS  Rücksprung  bei  Fehler 


Die  Floppy  VC  1541 


545 


Im  Anschluß  an  dieses  Programm  folgt  ein  BASIC-Programm, 
das  uns  die  Eingabe  der  Anzahl  der  Tracks  ermöglicht,  die  bei 
der  Formatierung  doppelt  angelegt  werden.  Um  diese  Spezial- 
formatierung nicht  zu  auffällig  zu  machen,  sollte  man  nicht 
mehr  als  zwei  Tracks  höher  mit  der  Formatierung  beginnen. 
Damit  dieses  Programm  richtig  arbeitet,  müssen  die  zu  behan- 
delnden Disketten  schon  fehlerfrei  formatiert  gewesen  sein.  Die 
neue  Diskette  wird  mit  der  gleichen  ID  formatiert,  mit  der  sie 
zuvor  formatiert  wurde.  Doch  nun  zu  dem  angekündigten  BA- 
SIC-Programm, das  das  Maschinenspracheprogramm  als  erstes 
zur  Floppy  schickt,  um  es  nach  der  Eingabe  der  Parameter  dort 
zu  starten. 


10  OPEN1,8,15,"I" 

20  READ  X: I F X=-1THEN  100 
25- SU*SU+X 

30  PRINT#1  ,"M*U"CHR$(N)CHR$(4)CHR$(1 )CHR$(X) 

40  N=N+1 :G0T0  20 

100  IF  SU  <>  9284  THENPR INT" FEHLER  IN  DATAS":STOP 
102  INPUT  "WIEVIELE  TRACKS  VERSCHIEBEN  <8  : ";AN 
104  INPUT  "D I SKN AHE " ; N$ : NS=N$+ " , " 

106  FORN=OTO  LEN(N$)-1 

108  PRINT#1 ,"M-W"CHR$(128+N)CHR$(4)CHR$(1 )NID$(N$,N+1 , 1 ) : NEXT 

120  PRINT#1 ,"M-W"CHR$(9)CHR$(4)CHR$(1 )CHR$(AN*2) 

130  PRINT#1,"M-E»CHR$(56)CHR$<4) 

140  PRINT#1 , "M-R"CHR$( 1 )CHR$(0)CHR$( 1 ) 

150  GET#1 ,A$:A=ASC  (A$+CHR*(0)) 

160  IF  A>127  THEN140 

170  IFA  -1  THENPR INT" FORMAT ING  OK“ : END 

180  PRINT"FORMAT  ERROR": END 

402  DATA  76,  3,  4,169,  23,141,  1,  4,169,  4,133,  55,  32,  26,  4,198,  55,20 
8 

404  DATA249.169,  1,133,  81,  76,199,250,174,  0,  28,232,138,  41,  3,133,  75 
.173 

406  DATA  0,  28,  41,252,  5,  75,141,  0,  28,162,  0,160,  5,202,208,253,136 

,208 

408  DATA250,  96,169,  18,133,  8,169,224,133,  1,165,  1,  48,252,201,  2,176, 
17 

410  DATA162,  16,142,116,  2,189,128,  4,157,  0,  2,202,  16,247,  76,  64,238, 
96 

412  DATA  -1 


Nachdem  wir  uns  mit  dem  Aufträgen  des  Kopierschutzes  be- 
schäftigt haben,  wollen  wir  uns  um  die  Abfrage  desselben  küm- 
mern. Natürlich  kann  man  nicht  einfach  mittels  eines  Ul -Be- 
fehls der  Floppy  mitteilen,  daß  man  gedenkt,  einen  Block  auf 
Track  1 zu  lesen,  der  unterhalb  des  vermuteten  Track  1 liegt. 
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Um  dieses  zu  können,  ist  es  wieder  notwendig,  mit  einem  Ma- 
schinenspracheprogramm in  der  Floppy  zu  arbeiten.  Dieses  Pro- 
gramm fährt  den  R/W-Kopf  auf  den  "normalen"  Track  1,  ver- 
schiebt mit  Hilfe  der  schon  verwendeten  Routine  den  Kopf  der 
Floppy  um  eine  Spur  nach  außen  und  sucht  erneut  die  Spur  1. 
Das  erneute  Suchen  ist  wichtig,  da  das  DOS  "denkt",  es  würde 
sich  noch  auf  Track  1 befinden.  Würde  man  einen  anderen 
Track  suchen  lassen,  würde  der  Kopf  auf  diese  Spur  fahren,  die 
jedoch  nicht  unserer  doppelten  entspricht.  Sucht  man  jedoch  die 
Spur  1,  auf  der  sich  der  Kopf  vermeintlich  befindet,  so  stellt  das 
DOS  fest,  sofern  mehr  als  eine  Spur  höher  formatiert  wurde,  daß 
der  Kopf  sich  auf  einer  höheren  Spur  befindet,  und  fährt  den 
Kopf  noch  weiter  nach  unten,  bis  er  die  doppelte  Spur  1 findet 
und  sie  als  die  richtige  erkennt. 


Nach  dieser  Prozedur  kann  man  ohne  Probleme  die  Blöcke  auf 
diesen  doppelten  Spuren  mit  dem  Ul -Befehl  lesen  oder  schrei- 
ben. Das  folgende  Maschinenspracheprogramm  leistet  das  gerade 
Besprochene.  Es  wird  ab  $0627  in  der  Floppy  gestartet. 


0600 

JSR 

$0609 

0603 

JSR 

$0609 

0606 

JMP 

$FD9E 

0609 

LDX 

$1C00 

060C 

DEX 

0600 

TXA 

060E 

AND 

#$03 

0610 

STA 

$4B 

0612 

LDA 

$1C00 

0615 

AND 

#$FC 

0617 

ORA 

$4B 

0619 

STA 

S1C00 

061 C 

LDX 

#$00 

061 E 

LDY 

#$05 

0620 

DEX 

0621 

BNE 

$0620 

0623 

DEY 

0624 

BNE 

$0620 

0626 

RTS 

Das 

Programm 

R/U-Kopf  um  eine 

Spur  verschieben  (2  mal  eine  Halbspur) 
Rücksprung 

Control -Register  laden 

verringern,  um  Kopf  nach  außen  zu  fahren 

Wert  in  Akku  schieben 

und  die  ersten  zwei  Bits  isolieren 

Wert  Zwischenspeichern 

Control -Register  laden 

Bit  0 und  1 löschen 

mit  gespeichertem  Wert  verknüpfen 

und  Bewegung  ausführen 

Werte  für  die 

Zeitschleife  laden 

Zähler  verringern 

verzweige,  wenn  nicht  abgelaufen 

High-Byte  des  Zählers  verringern 

verzweige,  wenn  nicht  abgelaufen 

Rücksprung 

wird  hier  gestartet. 
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0627 

062A 

062C 

062E 

0630 

0632 

0634 

0636 

0638 

063A 

063C 

063E 

0640 

0642 

0644 

0646 


JSR  $0042 

Disk  initialisieren 

LDA  $$01 

Track  auf  den  der  Kopf  gefahren  wird 

STA  $0C 

übergeben 

LDA  #$E0 

Job-Code  E0  laden 

STA  $03 

und  in  Job-Speicher  schreiben 

LDA  $03 

Rückmeldung  erwarten 

BMI  $0632 

verzweige,  wenn  noch  keine  Rückmeldung 

LDA  #$01 

Nimmer  für  doppelten  Track  1 laden 

STA  $0A 

und  übergeben 

LDA  #$00 

Sektor  0 laden 

STA  $0B 

und  übergeben 

LDA  #$80 

Job-Code  80  (Block  lesen)  laden 

STA  $02 

und  übergeben 

LDA  $02 

auf  Rückmeldung  warten 

BMI  $0642 

verzweige,  wenn  keine  Rückmeldung 

RTS 

Rücksprung 

Sie  können  anhand  des  Programms  das  Prinzip  noch  einmal 
nachvollziehen.  Das  Programm  lädt  Block  1 des  doppelten  (un- 
teren) Tracks  automatisch  in  Puffer  2 ($0500).  Hier  nun  der 
dazugehörige  BASIC- Loader. 


0PEN1,8,15 

20  READ  X:1F  X=-1THEN  100 

30  SU=SU+X : PR I NT#1 , »M-W'CHRStN  )CHR$(6)CHR$< 1 )CHRS( X ) 

40  N=N+1 :G0T0  20 

100  IF  SU<>7037THENPR INT" FEHLER  IN  DATAS":ST0P 
130  PRINT#1 ,"M-E"CHR$(39)CHR$<6) 

302  DATA  32,  9,  6,  32,  9,  6,  76,158,253,174,  0,  28,202,138,  41,  3,133, 
75 

304  DATA173,  0,  28,  41,252,  5,  75,141,  0,  28,162,  0,160,  5,202,208,253, 
136 

306  DATA208.250,  96,  32,  66,208,169,  1,133,  12,169,224,133,  3,165,  3,  48 
.252 

308  DATA169,  1,133,  10,169,  0,133,  11,169,128,133,  2,165,  2,  48,252,  96, 
-1 


Wie  schon  erwähnt,  können  Sie  nach  dem  Aufruf  des  Programms 
mit  den  normalen  Block-Lese-  und  -Schreibbefehlen  auf  die 
Blöcke  der  unteren  Tracks  zugreifen.  Wollen  Sie  nach  Beendi- 
gung der  Kopierschutzabfrage  wieder  auf  die  "richtigen"  Tracks 
zugreifen,  reicht  es  aus,  die  Diskette  zu  initialisieren  oder  einen 
nicht  doppelt  vorhandenen  Track  zu  lesen. 
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Änderung  der  Header-Parameter:  Read-Enrors 

Ein  weiteres  sehr  sicheres  Kopierschutzsystem  läßt  sich  auch  mit 
einer  anderen  Änderung  der  Formatroutine  erreichen.  In  diesem 
Fall  handelt  es  sich  um  die  Änderung  der  Blockheader- Parame- 
ter. Wenn  Sie  schon  etwas  über  die  Änderung  der  Header-Para- 
meter gelesen  oder  es  schon  selbst  gemacht  haben,  werden  Sie 
wahrscheinlich  sehr  skeptisch  sein,  ob  man  mit  einem  solchen 
Eingriff  einen  wirklich  guten  Kopierschutz  erstellen  kann.  Aber 
lassen  Sie  sich  überraschen. 

Die  einfache  Blockheader-Manipulation  dient  nur  dem  Zweck, 
Daten  für  den  Knacker  schwerer  zugänglich  zu  machen,  was 
auch  nicht  zu  verachten  ist.  Den  Kopierprogrammen  heutigen 
Standards  ist  es  jedoch  ein  leichtes,  diese  Blöcke  zu  kopieren. 

Bevor  wir  besprechen,  wie  man  diese  veränderten  Parameter  auf 
Diskette  auf  trägt,  wollen  wir  Sie  jedoch  erst  noch  weiter  in  die 
Arbeitsweise  der  Formatroutine  einführen,  um  die  nachfolgen- 
den Programme  auch  verstehen  zu  können. 

Wir  hatten  schon  gesagt,  daß  die  Formatroutiene  bei  $FAC7  im 
Speicher  der  Floppy  beginnt  und  auch  dort  aufgerufen  wird. 
Nachdem  der  R/W-Kopf  auf  den  angegebenen  Track  positio- 
niert wurde,  wird  die  Spur  genau  vermessen,  um  festzustellen, 
wie  groß  die  Lücke  zwischen  den  einzelnen  Sektoren  sein  soll. 
Diese  Zahl  darf  nicht  kleiner  als  4 sein.  Nach  der  Errechnung 
wird  die  Länge  der  Lücke  in  $0626  zwischengespeichert.  Nach 
dieser  Speicherung  beginnt  der  zweite  Teil  der  Formatroutine  ab 
$FC36.  Hier  werden  jetzt  die  Blockheader  für  die  zu  formatie- 
renden Sektoren  vorbereitet.  Zu  diesem  Zweck  werden  die  Pa- 
rameter aus  der  Zeropage  der  Floppy  geholt.  Der  Blockheader- 
Code  $08  steht  in  $39,  die  Track-Nummer  wird  aus  der  Adresse 
$51  geholt.  Die  ID  steht  in  $12,  $13,  und  die  zwei  Lückenwerte 
sind  $0F.  Sie  werden  direkt  geladen  und  sind  wie  auch  die 
Track-Nummer  und  die  Sektornummer  nicht  veränderbar.  Dar- 
aufhin wird  die  Prüfsumme  für  den  Blockheader  berechnet. 

Diese  8 Daten  werden  ab  $0300  hintereinander  liegend  für  jeden 
Header  abgelegt  und  gemeinsam  in  das  GCR-Format  umgerech- 
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net.  Die  Anzahl  der  Sektoren  wird  beim  Erstellen  der  Blockhea- 
der in  $0628  gespeichert.  Vor  der  Umrechnung  steht  im  Y-Re- 
gister  die  Anzahl  der  Bytes,  die  zu  den  Blockheadern  gehören. 

Nach  dieser  Arbeit  beginnt  erst  die  eigentliche  Formatierung, 
was  bedeutet,  daß  die  Blöcke  mit  ihren  Blockheadern  und  alle 
SYNC- Markier ungen  auf  Diskette  geschrieben  werden.  Nach  der 
Formatierung  des  Tracks  wird  die  sich  in  $51  befindende  Track- 
Nummer  überprüft.  Sollte  sie  höher  oder  gleich  $24  (56)  sein, 
wird  die  Formatierung  beendet.  Soweit  die  nähere  Erläuterung 
der  Formatroutine,  die  jedoch  zum  Verständnis  des  folgenden 
Programms  nötig  ist. 

Um  die  Header-Parameter  zu  ändern,  wollen  wir  diese  nicht  von 
der  Formatroutine  erstellen  lassen,  sondern  sie  selbst  im  Com- 
puter erstellen  und  dann  an  die  richtige  Stelle  in  der  Floppy 
schreiben.  Natürlich  dürfen  wir  dann  die  Formatroutine  nicht 
von  Anfang  an  starten,  sondern  erst  dort  einspringen,  wo  die 
Routine  die  Header-Parameter  in  das  GCR-Format  wandelt.  Um 
die  Formatroutine  dort  starten  zu  können,  müssen  auch  die  rich- 
tigen Parameter  an  die  Routine  übergeben  werden,  die  sonst  bis 
zu  diesem  Punkt  von  der  Formatroutine  selbst  errechnet  worden 
wären,  wie  beispielsweise  die  Länge  der  Lücke  zwischen  den 
Sektoren. 

Alle  diese  Aufgaben  erledigt  für  Sie  das  folgende  etwas  längere 
Programm.  Mit  ihm  ist  es  auf  komfortable  Weise  möglich  sämt- 
liche Blockheader- Parameter  zu  ändern  und  somit  einzelne  Sek- 
toren vor  dem  Zugriff  anderer  zu  schützen  oder  einen  guten 
Kopierschutz  aufzutragen. 

10  A=49152 

20  READ  X: I F X=-1  THEN40 

30  POKEA , X : A=A+ 1 : SU=SU+X : GOT020 

40  IF  SU  <>  17072  THENPRINT"FEHLER  IN  DATAS":STOP 

50  PO*29:PRINTCHR$(147):PRINT:PRINT:PRINT 

60  PRINT"  SPEZI AL FORMATIERUNG  EINES  TRACKS" 

70  PRINT:PRINT: INPUT  » GEBEN  SIE  DEN  TRACK  AN";T 

80  SE=21:L=9:SP=3 

90  IF  T>17  THENSE=19:L=9:SP=2 

100  IF  T>24  THENSE=18:L=10:SP=1 

110  IF  T>30  THENSE=17:L=11 :SP=0 

120  IF  T<1  OR  T>41  THEN  PRINTCHR$(145)CHR$(145)CHR$(145); : GOTO70 
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130  PRINT :PRINT"  BITTE  LEGEN  SIE  DIE  DISKETTE  EIN" 

140  GET  AS:  I F AS='"'THEN140 
150  0PEN1,8,15,"I" 

160  PRINT#1 ,"M-R"CHRS(18)CHR$(0)CHRS(2) 

170  GET#1,I1S,I2S 

180  PRINT :PRINTM  ID  1 DER  DISKETTE  IST  »;ASC<I1S+CHRS(0)) 

190  PRINT  SPRINT"  ID  2 DER  DISKETTE  IST  »;ASC(I2S+CHRS<0)> 

200  PRINT  SPRINT“  NEUE  ID  1 FUER  DEN  TRACK  “;ASC  (I1S+CHRS(0));:GOSUB 
840 

210  POKE249, EI 

220  PRINT  SPRINT"  NEUE  ID  2 FUER  DEN  TRACK  ";ASC(I2$+CHR$<0)); :G0SUB8 
40 

230  POKE250.EI 

240  P0KE248,T  sPOKE  49285 ,T 

250  POKE251.se sPOKE  49257, SE 

260  POKE  49264, L 

270  POKE49249, SE*8 

280  SYS49216 

290  PRINTsPRINT"  HEADER-MANIPULATION  (J/N)?" 

300  GET  AS:  I FA$=,,"THEN300 
310  IF  AS="N"THEN630 
320  PRINTCHR$(147)* 

330  PRINTCHRS(19)CHR$(17)CHRS(17);"  WELCHER  HEADER  0 -“;SE-1; : INPUTH 
340  IF  H<0  OR  H>  SE-1  THEN  330 
350  X=49664+H*8 

360  PO=20:PRINT SPRINT"  HEADER-POSITION  ";H 

370  PRINTsPRINTsPRINT"  HEADER-KENNZEICHEN  ";PEEK<X); sGOSUB 

840:POKEX,EI 

380  PRINT"  ERSTE  ID  ";PEEK(X+5>; sGOSUB  840:POKEX+5,EI 

390  PRINT"  ZWEITE  ID  ";PEEK(X+4); sGOSUB  840:POKEX+4,EI 

400  PRINT"  TRACK-NUMMER  »;PEEK(X+3); :GOSUB840:POKEX  +3, EI 

410  PRINT»  SEKTOR-NUMMER  »;PEEK(X+2); :GOSUB840:POKEX  +2, EI 

420  PRINT"  LUECKE  1 »;PEEK(X+6); :GOSUB840:POKEX  +6,EI 

430  PRINT"  LUECKE  2 ";PEEK(X+7); :GOSUB840:POKEX  +7,EI 

440  PR=PEEK(X+1 ) 

450  POKE491 52+83, H: SYS  49152+82 

460  PRINT"  ECHTE  PRUEFSUMME  ";PEEK(X+1) 

470  PRINT"  EIGENE  PRUEFSUMME  ";PR; :GOSUB840:POKEX+1 ,EI 

480  PRINTCHRS(17)CHRS(17);"  »;CHRS(18);"G";CHR$(146);"LEICHER  HEADER" 

490  PRINT»  CHRS( 18); "A";CHR$< 146) ; "NDRER  HEADER» 

500  PRINT»  ";CHR$(18);"T";CHRS(146);"AUSCHE  HEADER" 

510  PRINT»  ";CHR$(18);"K";CHR$(146);"OPIERE  HEADER" 

520  PRINT»  CHRS( 18); "E";CHR$( 146) ; "NDE , FORMATIEREN" 

530  GET  AS: I F AS="»THEN530 

540  IF  AS="A"  THEN  GOTO320 

550  IF  AS="G«  THEN  PRINTCHRS(147); :GOTO360 

560  IF  AS="E»THEN630 

570  IF  AS="T"THEN1020 

580  IF  AS="K"THEN880 

590  GOT 0530 

600  IF  H>SETHENH=0 

610  IF  H<0  THENH=SE 

620  GOT 0330 
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630  PRINTCHR$(147) 

640  F0RB*1  TO  5:PRINTCHR$(17):NEXT 

645  PRINT«  GEBEN  SIE  DEN  SPEED  DES  TRACKS  AN  " ; SP ; : PO=35 : GOSUB840 

650  IF  EI  <0  0R  EI>3  THEN640 

660  P0KE49277, E I *32 : PR I NTCHR$( 1 47) ; 

670  F0RN=0TO  SE*8-1:PRINTCHR$<19);"  »;CHRS19);SE*8-1-N 

680  PRINT#1 («M-W"CHR$(N)CHR$(3)CHR$(1 )CHR$(PEEK(49664+N))  :NEXT 
690  FORN*OTO  48:PRINTCHR$(19);H  ";CHRS19);48-N 
700  PRINT#1,»M-W“CHR$<N)CHRS<4)CHR$<1)CHR$<PEEK<49248+N))  :NEXT 
710  PRINT#1,«M-E«CHRS(36)CHR$(4) 

720  PRINT#1 , «M-R"CHRS(  1 )CHR$(0)CHRS(  1 ) 

730  GET#1,A$:IF  ASC  <AS+CHR$(0))>128THEN720 

740  IF  ASC  <A$+CHR$(0))  > 1 T HENPR I NT“FORNAT  ERROR": GOT 0800 

750  PRINT"FORMAT  OK  » 

760  PRINT :PRINT:PRINT  " WEITERE  TRACKS  « 

770  GET  A$:IF  AS=»»  THEN770 
780  IF  A$o»N"  THEN  CLOSEI :GOTO50 
790  CLOSEI: END 

800  PRINT :PRINT :PRINT“  WEITERER  VERSUCH» 

810  GET  AS:IF  A$=»»  THEN810 

820  IF  AS<>"N"  THEN  PRINTCHR$(147):GOTO670 

830  GOT 0760 

840  P0KE211,PO:GOTO850 

850  SYS58732: INPUT  EI 

860  IF  El  <0  OR  El>255  THEN840 

870  RETURN 

880  PR INTCHR$( 147)CHRS( 1 7)CHR$( 17); 

885  PRINT“  AUF  “;CHR$(18);"E»;CHR$(146);"INE  ODER  »; 

887  PRINTCHRS(18);"A";CHR$(146);"LLE  POSITIONEN  KOPIEREN» 

890  GET  A$:IF  A$=»»THEN890 
900  IF  AS=»E»  THEN  970 
910  IF  AS  <>»A"THEN  890 
920  FORN=OTO  SE-1 :Y=49664+N*8 
930  FORM=OTO  7 
940  P0KEY+M,PEEK(X+M):NEXT 
950  NEXT 
960  G0T0480 

970  PRINT :PR1NT:PRINT"  AUF  WELCHE  POSITION  0 -M;SE-1; 

980  POs30:GOSUB840:lF  EI>SE-1  THEN  PRINT  CHRS(147); :GOTO980 
990  Y»49664+EI*8 
1000  FORM=OTO  7 

1010  POKEY+M,PEEK(X+H):NEXT : GOT 0480 

1020  PRINTCHRSC 147)CHR$( 17)CHR$( 1 7)«  MIT  WELCHER  POSITION  TAUSCHEN  0 
SE-1 

1030  PRINT :PRINT :PO=17:GOSUB840 

1040  IF  EI>SE-1  THENPRINTCHR$(147); : GOTO 1030 

1050  Y»49664*EI*8 

1060  FORN^O  TO  7 

1070  HE=PEEK( Y+N) :P0KEY+N , PEEKCX+N ) 

1080  P0KEX+N,HE 
1090  NEXT :GOT0480 
1100  REM 
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1110  DATA169,8, 153,0, 194, 200,200, 165, 247, 153, 0,194,200, 165, 248, 153, 0,194 

,200 

1020  DATA165, 250, 153, 0,194,200, 165,249, 153,0, 194, 200, 169, 15, 153, 0,194, 20 
0 

1130  DATA153, 0,194,200, 169,0,89, 250, 193,89,251, 193,89,252, 193,89, 253, 193 
.153 

1140  DATA249, 193,96,0, 0,0,0,0,169,0, 133, 247, 160,0, 32,0, 192, 230, 247, 165, 2 
47 

1150  0ATA197,251, 144, 245,96, 169,0, 10, 10, 10,24, 105,8, 168, 76,41, 192,0, 0,16 
0 

1160  DATA136, 162, 0,169,35, 133, 81, 169, 17, 133,67, 141, 40,6,169,11, 141, 38,6, 
141 

1170  041432,6,173,0,28,41,159,9,0,141,0,28,76,132,252,169,35,133,8,169,2 
24 

1180  DATA133.1, 165, 1,48,252, 96,-1 


Anleitung  zum  Programm 

Wenn  Sie  das  Programm  starten,  müssen  Sie  ein  wenig  Geduld 
aufbringen,  denn  die  Daten  in  den  DATA-Zeilen  müssen  erst  in 
den  Speicher  gepoket  werden.  Daraufhin  wird  die  eingelegte 
Diskette  initialisiert  und  die  entsprechende  ID  angegeben.  Es 
besteht  die  Möglichkeit,  die  ID  zu  ändern.  Wenn  Sie  keine 
Blockheader-Manipulation  durchführen  wollen,  somit  die  ent- 
sprechende Frage  verneinen,  wird  der  angegebene  Track  fehler- 
los formatiert.  Zuvor  müssen  Sie  jedoch  noch  den  Speed  des 
Tracks  angeben.  Soll  er  nicht  vom  normalen  abweichen,  brau- 
chen Sie  nur  <Return>  zu  drücken. 


Änderung  der  Header-Parameter 

Als  erstes  werden  Sie  nach  der  Position  des  zu  ändernden  Hea- 
ders gefragt.  Die  einzige  Angabe,  die  einer  Erklärung  bedarf,  ist 
die  Angabe  der  Prüf summe.  Die  unter  "echte  Prüfsumme"  ausge- 
gebene Zahl  ist  die  aus  den  zuvor  gemachten  Angaben  errech- 
nete  Prüfsumme.  Unter  "eigene  Prüfsumme"  wird  diejenige  an- 
gezeigt, die  man  selbst  gewählt  hat.  Im  Anschluß  an  diese  Ein- 
gaben erscheint  ein  Menü,  bei  dem  Sie  unter  folgenden  Punkten 
auswählen  können: 

1 . Gleicher  Header 

erlaubt  eine  erneute  Modifikation  desselben  Headers. 

2.  Anderer  Header 

ermöglicht  die  Änderung  eines  weiteren  Headers. 
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3.  Tausche  Header 

ermöglicht  die  Vertauschung  von  zwei  Headern  und  somit 
eine  Änderung  der  Reihenfolge  der  Sektoren  auf  einem 
Track,  was  auch  einen  recht  guten  Kopierschutz  abgibt. 

4.  Kopiere  Header 

erlaubt,  einen  Header  zu  duplizieren  und  dadurch  zwei  glei- 
che Sektoren  auf  einem  Track  zu  erzeugen,  was  nicht  von 
allen  Kopierprogrammen  korrekt  kopiert  werden  kann.  Ru- 
fen Sie  diesen  Menüpunkt  auf,  werden  Sie  gefragt,  ob  Sie 
Ihren  zuvor  erstellten  Header  auf  einen  weiteren  oder  alle 
anderen  Positionen  kopieren  wollen.  Kopieren  Sie  Ihren  Hea- 
der auf  alle  anderen  Positionen,  erhalten  Sie  einen  Track,  bei 
dem  alle  Sektoren  gleich  sind.  Ein  so  veränderter  Track  kann 
nur  sehr  schwer  kopiert  werden.  Doch  darauf  werden  wir 
noch  zu  einem  späteren  Zeitpunkt  eingehen. 

5.  Ende,  formatieren 

Formatiert  den  angegebenen  Track.  Eine  Änderung  der 
Speed-Flags  ist  möglich. 

Das  Programm  besteht  aus  drei  Teilen.  Der  eine  ist  der  BASIC- 
Teil,  über  den  alle  Eingaben  sowie  die  Vertauschung  der  Header 
vorgenommen  werden.  Der  zweite  ist  ein  Maschinenspracheteil, 
der  die  Blockheader,  die  später  auf  Disk  geschrieben  werden,  im 
Computer  erstellt.  Er  entspricht  in  etwa  der  Routine,  die  sich 
auch  in  der  Formatroutine  der  Floppy  befindet.  Der  dritte  Teil 
ist  ein  Maschinenspracheprogramm,  das  in  der  Floppy  gestartet 
wird.  Es  übergibt  die  Parameter,  wie  beispielsweise  die  Länge 
der  Lücke  zwischen  den  Sektoren,  an  die  Formatroutine. 

Wie  schon  gesagt,  werden  die  Blockheader  erst  im  Computer 
erzeugt,  um  nach  ihrer  Änderung  in  die  Floppy  ab  Adresse 
$0300  geschickt  zu  werden,  wo  sie  in  das  GCR-Format  gewan- 
delt und  auf  Diskette  aufgetragen  werden.  Im  folgenden  zeigen 
wir  Ihnen  die  zwei  erwähnten  Maschinenspracheteile..  Als  erstes 
den  Teil,  der  im  Computer  abläuft  und  die  Blockheader  im 
Speicher  des  Rechners  erzeugt. 

Das  Programm,  das  die  Daten  für  die  Blockheader  erzeugt,  wird 
ab  $C040  (49216)  gestartet  und  legt  sie  ab  SC200  (49664)  im 
Speicher  ab. 


554 


Das  große  Commodore  64-Buch 


C000  LDA  #$08  $08  laden  (Zeichen  für  Blockheader) 

C002  STA  $C200(Y  und  übergeben 
C005  INY  Zeiger  erhöhen 

C006  INY  erhöhen,  un  Lücke  für  Prüf summe  zu  lassen 

C007  LDA  $F7  Sektornummer  holen 

C009  STA  $C200,Y  und  speichern 

C00C  INY  Zeiger  erhöhen 

COOD  LDA  $F8  Track-Nummer  holen 

COOF  STA  $C200,Y  und  speichern 

C012  INY  Zeiger  erhöhen 

C013  LDA  $FA  zweite  ID  holen 

C015  STA  $C200,Y  und  übergeben 

C018  INY  Zeiger  erhöhen 

C019  LDA  $F9  erste  ID  holen 

C01B  STA  $C200,Y  und  übergeben 

C01E  INY  Zeiger  erhöhen 

C01F  LDA  #$0F  $0F  (Lücken-Byte)  holen 

C021  STA  $C200,Y  und  speichern 

0024  INY  Zeiger  erhöhen 

C025  STA  $C200,Y  und  Lücken-Byte  erneut  speichern 

C028  INY  Zeiger  erhöhen 

C029  LDA  #$00  Akku  mit  $00  laden  (normalisieren) 

C02B  EOR  $C1FA,Y 

C02E  EOR  $C1FB,Y  Prüf summe  über  den 
C031  EOR  $C1FC,Y  Blockheader  berechnen 
C034  EOR  $C1FD,Y 

C037  STA  $C1F9,Y  und  Prüfsumme  abspeichern 
C03A  RTS  Rücksprung 

Für  die  Erstellung  der  Blockheader  wird  das  Programm  hier  ge- 
startet. 

C040  LDA  #$00  Sektornummer  auf  0 stellen 
C042  STA  $F7 

C044  LDY  #$00  Zeiger  auf  0 setzen 

C046  JSR  $C000  und  Blockheader  erstellen 

C049  INC  $F7  Sektomummer  erhöhen 

C04B  LDA  $F7  Nummer  laden 

C04D  CMP  $FB  und  mit  maximaler  Zahl  vergleichen. 

C04F  BCC  $C046  verzweige,  wenn  Maximun  nicht  erreicht 
C051  RTS  Rücksprung 

Für  die  Errechnung  der  Prüfsumme  eines  einzelnen  Blockheaders 
wird  die  Routine  hier  gestartet. 

C052  LDA  #$00  Position  des  Headers  laden  (variabel) 

C054  ASL 

C055ASL  Mit  8 multiplizieren 

C056  ASL 

C057  CLC  Carry  für  Addition  löschen 
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C058  ADC  «SOS 
C05A  TAY 
C05B  JMP  SC029 


und  mit  8 addieren, 
als  Zähl wert  übergeben 
Prüfsumme  errechnen 


Die  folgende  Routine  wird  in  der  Floppy  ab  $0400  gestartet, 
nachdem  die  Blockheader  ebenfalls  in  die  Floppy  gesandt  wur- 
den. Alle  nötigen  Parameter  werden  mit  der  zu  startenden  Rou- 
tine mitgesandt.  Sie  wird  ab  $0424  gestartet. 


0400  LDY  #$88 
0402  LDX  #$00 
0404  LDA  «S23 
0406  STA  $51 
0408  LOA  #$11 
04 0A  STA  S43 
040C  STA  $0628 
040FLDA  #$0B 
0411  STA  $0626 
0414  STA  $0620 
0417  LDA  S1C00 
041A  ANO  #$9F 
041C  0RA  #$00 
041 E STA  S1C00 
0421  4MP  SFC84 


Low- Byte  der  Endadresse  der  Blockheader 
X- Register  löschen 

Zeiger  auf  Ende  der  Formatierung  setzen, 
damit  nur  ein  Track  formatiert  wird 
Maximale  Sektoranzahl  laden  (variabel) 
und  übergeben 

Lücke  zwischen  den  Sektoren  laden 
und  übergeben 

gleichzeitig  als  Zähler  für  Fehler  nehmen 

Control -Port  laden 

Speed- Flags  löschen 

Mit  eigenem  Speed  verknüpfen  (hier  00) 

und  speichern 

Formatierung  beginnen 


Das  Programm  wird  hier  gestartet. 


0424  LOA  #$23 
0426  STA  $08 
0428  LDA  #$E0 
042A  STA  $01 
042C  LDA  $01 
042E  BMI  S042C 
0430  RTS 


Nummer  des  zu  formatierenden  Tracks 
übergeben 

Job-Code  E0  für  Programm  starten 
in  Job-Speicher  schreiben 
Code  für  Rückmeldung  empfangen? 
verzweige,  wenn  nicht  empfangen 
Rücksprung 


Nachdem  wir  nun  das  Programm  erklärt  haben,  wollen  wir  uns 
nun  mit  seiner  Anwendung  beschäftigen. 


5.8.5  Das  Arbeiten  mit  zerstörten  Blöcken 

Wie  wir  schon  sagten,  kann  man  mit  dem  obigen  Programm  die 
Blockheader- Parameter  ändern  und  dadurch  Sektoren  gezielt 
zerstören.  Dieses  Verfahren  dient,  bis  auf  einige  Sonderfälle, 
kaum  zum  Schutz  gegen  das  Kopieren,  sondern  nur  zur  Verhin- 
derung des  Zugriffs  anderer  auf  einen  so  geschützten  Block. 
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Jetzt  stellt  sich  jedoch  die  Frage,  wie  man  überhaupt  Daten  auf 
diesen  Blöcken  speichern  oder  wieder  lesen  soll,  denn  die  Floppy 
fängt  jedesmal  an  zu  blinken,  wenn  man  versucht,  den  Block  auf 
die  herkömmliche  Weise  zu  laden. 

Sie  können  sich  sicher  denken,  daß  es  natürlich  einen  Weg  gibt, 
diese  Blöcke  zu  nutzen.  Die  einfachste  Methode,  die  sich  auch 
für  alle  Arten  von  zerstörten  Blockheadern  einsetzen  läßt,  ist  die: 
Man  liest  den  Blockheader  vor  dem  zerstörten  Header  ein.  Die 
darauffolgende  SYNC-Markierung  ist  folglich  die  des  Daten- 
blocks des  gelesenen  Headers.  Wir  überspringen  mit  unserem 
Floppy-Programm  einfach  diese  Markierung.  Die  nächste  SYNC- 
Markierung,  die  gefunden  wird,  ist  dann  die  unseres  zerstörten 
Blockheaders.  Diese  Markierung  wird  ebenfalls  nicht  beachtet. 
Die  daraufhin  gefundene  SYNC-Markierung  muß  dann  die  des 
Datenblocks  sein,  der  zu  dem  zerstörten  Header  gehört.  Nach- 
dem diese  Markierung  gefunden  wurde,  wird  der  Dätenblock 
gelesen.  Sie  sehen  also,  daß  es  uns  mit  diesem  Trick  möglich  ist, 
Daten  von  einem  auch  noch  so  zerstörten  Block  zu  lesen,  was 
uns  sonst  nicht  möglich  gewesen  wäre.  Nach  dem  gleichen  Sy- 
stem können  wir  auch  Daten  speichern.  Sollten  Sie  mehrere 
Blockheader  hintereinander  zerstört  haben,  so  brauchen  Sie  nur 
entsprechend  viele  SYNC-Markierungen  zu  überlesen. 


Mit  dem  folgenden  Floppy-Programm  ist  es  möglich,  eine  belie- 
bige Anzahl  von  Sektoren  zu  überspringen  und  dann  den  ge- 
wünschten Block  zu  lesen.  Das  Programm  wird  ab  $0522  gestar- 
tet. 


0500  JSR  $F50A 
0503  LDX  #$01 
0505  JSR  $0512 

0508  DEX 

0509  BNE  $0505 
050B  LDA  #$06 
050D  STA  $31 
050F  JMP  $F4D4 


Blockheader  suchen,  auf  Datenblock  warten 
Zähler  für  Sektor  überspringen  (variabel) 
Routine  zum  überspringen  eines  Sektors 
Zähler  verringern 
verzweige,  wenn  nicht  abgelaufen 
High-Byte  für  Pufferzeiger  auf  $06  stellen 
damit  die  Daten  ab  $0600  geladen  werden 
in  Routine  für  Block  laden  springen 


0512  LDA  $1C00 
0515  BPL  $0512 
0517  JSR  $F556 
051A  LDA  $1C00 


Control-Port  laden 
verzweige,  wenn  SYNC  noch  anliegt 
auf  neue  SYNC-Markierung  warten 
Control -Port  laden 
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051D  BPL  $051A  verzweige,  wenn  SYNC  noch  anliegt 
051 F JMP  SF556  auf  neue  SYNC-Markierung  warten,  RTS 


Das  Programm  wird  hier  gestartet. 

0522  LDA  #$01  Track  auf  dem  geladen  wird  (variabel) 

0524  STA  SOA  übergeben 

0526  LDA  #$00  Sektor,  der  geladen  wird  (variabel) 

0528  STA  $OB  übergeben 

052A  LDA  #$E0  Job-Code  für  Programm  ausführen,  laden 

052C  STA  $02  und  übergeben 

052E  LDA  $02  Rückmeldung  abwarten 

0530  BMI  $052E  verzweige,  wenn  keine  Rückmeldung 

0532  RTS  Rücksprung 

Im  Anschluß  daran  das  gewohnte  BASIC-Listing.  Es  erlaubt  die 
Eingabe  des  zu  lesenden  Tracks,  des  Sektor  Sektors  sowie  die 
Eingabe  der  zu  überspringenden  Sektoren.  Die  Nummer  des 
tatsächlich  gelesenen  Sektors,  ergibt  sich  aus  der  Nummer  des 
eingegebenen  Sektors,  addiert  mit  der  Anzahl  der  zu  übersprin- 
genden Sektoren.  Die  Daten  des  zu  lesenden  Blocks  werden  ab 
$0600  (Puffer  3)  in  der  Floppy  abgelegt. 

10  0PEN1 ,8, 15,"I" 

20  READ  X: IF  X=-1THEN  100 
25  SU=SU+X 

30  PRINT#1  ,"M-W"CHR$(N)CHR$(5)CHR$(1)CHR$(X) 

40  N=N+1:G0T0  20 

100  IFSU  <>  5477  THEN  PR INT "ERROR  IN  DATAS":STOP 

105  INPUT  "WELCHER  TRACK";T 

110  INPUT  "WELCHER  SEKT0R";S 

115  INPUT  "ZU  UEBERLESENE  SEKTOREN";U 

1 20  PRI NT#1 , "M-W"CHR$(35)CHR$( 5 )CHR$( 1 )CHR$(T ) 

125  PRINT#1,”M-W"CHR$(39)CHR$(5)CHR$(1 )CHR$(S) 

130  PRINT#1 ,"N-W"CHR$(4)CHR$(5)CHR$(1 )CHR$(U) 

135  PRINT#1,"M-E"CHRS(34)CHR$(5) 

140  FORNzITO  500:NEXT 

145  PRINT#1,"M-R"CHR$(2)CHR$(0)CHR$(1 ) 

150  GET#1,A$:A=ASC  (A$+CHR$(0)) 

160  IF  A>127  THEN130 

170  IFA  =1  THENPR I NT "OK" : END 

180  PRI  NTuERROR" : END 

302  DATA  32,  10,245,162,  1,  32,  18,  5,202,208,250,169,  6,133,  49,  76,212 
,244 

304  DATA173,  0,  28,  16,251,  32,  86,245,173,  0,  28,  16,251,  76,  86,245,16 
9.  1 

306  DATA133,  10,169,  0,133,  11,169,224,133,  2,165,  2,  48,252,  96,  -1 
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Wie  das  Lesen  eines  Blocks,  so  erfolgt  auch  das  Schreiben.  Das 
hierzu  benötigte  Programm  sieht  jedoch  etwas  anders  aus,  da  die 
SAYE-Routine  der  Floppy  später  angesprungen  werden  muß. 
Die  von  ihr  abgearbeiteten  Programmteile  müssen  zum  Teil  in 
das  eigene  Programm  übernommen  werden. 


Hier  nun  die  entsprechende  SAVE-Routine,  die  ab  $0400  in  der 
Floppy  gestartet  wird. 


0500  LDA  #$06 
0502  STA  $31 
0504  JSR  $F5E9 
0507  STA  $3A 

0509  LDA  $1000 
050C  AND  #$10 
050E  BNE  $0515 

0510  LDA  #$08 
0512  JHP  $F969 
0515  JSR  $F78F 
0518  JSR  $F510 
051B  LDX  #$01 
051D  JSR  $0526 

0520  DEX 

0521  BNE  $05 ID 
0523  JMP  $F58C 


High -Byte  des  Puffers  auf  $06  stellen, 

um  die  Daten  von  $0600  zu  speichern 

Prüfsimme  über  Datenblock  berechnen 

und  abspeichern 

Control -Port  laden 

und  auf  Schreibschutz  prüfen 

verzweige,  wenn  kein  Schreibschutz 

Fehlermeldung  im  Akku 

und  zur  Ausgabe  springen 

Pufferinhalt  ins  GCR-Format  wandeln 

Blockheader  suchen 

Zähler  für  Sektor  überspringen  (variabel) 
Routine  zum  Überspringen  eines  Sektors 
Zähler  verringern 
verzweige,  wenn  nicht  abgelaufen 
Block  auf  Diskette  schreiben 


0526  LDA  $1C00 
0529  BPL  $0526 
052B  JSR  $F556 
052E  LDA  $1C00 
0531  BPL  $052E 
0533  JMP  $F556 


Control -Port  laden 

verzweige,  wenn  SYNC-Signal  noch  anliegt 
auf  nächste  SYNC-Markierung  warten 
Control -Port  lesen 

verzweige,  wenn  SYNC-Signal  noch  anliegt 
auf  nächste  SYNC-Markierung  warten,  RTS 


Das  Programm  wird  hier  gestartet. 


0536  LDA  #$01  Track,  auf  dem  geladen  wird  (variabel), 
0538  STA  $0A  übergeben 

053A  LDA  #$00  Sektor,  der  geladen  wird  (variabel), 
053C  STA  $0B  übergeben 

053E  LDA  #$E0  Job-Code  für  Programm  ausführen,  laden 

0540  STA  $02  und  übergeben 

0542  LDA  $02  Rückmeldung  abwarten 

0544  BMI  $0542  verzweige,  wenn  keine  Rückmeldung 

0546  RTS  Rücksprung 


Jetzt  folgt  wieder  der  BASIC-Loader,  bei  dem  Sie  Track  und 
Sektor  sowie  die  Anzahl  der  zu  überspringenden  Blöcke  eingeben 
können. 
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10  0PEN1,8,15,"I» 

20  READ  X:IF  X=-1TMEH  100 
25  SU*$U+X 

30  PRIMT#1,"M-W"CHR$(N)CHR$<5)CHR$<1)CHR$(X) 

40  IMI+1  :G0T0  20 

100  IFSU  <>  7633  THEM  PR I MT "ERROR  IN  DATAS":STOP 

105  INPUT  «WELCHER  TRACK" ;T 

110  INPUT  "WELCHER  SEKTOR";S 

115  INPUT  "ZU  UEBERLESENE  SEKTOREN";U 

120  PRINT#1,"H-W»CHRS<55)CHR*(5)CHRS(1)CHR$<T) 

125  PR I NT#1 , "M- W"CHR*( 59 )CHR$( 5 >CHR*( 1 )CHRS( S ) 

130  PRINT#1 , "H-W«CHRS(28)CHRS(5)CHRS(1 >CHR*(U) 

135  PRINT#1,"N-E»CHR$(54)CHR$(5) 

140  FORN^ITO  500: HEXT 

145  PR I NT#1 , "N- R"CHR$( 2 )CHR$( 0 )CHR$( 1 ) 

150  GET#1 ,A$:A-ASC  (AS+CHR$(0)) 

160  IF  A>127  THEN130 

170  IFA  =1  THENPR I NT"OK" : END 

180  PRINT"ERROR":END 

302  DATA169,  6,133,  49,  32,233,245,133,  58,173,  0,  28,  41,  16,208,  5. 

169,  8 

304  DATA  76,105,249,  32,143,247,  32,  16,245,162,  1,  32,  38,  5,202,208,2 
50,  76 

306  OATA140,245,173,  0,  28,  16,251,  32,  86,245,173,  0,  28,  16,251,  76,  8 
6,245 

308  0ATA169,  1,133,  10,169,  0,133,  11,169,224,133,  2,165,  2,  48,252,  96, 
-1 


Nachdem  wir  gesehen  haben,  wie  wir  uns  mit  Hilfe  von  Block- 
header-Manipulationen vor  dem  Zugriff  Fremder  auf  unsere 
Blöcke  schützen  können,  wollen  wir  uns  einmal  ansehen,  wie 
man  mit  dieser  Methode  einen  sehr  guten  Kopierschutz  aufbauen 
kann.  Bei  der  Änderung  von  mehreren  Blockheadern  auf  dem 
gleichen  Track  kann  es  zu  Störungen  beim  Einlesen  eines  Blocks 
kommen. 


5.8.6  Gleiche  Blöcke  auf  einem  Track 

Eine  sehr  sichere  Kopierschutzmethode  ist  es,  einen  Track  nur 
mit  gleichen  Blockheadern  zu  beschreiben.  Einen  solchen  Track 
kann  man  mit  dem  schon  beschriebenen  Formatierungsprogramm 
mühelos  erstellen. 

Wie  arbeitet  nun  ein  solcher  Kopierschutz  und  warum  ist  er  so 
überaus  schwer,  fast  unmöglich,  zu  kopieren?  Um  dies  zu  ver- 
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stehen,  müssen  wir  uns  aber  noch  etwas  näher  mit  dem  System 
der  Kopierprogramme  beschäftigen. 

Das  Kopierprogramm  lädt  einen  oder  mehrere  Blöcke  zugleich  in 
den  Speicher  der  Floppy  und  schickt  daraufhin  die  Daten  zum 
Computer,  da  der  Speicher  der  Floppy  nicht  ausreicht,  weitere 
Daten  zu  speichern.  Durch  das  Senden  der  Daten  an  den  Com- 
puter muß  das  Kopierprogramm  die  Stelle  wiederfinden,  an  der 
es  auf gehört  hat,  Daten  zu  lesen.  Es  sucht  wieder  die  Anfangs- 
stelle und  überliest  eine  entsprechende  Anzahl  von  Daten,  um 
daraufhin  die  neuen  Daten  einzulesen.  Das  Programm  erkennt 
einen  schon  vollständig  eingelesenen  Track  daran,  daß  es  diesel- 
ben Daten  findet,  die  schon  zu  Beginn  eingelesen  wurden.  Wenn 
Sie  sich  jetzt  daran  erinnern,  wie  unser  modifizierter  Track  aus- 
sieht, werden  Sie  feststellen,  daß  das  Kopierpogramm  keine 
Möglichkeit  hat,  sich  auf  dem  Track  zu  orientieren,  da  alle 
Blöcke  gleich  aussehen.  Für  das  Programm  ist  es  somit  fast  un- 
möglich, die  Anzahl  der  SYNC-Markierungen  sowie  die  Anzahl 
der  Bytes  auf  diesem  Track  festzustellen.  Auch  die  Kopierpro- 
gramme, die  mit  einem  parallelen  Bus  arbeiten,  welcher  die  Da- 
ten ohne  "abzusetzen"  einiesen  kann,  bekommen  Probleme,  die 
Anzahl  der  SYNC-Markierungen  richtig  festzustellen. 

Dieser  Track  ist  so  wirkungsvoll,  weil  es  für  Kopierprogramme 
sehr  schwer  ist,  ihn  richtig  zu  analysieren.  Wir  wissen  also,  wo- 
mit die  Kopierprogramme  zu  "kämpfen"  haben.  Doch  stellt  sich 
hier  die  Frage,  wie  wir  selbst  einen  solchen  Track  auf  seine 
Richtigkeit  überprüfen. 

Diese  Überprüfung  ist  recht  aufwendig,  da  sie  in  drei  Etappen 
durchgeführt  wird.  Als  erstes  wird  eine  große  Anzahl  von  Bytes 
eingelesen  und  gleichzeitig  die  Anzahl  der  SYNC-Markierungen 
gezählt.  Diese  Zahl  ist,  falls  der  Track  korrekt  ist,  recht  kon- 
stant. Als  nächstes  wird  überprüft,  wie  lang  die  SYNC-Markie- 
rungen selbst  sind,  damit  das  Kopierprogramm  nicht,  wenn  es 
nicht  genügend  Daten  feststellt,  die  entstehende  Lücke  mit  län- 
geren SYNC-Markierungen  vertuschen  kann.  Als  drittes  und 
letztes  muß  noch  geprüft  werden,  ob  die  Blockheader  des  ent- 
sprechenden Tracks  auch  wirklich  alle  gleich  sind.  Sollten  alle 
Prüfungen  positiv  ausfallen,  so  liegt  ein  "Original"  vor,  was 
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durch  eine  entsprechende  Rückmeldung  von  der  Kopierschutz- 
abfrage signalisiert  wird.  Ein  Programm,  das  all  diese  Prüf- 
durchgänge enthält,  werden  Sie  jetzt  anschließend  sehen.  Es  liegt 
(in  der  Floppy)  ab  Adresse  $0400  im  Speicher  und  wird  ab 
$04DF  gestartet.  Die  entsprechende  Rückmeldung  an  den  Rech- 
ner wird  in  $10  der  Floppy  gespeichert.  0 steht  für  "Kopier- 
schutz  nicht  richtig  erkannt"  und  $FF  für  "alles  OK". 


0400  LDA 
0402  LDX 
0404  CMP 

0407  DEX 

0408  BCS 

04 0A  TXA 
04 OB  ASL 
040C  ASL 
0400  ASL 
040E  ASL 
040F  ASL 
0410  STA 
0412  LDA 
0415  AND 
0417  ORA 

0419  STA 
041C  LDX 
041E  LDY 

0420  LDA 
0422  STA 
0424  LDA 
0427  BPL 

0429  CLV 
042A  BVC 
042C  CLV 
042D  DEX 
042E  BNE 

0430  DEY 

0431  BEO 
0433  LDA 
0436  BMI 
0438  INC 
043A  JHP 
0430  LDX 
043F  STX 


$08  Nimmer  des  zu  prüfenden  Tracks  laden 
#$04  Zähler  für  die  vier  Zonenabschnitte 
$04DA,X  Nimmer  mit  Zahl  aus  Tabelle  vergleichen 
Zähler  verringern 

$0404  verzweige,  wenn  Nummer  gröBer/gleich  der 
Zahl  aus  der  Tabelle 
entsprechenden  Zählerwert  in  den  Akku 
schieben  und  dann  die  Bits  an  Position 
5 und  6 schieben,  im  sie  als  MaBzahl 
für  den  Speed  auf  dem  entsprechenden 
Track  zu  benutzen 

$44  Wert  Zwischenspeichern 

$1C00  Control-Port  laden 

#$9F  Bits  für  Speed  löschen 

$44  mit  eigenem  Speed  verknüpfen 

$1C00  und  Uert  übergeben 

#$00  Low-  und  High-Byte  der  Anzahl  der  zu 

#$1F  lesenden  Bytes  laden  (7936) 

#$00  Zählwert  für  SYNC  auf 

$37  Null  setzen 

$1C0O  Control-Port  laden 

$0424  verzweige,  wenn  SYNC  noch  anliegt 

Byte- Ready- Leitung  löschen 
S042A  warten,  bis  Byte  anliegt 

Byte- Ready- Leitung  wieder  löschen 
Byte-Zähler  verringern 
$0433  verzweige,  wenn  kein  Übertrag 

sonst  auch  High-Byte  verringern 

$0430  verzweige,  wenn  Zähler  abgelaufen 

$1C00  Control-Port  laden 

$0429  verzweige,  wenn  kein  SYNC  anliegt 

$37  sonst  SYNC-Zähler  erhöhen 

$0424  und  auf  neue  SYNC-Markierung  warten 
$37  Zähler  für  gefundene  SYNC-Harkierungen 
$04 FF  in  $04FF  speichern 


Der  jetzt  folgende  Programmteil  prüft  die  Länge  der  SYNC- 
Markierungen.  Zu  diesem  Zweck  wird  der  Timer  1 der  Ein/ 
Ausgabe  VIA  benutzt. 
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0442  LDA  #$C0 
0444  STA  $1804 
0447  LDA  S1C00 
044A  BPL  $0447 
044C  LDA  $1C00 
044 F BMI  $044C 
0451  LDA  #$80 
0453  STA  $1805 
0456  LDA  $1C00 

0459  BPL  $0456 
045B  LDA  $1805 
045E  BPL  $0465 

0460  DEX 

0461  BNE  $0442 
0463  LDA  #$FF 
0465  STA  $04 FE 


Low-Byte  des  Zählwerts  für  SYNC -Länge 
ins  Low-Byte  des  Timers  schreiben 
Control -Port  laden  und  auf  Ende 
der  SYNC-Markierung  warten 
Control -Port  laden  und  auf  Anfang 
der  SYNC-Markierung  warten 
High-Byte  des  Timerwertes  laden  und 
übergeben,  Timer  starten 
Control -Port  laden  und  auf  Ende 
der  SYNC-Markierung  warten 
High-Byte  des  Timerwertes  laden 
verzweige,  wenn  Uert  kleiner  $80  (falsch) 
Zähler  für  Anzahl  der  SYNC  verringern 
und  nächste  Markierung  abf ragen 
Rückmeldewert  laden 
und  in  $04FE  speichern 


Als  nächstes  folgt  der  Teil,  in  dem  25  aufeinanderfolgende 
Blockheader  geladen  und  ab  $0500  gespeichert  werden.  Es  gibt 
zwar  im  Normalfall  keine  25  verschiedenen  Blockheader  auf  ei- 
nem Track,  jedoch  geht  man  so  sicher,  daß  alle  geladen  werden. 
Dieses  Teilprogramm  kann  auch  separat  verwendet  werden,  um 
die  Reihenfolge  der  Sektoren  oder  ähnliches  zu  überprüfen. 


0468  LDX  #$00  Zähler  auf  Null  setzen 

046A  JSR  $F556  Auf  SYNC-Markierung  warten 

0460  LDY  #$09  Zähler  für  Anzahl  der  Bytes  pro  Header 

046F  BVC  $046 F warten,  bis  ein  Byte  anliegt 

0471  CLV  Byte-Ready-Leitung  löschen 

0472  LDA  $1C01  Byte  vom  Port  holen 

0475  CMP  #$52  mit  Uert  für  Blockheader  vergleichen 
0477  BNE  $046A  verzweige,  wenn  kein  Blockheader 

0479  STA  $0500, X sonst  Uert  speichern 

04 7C  INX  Zähler  erhöhen 

047D  NOP 

047E  BVC  $04 7E  auf  neues  Byte  warten 

0480  CLV  Byte-Ready-Leitung  löschen 

0481  LDA  $1C01  Byte  vom  Port  holen 

0484  STA  $0500, X und  speichern 

0487  INX  Zähler  erhöhen 

0488  BEO  $048F  verzweige,  wenn  alle  Header  geholt 

048A  DEY  Zähler  für  Bytes  pro  Header  verringern 

048B  BNE  $047E  verzweige,  wenn  nicht  alle  Bytes  geholt 

048D  BEO  $046A  unbedingter  Sprung 

048F  LDA  #$05  High-Byte  des  zu  bearbeitenden  Puffers  auf 
0491  STA  $31  $05  stellen  (Puffer  2) 

0493  JSR  $F8E0  Bytes  ins  Bin. -Format  wandeln 

0496  LDX  #$FF  Zähler  setzen,  um  die  Daten  umzukopieren 

0498  LDA  $04FF,X  Daten  holen 

049B  STA  $0500, X und  ein  Byte  weiter  abspeichern 
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049E  OEX  Zähler  verringern 

049F  CPX  #$FF  vergleiche,  ob  schon  alles  kopiert 
04A1  BHE  $0498  verzweige,  wenn  nicht  alles  kopiert 
04A3  LDA  $38  erstes  Byte,  das  bei  der  Umwandlung  ins 
04A5  STA  $0500  Bin. -Format  gespeichert  wurde,  zurück- 
schreiben 

Dieser  Teil  dient  zur  Überprüfung  der  gelesenen  Blockheader. 

04A8  LOY  #$C8  Zeichenanzahl  laden 

04AA  LDX  #$08  Zeichenanzahl  pro  Header 

04AC  LDA  $04FF,X  Zeichen  holen 

04AF  CMP  $04FF,Y  mit  erstem  Header  vergleichen 

04B2  BHE  $04C6  verzweige,  wenn  Zeichen  ungleich 

04B4  OEX  Zähler  verringern 

04B5  DEY  Zähler  verringern 

04B6  BEQ  $04BE  verzweige,  wenn  alle  Zeichen  verglichen 

04B8  CPX  #$00  kontrollieren,  ob  ganzer  Header  verglichen 

04BA  BNE  $04AC  verzweige,  wenn  nein 

04BC  BEO  $04AA  unbedingter  Sprung 

04BE  LDA  $04FE  Rückmeldung  der  SYNC-Prüfroutine  holen 

04C1  CMP  #$FF  auf  Richtigkeit  überprüfen 

04C3  BNE  $04D7  verzweige,  wenn  Fehler 

04C5  LDA  $04FF  Anzahl  der  gefundenen  Sektoren  holen 

04C8  CMP  #$2A  mit  42  vergleichen 

04 CA  BCC  $0407  Fehler,  wenn  der  Wert  kleiner  ist 

04CC  CMP  #$2E  Wert  mit  46  vergleichen 

04CE  BCS  $0407  Fehler,  wenn  Wert  größer  oder  gleich  ist 

04D0  LDA  #$FF  Positive  Rückmeldung  an  Computer  übergeben 

0402  STA  $10  Rückmeldung  schreiben 

04D4  JMP  $FD9E  Rücksprung 

0407  LDA  #$00  negative  Rückmeldung  laden 

0409  BEQ  $0402  unbedingter  Sprung 

04DB  2B  1F  19  12  Werte  für  die  vier  Zonenabschnitte 

Das  Programm  wird  hier  gestartet. 

040 F LDA  #$01  Track -Nummer  laden 

04E1  STA  $08  und  an  Job  übergeben 

04E3  LDA  #$E0  Job-Code  E0  laden  (Progranin  ausführen) 

04E5  STA  $01  in  Job-Seicher  schreiben 

04E7  LDA  $01  Rückmeldung  abwarten 

04E9  BMI  $04E7  verzweige,  wenn  noch  keine  Rückmeldung 

04EB  RTS  Rücksprung 

In  diese  Routine  wurde  eine  eigene  Routine  eingebaut,  die  den 
Speed  des  jeweiligen  Tracks  bestimmt,  da  diese  Routine  im  Be- 
triebssystem der  Floppy  diese  Aufgabe  nur  bis  Track  35  fehler- 
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los  durchführt.  Im  Anschluß  an  das  Maschinenprogramm  folgt 
wieder  unser  BASIC-Loader. 


10  OPEN1 ,8, 15,"I" 

20  READ  X: IF  X=-1THEN  100 
25  SU=SU+X 

30  PRINT#1,"M-U"CHR$(N>CHRS<4)CHR$<1)CHR$<X) 

40  N=N+1:G0T0  20 

100  IFSU  <>  28329  THEN  PR INT "ERROR  IN  DATAS":STOP 
110  INPUT  "WELCHER  TRACK"; T 
1 20  PR I NT#1 , ”M-U"CHR$(224)CHR$(4)CHR$( 1 )CHRS(T ) 

130  PR I NT#1 , "M-E"CHRi(223)CHRS(4  > 

135  FORN=1TO  500:NEXT 

140  PRINT#1,»H-R»CHRS<16)CHR$<0)CHR$(1) 

150  GET#1 ,A$:A=ASC  <A$+CHR*<0>) 

170  IFA  =255  THENPR I NT"SCHUTZ  OK": END 
180  PRINT"SCHUTZ  ERROR": END 

302  DATA165,  8,162,  4,221,218,  4,202,176,250,138,  10,  10,  10,  10,  10,133 
. 68 

304  DATA173,  0,  28,  41,159,  5,  68,141,  0,  28,162,  0,160,  31,169,  0,133, 
55 

306  DATA173,  0,  28,  16,251,184,  80,254,184,202,208,  3,136,240,  10,173, 

0,  28 

308  DATA  48,241,230,  55,  76,  36,  4,166,  55,142,255,  4,169,192,141,  4,  24 
,173 

310  DATA  0,  28,  16,251,173,  0,  28,  48,251,169,128,141,  5,  24,173,  0,  28, 
16 

312  DATA251 , 173,  5,  24,  16,  5,202,208,223,169,255,141,  254,  4,162,  0,  32 
. 86 

314  DATA245, 160,  9,  80,254,184,173,  1,  28,201,  82,208,241,157,  0,  5,232, 
234 

316  DATA  80,254,184,173,  1,  28,157,  0,  5,232,240,  5,136,208,241,240,219, 
169 

318  DATA  5,133,  49,  32,224,248,162,255,189,255,  4,157,  0,  5,202,224, 

255,208 

320  DATA245,165,  56,141,  0,  5,160,200,162,  8,189,255,  4,217,255,  4,208, 
18 

322  DATA202, 136,240,  6,224,  0,208,240,240,236,173,254,  4,201,255,208,  18 
.173 

324  DATA255,  4,201,  42,144,  11,201,  46,176,  7,169,255,133,  16,  76,158,25 
3,169 

326  DATA  0,240,247,  43,  31.  25,  18,169,  1,133,  8,169,224,133,  1,165,  1, 
48 

328  DATA252,  96,-1 


Aufbringen  können  Sie  diesen  Schutz,  indem  Sie  das  Programm 
zum  Andern  der  Blockheader- Parameter,  welches  sich  weiter 
vorne  befindet,  verwenden  und  dort,  wie  in  der  Anleitung  schon 
erwähnt,  "Kopiere  Header"  anwählen,  um  daraufhin  den  entspre- 
chenden Header  auf  alle  anderen  Positionen  zu  kopieren. 
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6.  Die  Wunderwelt  der  Grafik 


Die  Grafikfähigkeiten  des  Commodore  64  lassen  sich  grob  in 
vier  Bereiche  unterteilen: 

Textbildschirm  mit  Blockgrafik 

Auf  dem  normalen  Textbildschirm,  mit  dem  Sie  ja  ffir  gewöhn- 
lich arbeiten,  steht  Ihnen  eine  Vielzahl  von  Grafikzeichen  zur 
Verfügung,  die  wie  die  "normalen"  Zeichen  (Buchstaben,  Ziffern 
usw.)  auf  den  Bildschirm  gebracht  werden.  Sicher  haben  Sie  mit 
diesen  Grafikzeichen  in  der  Zwischenzeit  schon  fleißig  experi- 
mentiert. Die  Abbildungen  der  einzelnen  Zeichen  auf  der  Ta- 
statur laden  ja  geradezu  dazu  ein. 

Mit  ein  wenig  Geschick  lassen  sich  damit  schon  recht  anspre- 
chende Grafiken  erzeugen.  Da  die  Auflösung  der  Grafiken  mit 
40  (Zeilen)  mal  25  (Spalten)  aber  nur  sehr  grob  ist,  spricht  man 
hier  auch  von  einer  sogenannten  "Blockgrafik". 

Grafikbildschirm  mit  hochauflösender  Grafik 

Wie  der  Name  schon  vermuten  läßt,  bietet  die  "hochauflösende 
Grafik"  eine  wesentlich  höhere  Auflösung  als  die  Blockgrafik.  Je 
nachdem,  mit  wieviel  Farben  man  arbeiten  möchte,  steht  einem 
eine  Auflösung  von  320*200  Punkten  (2  Farben)  oder  160*200 
Punkten  (4  Farben)  zur  Verfügung.  Alle  kommerziellen  Grafik- 
programme arbeiten  in  einer  dieser  beiden  Auflösungen. 

Sprites 

Sprites,  unentbehrliches  "Hilfsmittel"  bei  fast  allen  Spielen,  sind 
kleine  frei  bewegliche  Grafikobjekte,  die  unabhängig  vom  Text- 
bildschirm oder  der  hochauflösenden  Grafik  verwaltet  werden. 
Der  Commodore  64  ist  in  der  Lage,  bis  zu  acht  Sprites  gleich- 
zeitig auf  dem  Bildschirm  darzustellen. 
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Selbstdefinierte  Zeichen 

Das  Aussehen  sämtlicher  auf  dem  Textbildschirm  darstellbarer 
Zeichen  (Buchstaben,  Ziffern,  Sonderzeichen  und  Grafikzeichen) 
ist  in  einem  speziellen  Speicherbereich  des  Commodore  64,  dem 
sogenannten  "Zeichengenerator"  oder  "Zeichensatz-ROM",  abge- 
legt. Der  Zeichengenerator  läßt  sich  leicht  auslesen  und  in  einem 
anderen  Speicherbereich  unterbringen.  Dadurch  kann  man  sich 
ohne  weiteres  eigene  Zeichen  definieren  oder  vorhandene  Zei- 
chen abändern,  etwa  um  die  deutschen  Umlaute  ä,  ö und  ü zur 
Verfügung  zu  haben. 

Für  sämtliche  Grafikfähigkeiten  des  Commodore  64  ist  ein  nur 
einzelner  Baustein  innerhalb  des  64’ers  verantwortlich,  der  soge- 
nannte "VIC-II-Chip". 

Leider  unterstützt  das  BASIC  2.0  die  drei  letztgenannten  Berei- 
che nur  sehr  unzureichend,  um  nicht  zu  sagen,  überhaupt  nicht. 
Die  einzigen  Hilfsmittel,  die  einem  zur  Verfügung  stehen  sind 
POKE  und  PEEK. 

Wenn  Sie  schon  einmal  einen  Blick  in  das  Grafikkapitel  des 
Handbuchs  geworfen  haben,  werden  Sie  festgestellt  haben,  daß 
beispielsweise  allein  schon  das  bloße  Einschalten  der  hochauflö- 
senden Grafik  oder  das  Setzen  eines  Punktes  sehr  lange  POKE- 
und  PEEK -Sequenzen  erfordert.  Damit  läßt  sich  natürlich  nicht 
vernünftig  arbeiten. 

Ich  werde  Ihnen  deshalb  im  Laufe  dieses  Kapitels  eine  Vielzahl 
von  Maschinensprache-Routinen  vorstellen,  die  Sie  bequem  von 
BASIC  aus  auf  rufen  können.  Alle  theoretischen  Erklärungen  zur 
Erzeugung  der  Grafik  durch  den  VIC-II-Chip  beschränken  sich 
daher  auf  das  wirklich  notwendige^  das  Sie  zur  sinnvollen  An- 
wendung der  Routinen  benötigen. 


6.1  Einfache  Blockgrafik 

Beginnen  wir  mit  dem  einfachsten,  der  Blockgrafik.  Wie  Sie 
vielleicht  wissen,  ist  das  Bild  eines  Fernsehers  oder  Monitors 
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nicht  von  Dauer.  Es  muß  bis  zu  SO  mal  in  der  Sekunde  neu  auf- 
gebaut  werden.  Der  Commodore  64  muß  den  Fernseher  oder 
Monitor  also  ständig  mit  Informationen  darüber  versorgen,  was 
dieser  auf  dem  Bildschirm  darstellen  soll.  Um  diese  Informatio- 
nen aber  überhaupt  bereitstellen  zu  können,  muß  der  64’er 
"wissen",  welche  Bildschirmpositionen  mit  welchen  Zeichen  und 
welcher  Farbe  belegt  sind. 

Dazu  gibt  es  im  Commodore  64  zwei  spezielle  Speicherbereiche: 
den  "Bildschirmspeicher"  (für  die  Zeichen)  und  den  "Farbspei- 
cher".  Der  Bildschirmspeicher  erstreckt  sich  von  Speicheradresse 
1024  bis  2023,  der  Farbspeicher  von  Adresse  55296  bis  56295. 
Beide  Bereiche  sind  also  genau  1000  (40*25)  Byte  groß. 

Wenn  Sie  mit  PRINT  Zeichen  auf  den  Bildschirm  bringen, 
müssen  Sie  sich  um  diese  beiden  Speicherbereiche  nicht  küm- 
mern. Und  für  einfache  Bildschirmmasken,  etwa  für  eine  Datei- 
verwaltung, reicht  PRINT  in  der  Regel  auch  vollkommen  aus. 
Ein  großer  Nachteil  von  PRINT  ist  aber  die  fehlende  Möglich- 
keit, gezielt  eine  bestimmte  Bildschirmposition  ansteuern  zu 
können.  Außerdem  kommt  einem  beim  Aufbau  einer  Bild- 
schirmmaske häufig  ein  unerwünschtes  Scrollen  des  Bildschirms 
um  eine  Zeile  nach  unten  (wenn  man  ganz  am  Ende  einer  Bild- 
schirmzeile etwas  schreibt)  oder  eine  Zeile  nach  oben  (wenn  man 
sich  in  der  letzten  Bildschirmzeile  befindet)  in  die  Quere. 

Um  das  zu  vermeiden,  bedient  man  sich  am  besten  des  Befehls 
POKE.  Mit  POKE  kann  man  direkt  in  jede  Speicherzelle  des 
Bildschirm-  und  Farbspeichers  hineinschreiben  und  dadurch  am 
Bildschirm  Zeichen  und  Farben  setzen.  Leider  unterscheiden  sich 
die  Zeichencodes  im  Bildschirmspeicher  aber  von  dem  sonst  ge- 
bräuchlichen ASCII-Code.  Daher  kann  man  beispielsweise  nicht 
einfach  schreiben 

POKE  ,ASC("A") 

sondern  muß  jedesmal  erst  nachschauen,  welchen  Bildschirmcode 
das  betreffende  Zeichen  hat.  Eine  vollständige  Tabelle  der  Bild- 
schirmcodes finden  Sie  dazu  zusammen  mit  dem  ASCII-Code  im 
Anhang.  Mit  Hilfe  von  POKE  in  den  Farbspeicher  kann  man 
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sehr  schnell  und  auch  bequem  für  etwas  mehr  Farbenpracht  auf 
dem  sonst  eintönigen  Bildschirm  sorgen. 

Ein  Nachteil  bei  beiden  Speicherbereichen  sind  aber  die  relativ 
unhandlichen  Speicheradressen.  Die  folgende  Tabelle  gibt  Ihnen 
einen  Überblick,  ab  welchen  Speicheradressen  die  Bildschirmzei- 
len beginnen: 


Bildschirmzelle 

Bildschirmspeicher 

Farbspelcher 

0 

1024 

55296 

1 

1064 

55336 

2 

1104 

55376 

3 

1144 

55416 

4 

1184 

55456 

5 

1224 

55496 

6 

1264 

55536 

7 

1304 

55576 

8 

1344 

55616 

9 

1384 

55656 

10 

1424 

55696 

11 

1464 

55736 

12 

1504 

55776 

13 

1544 

55816 

14 

1584 

55856 

15 

1624 

55896 

16 

1664 

55936 

17 

1704 

55976 

18 

1744 

56016 

19 

1784 

56056 

20 

1824 

56096 

21 

1864 

56136 

22 

1904 

56176 

23 

1944 

56216 

24 

1984 

56256 

Die  Adresse  zu  einer  bestimmten  Zeilen-/Spaltenposition  läßt 
sich  auch  leicht  berechnen: 

BD=1 024+40* ZE+SP 

für  den  Bildschirmspeicher  und 
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FD=55296+40*ZE+SP 

für  den  Fafbspeicher,  wobei  ZE  die  Zeile  (0-24)  und  SP  die 
Spalte  (0-39)  enthält.  Um  Ihnen  das  ganze  einmal  praktisch  zu 
demonstrieren,  zeichnet  das  folgende  Programm  einen  Rahmen 
um  den  Bildschirm.  Als  Zeichen  habe  ich  den  Stern  [*]  (Bild- 
schirmcode 42)  gewählt.  Die  Farbe  des  Rahmens  wird  für  jede 
Position  zufällig  gesetzt: 


100  rem  rahmen  zeichnen 
105  zc=42:rem 
110  : 

120  rem  oberer  teil 
120  for  sp=0  to  39 
130  poke  1024+sp,zc 
140  poke  55296+sp,rnd(0)*16 
150  next  sp 
160  : 

120  rem  rechter  teil 

120  for  ze=0  to  24 

130  poke  1 024+40*ze+39, zc 

140  poke  55296+40*ze+39, rnd(0)*16 

150  next  ze 

160  : 

120  fern  unterer  teil 

120  for  sp=39  to  0 Step  -1 

130  poke  1984+sp,zc 

140  poke  56256+sp, rnd(0)*16 

150  next  sp 

160  : 

120  rem  linker  teil 

120  for  ze=24  to  0 Step  -1 

130  poke  1024+40*ze,zc 

140  poke  55296+40*ze,rnd(0)*16 

150  next  ze 

160  : 


Starten  Sie  das  Programm  einmal.  Das  sieht  doch  schon  recht 
bunt  aus.  Zur  Farbgebung  stehen  Ihnen,  wie  Sie  ja  wissen,  ins- 
gesamt 16  Farben  zur  Verfügung: 


0:  schwarz 
1:  weiß 
2:  rot 
3:  türkis 
4:  violett 
5:  grün 
6:  blau 
7:  gelb 


8:  orange 
9:  braun 
10:  hellrot 
11:  grau  1 
12:  grau  2 
13:  hellgrün 
14:  hellblau 
15:  grau  3 
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Im  Normalfall  kann  man  für  jede  Bildschirmposition  (und  damit 
für  jedes  dargestellte  Zeichen)  genau  eine  Farbe  definieren.  Die 
Hintergrundfarbe  wird  mit 

POKE  53281, FC 

für  den  gesamten  Bildschirm  festgelegt.  Es  gibt  aber  zwei  spe- 
zielle Darstellungsmodi,  in  denen  man  den  Bildschirm  bunter 
gestalten  kann,  der  sogenannte  "Erweiterte-Hintergrund-Farb- 
modus"  und  der  "Multicolor-Modus". 

Im  Erweiterten-Hintergrund-Farbmodus  stehen  jeweils  vier  Far- 
ben (anstatt  einer)  zur  Verfügung.  Die  Farbcodes  dieser  Farben 
müssen  in  den  Speicherzellen  53281  bis  53284  abgelegt  werden. 
Welche  Hintergrundfarbe  an  den  einzelnen  Bildschirmpositionen 
erscheint,  hängt  vom  Bildschirmcode  der  am  Bildschirm  befind- 
lichen Zeichen  ab.  Entscheidend  sind  dabei  die  letzten  beiden 
Bits  des  Codes.  Die  folgende  Tabelle  verdeutlicht  den  Zusam- 
menhang: 


Blt6 

Bit  7 

Farb-Reglster 

0 

0 

53281 

0 

1 

53282 

1 

0 

53283 

1 

1 

53284 

Um  in  den  Erweiterten-Hintergrund-Farbmodus  zu  gelangen, 
geben  Sie  ein: 

POKE  53265, PEEK(53265)  OR  64 


Mit 


POKE  53265, PEEK(53265)  AND  191 

schalten  Sie  wieder  auf  die  Normaldarstellung  um.  Da  die  Bits  6 
und  7 nun  als  Farbzeiger  dienen,  stehen  für  den  eigentlichen 
Zeichencode  nur  noch  die  Bits  0 bis  5 zur  Verfügung.  Mit  6 Bits 
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lassen  sich  jedoch  nur  64  Zeichen  codieren.  Im  Erweiterten- 
Hintergrund-Farbmodus  können  daher  nur  64  Zeichen  darge- 
stellt werden: 


Code-Bits 

7654321 

0 

Zeichen 

0 

0 

0 

0 

0 

@ 

0 

0 

0 

0 

0 

1 

A 

0 

0 

0 

0 

1 

0 

B 

0 

0 

0 

0 

1 

1 

C 

1 

1 

1 

1 

0 

1 

= 

1 

1 

1 

1 

1 

0 

> 

1 

1 

1 

1 

1 

1 

? 

Nehmen  wir  zum  Beispiel  den  Buchstaben  "A".  Er  hat  den  Bild- 
schirmcode 1,  binär  "00000001".  Schreibt  man  diesen  Wert  in  die 
Speicherzelle  1024,  wird  das  "A"  mit  der  aktuellen  Hintergrund- 
farbe dargestellt.  Ändert  man  den  Wert  nun  in  193  (binär 
11000001)  um,  wird  die  Hintergrundfarbe  für  das  "A"  aus  der 
Speicherzelle  53284  geholt.  Das  folgende  Programm  schreibt  alle 
darstellbaren  Zeichen  mit  den  möglichen  Hintergrundfarben  auf 
den  Bildschirm: 

100  rem  erweiterter-hintergrund-farbmodus  ein 
110  poke  53265, peek(53265>  or  64 
120  : 

130  poke  53281f0:rem  hintergrundfarbe  1 
140  poke  53282,1: rem  hintergrundfarbe  2 
150  poke  53283,2: rem  hintergrundfarbe  3 
160  poke  53284,3: rem  hintergrundfarbe  4 
170  for  z=0  to  63 

180  poke  1024+z,z:rem  Zeichen  mit  hintergrundfarbe  1 
190  poke  1104+z,z+64:rem  Zeichen  mit  hintergrundfarbe  2 
200  poke  1184+z,z+128:rem  Zeichen  mit  hintergrundfarbe  3 
210  poke  1264+z,z+192:rem  Zeichen  mit  hintergrundfarbe  4 
220  next  z 
230  : 

240  get  eg$:if  eg$=""  then  240: rem  auf  tastendruck  warten 
250  : 

260  rem  erweiterter-hintergrund-farbmodus  aus 
270  poke  53265, peek( 53265)  and  191 
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Im  Multicolör- Modus  nun  wird  die  Zeichenfarbe  "vervierfacht", 
d.h.,  ein  einzelnes  Zeichen  kann  aus  bis  zu  vier  Farben  bestehen. 
Welcher  Teil  eines  Zeichens  in  welcher  Farbe  dargestellt  wird, 
wird  dabei  durch  jeweils  zwei  Bits  der  Zeichenmatrix  bestimmt. 
Dazu  muß  man  wissen,  daß  jedes  Zeichen  aus  8 mal  8 Punkten 
aufgebaut  ist,  die  in  jeweils  acht  Bytes  codiert  sind  (mehr  dazu 
im  Abschnitt  über  Zeichensätze).  Das  "A"  beispielsweise  sieht  so 
aus: 


oo  01  io  oo 

00  11  11  oo 

01  10  01  io 
01  11  11  io 
01  10  01  io 
01  10  01  io 
01  10  01  10 
00  00  00  00 


In  der  Abbildung  links  sehen  Sie,  wie  die  Bits  zu  Paaren  zu- 
sammengefaßt werden.  Jede  der  vier  Kombinationsmöglichkeiten 
dient  als  Zeiger  auf  ein  Farb-Register: 


— > 00011000 
.****..  — > 00111100 
**  **.  — > 01100110 
******.  — > 01111110 
**..**.  — > 01100110 

**..**.  > 01100110 

**..**.  > 01100110 

> 00000000 


Matrix-Bits 

Farb-Register 

00 

53281 

0 1 

53282 

1 0 

53283 

1 1 

Farbspeicher 

(Bits  0-2) 

Die  ersten  drei  Farben  werden  also  global  für  alle  auf  dem 
Bildschirm  befindlichen  Zeichen  gewählt,  während  man  die 
Farbe  zu  der  Bit-Kombination  "11"  für  jedes  einzelne  Zeichen 
bzw.  jede  Bildschirmposition  festlegen  kann.  Allerdings  hat  man 
nur  die  ersten  acht  Farben  zur  Verfügung,  da  nur  die  Bits  0 bis 
2 der  Farbspeicherzellen  berücksichtigt  werden.  Um  den  Multi- 
color-Modus  einzuschalten,  geben  Sie  ein: 


POKE  53270 , PEEK( 53270 ) 0R  16 
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Mit 


PtiKE  53270, PEEK(53270)  AND  239 

gelangen  Sie  wieder  in  die  Normaldarstellung.  Mit  Hilfe  des  fol- 
genden Programms  können  Sie  ein  wenig  experimentieren: 

100  input  "färbe  1:";f1 
110  input  "färbe  2:";f2 
120  input  "färbe  3:";f3 
130  input  "färbe  4:";f4 
140  input  "text:"txS 
150  print  chrS(147); tx$ 

160  : 

170  rem  färben  setzen 
180  poke  53281 ,f1 
190  poke  53282, f 2 
200  poke  53283, f 3 
210  for  z=0  to  len(tx$)-1 
220  poke  55296+z,f4 
230  next  z 
240  : 

250  rem  multicolor-modus  ein 
260  poke  53270, peek(53270)  or  16 
270  : 

280  get  eg$ : i f eg$=M"  then  280 
290  : 

300  rem  multicolor-modus  aus 
310  poke  53270, peek(53270)  and  239 
320  : 

330  input  “noch  einmal:  (j/n)  ";jn$ 

340  if  jn$=“j"  then  run 

Wie  Sie  gesehen  haben,  sind  beide  Farbmodi  mit  starken  Ein- 
schränkungen im  Hinblick  auf  die  Anzahl  bzw.  die  Lesbarkeit 
der  Zeichen  verbunden.  Der  Erweiterte-Hintergrund-Farbmodus 
und  der  Multicolor-Modus  werden  daher  in  Programmen  nur 
recht  selten  eingesetzt. 


6.2  Hochauflösende  Grafik 

In  der  hochauflösenden  Grafik  haben  Sie  eine  Auflösung  von 
64000  Einzelpunkten,  das  sind  64-mal  mehr  als  auf  dem  Text- 
bildschirm. In  dieser  Auflösung  stehen  jeweils  zwei  Farben  zur 
Verfügung.  Eine  für  die  gesetzten  und  eine  für  die  gelöschten 
Punkte. 
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Wie  bereits  erwähnt,  gibt  es  einen  zweiten  Modus,  in  dem  man 
mit  jeweils  vier  Farben  arbeiten  kann.  Da  sich  die  Auflösung 
dabei  aber  auf  nur  noch  160*200  Punkte  verringert,  kann  man 
die  Grafik  fast  schon  nicht  mehr  als  "hochauflösend"  bezeichnen. 
Ich  werde  daher  im  folgenden  nur  auf  den  Zweifarbmodus  mit 
320*200  Punkten  eingehen. 


6.2.1  Grundlagen 

Ähnlich  wie  der  Textbildschirm  mit  seinem  Bildschirmspeicher 
benötigt  auch  die  hochauflösende  Grafik  einen  Speicherbereich, 
in  dem  vermerkt  ist,  welche  Punkte  gesetzt  und  welche  gelöscht 
sind. 

Diesen  Speicherbereich  bezeichnet  man  als  "Bitmap"  der  hoch- 
auflösenden Grafik,  da  zur  Codierung  eines  Punktes  gerade  ein 
Bit  benötigt  wird  (ist  ein  Punkt  gelöscht,  dann  ist  sein  zugehöri- 
ges Bit  gleich  0 ist  der  Punkt  gesetzt,  hat  das  Bit  den  Wert  1). 
Da  die  Grafik  ja  aus  64.000  Einzelpunkten  besteht,  bedarf  es 
64.000  Bits  oder  8.000  Bytes  an  Speicherplatz  für  eine  Hires- 
Bitmap. 

Das  ist  nicht  gerade  wenig!  Man  muß  sich  daher  sehr  genau 
überlegen,  wo  im  Speicher  die  Bitmap  abgelegt  werden  soll.  Das 
Entscheidende  aber  ist  das  Setzen  eines  einzelnes  Punktes,  auch 
"Pixel”  genannt,  der  hochauflösenden  Grafik.  Eine  Routine,  die 
diese  Aufgabe  übernimmt,  ist  der  zentrale  Bestandteil  jeden 
Grafikpakets. 

Die  Grafik  wird  dazu  in  ein  X/Y-Koordinatensystem  eingeteilt. 
Die  folgende  Abbildung  verdeutlicht  die  Zusammenhänge: 


(0/0)  X 

(319/0) 

Y 

— 

\ 

Pixel 
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i 

(0/199) 


l 

(319/199) 


Die  linke  obere  Ecke  hat  also  die  Koordinaten  0/0.  In  horizon- 
taler Richtung  werden  die  X- Koordinaten  abgetragen  (von  0 bis 
319),  in  vertikaler  Richtung  die  Y- Koordinaten  (von  0 bis  199). 


6.2.2  Die  hochauflösende  Grafik  programmieren 

Wie  schaltet  man  die  hochauflösende  Grafik  nun  aber  ein?  Wie 
legt  man  die  Bitmap  fest?  Und  wie  setzt  oder  löscht  man  ein  Pi- 
xel der  Grafik?  All  das  gestaltet  sich  in  BASIC  sehr  mühsam 
und  vor  allem  sehr  zeitaufwendig.  Ich  habe  Ihnen  daher  wieder 
einige  Maschinensprache-Routinen  geschrieben,  die  im  folgen- 
den abgedruckt  sind.  Hinter  dem  Assembler- Listing  finden  Sie 
den  gewohnten  BASIC-Lader  zu  allen  Routinen. 

Außerdem  benötigen  wir  vier  Routinen  aus  Kapitel  4:  TRANS- 
FER, MYFILL,  DSAVEM  und  DLOADM.  Falls  Sie  diese  Routi- 
nen noch  nicht  abgetippt  haben,  sollten  Sie  das  jetzt  schnell 
nachholen.  Das  Assembler-Listing  von  HIRESGRAFIK: 


ioo  ■ ******************************************************* 
105  ;*  * 

110  ;*  Programm  hiresgrafik  * 

120  ;*  routinen  zur  hiresgraf ikprogrammierung  * 

HO  ;*  * 

150  . ******************************************************* 
200 
205  ; 

210  .ba  50465  ;***  Startadresse  *** 

220  ; 

230  ; 

240  ;***  labels  ******************************************** 

245  .gl  zu  = 2 .'Zwischenspeicher 

250  .gl  zpl  = 251 

255  .gl  zp2  = 252 

260  .gl  zp3  = 253 

265  .gl  zp4  = 254 

270  ; 

280  ; 

290  ******************************************************** 
295  ;*  * 

300  ;*  hrmappos  - legt  die  Position  der  bitmap  der  * 
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305  ;*  hochaufl oesenden  grefik  fest 

310  ;* 

315  ;*  auf ruf:  sys  50465,br 

320  ;*  br:  bitmap-bereich  (0  = 57344-65343 


325  ;* 

330  ;* 

335  . ******** 

*************! 

340  ; 

370  hrmappos 

jsr  Saefd 

380 

jsr  $b79e 

390 

cpx  #2 

400 

bcc  hrml 

410 

jmp  $b248 

420  hrml 

stx  hrmpps 

430 

Ida  #0 

440 

sta  hrmpl 

450 

Ida  hrtab2,x 

460 

sta  hrmph 

470 

rts 

1 = 8192-16191) 


;auf  komma  testen 
;bereichsnuimer  holen 
;>1? 

;nein 

;ja,  'Illegal  quantity* 
;bitmap-basisadresse  (low) 
;highwert 
; fertig! 


Zunächst  müssen  Sie  mit  HRMAPPOS  die  Lage  der  Hiresbitmap 
im  Rechnerspeicher  festlegen.  Dabei  stehen  Ihnen  zwei  Bereiche 
zur  Auswahl. 


Der  Bereich  von  Speicherzelle  57.344  bis  65.343  hat  den  großen 
Vorteil,  daß  er  den  BASIC-Speicher  nicht  beschneidet.  Wenn  Sie 
den  Bereich  von  8.192  bis  16.191  wählen,  stehen  Ihnen  nur  noch 
etwa  6.000  Byte  für  BASIC  zur  Verfügung.  Möchte  man  nur  mit 
einer  Bitmap  arbeiten,  sollte  man  daher  immer  den  Bereich  0 
wählen,  der  auch  voreingestellt  ist. 

In  vielen  Fällen  ist  es  aber  durchaus  sinnvoll  zwei  Bitmaps  zur 
Verfügung  zu  haben.  Während  die  eine  Bitmap  auf  dem  Bild- 
schirm dargestellt  wird,  zeichnet  man  auf  der  zweiten  Bitmap 
eine  neue  Grafik.  Sobald  diese  fertiggestellt  ist,  schaltet  man 
blitzschnell  auf  die  zweite  Bitmap  um.  Häufig  möchte  man  auch 
Teile  einer  Grafik  in  eine  andere  kopieren.  Zu  diesem  Zweck 
lädt  man  die  Grafiken  in  die  beiden  Bitmaps  und  verschiebt  den 
betreffenden  Bereich  mit  Hilfe  der  Routine  TRANSFER.  Mehr 
dazu  etwas  weiter  unten. 

480  ; 

490  ; 

L 05  ■ ****************************************************** 

500  ;*  * 

505  ;*  hrcol  - legt  die  färben  fuer  die  hocheuf-  * 
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510  ;*  loesende  grafik  fest 

515  ;* 

520  ;*  auf ruf:  sys  50493, gd,pt 

525  ;*  gd:  hintergrundfarbe  (0-15) 

530  ;*  pt:  punktfarbe  (0-15) 

535  ;* 

540  ■ ********************************* 

545  ; 


590  hrcol 

jsr  Saefd 

;auf  konma  testen 

600 

jsr  $b79e 

;hintergrundfarbe  holen 

610 

stx  zw 

620 

jsr  Saefd 

;auf  konma  testen 

630 

jsr  Sb79e 

;punktfarbe  holen 

640 

txa 

; farbcode 

650 

asl 

;*16 

660 

asl 

670 

asl 

680 

asl 

690 

ora  zw 

;mit  hintergrundfarbe 

700 

sta  zw 

;verknuepfen 

710 

Ida  #0 

;bildschirmspeicherbasis  (low) 

720 

sta  zpl 

730 

Idy  hrmpps 

740 

Ida  hrtablc.y 

;(high) 

750 

sta  zp2 

760 

Idx  #4 

;anzahl  pages 

770 

Idy  #0 

; färbe  setzen 

780 

Ida  zw 

; farbcode 

790  hrcl 

sta  (zp1),y 

800 

iny 

810 

bne  hrcl 

820 

ine  zp2 

;page+1 

830 

dex 

840 

bne  hrcl 

850 

rts 

.-fertig! 

Für  die  gelöschten  und  die  gesetzten  Punkte  der  Grafik  können 
Sie  jeweils  eine  Farbe  auswählen.  Wenn  man  weiß,  wie  und  wo 
die  Farben  gespeichert  werden,  kann  man  jedoch  leicht  Grafiken 
mit  allen  16  Farben  entwerfen! 

Die  Farbcodes  werden  nämlich  im  Bildschirmspeicher  des  Text- 
bildschirms abgelegt.  Der  Code  für  die  Hintergrundfarbe  in  den 
unteren  vier  Bits  jeder  Speicherzelle,  der  Code  für  die  Punkt- 
farbe in  den  oberen  vier  Bits.  Jede  Speicherzelle  ist  für  einen  8 
mal  8 Punkte  großen  Bereich  der  Hires-Grafik  zuständig.  Wenn 
Sie  nun  mit  HRCOL  die  Farben  festlegen,  werden  einfach  alle 
1000  Speicherzellen  mit  demselben  Farbcode  belegt. 
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Es  steht  Ihnen  aber  natürlich  nichts  im  Wege  mittels  POKE  den 
Wert  jeder  Speicherzelle  (und  damit  die  Farben  des  zugehörigen 
Hires-Bereichs)  individuell  zu  setzen.  Der  Bildschirmspeicher  des 
Hires-Bereichs  0 erstreckt  sich  von  Speicherzelle  52.224  bis 
53.223,  der  Speicher  des  Bereichs  1 von  Adresse  1.024  bis  2.023. 

Wenn  wir  von  der  gewohnten  Zeilen-/Spalteneinteilung  ausge- 
hen, können  Sie  die  Farben  für  jeden  8 x 8-Punkte-Block  leicht 
so  einstellen: 

130  ze«0:rem  Zeile  (0*24) 

140  sp=0:rem  spalte  (0-39) 

150  : 

160  pt=5:rem  punkt färbe 
170  gd=6:rem  hintergrundfarbe 
180  : 

190  poke  52224+40*ze+sp,pt*16+gd:rem  bereich  0 
200  poke  1024+40*ze+sp,pt*16+gd:rem  bereich  1 


In  der  Regel  werden  Sie  mit  zwei  Farben  für  die  gesamte  Grafik 
aber  ganz  gut  auskommen.  In  diesem  Fall  genügt  dann  natürlich 
die  Verwendung  von  HRCOL.  Kommen  wir  zum  Ein-  und 
Ausschalten  der  Hires-Grafik: 


860  ; 

870  ; 

£75  . ****************************************************** 
880  ;*  * 

885  ;*  hron  - schaltet  die  hochaufl oesende  grafik  ein  * 

890  ;*  * 

895  ;*  aufruf:  sys  50545, br  * 

900  ;*  br:  bitmap-bereich  (0  = 57344-65343  * 

905  ;*  1 = 8192-16191)  * 

910  ;*  * 

91 5 . ****************************************************** 

920  ; 


960  hron 

jsr  $aefd 

;auf  komma  testen 

970 

jsr  $b79e 

;bereichsnunner  holen 

980 

cpx  #2 

;>1? 

990 

bcc  hrol 

;nein 

1000 

jmp  $b248 

;ja,  'illegal  quantity1 

1010  hrol 

Ida  53272 

;vic-register 

1020 

and  #2 

1030 

ora  hrtabla.x 

;einstel Iwertl  (bitmap-Position) 

1040 

sta  53272 

1050 

Ida  56576 

;cia-register 

1060 

and  #252 

1070 

ora  hrtab1b,x 

;einstellwert2  (lökbyte-Bereich) 
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1080 

sta  56576 

1090 

Ida  53265 

;vic-register 

1100 

ora  #32 

;bit5  setzen  <=hfres  ein) 

1110 

sta  53265 

1120 

rts 

.■fertig! 

1130  ; 

1140  ; 

1145  * ****************************************************** 
1150  * 

1155  ;*  hroff  - schaltet  die  hochaufl oesende  grafik  aus  * 

1160  ;*  * 

1165  ;*  auf ruf:  sys  50589  * 

1170  ;*  * 

1180  ; 


1210  hroff 

Ida  53265 

;vic-register 

1220 

and  #223 

;bit5  loeschen  ( =h i res  aus) 

1230 

sta  53265 

1240 

Ida  53272 

1250 

and  #2 

1260 

ora  #21 

1270 

sta  53272 

1280 

Ida  56576 

;cia-register 

1290 

and  #252 

1300 

ora  #3 

;16kbyte-bereich 

1310 

sta  56576 

1320 

Ida  #4 

;page-wert  des  bildschirms 

1330 

sta  648 

1340 

jmp  $e566 

;cursor  home  durchfuehren 

Die  Hiresgrafik  wird  aber  erst  durch  HRON  eingeschaltet.  Mit 
HRMAPPOS  wird  nur  die  Bitmap  für  die  folgenden  Zeichen- 
routinen festgelegt.  Wie  schon  erwähnt,  kann  man  daher  leicht 
die  eine  Bitmap  darstellen  lassen,  während  in  der  anderen  gerade 
eine  neue  Grafik  gezeichnet  wird.  Wenn  Sie  die  Grafik  mit 
HRON  eingeschaltet  haben,  wird  sich  Ihnen  höchstwahrschein- 
lich ein  recht  chaotisches  Grafikmuster  am  Bildchirm  präsentie- 
ren. Das  liegt  daran,  daß  ja  der  Bitmap-Speicher  im  Augenblick 
irgendwelche  Undefinierten  Werte  enthält. 


Wir  müssen  die  Bitmap  erst  einmal  löschen.  Dazu  verwenden  wir 
die  Routine  MYFILL  zum  Auffüllen  von  Speicherbereichen  mit 
einem  Wert,  hier  dem  Wert  Null: 

SYS  49402, 57344,65343, 0:REM  BEREICH  0 
SYS  49402, 8192, 16191, 0:REM  BEREICH  1 
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Jetzt  sind  alle  Vorbereitungen  getroffen,  um  mit  dem  Zeichnen 
beginnen  zu  können: 


1350  ; 

1360  ; 

1370  ;* 

1375  ;*  hrplot  - setzt,  loescht  oder  invertiert  einen 
1380  ;*  punkt  der  hires-grafik 

1385  ;* 

1390  ;*  auf ruf:  sys  50625, x,y,zm 

1395  ;*  x:  x-koordinate  (0-319) 

1400  ;*  y:  y-koordinate  (0-199) 

1405  ;*  zm:  zeichenmodus  (0  = setzen,  1 = loeschen, 

1410  ;*  2 = invertieren) 

1415  ;* 


1420  * ****************************************************** 
1425  ; 


1430  hrplot 

jsr 

Saefd 

;auf  komma  testen 

1440 

jsr 

coord 

;koordinaten  holen 

1450 

jsr 

(aefd 

;auf  komna  testen 

1460 

jsr 

$b79e 

; zeichenmodus  holen 

1470 

cpx 

#3 

;>2? 

1480 

bcc 

hrpl 

;nein,  ok 

1490 

jmp 

$b248 

;ja,  'illegal  quantity* 

1500  hrpl 

stx 

hrdrdm 

; zeichenmodus  speichern 

1510 

sei 

;auf  ram  unschal ten 

1520 

Ida 

#53 

1530 

sta 

$01 

1540 

jsr 

plot 

;zur  plot-routine 

1550 

Ida 

#55 

;auf  rom  zurueckschalten 

1560 

sta 

$01 

1570 

cl  i 

1580 

rts 

;fertig! 

1590  ; 

1600  ; 

1 605  • ****************************************************** 
1610  ;*  * 
1615  ;*  hrtestp  - testet,  ob  ein  einzelner  punkt  der  * 


1620  ;*  hires-grafik  gesetzt  ist  * 
1625  ;*  * 
1630  ;*  auf ruf:  sys  50661, x,y  * 
1635  ;*  x:  x-koordinate  (0-319)  * 
1640  ;*  y:  y-koordinate  (0-199)  * 
1645  ;*  peek(251)=0:  punkt  nicht  gesetzt  * 
1650  ;*  peek(251)=1:  punkt  gesetzt  * 
1655  ;*  * 


1 660  ; ****************************************************** 
1665  ; 

1690  hrtestp  jsr  $aefd  ;auf  komma  testen 

1700  jsr  coord  ;koordinaten  holen 

1710  Idx  #3  ;zeichenmodus=testen 
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1720 

stx  hrdrdn 

1730 

sei 

;auf  ran  unschalten 

1740 

Ida  «53 

1750 

sta  $01 

1760 

jsr  plot 

;zur  plot-routine 

1770 

Ida  «55 

;auf  ron  zurueckschalten 

1780 

sta  $01 

1790 

cli 

1800 

sty  zpl 

;code  ab legen 

1810 

rts 

;fertig! 

Der  Aufruf  von  HRPLOT  ist  denkbar  einfach.  Neben  den  X- 
und  Y-Koordinaten  des  betreffenden  Punktes  müssen  Sie  nur 
noch  festlegen,  ob  der  Punkt  gesetzt  oder  gelöscht  werden  soll. 
Falls  Sie  den  Zeichenmodus  2 wählen,  wird  der  Punkt  invertiert, 
d.h.,  wenn  er  gesetzt  ist,  wird  er  gelöscht  und  umgekehrt. 

Häufig  möchte  man  den  momentanen  "Zustand"  (gesetzt  oder 
gelöscht)  eines  bestimmten  Pixels  erfahren.  Zu  diesem  Zweck 
gibt  es  die  Routine  HRTESTP,  der  dann  die  Koordinaten  des  zu 
testenden  Punktes  übergeben  werden.  Mit  Hilfe  von  HRPLOT 
läßt  sich  im  Prinzip  jedes  beliebige  grafische  Objekt  erzeugen. 
Das  Zeichnen  von  geraden  Linien  benötigt  man  aber  derart  oft, 
daß  ich  dafür  eine  eigene  Routine  geschrieben  habe: 


1820  ; 

1830  ; 

1840  ; ****************************************************** 


1845  ;* 

* 

1850  ;* 

hrline  - zeichnet 

eine  Linie  in  die  hires-grafik 

* 

1855  ;* 

* 

1860  ;* 

auf ruf:  sys  50688, 

rx1,y1,x2,y2,zm 

* 

1865  ;* 

xl.yl:  koordinaten  des  anfangspunkts 

* 

1870  ;* 

x2,y2:  koordinaten  des  endpunkts 

* 

1875  ;* 

zm:  zeichenmodus  (0  = setzen,  1 = loeschen. 

* 

1880  ;* 

2 = invertieren) 

* 

1885  ;* 

* 

1890  .****************************************************** 

1895  ; 

1900  hrline  jsr  $aefd 

;auf  konma  testen 

1910 

jsr  coord 

;koord.  holen  (anfangspunkt) 

1920 

Idx  «2 

;und  Zwischenspeichern 

1930  hrlnl  Ida  zpl.x 

1940 

sta  $b7,x 

1950 

dex 

1960 

bpi  hrlnl 

1970 

jsr  Saefd 

;auf  konma  testen 

1980 

jsr  coord 

;koord.  holen  (endpunkt) 
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1990 

jsr  $aefd 

;auf  komma  testen 

2000 

jsr  $b79e 

;zeichermodus  holen 

2010 

cpx  #3 

;>2? 

2020 

bcc  hrln2 

;nein,  ok 

2030 

jmp  $b248 

;ja,  'illegal  quantity1 

2040  hrln2 

stx  hrdrdn 

; Zeichenmodus  speichern 

2050 

sei 

;auf  ram  unschalten 

2060 

Ida  #53 

2070 

sta  $01 

2080 

jsr  line 

;zur  line-routine 

2090 

Ida  #55 

;auf  rom  zurueckschalten 

2100 

sta  $01 

2110 

eil 

2120 

rts 

;fertigl 

SYS  50688, 

0,0,319,199,0 

SYS  50688, 

199,0,319,0,0 

Diese  Routine  beispielsweise  zeichnet  die  beiden  Bildschirmdia- 
gonalen in  die  Grafik.  Assembler-Programmierer  vergessen  bitte 
nicht,  noch  die  folgenden  Programmzeilen  abzutippen: 

2130  ; 

2135  ; 

2140  ; 

2145  ******************************************************* 

2150  ;*  * 

2155  ;*  ausfuehrungsroutinen  * 

2160  ;*  * 

2 • ****************************************************** 

2170  ; 

2175  ; 

2180  ;***  plot-routine  ************************************* 


2190  plot 

Ida  zpl 

;y-coord. 

2200 

Isr 

;/8 

2210 

Isr 

2220 

Isr 

2230 

tay 

2240 

clc 

2250 

Ida  zpl 

;y-coord. 

2260 

and  #7 

2270 

ade  hrtab3,y 

;+(320*y/8) 

2280 

sta  $14 

; zwi schenspei ehern 

2290 

Ida  zp2 

;x-coord.  (low) 

2300 

and  #248 

2310 

ade  $14 

2320 

sta  $14 

2330 

Ida  hrmph 

;bi tmap-basis 

2340 

ade  hrtab4,y 

;+(320*y/8) 

2350 

ade  zp3 

;x-coord.  (high) 

2360 

sta  $15 

2370 

Ida  zp2 

;x-coord.  (low) 

Die  Wunderwelt  der  Grafik 


583 


2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2810 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2910 

2920 

2930 


and  #7 
tay 


Ida  hrtab5,y 
Idy  «0 

;bit-position 

Idx  hrdrdn 
bne  ptl 

; zei chenmodus 

•*** 

r 

zeichnen  *** 

ora  ($14), y 
sta  ($14), y 

;entspr.  bit  setzen 

rts 

;fertig! 

Ptl 

dex 

brte  pt2 

.*#* 

§ 

loeschen  *** 
eor  #255 

and  ($14), y 
sta  ($14), y 

;entspr.  bit  loeschen 

rts 

.•fertig! 

Pt2 

dex 

bne  pt3 

• *** 
$ 

invertieren  *** 

eor  ($14), y 
sta  ($14), y 

;entspr.  bit  undrehen 

rts 

; fertig! 

pt3 

dex 

bne  pt5 

•*** 

0 

testen  *** 

Ida  zp2 
and  #7 

;x-coord.  (low) 

eor  #7 

;bits  umdrehen 

tax 

;als  zaehler  nach  x 

Ida  ($14), y 

;bitmap-byte  holen 

pt4 

cpx  00 
beq  pt4a 
isr 
dex 

jmp  pt4 

pt4a 

and  #1 
tay 

;bits1-7  loeschen 

rts 

.•fertig! 

pt5 

sta  zw 

;bit*position  Zwischenspeichern 

rts 

.•fertig! 

$ 

;***  berechnungstabellen  *** 
hrtab3  .by  0,64,128,192 
.by  0,64,128,192 
.by  0,64,128,192 
.by  0,64,128,192 
.by  0,64,128,192 
.by  0,64,128,192 
.by  0 

hrtab4  .by  0,1, 2,3 
.by  5, 6, 7,8 
.by  10,11,12,13 
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2940 

2950 

2960 

2970 

2990 

3000 

3010 

3020 

3040 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 


.by  15,16,17,18 
.by  20,21,22,23 
.by  25,26,27,28 
.by  30 

hrtab5  .by  128,64,32,16 


.by  8, 4, 2,1 

.*** 

line- rout ine  ***** 

line 

Ida  zpl 

;aktuelle  punkt koord 

pha 

Ida  zp2 

pha 

Ida  zp3 

pha 

• *** 
$ 

differenzen  berechnen  (x-coord.)  *** 

sec 

Ida 

$b8 

;xlow  (1. punkt) 

sbc 

zp2 

;xlou  (2. punkt) 

pha 

Ida 

$b9 

;xhigh  (1. punkt) 

sbc 

zp3 

;xhigh  (2. punkt) 

sta 

az 

bcs 

Inl 

pla 

eor 

#$ff 

ade 

#1 

pha 

Ida 

#0 

sbc 

az 

Inl 

sta 

az+2 

sta 

az+5 

pla 

sta 

az+1 

sta 

az+4 

• *** 
i 

differenzen  berechnen  (y-coord.)  *** 

clc 

Ida 

$b7 

;y  (1.  punkt) 

sbc 

zpl 

;y  (2.  punkt) 

bcc 

ln2 

eor 

#$ff 

ade 

#$fe 

tn2 

sta 

az+3 

ror 

az 

• *** 
* 

zaehler 

berechnen 

*.** 

sec 

sbc 

az+1 

sta 

zu 

Ida 

«ff 

sbc 

az+2 

sta 

zp4 

jsr 

plot 

;1.  punkt  setzen 

jmp 

ln3 
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3510  ;*** 

x (c=1)  oder  y 

<c=0)  bearbeiten  *** 

3520  Inlp 

bcc  ln6 

3540  ln5 

jsr  xdeinc 

;x-coord.  +1/-1 

3550  lri3 

Ida  az+4 

3560 

ade  az+3 

3570 

sta  az+4 

3580 

Ida  az+5 

3590 

sbc  #0 

3600 

jmp  ln4 

3620  Ln6 

jsr  ydeinc 

;y-coord.  +1/-1 

3630 

clc 

3640 

Ida  az+4 

3650 

ade  az+1 

3660 

sta  az+4 

3670 

Ida  az+5 

3680 

ade  az+2 

3690  ln4 

sta  az+5 

3700 

php 

3710 

jsr  plot 

; punkt  setzen 

3720 

plp 

3730 

ine  zw 

;zaehler 

3740 

bne  Inlp 

3750 

ine  zp4 

3760 

bne  Inlp 

3770  ;*** 

aktuelle  punktkoord.  zurueckholen  *** 

3780 

pla 

3790 

sta  zp3 

3800 

pla 

3810 

sta  zp2 

3820 

pla 

3830 

sta  zpl 

o o 

38 

rts 

;fertigl 

3870  ;*** 

x-coord.  +1/-1 

*** 

3890  xdelnc  bit  az 

;f  lag 

3900 

bxdcl 

;bit6  nicht  gesetzt. 

3920 

Ida  zp2 

;xlow  (2.  punkt) 

3930 

ora  zp3 

;xhigh  (2.  punkt) 

3940 

beq  xicl 

;x=0,  dann  fertig 

3950 

Ida  zp2 

;x-coord.  -1 

3960 

bne  xic2 

3970 

dec  zp3 

;xhigh 

3980  xic2 

dec  zp2 

;xlow 

3990 

sec 

4000 

rts 

.•fertig! 

4020  xdcl 

Ida  zp3 

;xhigh 

4030 

beq  xdc2 

o 

© 

II 

4040 

Ida  zp2 

;xlow 

4050 

emp  #63 

;=319? 

4060 

beq  xicl 

; ja,  fertig 

4070  xdc2 

ine  zp2 

; x-coord.  +1 

4080 

bne  xdc3 

4090 

ine  zp3 
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4100 

4110 

4120 

4130 

4140 

4170 

4190 

4200 

4220 

4230 

4240 

4250 

4260 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4590 

4600 

4610 

4620 

4630 

4650 

4660 

4665 

4670 

4675 

4680 

4690 
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xdc3 

sec 

rts 

; fertig! 

xicl 

clc 

rts 

; fertig! 

1 

• w. 

t 7 

coord.  +1/-1 

*** 

ydeinc 

bi  t az 

;f  lag 

bmi  ydcl 

;bit7  nicht  gesetzt. 

Ida  zpl 

;y- coord. 

beq  xicl 

;=0,  dann  fertig 

dec  zpl 

;y-coord.  -1 

sec 

rts 

; fertig! 

ydcl 

Ida  zpl 

;y-coord. 

cmp  #199 

;ende  erreicht? 

beq  xicl 
i nc  zpl 

;ja,  fertig 

sec 

rts 

; fertig! 

1 

;***  punktkoord.  holen  und  testen  *** 

coord 

jsr  $b7eb 

;x-  und  y-koordinate 

cpx  #200 

;y-koord.  >199? 

bcc  crdl 

;nein,  ok 

crderr 

jmp  $b248 

;ja,  fehler 

crdl 

Idy  $14 

;x-koord.  (low) 

crd2 


Ida  $15 
cmp  #>(320) 
bcc  crd2 
bne  crderr 
cpy  #<(320) 
bcs  crderr 
stx  zpl 
sty  zp2 
sta  zp3 
rts 


x-koord.  (high) 

>319? 

<,  ok 
>,  fehler 

x-koord.  (low)  >319? 
ja,  fehler 
y-koord. 
x-koord.  (low) 

(high) 

fertig! 


***  tabellen  ***************************************** 


;***  umschaltwerte  *** 
hrtabla  .by  56,24 
hrtablb  .by  0,3 
hrtablc  .by  204,4 
$ 

.***  bitmap-basisadressen  *** 
hrtab2  .by  224,32 


i 

• itirit  datenspei eher  ************************************ 

hrmpps  .by  0 ;bi tmap-bereichsnurmer 
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4700  hrmpl  .by  0 ;bi tmap-basis  (low) 

4710  hrmph  .by  0 ;(high) 

4720  hrdrckn  .by  0 ; zei chenmodus 

4730  az  .by  0, 0,0, 0,0, 0,0,0, 0,0  /Zwischenspeicher 

Und  der  BASIC-Lader: 

1 00  rem  **************************************************** 
102  rem  * * 

104  rem  * Programm:  hires-grafik  * 

106  rem  * prog ramm l senge:  700  bytes  * 

108  rem  * r out inen  zur  hires-graf ikprogramnierung  * 

110  rem  * * 

114  rem  * * 

116  rem  * hrmappos  - legt  die  Position  der  bitmap  der  * 

118  rem  * hochaufl oesenden  grafik  fest  * 

120  rem  * * 

122  rem  * auf ruf:  sys  50465 ,br  * 

124  rem  * br:  bi tmap-bereich  (0  = 57344-65343  * 

126  rem  * 1=  8192-16191)  * 

128  rem  * * 

130  rem  **************************************************** 

132  rem  * * 

134  rem  * hrcol  - legt  die  färben  fuer  die  hochauf-  * 

136  rem  * l oesende  grafik  fest  * 

138  rem  * * 

140  rem  * aufruf:  sys  50493, gd,pt  * 

142  rem  * gd:  hintergrundfarbe  (0-15)  * 

144  rem  * pt:  punktfarbe  (0-15)  * 

146  rem  * * 

148  rem  **************************************************** 

150  rem  * * 

152  rem  * hron  - schaltet  die  hochauf loesende  grafik  ein  * 

154  rem  * * 

156  rem  * aufruf:  sys  50545.br  * 

158  rem  * br:  bi tmap-bereich  (0  = 57344-65343  * 

160  rem  * 1=  8192-16191)  * 

162  rem  * * 

164  rem  **************************************************** 

166  rem  * * 

168  rem  * hroff  - schaltet  die  hochauf loesende  grafik  aus  * 

170  rem  * * 

172  rem  * aufruf:  sys  50589  * 

174  rem  * * 

176  rem  **************************************************** 

178  rem  * * 

180  rem  * hrplot  - setzt,  loescht  oder  invertiert  einen  * 

182  rem  * punkt  der  hires-grafik  * 

184  rem  * * 

186  rem  * aufruf:  sys  50625, x.y.zm  * 

188  rem  * x:  x-koordinate  (0-319)  * 
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190  rem  * y:  y-koordinate  (0-199)  * 

192  rem  * zm:  Zeichenmodus  (0  = setzen,  1 = l oeseben,  * 
194  rem  * 2 * invertieren)  * 

196  rem  * * 

200  rem  * * 

202  rem  * hrtestp  - testet,  ob  ein  einzelner  punkt  der  * 

204  rem  * hires-grafik  gesetzt  ist  * 

206  rem  * * 

208  rem  * auf ruf:  sys  50661, x,y  * 

210  rem  * x:  x-koordinate  (0-319)  * 

212  rem  * y:  y-koordinate  (0-199)  * 

214  rem  * peek(251)=0:  punkt  nicht  gesetzt  * 

216  rem  * peek(251)=1:  punkt  gesetzt  * 

218  rem  * * 

220  rem  **************************************************** 

222  rem  * * 

224  rem  * hrline  - zeichnet  eine  Linie  in  die  hires-grafik  * 

226  rem  * * 

228  rem  * aufruf:  sys  50688, Xl,y1,x2,y2,zm  * 

230  rem  * x1,y1:  koordinaten  des  anfangspunkts  * 

232  rem  * x2,y2:  koordinaten  des  endpunkts  * 

234  rem  * zm:  zeichenmodus  (0  = setzen,  1 = loeschen,  * 

236  rem  * 2 = invertieren)  * 

238  rem  * * 

240  rem  **************************************************** 

280  : 

290  : 

400  rem  ***  datas  einiesen  *** 

410  restore:z 1=1000 

420  ad=50465 : rem  startadresse  der  routine 
430  ps=0:z=0 

440  read  wt:if  wt=-1  then  print  "datas  ok!":end 

450  poke  ad,wt:ad=ad+1 :z=z+1 

460  ps=ps+ut:rem  pruef summe 

470  if  z<10  then  440:rem  eine  zeile  lesen 

480  read  wt 

485  if  ps<>wt  then  print  "data-fehler  in  zei  le,,;zl;,,!":end 
490  zl=zl+10:goto  430 
500  : 

510  : 

990  rem  ***  datas  *** 

1000  data  32,253,174,32,158,183,224,2,144,3,1205 
1010  data  76,72,178,142,207,199,169,0,141,208,1392 
1020  data  199,189,205,199,141,209,199,96,32,253,1722 
1030  data  174,32,158,183,134,2,32,253,174,32,1174 
1040  data  158,183,138,10,10,10,10,5,2,133,659 
1050  data  2,169,0,133,251,172,207,199,185,203,1521 
1060  data  199,133,252,162,4,160,0,165,2,145,1222 
1070  data  251,200,208,251,230,252,202,208,246,96,2144 
1080  data  32,253,174,32,158,183,224,2,144,3,1205 
1090  data  76,72, 178, 173,24,208,41,2,29, 199, 1002 
1100  data  199,141,24,208,173,0,221,41,252,29,1288 
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1110  data  201,199.141,0,221.173,17,208,9,32,1201 
1120  data  141,17,208,96,173,17,208,41,223,141,1265 
1130  data  17,208,173,24,208,41,2,9,21,141,844 
1140  data  24,208,173,0,221,41,252,9,3,141,1072 
1150  data  0,221,169,4,141,136,2,76,102,229,1080 
1160  data  32,253,174,32,168,199,32,253,174,32,1349 
1170  data  158,183,224,3,144,3,76,72,178,142,1183 
1180  data  210,199,120,169,53,133,1,32,51,198,1166 
1190  data  169,55,133,1,88,96,32,253,174,32,1033 
1200  data  168,199,162,3,142,210,199,120,169,53,1425 
1210  data  133,1,32,51,198,169,55,133,1,88,861 
1220  data  132,251,96,32,253,174,32,168,199,162,1499 
1230  data  2,181,251,149,183,202,16,249,32,253,1518 
1240  data  174,32,168,199,32,253,174,32,158,183,1405 
1250  data  224,3.144,3,76.72,178,142,210,199,1251 
1260  data  120,169,53,133,1,32,209,198,169,55,1139 
1270  data  133,1,88,96,165,251,74,74,74,168,1124 
1280  data  24,165,251,41,7,121,151,198,133,20,1111 
1290  data  165,252,41,248,101,20,133,20,173,209,1362 
1300  data  199,121,176,198,101,253,133,21,165,252,1619 
1310  data  41,7,168,185,201,198,160,0,174,210,1344 
1320  data  199,208,5,17,20,145,20,96,202,208,1120 
1330  data  7,73,255,49,20,145,20,96,202,208.1075 
1340  data  5,81,20,145,20,96,202,208,22,165,964 
1350  data  252,41,7,73,7,170,177,20,224,0,971 
1360  data  240,5,74,202,76,135,198,41,1,168,1140 
1370  data  96,133,2,96,0,64,128,192,0,64,775 
1380  data  128,192,0,64,128,192,0,64,128,192,1088 
1390  data  0,64,128,192,0,64,128,192,0,0,768 
1400  data  1,2,3,5,6,7,8,10,11,12,65 
1410  data  13,15,16,17,18,20,21,22,23,25,190 
1420  data  26,27,28,30,128,64,32,16,8,4,363 
1430  data  2,1,165,251,72,165,252,72,165,253,1398 
1440  data  72,56,165,184,229,252,72,165,185,229,1609 
1450  data  253,141,211,199,176,11,104,73,255,105,1528 
1460  data  1,72,169.0,237,211,199,141,213,199,1442 
1470  data  141,216,199,104,141,212,199,141,215,199,1767 
1480  data  24,165,183,229,251,144,4,73,255,105,1433 
1490  data  254,141,214,199,110,211,199,56,237,212,1833 
1500  data  199,133,2,169,255,237,213,199,133,254,1794 
1510  data  32,51,198,76,42,199,144,20,32,104,898 
1520  data  199,173,215,199,109,214,199,141,215,199,1863 
1530  data  173,216,199,233,0,76,78,199,32,145,1351 
1540  data  199,24,173,215,199,109,212,199,141,215,1686 
1550  data  199,173,216,199,109,213,199,141,216,199,1864 
1560  data  8,32,51,198,40,230,2,208,203,230,1202 
1570  data  254,208,199,104,133,253,104,133,252,104,1744 
1580  data  133,251,96,44,211,199,80,16,165,252,1447 
1590  data  5,253,240,28,165,252,208,2,198,253,1604 
1600  data  198,252,56,96,165,253,240,6,165,252,1683 
1610  data  201,63,240,8,230,252,208,2,230,253,1687 
1620  data  56,96,24,96,44,211,199,48,8,165,947 
1630  data  251,240,245,198,251,56,96,165,251,201,1954 
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1640  data  199,240,235,230,251,56,96.32,235,183,1757 
1650  data  224,200,144,3,76,72,178,164,20,165,1246 
1660  data  21,201,1,144,6,208,243,192,64,176,1256 
1670  data  239,134,251,132,252,133,253,96,56,24,1570 
1680  data  0,3,204,4,224,32,0,0,0,0,467 
1690  data  0,0,0,0,0,0,0,0, 0,0,0 
2000  data  -1:rem  endnarkierung 

Eine  einmal  erzeugte  Grafik  möchte  man  vielleicht  dauerhaft 
auf  Diskette  sichern  und  später  wieder  einladen.  Dazu  bedienen 
wir  uns  der  Routinen  DSAVEM  und  DLOADM  aus  Kapitel  4: 

SYS  49489 , "GRA  F I K0" , 57344 , 65343 : REM  BEREICH  0 SPEICHERN 
SYS  49489, "GRAFIK1", 8192, 16191 :REM  BEREICH  1 SPEICHERN 
SYS  49676, "GRAF I KO" , 57344 : REM  BEREICH  0 LADEN 
SYS  49676, "GRAFIK1",8192:REM  BEREICH  1 LADEN 

Wie  schon  weiter  oben  erwähnt,  kann  man  mit  Hilfe  der  Routine 
TRANSFER  leicht  einzelne  Grafikbereiche  zwischen  den  beiden 
Bitmaps  umspeichern,  im  Extremfall  die  gesamte  Grafik: 

SYS  49152, 57344, 65343, 8192, 3:REM  BEREICH  0 IN  BEREICH  1 
SYS  49152, 8192, 16191, 57344, 3:REM  BEREICH  1 IN  BEREICH  0 

Bei  kleineren  Bereichen  möchte  ich  der  Einfachheit  halber  da- 
von ausgehen,  daß  sie  sich  aus  8 Punkt  großen  Zeilenblöcken 
zusammensetzen  und  entsprechend  der  Spalteneinteilung  des 
Textbildschirms  in  der  Grafik  liegen.  Um  die  X/Y-Koordinaten 
in  die  richtigen  Speicheradressen  umrechnen  zu  können,  muß 
man  wissen,  daß  die  Grafik  in  der  Bitmap  zeilenweise  gespei- 
chert wird.  Die  erste  Grafikzeile  von  0/0  bis  319/0  liegt  im 
Bitmap-Bereich  0,  also  von  Speicherzelle  57.344  bis  57.383,  die 
zweite  Grafikzeile  von  Adresse  57.384  bis  57.423  usw. 

Nehmen  wir  einmal  an.  Sie  möchten  aus  dem  Grafikbereich  0 
einen  rechteckigen  Block  mit  den  Eckkoordinaten  16/16  (linke 
obere  Ecke)  und  160/32  (rechte  untere  Ecke)  an  dieselbe  Stelle 
des  Bereichs  1 verschieben.  Die  Rechnung  dazu  sieht  ganz  all- 
gemein wie  folgt  aus: 

100  b0=57344:rem  bitmap-basisadressen 
110  bl =81 92 
120  : 

130  xa=16:ya=16:rem  koordinaten 
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140  xe*160:ye*32 
145  : 

150  pe*ya*40+xa : re*  anfangsspalte 
160  pesya*40+xe:rem  endspalte 

170  for  z=0  to  (ye-ya)-1:rem  zeilenweise  «speichern 

180  sys  491 52 , b0+pa+z*40 , b0+pe+z*40 , bl +pa+z*40 , 3 : rem  transfer 

190  next  z 


6.2.3  Fortgeschrittene  Techniken 

Mit  Hilfe  der  beiden  Routinen  HRPLOT  und  HRLINE  können 
wir  nun  fast  jedes  beliebige  andere  Grafikobjekt  zeichnen,  bei- 
spielsweise Kreise  und  Rechtecke  oder  Ellipsen  und  Polygone. 
Das  folgende  Programm  beispielsweise  zeichnet  beliebige  Kreise 
und  Ellipsen.  Da  ja  der  Kreis  nur  ein  Sonderfall  der  Ellipse  ist, 
genügt  eine  Routine. 

Wollen  Sie  einen  Kreis  zeichnen,  geben  Sie  für  den  horizontalen 
und  vertikalen  Radius  einfach  denselben  Wert  an: 

70  rem  kreise  und  ellipsen  zeichnen 
80  : 

90  : 

100  rem  masch  i nenprogramme  nach  laden 

110  if  f 1=0  then  fl=1:load  "hires-grafik",8,1 

120  if  f 1=1  then  fl=2:load  "transfer", 8,1 

130  if  f 1=2  then  fl=3:load  "myfill",8,1 

140  if  f 1=3  then  fl=4:load  "dsavem",8,1 

150  if  f 1=4  then  fl=5:load  "dloadn",8,1 

160  : 

170  rem  Vorbereitungen 

180  ba=57344:rem  bitmap-basisadresse 

190  br=0:rem  bereichsnuimer 

200  sys  5 0465, br: rem  bi tmap-bereich  festlegen  (hrmappos) 

210  sys  50493,0,1 : rem  färben  (hrcol) 

220  sys  49402,ba,ba+7999,0:rem  bitmap  loeschen  (myfill) 

230  zm=0:rem  Zeichenmodus 
240  : 

250  rem  mittelpunkt  und  radien  erfragen 
260  input  "mittelpunkt  (x-koordinate):  ";xm 
270  input  "mittelpunkt  (y-koordinate):  ";ym 
280  input  "horizontaler  radius:  ";hr 
290  input  "vertikaler  radius:  ";vr 
300  : 

310  rem  grafik  ein  (hron) 

320  sys  50545, br 
330  : 
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340  rem  ellipse/kreis  zeichnen 
350  for  wg=0  to  360: rem  winkelgrade 

360  wb=wg*3. 14/180: rem  unrechnung  in  bogenmaß  fuer  sin/cos 
370  x=xm+hr*cos(wb) 

380  y=ym»vr*sin(wb) 

390  sys  50625 ,x,y(zm: rem  hrplot 
400  next  wg 
410  : 

420  rem  auf  tastendruck  warten 
430  get  eg$:if  eg$=,,M  then  430 
440  : 

450  rem  grafik  aus  (hroff) 

460  sys  50589 
470  : 

480  print  chr$(147) 

490  input  "noch  einmal:  (j/n)";jn$ 

500  if  jn$="j"  then  260 
510  end 

Durch  Änderung  der  FOR-Anweisung  in  Programmzeile  350 
können  Sie  übrigens  auch  leicht  Ellipsenteile  zeichnen  lassen. 

350  for  wg=0  to  180:rem  winkelgrade 

beispielsweise  zeichnet  eine  halbe  Ellipse.  Zum  Zeichnen  eines 
Rechtecks  verwenden  wir  die  Routine  HRLINE.  Dabei  genügt 
die  Angabe  der  linken  oberen  und  der  rechten  unteren  Ecke  des 
Rechtecks: 

70  rem  rechtecke  zeichnen 
80  : 

90  : 

100  rem  maschinenprogramme  nach  laden 

110  if  f 1=0  then  fl=1:load  "hires-graf ik",8,1 

120  if  f 1=1  then  fl=2:load  "transfer",8,1 

130  if  f 1=2  then  fl=3:load  "myfill»,8,1 

140  if  f 1=3  then  fl=4:load  ,,dsavem",8f  1 

150  if  f 1=4  then  fl=5:load  "dloadm",8,1 

160  : 

170  rem  Vorbereitungen 

180  ba=57344:rem  bitmap-basisadresse 

190  br=0:rem  bereichsnummer 

200  sys  50465, br:rem  bitmap-bereich  festlegen  (hrmappos) 

210  sys  50493, 0,1:rem  färben  (hrcol) 

220  sys  49402, ba,ba+7999,0: rem  bitmap  loeschen  (myfill) 

230  zm=0:rem  Zeichenmodus 
240  : 

250  rem  eckpunkte  erfragen 

260  input  "linke  obere  ecke  (x-koordinate):  ";lx 
270  input  "linke  obere  ecke  (y-koordinate):  ";ly 


Die  Wunderwelt  der  Grafik 


593 


280  input  "rechte  untere  ecke  (x-koordinate):  ";rx 
290  input  "rechte  untere  ecke  (y-koordinate):  ";ry 
300  : 

310  rem  grafik  ein  (hron) 

320  sys  50545, br 
330  : 

340  rem  rechteck  zeichnen  (hrline) 

350  sys  50688, Ix, ly, rx, ly, zm: rem  oberer  teil 
360  sys  50688, rx, ly, rx,ry,zm:rem  rechter  teil 
370  sys  50688, Ix, ry,rx,ry,zm: rem  unterer  teil 
380  sys  50688, Ix, ly, lx,ry,zm:rem  linker  teil 
410  : 

420  rem  auf  tastendruck  warten 
430  get  eg$:if  eg*=""  then  430 
440  : 

450  rem  grafik  aus  (hroff) 

460  sys  50589 
470  : 

480  print  chr$(147) 

490  input  "noch  einmal:  (j/n)";jn$ 

500  if  jn$="j"  then  260 
510  end 

Wem  vier  Ecken  zu  wenig  sind,  sollte  einmal  das  folgende  Pro- 
gramm ausprobieren.  Es  zeichnet  Polygonzüge  beliebiger  Größe. 
Die  Eckkoordinaten  werden  dazu  in  DATA-Zeilen  abgelegt: 


70  rem  polygone  zeichnen 
80  : 

90  : 

100  rem  maschinenprogramne  nachladen 
110  if  f 1=0  then  fl=1:load  "hires-graf ik",8,1 
120  if  f 1=1  then  fl=2:load  "transfer",8,1 
130  if  f 1=2  then  fl=3:load  »myfill",8,1 
140  if  f 1=3  then  fl=4:load  »dsavem",8,1 
150  if  f 1=4  then  fl=5:load  "dloadn",8,1 
160  : 

170  rem  Vorbereitungen 

180  ba=57344:rem  bi tmap- bas isadr esse 

190  br=0:rem  bereichsnunmer 

200  sys  50465, br: rem  bi tmap- bereich  fest  legen  (hrmappos) 
210  sys  50493,0, Irrem  färben  (hrcol) 

220  sys  49402, ba,ba+ 7999,0: rem  bi tmap  loeschen  (myfill) 
230  zm=0:rem  Zeichenmodus 
240  : 

310  rem  grafik  ein  (hron) 

320  sys  50545, br 
330  : 

340  rem  polygon  zeichnen 
350  read  xa,ya:rem  startwert 
355  read  xe,ye 
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360  if  xe=-1  then  430 

365  sys  50688, xa,ya,xe,ye,zm:rem  (hrline) 

370  xa=xe:ya=ye 
380  goto  355 
410  : 

420  rem  auf  tastendruck  warten 
430  get  egirif  egS=""  then  430 
440  : 

450  rem  grafik  aus  (hroff) 

460  sys  50589 
510  end 
520  : 

530  : 

590  rem  eckkoordinaten  des  polygons 

600  data  10,10 

610  data  100,50 

600  data  300,180 

610  data  200,140 

600  data  50,190 

610  data  80,100 

600  data  10,10 

610  data  -1,-1:rem  endmarkierung 

Sehr  beliebt  ist  auch  die  grafische  Darstellung  von  Funktions- 
verläufen. Am  Beispiel  einer  Sinuskurve  möchte  ich  Ihnen  zei- 
gen, wie  so  etwas  aussehen  kann: 

70  rem  funkt ionsplotter 
80  : 

90  : 

100  rem  maschinenprogramme  nach laden 

110  if  f 1=0  then  fl=1:load  "hires-graf ik",8,1 

120  if  f 1=1  then  fl=2:load  ,,transfer",8,1 

130  if  fl=2  then  fl=3:load  "myfill,,,8,1 

140  if  f 1=3  then  fl=4:load  l,dsavem",8,1 

150  if  f 1=4  then  fl=5:load  ''dloadnf.S.I 

160  : 

170  rem  Vorbereitungen 

180  ba=57344:rem  bi tmap-basisadresse 

190  br=0:rem  bereichsnummer 

200  sys  50465, br:rem  bitmap-bereich  festlegen  (hrmappos) 

210  sys  50493,0, Irrem  färben  (hrcol) 

220  sys  49402, ba,ba+ 7999,0: rem  bitmap  loeschen  (myfill) 

230  zm=0:rem  Zeichenmodus 
240  : 

310  rem  grafik  ein  (hron) 

320  sys  50545, br 
330  : 

340  rem  x-achse  zeichnen 

350  sys  50688, 10, 100,310, 100, zmrrem  (hrline) 

355  : 
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360  rem  y-achse  zeichnen 

370  sys  50688, 160, 10, 160, 190, zm:rem  (hrline) 

375  : 

380  rem  sinuskurve 

390  for  x=10  to  310 

400  y=int(100-100*sin(x*3. 14/180)) 

405  sys  50625, x,y,zm:rem  hrplot 
410  next  x 
415  : 

420  rem  auf  tastendruck  warten 
430  get  eg$:if  eg$=""  then  430 
440  : 

450  rem  grafik  aus  (hroff) 

460  sys  50589 
470  end 


Zum  Schluß  noch  ein  Programm,  das  einen  sogenannten  Moiree- 
Effekt  erzeugt.  Lassen  Sie  sich  überraschen! 


70  rem  moiree-effekt 
80  : 

90  : 

100  rem  masch  i nenprog ramme  nach  laden 

110  if  f 1=0  then  fl=1:load  "hi res -grafik", 8,1 

120  if  f 1=1  then  fl=2:load  "transfer",8,1 

130  if  f 1=2  then  fl=3:load  »myfill",8,1 

140  if  f 1=3  then  fl=4:load  "dsavem",8,1 

150  if  f 1=4  then  fl=5:load  »dloadn",8,1 

160  : 

170  rem  Vorbereitungen 

180  ba=57344:rem  bitmap-basisadresse 

190  br=0:rem  bereichsnuimer 

200  sys  50465, br:rem  bi tmap- bereich  festlegen  (hrmappos) 
210  sys  50493, 0,1:rem  färben  (hrcol) 

220  sys  49402, ba,ba+ 7999,0: rem  bi tmap  loeschen  (myfill) 
230  zm=0:rem  Zeichenmodus 
240  : 

250  rem  grafik  ein  (hron) 

260  sys  50545,  br 
270  : 

280  rem  grafik  zeichnen 
290  x1=0:y1=0 
290  for  z=0  to  199  Step  10 
300  x2=z:y2=199 

310  sys  50688, x1,y1,x2,y2,zm:rem  (hrline) 

320  x2=199:y2=199-z 

330  sys  50688, x1,y1,x2,y2,zm: rem  (hrline) 

340  next  z 

350  x1=199:y1=199 

360  for  z=0  to  199  step  10 

370  x2=0:y2=199-z 

380  sys  50688, x1,y1,x2,y2,zm:rem  (hrline) 
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390  x2=z:y2=0 

400  sys  50688, x1,y1,x2,y2,zm:reni  (hrline) 
410  next  z 
415  : 

420  rem  auf  tastendruck  warten 
430  get  eg$:if  eg$=,,H  then  430 
440  : 

450  rem  grafik  aus  (hroff) 

460  sys  50589 
510  end 


6.3  Sprites 

Sprites  sind  kleine  Grafikobjekte,  die  unabhängig  von  der  Text- 
und  Grafikdarstellung  über  den  Bildschirm  bewegt  werden  kön- 
nen. Bis  zu  acht  Sprites  kann  der  Commodore  64  gleichzeitig 
darstellen.  All  das,  was  sich  in  Spielen  an  Raumschiffen, 
Männchen  und  sonstigen  Spielfiguren  am  Bildschirm  tummelt, 
sind  in  der  Regel  nichts  anderes  als  Sprites.  Aber  auch  der 
Mauszeiger  von  GEOS  wird  durch  ein  Sprite  dargestellt.  Sprites 
lassen  sich  also  durchaus  auch  in  "ernsthaften"  Programmen 
sinnvoll  einsetzen. 


6.3.1  Grundlagen 

Ein  einzelnes  Sprite  ist  aus  genau  24  mal  21  Einzelpunkten  auf- 
gebaut,  24  Punkte  in  der  Horizontalen  und  21  Punkte  in  der 
Vertikalen.  Um  ein  Sprite  zu  entwerfen,  benutzen  Sie  am  besten 
das  folgende  Punktraster: 


S p r i t e - 
entwurfs- 


raster 
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Jeder  Punkt  des  Rasters  entspricht  einem  Grafikpunkt  der  ge- 
setzt oder  gelöscht  sein  kann.  Ein  einfaches  Quadratmuster- 
Sprite  könnte  beispielsweise  so  aussehen: 


Wenn  Sie  das  Sprite  so  vielleicht  auf  ein  Blatt  Papier  gezeichnet 
haben,  kann  der  Commodore  64  natürlich  nichts  damit  anfangen. 
Wir  müssen  die  Sprite-Darstellung  für  ihn  mit  Zahlen  codieren. 

Dazu  werden  jeweils  acht  Punkte  einer  Zeile  zu  einem  Byte  zu- 
sammengefaßt. Jedes  der  acht  Bits  dieses  Bytes  repräsentiert 
einen  Grafikpunkt.  Ist  der  betreffende  Grafikpunkt  gelöscht, 
wird  das  zugehörige  Bit  auf  Null  gesetzt  ist  der  Grafikpunkt 
gesetzt,  erhält  das  Bit  den  Wert  eins. 

Da  eine  Sprite-Zeile  aus  24  Punkten  besteht,  benötigt  man  für 
jede  Zeile  3 Byte  zur  Codierung,  für  das  gesamte  Sprite  also  3 
mal  21  (Zeilen)  = 63  Byte.  Diese  63  Byte  "von  Hand"  zu  berech- 
nen ist  sehr  mühsam.  Etwas  weiter  unten  finden  Sie  deshalb 
einen  komfortablen  Sprite-Editor,  der  Ihnen  diese  Arbeit  kom- 
plett abnimmt. 

Die  Codezahlen  des  Sprites  müssen  nun  in  einem  Speicherbereich 
des  Commodore  64  abgelegt  werden,  dessen  Anfangsadresse 
durch  64  teilbar  ist.  Wenn  man  mit  dem  normalen  Textbild- 
schirm arbeitet,  verwendet  man  dazu  am  besten  den  sogenannten 
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"Kassettenpuffer"  von  Speicheradresse  828  bis  1.023.  Dort  lassen 
sich  in  den  Bereichen  832-895,  896-959  und  960-1.023  bis  zu 
drei  Sprites  unterbringen. 

Sie  dürfen  aber  auch  einen  anderen  Bereich  wählen,  etwa  "hin- 
ter" dem  geladenen  BASIC-Programm,  falls  dieses  nicht  zu  lang 
ist.  Hauptsache,  die  Startadresse  des  Speicherbereichs  ist  durch 
64  teilbar.  Damit  der  Commodore  64  weiß,  wo  Sie  die  Daten  ab- 
gelegt haben,  gibt  es  zu  jedem  der  acht  Sprites  einen  Zeiger,  den 
man  auf  den  Beginn  des  Speicherbereichs  setzen  muß.  Diese 
Zeiger  befinden  sich  hinter  dem  Bildschirmspeicher  von  Spei- 
cheradresse 2.040  bis  2.047.  Die  Zuordnung  zu  den  Sprites  ist 
wie  folgt: 

Sprite  1:  2040 
Sprite  2:  2041 
Sprite  3:  2042 
Sprite  4:  2043 
Sprite  5:  2044 
Sprite  6:  2045 
Sprite  7:  2046 
Sprite  8:  2047 

Nehmen  wir  einmal  an,  die  Sprite-Daten  wurden  ab  Spei- 
cheradresse 832  abgelegt  und  Sie  möchten,  daß  das  Sprite  5 in 
dieser  Darstellung  erscheinen  soll.  832  geteilt  durch  64  ergibt  13. 
Also  schreiben  wir  in  die  Speicherzelle  2.044  den  Wert  13.  Nun 
weiß  der  Rechner  also,  wie  das  Sprite  aussehen  soll.  Den  kom- 
pliziertesten Teil  des  Ganzen  haben  wir  damit  schon  hinter  uns. 

Um  das  Sprite  jetzt  einzuschalten,  es  an  eine  bestimmte  Bild- 
schirmposition zu  setzen  oder  ihm  eine  bestimmte  Farbe  zu  ge- 
ben, gibt  es  Register  im  VIC-II-Chip,  die  man  mit  entsprechen- 
den Werten  belegen  muß. 

Keine  Angst,  Sie  werden  sich  auch  bei  der  Sprite-Programmie- 
rung  nicht  mit  irgendwelchen  Register-Adressen  oder  -Positio- 
nen herumschlagen  müssen.  Ich  habe  für  Sie  wieder  eine  kleine 
Routinensammlung  geschrieben,  die  alle  Aspekte  der  Sprite-Pro- 
grammierung  abdeckt.  Bei  allen  Routinen  genügt  die  Angabe  der 
Nummer  (1-8)  des  anzusprechenden  Sprites. 
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390 

jsr 

* 

ID 

;spalte  einiesen 

400 

txa 

410 

beq 

crsl 

;=0,  dann  fehler 

420 

cpx 

#41 

; spalte  > 40? 

430 

bcs 

crsl 

;ja,  fehler 

440 

tay 

450 

dey 

460 

Idx 

zu 

;zeile 

470 

dex 

480 

clc 

;flag  fuer  'Cursor  setzen1 

490 

jmp 

SfffO 

; Cursor  setzen 

500 

$ 

502 

i 

504 

******************************************************** 

506 

• * 
$ 

* 

508 

:*  c ron/off  - 

Cursor 

ein-/ausschalten 

* 

510 

• * 
1 

* 

512 

;*  auf ruf 

: sys  49974 

(ein) 

* 

514 

.* 

i 

sys  49979 

(aus) 

* 

516 

.* 

* 

518 

******************************************************** 

520 

t 

580 

cron 

Ida 

#0 

;cursor  einschalten 

590 

sta 

$cc 

600 

rts 

; fertig! 

610 

» 

620 

croff 

Ida 

#1 

; Cursor  ausschalten 

630 

sta 

$cc 

640 

sei 

650 

Ida 

Scf 

; Cursor  in  blinkphase? 

660 

beq 

crf  1 

;nein 

670 

Ida 

See 

; Zeichen  unter  dem  Cursor 

680 

Idx 

$0287 

; färbe  unter  dem  Cursor 

690 

Idy 

#00 

700 

sty 

Scf 

; blinkphase  aus 

710 

jsr 

Seal  3 

; Zeichen  und  färbe  setzen 

720 

crf  1 

cli 

730 

rts 

.•fertig! 

Und  der  BASIC- Lader: 

100  rem  **************************************************** 
102  rem  * * 
104  rem  * prograimi:  Cursor  * 
106  rem  * programmlaenge:  68  bytes  * 
108  rem  * routinen  zur  cursor-steuerung  * 
110  rem  * * 
112  rem  **************************************************** 
114  rem  * * 
116  rem  * crset  - Cursor  positionieren  * 
118  rem  * * 
120  rem  * auf ruf:  sys  49934, ze,sp  * 
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122  rem  * 

124  rem  * 

126  rem  * 

128  rem  *' 

130  rem  * 

132  rem  * 

134  rem  * 

136  rem  * 

138  rem  * 

140  rem  * 

142  rem  *’ 

280  : 

290  : 

400  rem  *’ 

410  restore:zl=1000 

420  ad=49934 : rem  Startadresse  der  routine 
430  ps=0:z=0 

440  read  ut:if  wt=-1  then  print  "datas  ok!":end 

450  poke  ad,wt :ad=ad+1 :z=z+1 

460  ps=ps+wt : rem  pruefsuime 

470  if  z<10  then  440: rem  eine  zeile  lesen 

480  read  wt 

485  if  psowt  then  print  "data-fehler  in  zei le";zl;,,!":end 
490  zl=zl+10:goto  430 
500  : 

510  : 

990  rem  ***  datas  *** 

1000  data  32,253,174,32,158,183,138,208,3,76,1257 
1010  data  72,178,224,26,176,249,134,2,32,253,1346 
1020  data  174,32,158,183,138,240,238,224,41,176,1604 
1030  data  234,168,136,166,2,202,24,76,240,255,1503 
1040  data  169,0,133,204,96,169,1,133,204,120,1229 
1050  data  165,207,240,12,165,206,174,135,2,160,1466 
1060  data  0,132,207,32,19,234,88,96,0,0,808 
2000  data  -1:rem  endmark ierung 


ze:  zeile  (1-25) 
sp:  spalte  (1-40) 


cron/off  - Cursor  ein-/ausschalten  * 

* 

auf ruf:  sys  49974  (ein)  * 

sys  49979  (aus)  * 

* 

*************************************************** 


**  datas  einiesen  *** 


Haben  Sie  das  Programm  abgetippt  und  die  Routinen  als  Ma- 
schinenprogramm auf  der  Diskette  gespeichert?  Gut,  denn  nur 
so  können  Sie  den  Sprite-Editor  nutzen. 

Die  Bedienung  des  Sprite-Editors  ist  schnell  erklärt.  Die  63  Byte 
umfassenden  Daten  eines  Sprites  werden  jeweils  in  der  String- 
Variablen  MT$  abgelegt.  Von  dort  können  sie  später  leicht  wei- 
terverarbeitet werden.  Außerdem  haben  Sie  dadurch  die  Mög- 
lichkeit, ein  einmal  entworfenes  und  berechnetes  Sprite  jederzeit 
wieder  abändern  zu  können. 
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Daraus  ergeben  sich  auch  die  beiden  Aufrufvarianten  für  den 
Editor,  der  als  Unterprogramm  gestaltet  ist. 

In  den  meisten  Fällen  werden  Sie  ein  neues  Sprite  entwerfen 
wollen.  Dazu  rufen  Sie  den  Editor  (vom  Hauptprogramm  aus) 
mit  einem 

GOSUB  1250 

auf.  Die  berechneten  Sprite-Daten  befinden  sich  anschließend  in 
der  Variablen  MT$.  Wenn  Sie  diese  Daten  vielleicht  später  ein- 
mal als  Grundlage  für  einen  anderen  Sprite-Entwurf  benutzen 
wollen,  empfiehlt  es  sich,  sie  in  einer  sequentiellen  Datei  auf 
Diskette  zu  sichern.  Das  geht  sehr  leicht: 

OPEN  2,8,2,"SPRITE,S,U":PRINT#2,MT*:CLOSE  2 

schreibt  die  Sprite-Daten  in  die  Datei  SPRITE.  Natürlich  können 
Sie  in  einer  Datei  auch  die  Daten  für  mehrere  Sprites  hinter- 
einander ablegen.  Um  vorhandene  Sprite-Entwürfe  verwenden 
zu  können,  gibt  es  die  zweite  Aufruf  Variante  des  Editors: 

GOSUB  1100 

erwartet  die  darzustellenden  Sprite-Daten  in  der  Variablen  MT$. 
Nachdem  der  Editor  gestartet  wurde  und  er  das  Sprite-Ent- 
wurfsraster,  auch  "Sprite-Matrix"  genannt,  auf  den  Bildschirm 
gezeichnet  hat,  blinkt  der  Cursor  in  der  linken  oberen  Ecke  des 
Bildschirms.  Nun  stehen  Ihnen  die  folgenden  Funktionen  zur 
Verfügung: 

< Cursor  right>-Taste 

Bewegt  den  Cursor  um  eine  Position  nach  rechts. 

<Cursor  left>-Taste 

Bewegt  den  Cursor  um  eine  Position  nach  links. 
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<Cursor  down> -Taste 

Bewegt  den  Cursor  um  eine  Position  nach  unten. 
<Cursor  up>-Taste 

Bewegt  den  Cursor  um  eine  Position  nach  oben. 
<F1>-Taste 

Setzt  an  der  aktuellen  Cursor-Position  einen  Punkt. 
<F3>-Taste 

Löscht  den  Punkt  an  der  aktuellen  Cursor-Position. 


<F7  > -Taste 

Beendet  die  Eingabe  und  berechnet  die  Sprite-Daten. 


<F8>-Taste 

Beendet  die  Eingabe  und  bricht  das  Programm  ab. 

Die  Cursor-Steuerung  erkennt  übrigens  die  Grenzen  des  Sprite- 
Rasters.  Am  Ende  einer  Zeile  beispielsweise  wechselt  sie  auto- 
matisch an  den  Beginn  der  nächsten  Zeile.  Die  Cursor-Steue- 
rung, die  in  den  Programmzeilen  1.300  bis  1.520  realisiert  ist, 
stellt  sozusagen  einen  "verkleinerten"  BASIC-Eingabe-Editor  dar 
und  läßt  sich  auch  leicht  für  andere  Zwecke,  etwa  für  eine 
mehrzeilige  Eingabe  in  ein  Datenfeld  einer  Dateiverwaltung, 
einsetzen.  Das  aber  nur  als  kleiner  Programmiertip  am  Rande. 

100  rem  **************************************************** 

105  rem  * * 

110  rem  * programm:  sprite-edit  * 

115  rem  * editor  zum  entwerfen  von  sprites  * 

120  rem  * * 

1 25  rem  **************************************************** 

130  : 

135  : 

HO  rem  ***  maschinenprogramm  nachladen  ******************** 

145  if  f 1=0  then  fl=1:load  "Cursor", 8,1 
150  : 
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155  rem  ***  vorhandene  matrix  darstellen  und  veraendern?  ** 

160  rem  ***  --->  gosub  1100  (matrix  in  mt$)  ** 

165  rem  ***  ** 

170  rem  ***  neue  matrix  definieren?  ** 

175  rem  ***  — > gosub  1250  (matrix  befindet  sich  ** 

180  rem  ***  anschliessend  in  mt$)  ** 

190  : 

200  rem  ***  gewuenschten  auf ruf  hier  einfuegen!  ************ 

210  gosub  

220  : 

230  : 

1060  rem  ***  matrix  darstellen  ***************************** 
1100  print  chr$(147) 

1105  sw=peek(648)*256:rem  home-position=matrixanfang 
1110  for  z1=0  to  60  Step  3 
1115  for  z2=0  to  2 
1120  aw=asc(mid$(mt$,z1+z2+1,1)) 

1125  for  z3=0  to  7 
1130  aw=aw/2 

1140  if  aw=int(aw)  then  pw=46:goto  1150 
1145  pu=160 

1150  poke  SH+z1/3*40+z2*8+7-z3,pw:aw=int(aw) 

1160  next  z3 
1170  next  z2 
1180  next  zl 

1190  goto  1300:rem  zur  matrixeingabesteuerung 
1200  : 

1220  rem  ***  matrix  definieren  ***************************** 
1250  print  chr$(147):rem  rasterfeld  zeichnen 
1255  sw=peek(648>*256 
1260  for  z1=0  to  20 

1270  hv=sw+z1*40:for  z2=0  to  23:poke  hv+z2,46:next  z2 
1280  next  zl 
1290  : 

1295  rem  ***  einQsbesteuerunQ  ****************************** 

1300  h=sw-peek(648)*256:rem  Startposition 

1310  pz=int(h/40)+1 :ps=h-(pz-1 )*40+1 

1320  ze=pz:sp=ps:rem  Cursor  in  Startposition 

1330  sys  49934, ze,sp: sys  49974: rem  Cursor  setzen  und  ein 

1335  poke  198,0:wait  198,1:get  eg$:sys  49979:  rem  Cursor  aus 

1340  eg=asc(eg$):rem  aktuelle  eingabe 

1350  if  not(eg=29)  then  1380: rem  Cursor  right 

1360  if  not(sp=ps+23)  then  sp=sp*1:goto  1330 

1370  if  not(ze=pz+20)  then  sp=ps:ze=ze+1 :goto  1330 

1380  if  not(eg=157)  then  1420: rem  Cursor  left 

1390  if  not(sp=ps)  then  sp=sp-1:goto  1330 

1400  if  not(ze=pz)  then  sp=ps+23:ze=ze-1 :goto  1330 

1420  if  not(eg=17)  then  1440:rem  Cursor  down 

1430  if  not(ze=pz+20)  then  ze=ze+1 :goto  1330 

1440  if  not(eg=145)  then  1460:rem  Cursor  up 

1450  if  not(ze=pz)  then  ze=ze-1:goto  1330 

1460  if  not(eg=133)  then  1480: rem  fispunkt  setzen 

1465  poke  peek(648)*256+40*(ze-1)+sp- 1,160 
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1470  if  not(sp=ps+23)  then  sp=sp+1  :goto  1330 
1475  if  not(ze=pz+20)  then  sp=ps:ze=ze+1 :goto  1330 
1480  if  not(eg=134)  then  1500: rem  f3=punkt  loeschen 
1485  poke  peek(648)*256+40*(ze-1 )+sp-1 ,46 
1490  if  not(sp=ps+23)  then  sp=sp*1 : goto  1330 
1495  if  not(ze=pz+20)  then  sp=ps:ze=ze+1 :goto  1330 
1500  if  eg=136  then  1580:rem  f7=matrix  uebernehmen 
1510  if  eg=140  then  end:rem  f8=abbruch 
1520  goto  1330 
1550  : 

1570  rem  ***  matrix  uebernehmen  **************************** 

1580  sw=peek ( 648)*256 : aw=0 : mt$="" 

1590  for  z1=0  to  60  Step  3 
1600  for  z2=0  to  2 
1610  for  z3=0  to  7 
1620  pw=peek(sw+z1/3*40+z2*8+z3) 

1630  if  pw=160  then  aw=aw+2'(7-z3) 

1640  next  z3 

1650  mtl=mt$+chr$(aw) :aw=0 
1660  next  z2 
1670  next  zl 
1680  : 

1690  returmrem  fertig! 

Alles  abgetippt  und  abgespeichert?  Gut,  dann  entwerfen  Sie  jetzt 
doch  einmal  mindestens  zwei  Sprites,  damit  Sie  nachher  etwas 
zum  Experimentieren  haben. 


Vielleicht  rätseln  Sie  im  Augenblick  noch  etwas,  wie  Sie  das 
Hauptprogramm  des  Editors  gestalten  sollen.  Deshalb  eine  kleine 
Anregung: 

210  print  "neues  sprite  entwerfen  : -1-" 

220  print  "altes  sprite  darstellen:  -2-" 

230  input  "ihre  wähl  (1,2):  ";wl 

240  if  wl<1  and  wl>2  then  210:rem  falsche  eingabe 

245  : 

250  if  wl=2  then  330 
260  rem  neues  sprite 
270  gosub  1250 
280  print  chr$(147) 

290  input  "name  des  sprites:  ";sm$ 

300  open  2,8,2,sm$+",s,w":print#2,mt$:close  2 
310  : 

320  rem  altes  sprites 
330  print  chr$(147) 

340  input  "name  des  sprites:  ";sm$ 

350  open  2,8,2,sm$+",s,r":input#2,mt$:close  2 
360  gosub  1100 

370  open  15,8,15,"s:"+smS:close  15 
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380  open  2,8,2,smS+",s,w":print#2,mt$:close  2 
390  end 

Das  Programm  fragt  Sie,  ob  Sie  ein  neues  Sprite  entwerfen  oder 
ein  altes  Sprite  darstellen  und  verändern  wollen.  Ein  neues  Sprite 
wird  anschließend  unter  dem  erfragten  Namen  auf  Diskette  ab- 
gelegt. 

Im  zweiten  Fall  möchte  das  Programm  wissen,  unter  welchem 
Namen  das  Sprite  auf  Diskette  gespeichert  ist.  Zum  Schluß  wird 
es  dann  unter  demselben  Namen  wieder  auf  die  Diskette  zurück- 
geschrieben. Natürlich  können  Sie  das  Hauptprogramm  aber  auch 
ganz  anders  gestalten.  Aus  diesem  Grund  habe  ich  es  weiter 
oben  bewußt  weggelassen. 


Zum  Ausprobieren  der  nun  folgenden  Routinen  sollten  Sie,  wie 
gesagt,  über  mindestens  zwei  Sprites  verfügen,  die  Sie  ganz  nach 
Belieben  entwerfen  können.  Am  Ende  des  Abschnitts  finden  Sie 
wieder  einen  BASIC-Lader  zu  allen  Maschinensprache-Routinen. 
Ein  kleiner  Tip:  Wenn  Sie  den  BASIC-Lader  eingeben  möchten, 
dann  tun  Sie  das  am  besten  jetzt  gleich.  Anschließend  lesen  Sie 
die  folgenden  Erklärungen  durch  und  können  dann  am  Rechner 
alles  gleich  praktisch  ausprobieren.  Das  Assembler-Listing: 

i oo  . ******************************************************* 

105  ;*  * 

110  ;*  Programm:  sprites  * 

120  ;*  rout inen  zur  spriteprogrammierung  * 

140  ;*  * 

150  • ******************************************************* 

200  ; 

205  ; 

210  ,ba  51165  ;***  Startadresse  *** 

220  ; 

230  ; 

240  ;***  labels  ******************************************** 

250  .gl  zw  = 2 ; Zwischenspeicher 

260  .gl  zpl  = 251 

260  .gl  zp2  = 252 

260  .gl  zp3  = 253 

260  .gl  zp4  = 254 

270  ; 

272  ; 

274  . ******************************************************* 

276  ;*  * 

278  ;*  spdesign  - aussehen  eines  sprites  festlegen  * 
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280  ;*  * 

282  ;*  auf ruf:  sys  51165,bl,da$  * 

284  ;*  bl:  blocknuimer  (speicherstartadresse/64)  * 

286  ;*  da$:  string  mit  sprite-daten  (63  byte)  * 

288  ;*  * 

290  * ******************************************************* 
300  ; 


350  spdesign 

jsr  Saefd 

;auf  komma  testen 

360 

jsr  blumw 

;blocknunmer  holen 

370 

jsr  Saefd 

;auf  komma  testen 

380 

jsr  Sad9e 

;datenstring  holen 

390 

jsr  Sb6a3 

400 

cmp  #63 

;laenge=63  byte? 

410 

beq  spdl 

»ja,  ok 

420 

jmp  Sb248 

;r»ein,  fehler 

430  spdl 

jsr  ramkon 

;auf  ram  unschalten 

440 

Idy  #0 

450  spd2 

Ida  ($22), y 

;daten  im  Speicher 

460 

sta  ($14), y 

; ab legen 

470 

iny 

480 

cpy  #63 

490 

bne  spd2 

500 

jmp  orgkort 

;auf  rom  zurueckschalten 

SPDESIGN  legt  die  in  MT$  oder  einer  anderen  String-Variablen 
gespeicherten  Sprite-Daten  in  dem  angegebenen  Speicherbereich 
ab.  Bitte  beachten  Sie,  daß  MTS  genau  63  Byte  groß  sein  muß. 
Ansonsten  erhalten  Sie  eine  Fehlermeldung. 

SYS  51165, 13, MTS 


legt  die  Daten  Ihres  einen  Sprites  im  Speicher  von  Adresse  832 
(13*64)  bis  895  ab. 

SYS  51165, 14, MTS 


legt  die  Daten  des  anderen  Sprites  von  Adresse  896  bis  959  ab. 
Mit  Hilfe  der  folgenden  Routinen  läßt  sich  die  Sprite-Darstel- 
lung  auch  dann  noch  manipulieren,  wenn  Sie  die  Daten  bereits 
im  Speicher  abgelegt  haben: 


510  ; 

520  ; 

522  -ft****************************************************** 

524  ;*  * 

526  ;*  spclr  - spriteblock  loeschen  * 

528  ;*  * 

530  ;*  aufruf:  sys  51204, bl  * 
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532  ;* 

bl:  blocknunner  (speicherstartadresse/64) 

* 

534  ;* 

* 

536  ;****’ 

***** 

540  ; 

560  spclr 

jsr  $aefd  ;auf  konma  testen 

570 

jsr  blunu  , -blocknunner  holen 

580 

Idy  #0  ;datenblock  loeschen 

590 

tya 

600  spei 

sta  ($14), y 

610 

iny 

620 

cpy  #63 

630 

bne  spei 

640 

rts  ;fertigl 

650  ; 

660  ; 

££?  ' ******************************************************* 

664  ;* 

* 

666  ;*  spinv  - spriteblock  invertieren 

* 

668  ;* 

* 

670  ;*  aufruf:  sys  51221, bl 

* 

672  ;* 

bl:  blocknunner  (speicherstartadresse/64) 

* 

674  ;* 

* 

. ******************************************************* 

680  ; 

700  spinv 

jsr  Saefd  ;auf  komna  testen 

710 

jsr  blunu  ;blocknumner  holen 

720 

jsr  ramkon  ;auf  ram  unschal ten 

730 

Idy  #0  ;datenblock  invertieren 

740  spil 

Ida  ($14), y ;byte  holen 

750 

eor  #$ff  ;konplementaerwert  bilden 

760 

sta  ($14), y 

770 

iny 

780 

cpy  #63 

790 

bne  spil 

800 

jmp  orgkon  ;auf  rom  zurueckschalten 

810  ; 

820  ; 

822  * ******************************************************* 

824  ;* 

* 

826  ;*  spmove  - spriteblock  verschieben 

* 

828  ;* 

* 

830  ;*  aufruf:  sys  51246, bl, b2 

* 

832  ;* 

bl:  nunmer  des  ausgangsblocks 

* 

834  ;* 

b2:  numner  des  zielblocks 

* 

836  ;* 

* 

******************************************************** 

840  ; 

860  spmove  jsr  $aefd  ;auf  komna  testen 

870 

jsr  gtbl2  ;blocknuimern  holen 

880 

Ida  zp3  ; zeiger  umspeichern 

890 

Idy  zp4 

900 

sta  $22 

910 

sty  $23 
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920 

jmp  spdl 

;zur  spdesign-routine 

930  ; 

940  ; 

942  • ******************************************************* 

944  ;* 

* 

946  ;* 

spchange  - spriteblocks  vertauschen 

* 

948  ;* 

* 

950  ;* 

aufruf:  sys  5 1263, bl 

,b2 

* 

952  ;* 

b1,b2:  nunnern  der 

zu  vertauschenden  blocks 

* 

954  ;* 

* 

956  rem  ******************* 

***************************** 

**** 

960  ; 

980  spchange  jsr  $aefd 

;auf  konna  testen 

990 

jsr  gtbl2 

;blocknunnern  holen 

1000 

jsr  ramkon 

;auf  ram  umschatten 

1010 

Idy  #0 

,‘datenblocks  austauschen 

1020  spchl  Ida  (zp3),y 

1030 

tax 

1040 

Ida  ($14), y 

1050 

sta  (zp3),y 

1060 

txa 

1070 

sta  ($14), y 

1080 

iny 

1090 

cpy  #63 

1100 

bne  spchl 

1110 

jmp  orgkon 

;auf  rom  zurueckschalten 

1120  ; 

1130  ; 

1134  ;*  * 

1136  ;*  spand  - spriteblocks  und-verknuepfen  * 

1138  ;*  * 

1140  ;*  aufruf:  sys  51292, bl, b2  * 

1142  ;*  b1,b2:  nunmern  der  zu  verknuepfenden  blocks  * 

1144  ;*  (ergebnis  könnt  nach  bl)  * 

1146  ;*  * 

1148  ******************************************************* 
1150  ; 


1170  spand 

jsr  Saefd 

;auf  komma  testen 

1180 

jsr  gtbl2 

;blocknummem  holen 

1190 

jsr  ramkon 

;auf  ram  umschalten 

1200 

Idy  #0 

;datenblocks  und-verknuepfen 

1210  spal 

Ida  (zp3),y 

1220 

and  ($14), y 

1230 

sta  (zp3),y 

1240 

iny 

1250 

cpy  #63 

1260 

bne  spal 

1270 

jmp  orgkon 

;auf  rom  zurueckschalten 

1280  ; 

1290  ; 

1 292  ******************************************************* 

1294  ;* 

* 
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1296  ;*  spor  - spriteblocks  oder-verknuepfen  * 
1298  ;*  * 
1300  ;*  auf ruf:  sys  51317,b1,b2  * 
1302  ;*  b1,b2:  nwmern  der  zu  verknuepfenden  blocks  * 
1304  ;*  (ergebnis  kommt  nach  bl)  * 
1306  ;*  * 
1 308  * ****************************************************** 
1310  ; 


1330  spor 

jsr  Saefd 

;auf  kcxima  testen 

1340 

jsr  gtbl2 

;blocknuntiern  holen 

1350 

jsr  ramkon 

;auf  ram  umschalten 

1360 

Idy  #0 

1370  spol 

Ida  (zp3),y 

;datenblocks  or-verknuepfen 

1380 

ora  ($14), y 

1390 

sta  (zp3),y 

1400 

iny 

1410 

cpy  #63 

1420 

bne  spol 

1430 

jmp  orgkon 

;auf  rom  zurueckschalten 

1440  ; 

1450  ; 

1/52  «fr***************************************************** 

1454  ;* 

* 

1456  ;*  speor 

- spriteblocks  exclusiv-oder-verknuepfen 

* 

1458  ;* 

* 

1460  ;*  auf ruf:  sys  51342, 

b1,b2 

* 

1462  ;*  b1,b2:  nunmern  der  zu  verknuepfenden  blocks 

* 

1464  ;* 

(ergebnis 

kommt  nach  bl) 

* 

1466  ;* 

* 

1468  ******************************************************* 

1470  ; 

1490  speor 

jsr  Saefd 

;auf  koiima  testen 

1500 

jsr  gtbl2 

;blocknunmern  holen 

1510 

jsr  ramkon 

;auf  ram  imschalten 

1520 

Idy  #0 

;datenblocks  eor-verknuepfen 

1530  spei 

Ida  (zp3),y 

1540 

eor  ($14), y 

1550 

sta  (zp3),y 

1560 

iny 

1570 

cpy  #63 

1580 

bne  spei 

1590 

jmp  orgkon 

;auf  rom  zurueckschalten 

Mit  Beispielen  möchte  ich  noch  etwas  warten,  da  Sie  sich  diese 

ja  im  Moment  noch  nicht  am  Bildschirm  anschauen  können.  Die 
folgende  Routine  SPBLOCK  setzt  die  eingangs  erwähnten  Zeiger 
auf  die  mit  SPDESIGN  abgelegten  Sprite-Daten. 
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1600  ; 


1610 

1612 

1614 

1616 

1618 

1620 

1622 

1624 

1626 

1628 

1630 


******************************************************* 

I 

.*  * 

I 

;*  spblock  - ordnet  sprite  einen  datenblock  zu  * 

.*  * 

9 

;*  aufruf:  sys  51367,sc,nr,bl  * 

;*  sc:  screennummer  <spei'cherstartadresse/1024)  * 

;*  nr:  spritenunmer  (1-8)  * 

;*  bl:  blocknummer  (speicherstartadresse/64)  * 

.*  * 


1640  ; 

1650  spblock 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 


jsr  Saefd 
jsr  scrber 
jsr  Saefd 
jsr  gtsnr 
jsr  Saefd 
jsr  gtblpar 
tya 

Idy  zw 

sta  (zp3),y 

rts 


;auf  könne  testen 
;screennr.  holen 
;auf  könne  testen 
; spritenunmer  holen 
;auf  könne  testen 
;blocknunmer  holen 
;low-byte  in  akku 
; zeiger  auf  register 

; fertig! 


Bei  SPBLOCK  taucht  ein  Parameter  auf,  den  ich  bisher  noch 
nicht  besprochen  habe,  die  "Screen-Nummer".  Damit  ist  die 
Nummer  bzw.  die  Startadresse  des  Bildschirmspeichers  gemeint. 
Wie  ich  Ihnen  zu  Beginn  des  Kapitels  erklärt  habe,  liegt  der 
Bildschirmspeicher  normalerweise  von  Speicheradresse  1024  bis 
2023.  In  diesem  Fall  müssen  sie  als  Screen-Nummer  eine  1 
(1024/1024)  angeben. 


Die  mit  MBDESIGN  in  den  Blöcken  13  und  14  abgelegten  Daten 
Ihrer  beiden  Sprites  weisen  Sie  mit 

SYS  51367,1,1,13 
SYS  51367,1,2,14 

den  Sprites  1 und  2 zu.  Der  Bildschirmspeicher  läßt  sich  jedoch 
auch  verschieben.  Wenn  Sie  beispielsweise  mit  den  Hires-Routi- 
nen  aus  dem  letzten  Abschnitt  arbeiten  und  den  Bitmap-Bereich 
0 gewählt  haben,  befindet  sich  der  Bildschirmspeicher  der  Ad- 
resse 52.224  bis  53.223.  Als  Screen-Nummer  bei  SPBLOCK  müs- 
sen Sie  deshalb  eine  51  (52224/1024)  angeben. 
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Außerdem  müssen  Sie  die  Sprite-Daten  dann  im  Speicher  ir- 
gendwo zwischen  der  Adresse  49.152  und  65.535  ablegen,  da 
sich  der  Bildschirmspeicher  und  die  Sprite-Daten  immer  in 
demselben  16-KByte-Speicherbereich  befinden  müssen.  Um 
Kollisionen  mit  den  Maschinensprache-Routinen  aus  den  ande- 
ren und  diesem  Kapitel  zu  vermeiden,  empfiehlt  sich  der  Be- 
reich direkt  vor  dem  Bildschirmspeicher,  beispielsweise 

Block  812:  51968-52031 
Block  813:  52032-52095 
Block  814:  52096-52159 
Block  815:  52160-52223 


Mit  den  folgenden  Routinen  werden  die  "Sprite-Farben"  festge- 
legt. Ähnlich  wie  bei  der  hochauflösenden  Grafik  haben  Sie  da- 
bei die  Auswahl  zwischen  zwei  Farbmodi: 


1750 

1760 

1762 


1764  ;*  * 

1766  ;*  spmode  - farbmodus  fest  legen  * 

1768  ;*  * 

1770  ;*  aufruf:  sys  51391, nr,md  * 

1772  ;*  nr:  spritenuimer  (1-8)  * 

1774  ;*  md:  0 = einfarbmodus,  1 = mehrfarbmodus  * 

1776  ;*  * 

1 778  * ****************************************************** 
1780  ; 

1800  spmode  Ida  #<(53276)  ;register- Adresse 

1810  Idy  #>(53276) 

1820  jmp  flelsn  ;zun  gemeinsamen  teil 

1830  ; 

1840  ; 


1 842  * ****************************************************** 
1844  ;*  * 


1846  ;*  spcol  - spritefarben  festlegen 
1848  ;* 

1850  ;*  aufruf:  sys  51398, nr,fc 
1852  ;*  nr:  spritenummer  (1-8) 

1854  ;*  fc:  farbcode  (0-15) 

1856  ;* 


^ 35g  . ****************************************************** 
1860  ; 


1890  spcol 

1900 

1910 

1920 

1930 


jsr  Baefd 
jsr  gtsnr 
jsr  Saefd 
jsr  $b79e 
txa 


;auf  konma  testen 
;spritenuniner  holen 
;auf  konma  testen 
; farbcode  holen 
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1940 

Idy  zw 

; zeiger  auf  register 

1950 

sta  53287,  y 

; farbcode  speichern 

1960 

rts 

;fertig! 

1970  ; 

1980  ; 

1 982  * ****************************************************** 

1984  ;* 

* 

1986  ;* 

spexcol  - zusatzfarben  fuer  mehrfarbmodus 

* 

1988  ;* 

* 

1990  ;* 

aufruf:  sys  51417, fl , 

f2 

* 

1992  ;* 

fl:  farbcode  fuer 

bit-kombination  '01' 

* 

1994  ;* 

f2:  farbcode  fuer 

bit-kombination  '11' 

* 

1996  ;* 

* 

1998  ;** 

r ********** *********** 

**************************1 

Ir**** 

2000  ; 

2020  spexcol  jsr  Saefd 

;auf  komma  testen 

2030 

jsr  $b79e 

;1.  farbcode  holen 

2040 

stx  53285 

;ins  register  schreiben 

2050 

jsr  Saefd 

;auf  komma  testen 

2060 

jsr  $b79e 

;2.  farbcode  holen 

2070 

stx  53286 

2080 

rts 

.•fertig! 

Der  Einfarbmodus  dürfte  klar  sein.  Dort,  wo  Sie  bei  der  Sprite- 
Definition  einen  Punkt  gesetzt  haben,  erscheint  dieser  in  der 
Farbe,  die  Sie  mit  SPCOL  einstellen.  An  allen  anderen  Stellen 
scheint  die  Hintergrundfarbe  durch.  Im  Mehrfarbmodus  haben 
Sie  die  Auswahl  zwischen  vier  Farben.  Dazu  werden  jeweils 
zwei  Bits  der  Sprite-Matrix  zusammengefaßt.  Die  horizontale 
Auflösung  der  Sprites  halbiert  sich  daher  von  24  Punkten  auf  12. 
Wenn  man  zwei  Bits  hat,  ergeben  sich  vier  Kombinationsmög- 
lichkeiten: "00",  "01",  "10"  und  "11".  Jeder  dieser  Bit-Kombina- 
tionen wird  eine  Farbe  zugeordnet: 

00:  Hintergrundfarbe 
01:  Farbe  Fl  bei  SPEXCOL 
10:  Mit  SPCOL  festgelegte  Farbe 
11:  Farbe  F2  bei  SPEXCOL 

Die  Wahl  zwischen  Einfarb-  und  Mehrfarbmodus  kann  für  jedes 
Sprite  einzeln  getroffen  werden.  Die  beiden  mit  SPEXCOL  fest- 
gelegten Zusatzfarben  gelten  jedoch  für  alle  Mehrfarb-Sprites. 
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2090  ; 

2100  ; 

2102  ;****************************************************** 

2104  ;*  * 

2106  ;*  spprior  * spri te-hintergrund-priori taet  * 

2108  ;*  * 

2110  ;*  auf ruf:  sys  51436,nr,pr  * 

2112  ;*  nr:  spritenunmer  (1-8)  * 

2114  ;*  pr:  0 = spriteprioritaet,  1 = hintergrundpr.  * 

2116  ;*  * 

21 18  ******************************************************* 
2120  | 

2140  spprior  Ida  #<(53275)  ;register-Adresse 
2150  Idy  #>(53275) 

2160  jmp  flelsn  ;zum  gemeinsamen  teil 


Da  die  Sprites  ja  völlig  unabhängig  von  der  normalen  Bild- 
schirmdarstellung erzeugt  werden  und  bis  zu  acht  Sprites 
gleichzeitig  dargestellt  werden  können,  stellt  sich  bei  Überlap- 
pungen zwischen  mehreren  Sprites  einerseits  und  einem  Sprite 
und  dem  Hintergrund  (also  dem  Text-  oder  Grafikbildschirm) 
andererseits  die  Frage  der  Priorität.  Soll  beispielsweise  ein  Sprite 
vom  Hintergrund  verdeckt  werden  oder  umgekehrt? 


Bei  den  Sprites  selbst  sind  die  Prioritäten  vordefiniert.  Sprites 
mit  höherer  Nummer  verdecken  bei  Überlappung  Sprites  mit 
niederer  Nummer.  Das  Sprite  1 "verschwindet"  also  hinter  allen 
anderen  Sprites,  das  Sprite  2 nur  hinter  den  Sprite  3 bis  8 usw... 

Die  Sprite-/Hintergrundpriorität  läßt  sich  für  jedes  einzelne 
Sprite  frei  definieren.  Eine  0 bei  SPPRIOR  bewirkt,  daß  das 
betreffende  Sprite  bei  Überlappung  den  Hintergrund  verdeckt. 
Eine  1 hat  zur  Folge,  daß  das  Sprite  hinter  dem  Hintergrund 
verschwindet. 


2170  ; 

2180  ; 

2182  ******************************************************* 
2184  ;*  * 

2186  ;*  spxsize  - spritegroesse  in  x-richtung  * 

2188  ;*  * 

2190  ;*  auf ruf:  sys  51443, nr,md  * 

2192  ;*  nr:  spritenummer  (1-8)  * 

2194  ;*  md:  0 = normal,  1 = doppelte  groesse  * 

2196  ;*  * 

2198  ; ****************************************************** 
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2200 

2230 

2240 

2250 

2260 

2270 

2272 

2274 

2276 

2278 

2280 

2282 

2284 

2286 

2288 

2290 

2310 

2320 

2330 


« 

spxsize  Ida  #<(53277)  ;register-adresse 

tdy  #>(53277) 

jmp  flelsn  ;zim  gemeinsamen  teil 


. ****************************************************** 

.*  * 

;*  spysize  - spritegroesse  in  y-richtung  * 

.*  * 

* 


;*  aufruf:  sys  51450,nr,md 
;*  nr:  spritenunner  (1-8) 

;*  md:  0 = normal,  1 = doppelte  groesse 

.* 


spysize  Ida  #<(53271)  ;register-adresse 
Idy  #>(53271) 

jmp  flelsn  ;zum  gemeinsamen  teil 


Jedes  Sprite  kann  in  vier  verschiedenen  Größen  dargestellt  wer- 
den, die  mit  SPXSIZE  und  SPYSIZE  eingestellt  werden: 


Vertikal  (Y):  normal 
Vertikal  (Y):  normal 
Vertikal  (Y):  doppelt  groß 
Vertikal  (Y):  doppelt  groß 


Horizontal  (X):  normal 
Horizontal  (X):  doppelt  groß 
Horizontal  (X):  normal 
Horizontal  (X):  doppelt  groß 
2340  ; 

2350  ; 

2352  ' ****************************************************** 
2354  ;*  * 

2356  ;*  spsetpos  - sprite  positionieren  * 

2358  ;*  * 

2360  ;*  aufruf:  sys  51457,nr,x,y  * 


2362  ;* 

nr:  spritenummer 

(1-8) 

* 

2364  ;* 

x:  x-koordinate 

(0-511) 

* 

2366  ;* 

y:  y-koordinate 

(0-255) 

* 

2368  ;*  * 

2370  ******************************************************* 

2380  ; 

2390  spsetpos  jsr  $aefd 

;auf  komma  testen 

2400 

jsr  gtsnr 

.-spritenummer  holen 

2410 

jsr  Saefd 

;auf  konma  testen 

2420 

jsr  $ad8a 

;x-koordinate  holen 

2430 

jsr  $b7f7 

;nach  integer  uandeln 

2440 

cmp  #2 

;high-byte>1? 

2450 

bcc  spspl 

;nein,  ok 

2460 

jmp  $b248 

;ja,  fehler 

2470  spspl 

2480 

2490 

sty  zp3 
sta  zp4 
jsr  $aefd 

;auf  komma  testen 

2500 

jsr  $b79e 

;y-koordinate  holen 
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2510 

Ida 

zw 

2520 

asl 

2530 

tay 

2540 

txa 

2550 

sta 

53249, y 

2560 

Ida 

zp3 

2570 

sta 

53248, y 

2580 

jsr 

rgbber 

2590 

Idx 

zp4 

2600 

Ida 

#<(53264) 

2610 

tdy 

#>(53264) 

2620 

sta 

zp3 

2630 

sty 

zp4 

2640 

jmp 

f lelsn2 

;spritenunner 

;*2 

;y- koord. 

;in  reg i ster  ablegen 
;x-koord.  (low) 

;register-pos.  fuer  x- koord. 
;x-koord.  (high) 

; regi ster- adresse 


;zum  gemeinsamen  teil 


Wenn  Sie  sich  erinnern,  bei  der  hochauflösenden  Grafik  hatten 
wir  eine  Auflösung  von  320  mal  200  Punkten.  Das  Koordina- 
tensystem der  Sprites  nun  reicht  bis  zur  Position  511/255,  geht 
also  weit  über  den  normalen  Bildschirm  hinaus.  Ein  Sprite  kann 
sich  daher  durchaus  an  einer  Position  außerhalb  des  sichtbaren 
Bildschirms  befinden.  Die  folgende  Abbildung  verdeutlicht  die- 
sen Sachverhalt: 

(0/0)  (511/0) 


(24/50)  (344/50) 


(0/255)  (511/255) 


Sprite  1 befindet  sich  etwa  in  der  Mitte  des  Bildschirms.  Es  hat 
in  etwa  die  Koordinaten  150/125.  Sprite  2 dagegen  befindet  sich 
außerhalb  des  sichtbaren  Bildschirmbereichs,  etwa  an  der  Posi- 
tion 375/200. 
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In  der  Abbildung  sind  die  Sprite- Koordinaten  der  vier  Eck- 
punkte des  Bildschirms  vermerkt.  Der  sichtbare  Bereich  der 
Sprites  beginnt  also  bei  der  X-Koordinate  24  bzw.  der  Y-Koor- 
dinate  50  und  endet  bei  X gleich  344  bzw.  Y gleich  250. 


Nun  fragen  Sie  sich  vielleicht,  was  das  ganze  überhaupt  soll.  Was 
soll  man  schließlich  mit  einem  Sprite  anfangen,  das  am  Bild- 
schirm gar  nicht  sichtbar  ist?  Die  Frage  ist  durchaus  berechtigt. 
Dadurch,  daß  das  Sprite-Koordinatensystem  größer  als  der  nor- 
male Bildschirm  ist,  ergibt  sich  aber  ein  sehr  interessanter  Ef- 
fekt: Man  kann  ein  Sprite  langsam  bis  zum  völligen  Verschwin- 
den aus  dem  Bildschirm  hinausbewegen  lassen. 


Bevor  wir  das  ausprobieren  können,  benötigen  Sie  aber  noch  die 
folgenden  beiden  Routinen: 


2650 

2660 

2662 

2664 

2666 

2668 

2670 

2672 

2674 

2676 

2680 

2700 

2710 

2720 

2730 

2732 

2734 

2736 

2738 

2740 

2742 

2744 

2746 

2750 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 


0 

.*  * 

;*  spon  - sprite  einschalten  * 

• * * 

;*  aufruf:  sys  51518, nr  * 

;*  nr:  spritenummer  (1-8)  * 

.*  * 

• ****************************************************** 

spon  Ida  #1  ; sprite  ein 

.by  $2c 


I 

******************************************************* 

0 


.*  * 

I 

;*  spoff  - sprite  ausschalten  * 

.*  * 

I 

;*  aufruf:  sys  51521, nr  * 

;*  nr:  spritenummer  (1-8)  * 

.*  * 


f 

******************************************************* 

0 


0 

spoff 


Ida  #0 
sta  zp2 
jsr  Saefd 
jsr  gtsnr 
jsr  rgbber 
Idx  zp2 
Ida  #<(53269) 
Idy  #>(53269) 


; sprite  aus 

;flag  Zwischenspeichern 
;auf  komma  testen 
;spritenunmer  holen 
;register-pos.  berechnen 
;f  lag 

;register-adresse 
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2850  sts  zp3 

2860  sty  zp4 

2870  jmp  flelsn2  ;zun  gemeinsamen  teil 

Damit  sind  wir  bei  den  beiden  vielleicht  wichtigsten  Routinen 

angekommen.  Sicher  brennen  Sie  schon  darauf,  Ihre  beiden 
Sprites  endlich  am  Bildschirm  betrachten  zu  können.  Dazu  geben 
sie  einfach  ein: 

SYS  51518,1 
SYS  51518,2 

Insbesondere  in  Spielen  ist  es  sehr  wichtig,  feststellen  zu  können, 
ob  ein  Sprite  mit  einem  anderen  Sprite  oder  dem  Hintergrund 
zusammengestoßen  ist.  Der  VIC-II-Chip  verfügt  dazu  über  zwei 
"Kollisions-Register": 


2880  ; 

2890  ; 

2892  ******************************************************* 
2894  ;*  * 

2896  ;*  spcoll  - kollisions-register  aus lesen  * 

2898  ;*  * 

2900  ;*  aufruf:  sys  51547  * 

2902  ;*  peek(251):  spritekollision  * 

2904  ;*  peek(252):  sprite-hintergrund-kollision  * 

2906  ;*  * 

29Qg  ******************************************************* 


2910  ; 

2915  spcoll 

Idy  53278 

;sprite-kollision 

2920 

Idx  53279 

; h i ntergrund- ko l l i s i on 

2930 

sty  zpl 

2940 

stx  zp2 

2950 

rts 

»•fertig 

Mit  SYS  51547  werden  beide  Kollisions-Register  ausgelesen.  Die 

Werte  können  Sie  sich  anschließend  mit 


SK=PEEK<251) 

HK=PEEK(252) 


in  zwei  Variablen  holen.  In  beiden  Registern  ist  je  ein  Bit  für 
eines  der  acht  Sprites  zuständig.  Kollidiert  ein  Sprite  mit  einem 
anderen  Sprite  oder  dem  Hintergrund,  wird  das  entsprechende 
Bit  des  entsprechenden  Registers  gesetzt. 
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Dadurch  ergibt  sich  ein  bestimmter  Register-Wert  zwischen  0 
und  255,  der  mit  Hilfe  der  folgenden  Tabelle  leicht  analysiert 
werden  kann: 


Sprite 

1 

2 

3 

4 

5 

6 

7 

8 

Wert 

1 

2 

4 

8 

16 

32 

64 

128 

Sind  beispielsweise  die  Sprites  2 und  7 zusammengestoßen,  ent- 
hält SK  den  Wert  2+64=66.  Der  Wert  145  (1+16+128)  bedeutet, 
daß  die  Sprites  1,  5 und  8 miteinander  kollidiert  sind.  Dasselbe 
gilt  für  die  Sprite-Hintergrund-Kollision.  Ist  beispielsweise  das 
Sprite  6 mit  einer  Hintergrunddarstellung  zusammengestoßen, 
enthält  HK  den  Wert  32. 


Assembler-Programmierer  vergessen  nun  bitte  nicht,  noch  die 
folgenden  gemeinsamen  Unterprogramme  abzutippen: 


2960 

2970 

2980 

2990 

3000 

3040 

3050 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 


***  gemeinsame  Unterprogramme 


************************ 


***  blocknummer  holen  und  testen  *** 


gtblpar  jsr  $ad8a 
jsr  $b7f7 
cmp  #4 
bcc  gtblpl 
jmp  $b248 
gtblpl  rts 


; blocknummer  einiesen 
; und  nach  integer  wandeln 
;high-byte>3? 

;nein,  ok 
;ja,  fehler 
/fertig 


3160  ;***  blocknummer  holen,  testen  und  umrechnen  *** 

3170  blumw  jsr  gtblpar  /blocknummer  holen 

3180  Idx  #6  ;blocknummer*6 

3190  blul  asl  $14  ;=absolute  adresse 

3200  rol  $15 

3210  dex 

3220  bne  blul 

3230  rts  /fertig 

3240  / 


3260  /***  zwei  blocknummern  bearbeiten  *** 

3270  gtbl2  jsr  blumw  /I.  blocknunmer  holen 
3280  Ida  $14  /und  umspeichern 

3290  Idy  $15 

3300  sta  zp3 

3310  sty  zp4 
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3320 

jsr  $aefd 

;auf  komma  testen 

3330 

jmp  blumw 

;2.  blocknunmer  holen 

3340  ; 

3360  ;***  screen-nuimer  holen 

i *** 

3370  scrber 

jsr  $b79e 

;screen-nummer  holen 

3380 

txa 

3390 

asl 

;screennr.*4 

3400 

asl 

; -absolute  adresse 

3410 

clc 

;3*256  addieren 

3420 

ade  #3 

3430 

sta  zp4 

;als  high-byte  speichern 

3440 

Ida  #248 

;low-byte  (zeigt  auf  1.  reg.) 

3450 

sta  zp3 

3460 

rts 

;fertig 

3470  ; 

3490  ;***  register-bit  entspr.  spritenr.  berechnen  *** 

3500  rgbber 

Ida  #1 

3510 

Idy  zw 

; spri tenummer 

3520  rgbl 

beq  rgbf 

;=0,  fertig 

3530 

asl 

;bit  um  eine  stelle  nach  links 

3540 

dey 

3550 

jmp  rgbl 

3560  rgbf 

sta  zpl 

;wert  Zwischenspeichern 

3570 

rts 

; fertig 

3580  ; 

3600  ;***  diverse  flags  einiesen  und  setzen  *** 

3610  flelsn 

sta  zp3 

;regi ster- adresse  setzen 

3620 

sty  zp4 

3630 

jsr  Saefd 

;auf  komna  testen 

3640 

jsr  gtsnr 

;spriterx«mer  holen 

3650 

jsr  rgbber 

;register-position  berechnen 

3660 

jsr  Saefd 

;auf  komme  testen 

3670 

jsr  $b79e 

;flag  holen 

3680  f lelsn2 

txa 

;=0? 

3690 

beq  mbml 

3700 

cpx  #1 

;=1? 

3710 

beq  mbms 

3720 

jmp  $b248 

;nein,  fehler 

3730  mbnl 

Ida  #255 

;and-maske  berechnen 

3740 

sec 

3750 

sbc  zpl 

3760 

Idy  #0 

3770 

and  (zp3),y 

; entspr.  register-bit  loeschen 

3780 

sta  (zp3),y 

3790 

rts 

; fertig 

3800  mbms 

Idy  #0 

3810 

Ida  zpl 

3820 

ora  (zp3),y 

;entspr.  register-bit  setzen 

3830 

sta  (zp3),y 

3840 

rts 

; f ert i g 

3850  ; 

3880  ;***  spri tenummer  holen  *** 

3890  gtsnr  jsr  $b79e  ;spritenunmer 
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3900 

txa 

;=0? 

3910 

bne  gtsl 

;nein,  ok 

3920  gts2 

jmp  Sb248 

;ja,  fehler 

3930  gtsl 

cpx  #9 

;>8? 

3940 

bcs  gts2 

;ja,  fehler 

3950 

dex 

3960 

stx  zw 

3970 
3980  ; 

rts 

.■fertig 

4010  ;***  auf 

ram  umschalten 

*** 

4020  ramkon 

sei 

Interrupt  sperren 

4030 

Ida  #53 

4040 

sta  $01 

4050 
4060  ; 

rts 

; fertig 

4090  ;***  auf 

rom  umschalten 

*** 

4100  orgkon 

Ida  #55 

4110 

sta  $01 

4120 

cli 

;interrupt  freigeben 

4130 

rts 

.•fertig 

Und  der  BASIC-Lader: 


**************************************************** 
* • 

* Programm:  sprites  * 

* programmlaenge:  546  bytes  * 

* routinen  zur  spriteprogrammierung  * 


112  rem  **************************************************** 
114  rem  * * 
116  rem  * spdesign  - aussehen  eines  sprites  festlegen  * 
118  rem  * * 
120  rem  * aufruf:  sys  51165, bl, da$  * 
122  rem  * bl:  blocknummer  (speicherstartadresse/64)  * 
124  rem  * da$:  string  mit  sprite-daten  (63  byte)  * 
126  rem  * * 
128  rem  **************************************************** 
130  rem  * * 
132  rem  * spclr  - spriteblock  loeschen  * 
134  rem  * * 
136  rem  * aufruf:  sys  51204, bl  * 
138  rem  * bl:  blocknummer  (speicherstartadresse/64)  * 
140  rem  * * 
142  rem  **************************************************** 
144  rem  * * 
146  rem  * spinv  - spriteblock  invertieren  * 
148  rem  * * 
150  rem  * aufruf:  sys  51221, bl  * 
152  rem  * bl:  blocknummer  (speicherstartadresse/64)  * 
154  rem  * * 
1 56  rem  **************************************************** 


* spclr  - spriteblock  loeschen  * 

* * 

* aufruf:  sys  51204, bl  * 

* bl:  blocknummer  (speicherstartadresse/64)  * 

* * 

**************************************************** 


* spinv  - spriteblock  invertieren 

* 

* aufruf:  sys  51221, bl 

* bl:  blocknummer  (speicherstartadresse/64) 
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158  rem  * * 
160  rem  * spmove  - spriteblock  verschieben  * 
162  rem  * * 
164  rem  * auf ruf:  sys  51246, bl ,b2  * 
166  rem  * bl:  nimner  des  ausgangsblocks  * 
168  rem  * b2:  neunter  des  Zielblocks  * 
170  rem  * * 
172  rem  **************************************************** 
174  rem  * * 
176  rem  * spehange  - spriteblocks  vertauschen  * 
178  rem  * * 
180  rem  * auf ruf:  sys  51263,b1,b2  * 
182  rem  * b1,b2:  numtern  der  zu  vertauschenden  blocks  * 
184  rem  * * 

188  rem  * * 
190  rem  * spand  - spriteblocks  und-verknuepfen  * 
192  rem  * * 
194  rem  * aufruf:  sys  51292, bl, b2  * 
196  rem  * b1,b2:  numtern  der  zu  verknuepfenden  blocks  * 
198  rem  * (ergebnis  kommt  nach  bl)  * 
200  rem  * * 

202  T6R)  **************************************************** 

204  rem  * * 
206  rem  * spor  - spriteblocks  oder-verknuepfen  * 
208  rem  * * 
210  rem  * aufruf:  sys  51317,b1,b2  * 
212  rem  * b1,b2:  numtern  der  zu  verknuepfenden  blocks  * 
214  rem  * (ergebnis  kommt  nach  bl)  * 
216  rem  * * 
218  rem  **************************************************** 
220  rem  * * 
222  rem  * speor  - spriteblocks  exclusiv-oder-verknuepfen  * 
224  rem  * * 
226  rem  * aufruf:  sys  51342, bl, b2  * 
228  rem  * b1,b2:  numtern  der  zu  verknuepfenden  blocks  * 
230  rem  * (ergebnis  kommt  nach  bl)  * 
232  rem  * * 

236  rem  * * 
238  rem  * spblock  - ordnet  sprite  einen  datenblock  zu  * 
240  rem  * * 
242  rem  * aufruf:  sys  51367,sc,nr,bl  * 
244  rem  * sc:  screennummer  (speicherstartadresse/1024)  * 
246  rem  * nr:  spritenummer  (1-8)  * 
248  rem*  bl:  blocknummer  (speicherstartadresse/64)  * 
250  rem  * * 
252  rem  **************************************************** 
254  rem  * * 
256  rem  * spmode  - farbmodus  fest  legen  * 
258  rem  * * 
260  rem  * aufruf:  sys  51391, nr,md  * 
262  rem  * nr:  spritenummer  (1-8)  * 
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264 

rem 

* 

md: 

0 - einfarbmodus,  1 = mehrfarbmodus 

* 

266 

rem 

* 

* 

268 

rem 

**************************************************** 

270 

rem 

* 

* 

272 

rem 

* 

spcol  - 

spritefarben  festlegen 

* 

274 

rem 

* 

* 

276 

rem 

* 

auf ruf : 

sys  51398,nr,fc 

* 

278 

rem 

* 

nr: 

spritenummer  (1-8) 

* 

280 

rem 

* 

fc: 

farbcode  (0-15) 

* 

28  2 

rem 

* 

* 

284 

rem 

** 

286 

rem 

* 

* 

288 

rem 

* 

spexcol 

- Zusatzfarben  fuer  mehrfarbmodus 

* 

290 

rem 

* 

* 

292 

rem 

* 

auf ruf : 

sys  51417,f1,f2 

* 

294 

rem 

* 

fl: 

farbcode  fuer  bit-kombination  1 01 1 

* 

296 

rem 

* 

f 2 : 

farbcode  fuer  bit-kombination  '11' 

* 

298 

rem 

* 

* 

300 

rem 

**************************************************** 

302 

rem 

* 

* 

304 

rem 

* 

spprior 

- spri te-hintergrund-pri ori taet 

* 

306 

rem 

* 

* 

308 

rem 

* 

auf ruf : 

sys  51436, nrfpr 

* 

310 

rem 

* 

nr: 

spritenummer  (1-8) 

* 

312 

rem 

* 

pr: 

0 = spritepri ori taet,  1 = hintergrundpr. 

* 

314 

rem 

* 

* 

316 

rem 

**************************************************** 

318 

rem 

* 

■ * 

320 

rem 

* 

spxsize 

- spritegroesse  in  x-richtung 

* 

322 

rem 

* 

* 

324 

rem 

* 

auf ruf : 

sys  51443, nr,md 

* 

326 

rem 

* 

nr: 

spritenummer  (1-8) 

* 

328 

rem 

* 

md: 

0 = normal,  1 = doppelte  groesse 

* 

330 

rem 

* 

* 

332 

rem 

**************************************************** 

334 

rem 

* 

* 

336 

rem 

* 

spysize 

- spritegroesse  in  y-richtung 

* 

338 

rem 

* 

* 

340 

rem 

* 

auf ruf : 

sys  51450, nr,md 

* 

342 

rem 

* 

nr: 

spritenummer  (1-8) 

* 

344 

rem 

* 

md: 

0 = normal,  1 = doppelte  groesse 

* 

346 

rem 

* 

* 

348 

rem 

**************************************************** 

350 

rem 

* 

* 

352 

rem 

* 

spsetpos  - sprite  positionieren 

* 

354 

rem 

* 

* 

356 

rem 

* 

auf ruf : 

sys  51457, nr,x,y 

* 

358 

rem 

* 

nr: 

spritenummer  (1-8) 

* 

360 

rem 

* 

x: 

x-koordinate  (0-511) 

* 

362 

rem 

* 

y: 

y-koordinate  (0-255) 

* 

364 

rem 

* 

* 

366 

rem 

**************************************************** 

368 

rem 

* 

* 
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370  rem  * spon  - sprite  einschatten 
372  rem  * 

374  rem  * aufruf:  sys  51518, nr 
376  rem  * nr:  spritenummer  (1-8) 
378  rem  * 

380  rem  ***************************** 

382  rem  * 

384  rem  * spoff  - sprite  ausschalten 


sys  51521 ,nr 
spritenuimer  (1-8) 


386  rem  * 

388  rem  * aufruf: 

390  rem  * nr: 

392  rem  * 

394  rem  **************************************************** 

396  rem  * * 

398  rem  * spcoll  - kollisions-register  aus lesen  * 

400  rem  * * 

402  rem  * aufruf:  sys  51547  * 

404  rem  * peek(251):  spritekollision  * 

406  rem  * peek(252):  sprite-hintergrund-kollision  * 

408  rem  * * 

410  rem  **************************************************** 

412  : 

414  : 

415  rem  ***  datas  einiesen  *** 

420  restore:zl=1000 

425  ad=51165:rem  Startadresse  der  routine 
430  ps=0:z=0 

440  read  wt:if  wt=-1  then  print  "datas  ok!":end 

450  poke  ad,wt:ad=ad+1:z=z+1 

460  ps=ps+wt : rem  pruef summe 

470  if  z<10  then  440:rem  eine  zeile  lesen 

480  read  wt 

485  if  ps<>wt  then  print  "data-fehler  in  zeile,,;zl;,l!":end 
490  zl=zl+10:goto  430 
500  : 

510  : 

990  rem  ***  datas  *** 

1000  data  32,253,174,32,116,201,32,253,174,32,1299 
1010  data  158,173,32,163,182,201,63,240,3,76,1291 
1020  data  72,178,32,243,201,160,0,177,34,145,1242 
1030  data  20,200,192,63,208,247,76,249,201,32,1488 
1040  data  253,174,32,116,201,160,0,152,145,20,1253 
1050  data  200,192,63,208,249,96,32,253,174,32,1499 
1060  data  116,201,32,243,201,160,0,177,20,73,1223 
1070  data  255,145,20,200,192,63,208,245,76,249,1653 
1080  data  201,32,253,174,32,129,201,165,253,164,1604 
1090  data  254,133,34,132,35,76,243,199,32,253,1391 
1100  data  174,32,129,201,32,243,201,160,0,177,1349 
1110  data  253,170,177,20,145,253,138,145,20,200,1521 
1120  data  192,63,208,241,76,249,201,32,253,174,1689 
1130  data  32,129,201,32,243,201.160,0,177,253,1428 
1140  data  49,20,145,253,200,192,63,208,245,76,1451 
1150  data  249,201,32,253,174,32,129,201,32,243,1546 
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1160  data  201,160,0,177,253,17,20,145,253,200,1426 
1170  data  192,63,208,245,76,249,201,32,253,174,1693 
1180  data  32,129,201,32,243,201,160,0,177,253,1428 
1190  data  81,20,145,253,200,192,63,208,245,76,1483 
1200  data  249,201,32,253,174,32,146,201,32,253,1573 
1210  data  174,32,226,201,32,253,174,32,102,201,1427 
1220  data  152,164,2,145,253,96,169,28,160,208,13 77 
1230  data  76,176,201,32,253,174,32,226,201,32,1403 
1240  data  253,174,32,158,183,138,164.2,153,39,1296 
1250  data  208,96,32,253,174,32,158,183,142,37,1315 
1260  data  208,32,253,174,32,158,183,142,38,208,1428 
1270  data  96,169,27,160,208,76,176,201,169,29,1311 
1280  data  160,208,76,176,201,169,23,160,208,76,1457 
1290  data  176,201,32,253,174,32,226,201,32,253,1580 
1300  data  174,32,138,173,32,247,183,201,2,144,1326 
1310  data  3,76,72,178,132,253,133,254,32,253,1386 
1320  data  174,32,158,183,165,2,10,168,138,153,1183 
1330  data  1,208,165,253,153,0,208,32,162,201,1383 
1340  data  166,254,169,16,160,208,133,253,132,254,1745 
1350  data  76,195,201,169,1,44,169,0,133,252,1240 
1360  data  32,253,174,32,226,201,32,162,201,166,1479 
1370  data  252,169,21,160.208,133,253,132,254,76,1658 
1380  data  195,201,172,30,208,174,31,208,132,251,1602 
1390  data  134,252,96,32,138,173,32,247,183,201,1488 
1400  data  4,144,3,76,72,178,96,32,102,201,908 
1410  data  162,6,6,20,38,21,202,208,249,96,1008 
1420  data  32,116,201,165,20,164,21,133,253,132,1237 
1430  data  254,32,253,174,76,116,201,32,158,183,1479 
1440  data  138,10,10,24,105,3,133,254,169,248,1094 
1450  data  133,253,96,169,1,164,2,240,5,10,1073 
1460  data  136,76,166,201,133,251,96,133,253,132,1577 
1470  data  254,32,253,174,32,226,201,32,162,201,1567 
1480  data  32,253,174,32,158,183,138,240,7,224,1441 
1490  data  1,240,15,76,72,178,169,255,56,229,1291 
1500  data  251,160,0,49,253,145,253,96,160,0,1367 
1510  data  165,251,17,253,145,253,96,32,158,183,1553 
1520  data  138,208,3,76,72,178,224,9,176,249,1333 
1530  data  202,134,2,96,120,169,53,133,1,96,1006 
1540  data  169,55,133,1,88,96,0,0,0,0,542 
2000  data  -1:rem  endmarkierung 


Nachdem  wir  nun  alle  Routinen  beieinander  haben,  können  wir 
uns  einmal  ein  größeres  Beispiel  im  Zusammenhang  ansehen. 
Noch  einmal  kurz  zur  Wiederholung: 

Ihre  beiden  Sprites,  die  Sie  sich  mit  dem  Sprite-Editor  definiert 
haben,  haben  Sie  mit: 

100  open  2,8,2,"sprite1,s,r":input  mt$:close  2 
110  sys  51165, 13, mt$:rem  sprite-daten  in  Speicher 
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120  open  2,8,2,"sprite2,s,r":input  mt$:close  2 
130  sys  51 165, 14, mt$: rem  sprite-daten  in  Speicher 

im  Speicher  abgelegt  und  mit: 

140  sys.  51367, 1,1, 13:  rem  zeiger  von  sprite  1 auf  block  13 
150  sys  51367,1, 2, 14: rem  zeiger  von  sprite  2 auf  block  14 

den  Sprites  1 und  2 zugewiesen.  Eingeschaltet  werden  die  beiden 
Sprites  nun  durch 

160  sys  51518,1: rem  sprite  1 ein 
170  sys  51518, 2:reoi  sprite  2 ein 

Vielleicht  möchten  Sie  den  Sprites  eine  bestimmte  Farbe  geben. 
16  Farben  stehen  zur  Auswahl: 


0: 

schwarz 

8: 

orange 

1: 

weiß 

9: 

braun 

2: 

rot 

10: 

hellrot 

3: 

türkis 

11: 

grau  1 

4: 

violett 

12: 

grau  2 

5: 

grün 

13: 

hei Igrün 

6: 

blau 

14: 

hei Iblau 

7: 

gelb 

15: 

grau  3 

Gesetzt  werden  die  Farben  mit 

180  sys  51398, 1,5:rem  färbe  fuer  sprite  1 
190  sys  51398,2,6: rem  färbe  fuer  sprite  2 

Schließlich  müssen  wir  die  Sprites  noch  an  eine  bestimmte  Bild- 
schirmposition setzen.  Im  Moment  befinden  sie  sich  höchst- 
wahrscheinlich an  den  Koordinaten  0/0  und  sind  daher  nicht 
sichtbar. 

200  sys  51457, 100, 100: rem  koordinaten  sprite  1 
210  sys  51457, 100, 150:rem  koordinaten  sprite  2 

Wenn  Sie  das  Programm  jetzt  starten,  werden  die  beiden  Sprites 
knapp  untereinander  in  die  linke  Bildschirmhälfte  gesetzt.  Mit 

SYS  51443,1,1 :SYS  51450,1,1 
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bringen  Sie  Sprite  1 auf  die  doppelte  Größe.  Probieren  Sie  auch 
einmal  die  verschiedenen  Verknüpfungsroutinen  aus. 

SYS  51342,13,14 

beispielsweise  verknüpft  die  beiden  Sprite-Matrizen  logisch 
EXCLUSIV-ODER.  Um  die  Sprites  zum  Schluß  wieder  auszu- 
schalten, geben  Sie  ein: 

SYS  51521, 1:sys  51521,2 

Am  interessantesten  ist  es,  ein  Sprite  in  "fließende”  Bewegung  zu 
versetzen.  Mit  Hilfe  der  Routine  MBSETPOS  und  einer  schlich- 
ten FOR-NEXT-Schleife  läßt  sich  das  sehr  leicht  erreichen: 

100  open  2,8,2,"sprite1,s,r":input  mt$:close  2 

110  sys  51165, 13, mt$:rem  sprite-daten  in  Speicher 

120  sys  51367, 1,1, 13: rem  Zeiger  von  sprite  1 auf  block  13 

130  sys  51518, 1:rem  sprite  1 ein 

140  : 

150  for  x=0  to  511  Step  1 
160  sys  51457.x, 150 
170  next  x 
180  : 

190  sys  51521,1: rem  sprite  1 aus 

Wenn  Sie  das  Programm  starten,  wandert  das  Sprite  langsam  ho- 
rizontal über  den  Bildschirm.  Verändern  Sie  nun  einmal  die 
Schrittweite  in  Programmzeile  150.  Bei  einer  Schrittweite  ab 
etwa  5 huscht  das  Sprite  schon  blitzschnell  über  den  Bildschirm. 
Möchte  man  die  Flugbahn  völlig  frei  definieren  können,  legt 
man  die  verschiedenen  Koordinaten  am  besten  in  DATA-Zeilen 
ab: 


100  open  2,8,2,"sprite1,s,r":input  mt$:close  2 

110  sys  51165, 13, mt$:rem  sprite-daten  in  Speicher 

120  sys  51367, 1,1,13:rem  zeiger  von  sprite  1 auf  block  13 

130  sys  51518,1 :rem  sprite  1 ein 

140  : 

150  read  x,y,vz 

160  if  x=-1  then  210: rem  fertig 
170  sys  51457, x,y 

180  for  w=1  to  vz:next  u:rem  verzoegerungsschleife 
190  goto  150 
200  : 

210  sys  51521,1: rem  sprite  1 aus 
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220  : 

230  : 

240  rem  koordinatenpaare  (x/y)  und  verzoegerungswert 

2S0  data  24,50,200 

260  data  344,250,200 

270  data  344,50,200 

280  data  24,250,200 

290  data 


Die  DATA-Werte  setzen  Sprite  1 nacheinander  in  die  vier  Ecken 
des  Bildschirms.  Zugegeben,  keine  besonders  originelle  "Flug- 
bahn”. 

Ihnen  sind  in  der  Zwischenzeit  aber  sicher  schon  die  tollsten 
Ideen  gekommen.  Probieren  Sie  sie  aus! 


6.4  Zeichensätze 

In  diesem  Abschnitt  möchte  ich  Ihnen  zeigen,  wie  man  sich  auf 
dem  Commodore  64  eigene  Zeichen  definieren  kann. 

Drei  Zeichen,  die  wohl  schon  jeder  einmal  schmerzlich  vermißt 
hat,  sind  die  deutschen  Umlaute  "ä",  "ö"  und  "ü". 

Am  Ende  des  Abschnitts  stelle  ich  Ihnen  deshalb  ein  kleines 
Programm  vor,  das  auf  dem  Commdore  64  einen  deutschen  Zei- 
chensatz einrichtet. 


6.4.1  Grundlagen 

Alle  auf  dem  Commodore  64  darstellbaren  Zeichen  sind  in  ei- 
nem Zeichensatz  zusammengefaßt,  der  im  sogenannten  Zeichen- 
generator oder  Zeichensatz-ROM  abgelegt  ist. 

Im  Zeichengenerator  ist  das  Aussehen  jedes  Zeichens  in 
codierter  Form  gespeichert. 
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Jedes  Zeichen  ist  aus  8 mal  8 Punkten  aufgebaut,  man  spricht 
auch  von  einer  8x8-Matrix,  das  "A"  z.B.  so: 


Zeichenmatrix 

****** 

des 

B**#  Ä**# 

■ **a  B**B 

Buchstabens  A 

**  ** 

Zur  Codierung  einer  Zeichenmatrix  benötigt  man  acht  Bytes,  für 
eine  Matrixzeile,  die  ja  gerade  aus  acht  Punkten  besteht,  jeweils 
eines.  Jedes  Bit  eines  Bytes  ist  dabei  für  einen  Matrixpunkt  zu- 
ständig. 

Ist  der  betreffende  Matrixpunkt  gesetzt,  hat  das  Bit  den  Wert  1, 
ansonsten  den  Wert  0.  Die  erste  Matrixzeile  des  Buchstabens  A 
beispielsweise  wird  durch  den  Wert  24  (16+8)  codiert. 

Der  gesamte  Zeichensatz  besteht  aus  512  Zeichen.  512  mal  8,  das 
sind  4.096  Bytes.  Der  Zeichengenerator  belegt  also  4.096  Bytes 
im  Speicher. 

Wie  Sie  ja  wissen,  kann  man  durch  gleichzeitiges  Drücken  der 
<Shift>-  und  der  <Commodore>-Taste  zwischen  zwei  Zeichen- 
darstellungen umschalten.  Entsprechend  ist  auch  der  Zeichensatz 
in  zwei  Teilsätze  zu  je  256  Zeichen  aufgeteilt. 

Die  folgende  Tabelle  gibt  Ihnen  einen  Überblick  über  die  "Lage" 
aller  Zeichen  innerhalb  des  Zeichensatzes.  Der  Einfachheit  hal- 
ber sind  nur  die  ASCII-  und  die  Bildschirmcodes  der  Zeichen 
angegeben. 

Die  zu  den  Codes  gehörenden  Zeichen  können  Sie  aus  den  bei- 
den Tabellen  im  Anhang  ersehen: 
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Teilzeichensatz  1 

Zeichennr. 

POKE-Code 

ASCII-Code 

Zeichen 

Normalschrift 

0-  31 

0-  31 

64-  95 

@bis  <-und 
Großbuchstaben 

32-  63 

32-  63 

32-  63 

SPACE  bis  ? 

64-  95 

64-  95 

96-127 

Grafikzeichen 

96-127 

96-127 

160-191 

Grafikzeichen 

Reversschrift 

128-159 

128-159 

(18+)  64-  95 

@ bis  <-  und 
Großbuchstaben 

160-191 

160-  191 

(18+)  32-  63 

SPACE  bis  7 

192  - 223 

192-223 

(18+)  96-127 

Grafikzeichen 

224  - 255 

224  - 255 

(18+)  160-191 

Grafikzeichen 

Teilzeichensatz  2 

Zeichennr. 

POKE-Code 

ASCII-Code 

Zeichen 

Normalschrift 

256  - 287 

0-  31 

64-  95 

@bis  <-und 
Kleinbuchstaben 

288  - 319 

32-  63 

32-  63 

SPACE  bis  ? und 

320  - 351 

64-  95 

96-127 

Großbuchstaben 

Grafikzeichen 

352  - 383 

96-127 

160-191 

Grafikzeichen 

Reversschrift 

384  - 415 

128-159 

(18+)  64-95 

i 

@ bis  <-  und 
Kleinbuchstaben 

416-447 

160-191 

(18+)  32-  63 

SPACE  bis  7 und 

448  - 479 

192  - 223 

(18+)  96-127 

Großbuchstaben 

Grafikzeichen 

480  - 511 

224  - 255 

(18+)  160-191 

Grafikzeichen 

Der  Zeichengenerator  befindet  sich  normalerweise  von  Spei- 
cheradresse 53.248  bis  57.343.  Er  läßt  sich  aber  von  dort  ausle- 
sen  und  in  einen  anderen  Speicherbereich  verschieben.  Dort 
können  wir  die  Codes  der  einzelnen  Zeichen  und  damit  das 
Aussehen  der  Zeichen  ganz  nach  Belieben  ändern!  Zunächst 
stellt  sich  aber  die  Frage,  wie  man  den  Zeichengenerator  ausliest 
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und  wo  man  ihn  am  besten  im  Speicher  ablegt.  Schließlich 
benötigt  er  ja  immerhin  4.096  Bytes  an  Speicherplatz. 

Das  Problem  des  Auslesens  ist  schnell  gelöst.  Dazu  nehmen  wir 
einfach  die  TRANSFER-Routine  zum  Verschieben  von  Spei- 
cherbereichen aus  Kapitel  4.  An  Speicherbereichen  stehen  im 
Prinzip  sieben  zur  Auswahl: 


Nummer 

Speicherbereich 

0 

53248  - 57343 

1 

0 - 4095 

2 

4096  - 8191 

3 

8192-12287 

4 

12288-16383 

5 

57344  - 61439 

6 

61440  - 65535 

Im  Bereich  0 liegt  das  Zeichensatz-ROM,  das  nur  gelesen  wer- 
den kann.  Der  Bereich  1 ist  nur  sehr  bedingt  zu  empfehlen,  da 
das  Betriebssystem  des  Commodore  64  in  diesem  Bereich  zahl- 
reiche wichtige  Werte  ablegt,  die  durch  den  Zeichensatz  über- 
schrieben würden. 

Als  am  günstigsten  erweist  sich  der  Bereich  4 von  Spei- 
cheradresse 12.288  bis  16.383.  In  diesem  Speicherbereich  werden 
wir  auch  im  folgenden  experimentieren. 


6.4.2  Eigene  Zeichensätze  programmieren 

Das  wichtigste  Hilfsmittel  zur  Definition  eigener  Zeichen  ist  ein 
Zeichen-Editor,  mit  dem  Sie  die  Zeichenmatrix  erstellen  können. 
Der  im  folgenden  abgedruckte  Zeichen-Editor  ist  in  BASIC  ge- 
schrieben. Um  Ihnen  aber  ein  möglichst  komfortables  Editieren 
der  Zeichen  zu  ermöglichen,  arbeitet  er  mit  einer  kleinen  Ma- 
schinensprache-Routine, die  den  Cursor  an  eine  vorgegebene 
Bildschirmposition  setzt. 

Die  Routine  CURSOR  habe  ich  Ihnen  bereits  im  letzten  Ab- 
schnitt vorgestellt.  Falls  Sie  das  Programm  noch  nicht  abgetippt 
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haben,  holen  Sie  das  bitte  jetzt  nach.  Der  Zeichen-Editor  ist 
ohne  diese  Routine  nicht  lauffähig. 

Die  Bedienung  des  Zeichen-Editors  gestaltet  sich  sehr  einfach. 
Der  Editor  ist  als  Unterprogramm  geschrieben,  wobei  es  zwei 
Aufrufvarianten  gibt:  Möchten  Sie  ein  Zeichen  ganz  neu  ent- 
werfen, dann  rufen  Sie  den  Editor  mit 

GOSUB  1250 

auf.  Die  berechneten  Zeichenmatrix-Daten  befinden  sich  an- 
schließend in  der  Variablen  MT$.  Um  ein  vorhandenes  Zeichen 
abändern  zu  können,  gibt  es  die  zweite  Auf  ruf  Variante: 

GOSUB  1100 

erwartet  die  darzustellenden  Zeichenmatrix-Daten  in  der  Vari- 
ablen MT$.  Nachdem  der  Editor  gestartet  wurde  und  er  das 
Entwurfsraster  auf  den  Bildschirm  gezeichnet  hat,  blinkt  der 
Cursor  in  der  linken  oberen  Ecke  des  Bildschirms. 

Nun  stehen  Ihnen  die  folgenden  Funktionen  zur  Verfügung: 


<Cursor  right > -Taste 

Bewegt  den  Cursor  um  eine  Position  nach  rechts. 


<Cursor  left>-Taste 

Bewegt  den  Cursor  um  eine  Position  nach  links. 


<Cursor  down>-Taste 

Bewegt  den  Cursor  um  eine  Position  nach  unten. 


<Cursor  up>-Taste 

Bewegt  den  Cursor  um  eine  Position  nach  oben. 
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<F1>-Taste 

Setzt  an  der  aktuellen  Cursor- Position  einen  Punkt. 
<F5>-Taste 

Löscht  den  Punkt  an  der  aktuellen  Cursor-Position. 


<F7>-Taste 

Beendet  die  Eingabe  und  berechnet  die  Zeichendaten. 


<F8>-Taste 

Beendet  die  Eingabe  und  bricht  das  Programm  ab. 


Bitte  geben  Sie  nun  das  Programm  ein: 

100  rem  **************************************************** 

105  rem  * * 

110  rem  * programm:  char-edit  * 

115  rem  * editor  zum  entwerfen  von  Zeichen  * 

120  rem  * 

125  rem  ***’ 

130  : 

135  : 

140  rem  *** 

145  if  f 1=0 
150  : 

155  rem  *** 

160  rem  *** 

165  rem  *** 

170  rem  *** 

175  rem  *** 

180  rem  *** 

190  : 

200  rem  *** 

210  gosub  . 

220  : 

230  : 

1060  rem  ***  mstrix  derstellen  ***************************** 
1100  print  chr$(147) 

1105  sw=peek(648)*256:rem  home-position=matrixanfang 

1110  for  z1=0  to  7 

1120  au=asc(mid$(mt$,z1+1,1)) 

1125  for  z2=0  to  7 
1130  aw=aw/2 

1140  if  aw=int(aw)  then  pu=46:goto  1150 


maschinenprogramm  nach  laden  ******************** 
then  fl=1:load  "Cursor", 8,1 

vorhandene  matrix  darstellen  und  veraendern?  ** 

— > gosub  1100  (matrix  in  mt$)  ** 

** 

neue  matrix  definieren?  ** 

— > gosub  1250  (matrix  befindet  sich  ** 

anschliessend  in  mtS)  ** 


gewuenschten  auf ruf  hier  einfuegen!  ************ 
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1145  pw=160 

1150  poke  sw+z1*40+7-z2,pw:aw=int(aw) 

1160  next  z2 
1180  next  zl 

1190  goto  1300: rem  zur  matrixeingabesteuerung 
1200  : 

1220  rem  ***  matrix  definieren  ***************************** 
1250  print  chr$(147):rem  rasterfeld  zeichnen 
1255  sw=peek(648)*256 
1260  for  z1=0  to  7 

1270  hv=sw+z1*40:for  z2=0  to  7:poke  hv+z2,46:next  z2 
1280  next  zl 
1290  : 

1295  re«  ***  eingabesteuerung  ****************************** 

1300  h»sw-peek(648)*256:rem  Startposition 

1310  pz=int(h/40)+1:ps=h-(pz-1)*40+1 

1320  ze=pz : sp=ps : rem  Cursor  in  Startposition 

1330  sys  49934, ze,sp: sys  49974: rem  Cursor  setzen  und  ein 

1335  poke  198,0:uait  198,1:get  eg$:sys  49979:  rem  Cursor  aus 

1340  eg*asc(eg$):rem  aktuelle  eingabe 

1350  if  not(eg=29)  then  1380: rem  Cursor  right 

1360  if  not(sp=ps+7)  then  spssp+1:goto  1330 

1370  if  not(ze=pz+7)  then  sp=ps:ze=ze+1 :goto  1330 

1380  if  not(eg=157)  then  1420:rem  Cursor  left 

1390  if  not(sp=ps)  then  sp=sp-1:goto  1330 

1400  if  not(ze=pz)  then  sp=ps+7:ze=ze-1 :goto  1330 

1420  if  not(eg=17)  then  1440:rem  Cursor  down 

1430  if  not(ze=pz+7)  then  ze=ze+1:goto  1330 

1440  if  not(eg=145)  then  1460:rem  Cursor  up 

1450  if  not(ze=pz)  then  ze=ze-1:goto  1330 

1460  if  not(eg=133)  then  1480:rem  f 1=punkt  setzen 

1465  poke  peek(648)*256+40*(ze-1)+sp- 1,160 

1470  if  not(sp=ps+7)  then  sp=sp+1:goto  1330 

1475  if  not(ze=pz+7)  then  sp=ps:ze=ze+1 :goto  1330 

1480  if  not(eg=134)  then  1500:rem  f3=punkt  loeschen 

1485  poke  peek(648)*256+40*(ze-1)+sp-1,46 

1490  if  not(sp=ps+7)  then  sp=sp+1:goto  1330 

1495  if  not(ze=pz+7)  then  sp=ps:ze=ze+1 :goto  1330 

1500  if  eg =136  then  1580:rem  f7=matrix  uebernehmen 

1510  if  eg=140  then  end: rem  f8=abbruch 

1520  goto  1330 

1550  : 

1570  rem  ***  matrix  uebernehmen  **************************** 
1580  sw*peek(648)*256:au=0:mt$=M" 

1590  for  z1=0  to  7 
1600  for  z2=0  to  7 
1620  pw=peek(sw+z1*40+z2) 

1630  if  pu=160  then  aw=aw+2*(7-z2) 

1640  next  z2 

1650  mt$=mt$+chr$( aw) : aw=0 
1670  next  zl 
1680  : 

1690  return:rem  fertig! 
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Das  Hauptprogramm  des  Editors  habe  ich  noch  bewußt  wegge- 
lassen. Wir  werden  es  weiter  unten  ergänzen.  Zunächst  möchte 
ich  Ihnen  wieder  eine  kleine  Routinensammlung  vorstellen,  die 
die  Zeichensatzprogrammierung  erheblich  vereinfacht: 


100 

105 

110 

120 

140 

150 

200 

205 

210 

220 

230 

240 

245 

250 

255 

260 

265 

270 

280 

282 

284 

286 

288 

290 

292 

294 

296 

298 

300 

302 

304 

306 

308 

310 

320 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 


;*  programm:  Zeichensatz 

;*  rout inen  zur  zeichensatzprogrammierung 


.ba  51711  ;***  Startadresse  *** 


.***  labels  ******************************************** 

.gl  zw  = 02  .'Zwischenspeicher 

.gl  zpl  = 251 

.gl  zp2  =252 

.gl  zp3  = 253 

.gl  zp4  = 254 


charset  - aktuellen  zeichensatz  festlegen 


auf ruf : 
nr: 


sys  5171 1,nr 

minner  des  Zeichensatzes 
0:  53248-57343  (original!) 


* 
* 
* 
* 
* 
* 

.*  * 
t 

.******************************************************* 


0-  4095 
4096-  8191 
8192-12287 
12288-16383 
57344-61439 
61440-65535 


;auf  komna  testen 
; zeichensatznummer 
;in  flag  ablegen 
;und  in  akku 
;*2 


charset  jsr  Saefd 
jsr  gtchsnr 
stx  chaklfl 
txa 
asl 
tay 

Ida  chrtabl.y  ;basisadresse 
sta  chadrl 
Ida  chrtab1+1,y 
sta  chadrh 
rts 


; fertig 
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Als  erstes  müssen  Sie  festlegen,  in  welchem  Speicherbereich  der 
Zeichensatz  liegen  soll.  Da  Sie  den  Zeichensatz  kaum  komplett 
neu  erstellen  wollen,  lesen  Sie  mit  Hilfe  der  TRANSFER-Rou- 
tine  aus  Kapitel  4 den  Originalzeichensatz  aus.  Dazu  laden  Sie 
die  TRANSFER-Routine  und  geben  dann  ein: 

SYS  49152,53248,57343,12288,1 

TRANSFER  kopiert  den  Zeichensatz  in  Sekundenschnelle  in  den 
Bereich  4 ab  Speicheradresse  12.288.  Anschließend  teilen  Sie  den 
Zeichensatzroutinen  mit 

SYS  51711,4 

mit,  daß  Sie  auf  diesen  Bereich  wirken  sollen.  Die  folgenden 
Routinen  bilden  den  zentralen  Bestandteil  des  ganzen  Pakets: 


450  ; 

452  ; 

454  . ******************************************************* 
456  ;*  * 

458  ;*  chread  - matrix-byte  eines  Zeichens  austesen  * 

460  ;*  * 

462  ;*  auf ruf:  sys  51736, zn,mp  * 

464  ;*  zn:  Zeichencode  (0-511)  * 

466  ;*  mp:  matrixposi tion  (1-8)  * 

468  ;*  * 

475  ; 


480  chread 

jsr  Saefd 

;auf  komma  testen 

490 

jsr  gtchrcd 

,-zeichencode  holen 

500 

jsr  Saefd 

;auf  komme  testen 

510 

jst  gtsnr 

;position  innerhalb  matrix 

520 

sei 

;interrupt  sperren 

530 

Ida  #53 

;ram 

540 

Idx  chaklfl 

.•aktueller  zeichensatz 

550 

bne  chrdl 

560 

Ida  #51 

.•original -zeichensatz 

570  chrdl 

sta  $01 

;umschalten 

580 

Idy  zw 

;position  innerhalb  matrix 

590 

Ida  ($14), y 

;byte  holen 

600 

sta  zw 

610 

jsr  orgkon 

;auf  rom  zurueckschalten 

620 

Idy  zw 

630 

sty  zpl 

;matrix-byte 

640 

rts 

; fertig 

650  ; 

652  ; 
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554  . ******************************************************* 

656  ;*  * 

658  ;*  chwrfte  - matrix-byte  eines  Zeichens  schreiben  * 

660  ;*  * 

662  ;*  aufruf:  sys  51774,zn,mp,wt  * 

664  ;*  zn:  Zeichencode  (0-511)  * 

666  ;*  mp:  matrixposition  (1-8)  * 

668  ;*  wt:  matrixcode  (0-255)  * 

670  ;*  * 

675  ) 


680  chwrite 

jsr  chtest 

; zeichensatz  testen 

690 

jsr  Saefd 

;auf  konma  testen 

700 

jsr  gtchrcd 

; Zeichencode  holen 

710 

jsr  Saefd 

;auf  konma  testen 

720 

jsr  gtsnr 

;position  innerhalb  matrix 

730 

jsr  Saefd 

;auf  konma  testen 

740 

jsr  Sb79e 

; matrixcode 

750 

txa 

760 

Idy  zw 

;position  innerhalb  matrix 

770 

sta  ($14), y 

;code  in  zeichensatz  ablegen 

780 

rts 

; fertig 

Damit  Sie  sich  nicht  mit  irgendwelchen  Speicheradressen  her- 
umschlagen müssen,  können  Sie  bei  allen  Routinen  die  Nummer 
des  gewünschten  Zeichens  angeben.  Diese  Nummer  können  Sie 
aus  der  Tabelle  weiter  oben  entnehmen.  Um  beispielsweise  die 
Zeichenmatrix  des  großen  "A",  das  die  Nummer  1 hat,  auszu- 
lesen, gehen  Sie  wie  folgt  vor: 

100  for  mp=1  to  8 

110  sys  51736, 1 ,mp:mt$=mt$+chr$(peek(251 )) 

120  next  mp 

Die  Variable  MTS  enthält  anschließend  die  Zeichenmatrix,  die 
Sie  dann  unmittelbar  mit  dem  Zeichen-Editor  darstellen  und  ge- 
gebenenfalls verändern  können.  Die  folgenden  Routinen  mani- 
pulieren die  Zeichenmatrix  direkt  im  Zeichensatz: 

790  ; 

792  ; 

794  . ******************************************************* 

796  ;*  * 

798  ;*  chmove  - matrix  eines  Zeichens  verschieben  * 

800  ;*  * 

802  ;*  aufruf:  sys  51801, z1,z2  * 

804  ;*  zl:  Zeichencode  (quelle)  * 

806  ;*  z2:  Zeichencode  (ziel)  * 
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- 639 

808 

* 

* 

810 

*** 

815 

820  chmove  jsr  chtest  ; Zeichensatz  testen 

830 

jsr  $aefd  ;auf  komme  testen 

840 

jsr  gtchcd2  ;zeichencodes  holen 

850 

Ida  zp3  ; zeiger  unspei ehern 

860 

Idy  zp4 

870 

sta  $22 

880 

sty  $23 

890 

:hmv1  jsr  ramkon  ;auf  ram  unschal ten 

900 

Idy  #0  ; da ten  im  Speicher  ablegen 

910 

:hmv2  Ida  ($22), y 

920 

sta  ($14), y 

930 

iny 

940 

cpy  #8 

950 

bne  chmv2 

960 

jmp  orgkon  ;auf  rom  zurueckschalten 

970 

972 

974 

******************************************************* 

976 

* 

* 

978 

* chchange  - zwei  zeichenmatrizen  vertauschen 

* 

980 

* 

982 

* auf ruf:  sys  51835, z1,z2 

* 

984 

* z1,z2:  codes  (0-511)  der  zu  vertauschenden 

* 

986 

* zeichenmatrizen 

* 

988 

* 

* 

990 

.******************************************************* 

995 

1000  chchange  jsr  chgm  ;zun  gemeinsamen  teil 

1010 

Idy  #0  ;datenblocks  austauschen 

1020  chhl  Ida  (zp3),y 

1030 

tax 

1040 

Ida  ($14), y 

1050 

sta  (zp3),y 

1060 

txa 

1070 

sta  ($14), y 

1080 

iny 

1090 

cpy  #8 

1100 

bne  chhl 

1110 

jmp  orgkon  ;auf  rom  zurueckschalten 

1120 

1150 

;***  gemeinsamer  teil  von  chchange  u.  a.  *** 

1160  chgm  jsr  chtest  ; zeichentest  testen 

1170 

jsr  $aefd  ;auf  komma  testen 

1180 

jsr  gtchcd2  ;zeichencodes  holen 

1190 

jmp  ramkon  ;auf  ram  umschalten 

• 

1200 

1202 

• 

1204 

******************************************************* 

1206 

.* 

* 

1208 

;*  chinvert  - zeichenmatrix  invertieren 

* 
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1210  ;* 

1212  ;*  auf ruf:  sys  51870,zn 
1214  ;*  zn:  Zeichencode  (0-511) 
1216  ;* 

1218 
1220 


1230  chinvert 

jsr 

chtest 

; zeichensatz  testen 

1240 

jsr 

Saefd 

;auf  komma  testen 

1250 

jsr 

gtchrcd 

Zeichencode  holen 

1260 

jsr 

ramkon 

;auf  ram  unschalten 

1270 

Idy 

#0 

;datenblock  invertieren 

1280  chil 

Ida 

(S14),y 

1290 

eor 

#$ff 

1300 

sta 

(S14),y 

1310 

iny 

1320 

cpy 

#8 

1330 

bne 

chi  1 

1340 

jmp 

orgkon 

;auf  rom  zurueckschalten 

1350 
1352 
1354 
1356 
1358 
1360  . 

1362  ;*  auf ruf:  sys  51898, z1,z2 
1364  ;*  z1,z2:  Codes  (0-511)  der  zu  verknuepf enden 


****************************************************** 
* * 
zwei  zeichenmatrizen  und-verknuepfen  * 


;*  chand 

.* 


1366 


zeichenmatrizen 


1368  ;*  * 

^ 3^Q  • ****************************************************** 

1375  ; 


1380  chand 

jsr  chgm 

;zum  gemeinsamen  teil 

1390 

Idy  #0 

1400  chal 

Ida  (zp3),y 

1410 

and  (S14),y 

1420 

sta  (zp3),y 

1430 

iny 

1440 

cpy  #8 

1450 

bne  chal 

1460 

jmp  orgkon 

;auf  rom  zurueckschalten 

1470  ; 

1472  ; 

1476  ;*  * 

1478  ;*  chor  - zwei  zeichenmatrizen  oder-verknuepfen  * 

1480  ;*  * 

1482  ;*  aufruf:  sys  51917,z1,z2  * 

1484  ;*  z1,z2:  Codes  (0-511)  der  zu  verknuepf enden  * 

1486  ;*  zeichenmatrizen  * 

1488  ;*  * 

1490  * ****************************************************** 
1495  ; 

1500  chor  jsr  chgm  ;zum  gemeinsamen  teil 

1510  Idy  #0 
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1520  chol 

Ida  (zp3),y 

1530 

ora  ($14), y 

1540 

sta  (zp3),y 

1550 

iny 

1560 

cpy  #8 

1570 

bne  chol 

1580 

jmp  orgkon  ;auf  rom  zurueckschalten 

1590  ; 

1592  ; 

1594  ********* 

>******************************************* 

*** 

1596  ;* 

* 

1598  ;*  cheor 

- zwei  zeichenmatrizen  exclusiv-oder-verk. 

* 

1600  ;* 

* 

1602  ;*  aufruf:  sys  51936,z1,z2 

* 

1604  ;*  z1,z2:  codes  (0-511)  der  zu  verknuepfenden 

* 

1606  ;* 

zeichenmatrizen 

* 

1608  ;* 

* 

1610  ;***•***' 

tu****************************************** 

*** 

1615  ; 

1620  cheor 

jsr  chgm  ;zum  gemeinsamen  teil 

1630 

tdy  #0 

1640  chel 

Ida  (zp3),y 

1650 

eor  ($14), y 

1660 

sta  (zp3),y 

1670 

iny 

1680 

cpy  #8 

1690 

bne  chel 

1700 

jmp  orgkon  ;auf  rom  zurueckschalten 

Haben  Sie  alle  Änderungen  durchgeführt,  müssen  Sie  i 

ner  noch  mitteilen,  daß  er  den  neuen  Zeichensatz  benutzen  soll. 
Dazu  dient  die  Routine  CHSWITCH: 


1710 

1712 

1714 

1716 

1718 

1720 

1722 

1724 

1726 

1728 

1730 

1735 

1740 

1750 

1760 

1770 

1780 

1790 


.****************************************************** 

.*  * 

;*  chswitch  - auf  neuen  Zeichensatz  umschatten  * 

.*  * 

;*  aufruf:  sys  51955, nr  * 

;*  nr:  nummer  des  Zeichensatzes  * 

;*  (0-6;  siehe  charset)  * 

.*  * 


chswitch  jsr  Saefd 
jsr  gtchsnr 
Ida  53272 
and  #240 
ora  chrtab3,x 
sta  53272 


;auf  komme  testen 
;zeichensatznunmer  nach  x 
;1.  register 

;entspr.  bits  setzen 
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1800 

Ida  56576 

;2.  reg i ster 

1810 

and  #252 

1820 

ora  chrtab2,x 

;entspr.  bits  setzen 

1830 

sta  56576 

1840 
1850  ; 

rts 

; fertig 

1852  ; 

1854  ;****’ 
1856  ;* 

****************** 

********•*•*****•••**•••••*•••** 

* 

1858  ;*  choldcon  - auf  Originalzeichensatz  zuruecksch.  * 
1860  ;*  * 
1862  ;*  aufruf:  sys  51984  * 
1864  ;*  * 
1 £66  . ****************************************************** 
1870  ; 


1880 

choldcon  Ida  #21 

;1.  register 

1890 

sta  53272 

1900 

Ida  56576 

;2.  register 

1910 

and  #252 

1920 

ora  #3 

1930 

sta  56576 

1940 

Ida  #4 

;3.  register 

1950 

sta  648 

1960 

rts 

; fertig 

Um  wieder  auf  den  "Originalzeichensatz"  zurückzuschalten,  be- 
nutzen Sie  die  Routine  CHOLDCON.  Assembler-Programmierer 
vergessen  bitte  nicht,  noch  die  gemeinsamen  Unterprogramme 
abzutippen.  Die  BASIC- Programmierer  finden  im  Anschluß  wie- 
der einen  BASIC-Lader  zu  allen  Routinen: 


1970 

1980 

1990 

2000 

2010 

2015 

2020 

2025 

2030 

2035 

2040 

2060 


****************************************************** 
* * 

* gemeinsame  Unterprogramme  * 

* * 

****************************************************** 


***  zeichensatznummer  einiesen  *** 


2070  gtchsnr  jsr  $b79e  ;nummer  einiesen 

2080  cpx  #7  ;>6? 

2090  bcc  gtcl  ;nein,  ok 

2100  gtcf  jmp  $b248  ;ja,  fehler 

2110  gtcl  rts  ;fertig 

2120  ; 

2140  ;***  Zeichencode  einiesen  und  adresse  berechnen  *** 


2150  gtchrcd  jsr  $ad8a  ;nummer  einiesen 
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2160 

jsr  $b7f7 

;und  nach  integer  wandeln 

2170 

cmp  #2 

;high-byte>1? 

2180 

bcs  gtcf 

;ja,  fehler 

2190  gtchrcdZ  Idx  #3 

; zei chencode*8 

2200  gtcdl 

asl  $14 

2210 

rol  $15 

2220 

dex 

2230 

bne  gtcdl 

2240 

clc 

/absolute  adresse  berechnen 

2250 

Ida  chadrl 

,'basisadresse 

2260 

ade  $14 

2270 

sta  $14 

2280 

Ida  chadrh 

2290 

ade  $15 

2300 

sta  $15 

2310 
2320  ; 

rts 

/fertig 

2340  ;***  zwei  Zeichencodes  bearbeiten  *** 

2350  gtchcd2 

jsr  gtehred 

/I.  Zeichencode  holen 

2360 

Ida  $14 

/und  unspei ehern 

2370 

Idy  $15 

2380 

sta  zp3 

2390 

sty  zp4 

2400 

jsr  $aefd 

/auf  konria  testen 

2410 

jmp  gtehred 

/2.  Zeichencode  holen 

2420  / 

2440  ;***  aktuellen  zeichensatz  testen  *** 


2450  chtest 

Ida  chaklfl 

/flag  laden 

2460 

bne  chttl 

2470 

jmp  $b248 

/Originalzeichensatz,  fehler 

2480  chttl 

rts 

/fertig 

2490  ; 

2510  ;***  matrixposi tion  einiesen  *** 


2520  gtsnr 

jsr  $b79e 

/Position 

2530 

txa 

z=o? 

2540 

bne  gtsl 

/nein,  ok 

2550  gts2 

jmp  $b248 

/ja,  fehler 

2560  gtsl 

cpx  #9 

/ >8? 

2570 

bcs  gts2 

/ja,  fehler 

2580 

dex 

2590 

stx  zw 

/ zwi schenspei ehern 

2600 

rts 

/fertig 

2610  / 

2620  /***  auf 

ram  umschalten 

*** 

2630  ramkon 

sei 

/interrupt  sperren 

2640 

Ida  #53 

2650 

sta  $01 

2660 
2670  ; 

rts 

/fertig 

2690  /***  auf 

rom  umschalten 

*** 

2700  orgkon 

Ida  #55 

2710 

sta  $01 

2720 

cli 

/internet  freigeben 
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2730  rts  ; fertig 

274a  ; 

2750  ; 

2760  ; 

2770  •***  zeichensatz- tabeilen  ***************************** 
2790  chrtabl  .wo  53248,0,4096,8192,12288,57344,61440 
2810  chrtab2  .by  3,3,3,3,3,0,0  ;register  56576 
2820  chrtab3  .by  4,0,4,8,12,8,12  ;register  53272 
2830  ; 

2840  ; 

2850  ; 

2860  ;***  datenspeicher 
2870  chaklfl  .by  0 
2880  chadrl  .by  0 
2890  chadrh  .by  0 


************************************ 
;arbei tszeichensatz 
; Zeichensatzbasisadresse  (low) 
J(high) 


Der  BASIC-Lader: 

1 00  rem  **************************************************** 


102 

rem 

* 

* 

104 

rem 

* 

Programm:  zeichensatz 

*' 

106 

rem 

* 

programmlaenge:  426  bytes 

* 

108 

rem 

* 

routinen  zur  zeichensatzprogrammierung 

* 

110 

rem 

* 

* 

112 

rem 

**************************************************** 

114 

rem 

* 

* 

116 

rem 

* 

charset 

- aktuellen  zeichensatz  festlegen 

* 

118 

rem 

* 

* 

120 

rem 

* 

auf ruf : 

sys  5171 1,nr 

* 

122 

rem 

* 

nr: 

nummer  des  Zeichensatzes 

* 

124 

rem 

* 

0:  53248-57343  (original!) 

* 

126 

rem 

* 

1:  0-  4095 

* 

128 

rem 

* 

2 4096-  8191 

* 

130 

rem 

* 

3 8192-12287 

* 

132 

rem 

* 

4 12288-16383 

* 

134 

rem 

* 

5 57344-61439 

* 

136 

rem 

* 

6 61440-65535 

* 

138 

rem 

* 

* 

140 

rem 

**************************************************** 

142 

rem 

* 

* 

144 

rem 

* 

chread  ■ 

- matrix-byte  eines  Zeichens  auslesen 

* 

146 

rem 

* 

* 

148 

rem 

* 

auf ruf : 

sys  51736, zn, mp 

* 

150 

rem 

* 

zn: 

Zeichencode  (0-511) 

* 

152 

rem 

* 

mp: 

matrixposition  (1-8) 

* 

154 

rem 

* 

* 

156 

rem 

**************************************************** 

158 

rem 

* 

* 

160 

rem 

* 

chwrite 

- matrix-byte  eines  Zeichens  schreiben 

* 

162 

rem 

* 

* 

164 

rem 

* 

auf ruf : 

sys  51774, zn,mp,wt 

* 

166 

rem 

* 

zn: 

Zeichencode  (0-511) 

* 

Die  Wunderwelt  der  Grafik 


645 


168  rem  * mp:  matrixposition  (1-8)  * 
170  rem  * wt:  matrixcode  (0-255)  * 
172  rem  * * 
174  rem  •********•*******•••*•••••***••••*••**••*•••••**«*** 
176  rem  * * 
178  rem  * chmove  - matrix  eines  Zeichens  verschieben  * 
180  rem  * * 
182  rem  * auf ruf:  sys  51801, z1,z2  * 
184  rem*  zl:  Zeichencode  (quelle)  * 
186  rem  * z2:  Zeichencode  (ziel)  * 
188  rem  * * 

192  rem  * * 
194  rem  * chchange  - zwei  zeichenmatrizen  vertauschen  * 
196  rem  * * 
198  rem  * auf ruf:  sys  51835, z1,z2  * 
200  rem  * z1,z2:  Codes  (0-511)  der  zu  vertauschenden  * 
202  rem  * zeichenmatrizen  * 
204  rem  * * 
206  rem  **************************************************** 
208  rem  * * 
210  rem  * chinvert  - Zeichenmatrix  invertieren  * 
212  rem  * * 
214  rem  * auf ruf:  sys  51870, zn  * 
216  rem  * zn:  Zeichencode  (0-511)  * 
218  rem  * * 
220  re*  **************************************************** 
222  rem  * * 
224  rem  * chand  - zwei  zeichenmatrizen  und- verknuepfen  * 
226  rem  • * 
228  rem  * auf ruf:  sys  51898, z1,z2  * 
230  rem  * z1,z2:  Codes  (0-511)  der  zu  verknuepfenden  * 
232  rem  * zeichenmatrizen  * 
234  rem  * * 
236  rem  **************************************************** 
238  rem  * * 
240  rem  * chor  - zwei  zeichenmatrizen  oder-verknuepfen  * 
242  rem  * * 
244  rem  * auf ruf:  sys  51917, z1,z2  * 
246  rem  * z1,z2:  Codes  (0-511)  der  zu  verknuepfenden  * 
248  rem  * zeichenmatrizen  * 
250  rem  * * 

254  rem  * , * 
256  rem  * cheor  - zwei  zeichenmatrizen  exclusiv-oder-verk.  * 
258  rem  * * 
260  rem  * auf ruf:  sys  51936, z1,z2  * 
262  rem  * z1,z2:  Codes  (0-511)  der  zu  verknuepfenden  * 
264  rem  * zeichenmatrizen  * 
266  rem  * * 
268  rem  **************************************************** 
270  rem  * * 
272  rem  * chswitch  - auf  neuen  zeichensatz  unschalten  * 
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274  rem  * * 

276  rem  * auf ruf:  sys  51955fnr  * 

278  rem  * nr:  nimmer  des  Zeichensatzes  * 

280  rem  * (0-6;  siehe  charset)  * 

282  rem  * * 

284  rem  **************************************************** 

286  rem  * * 

288  rem  * choldcon  - auf  Originalzeichensatz  zuruecksch.  * 

290  rem  * * 

292  rem  * auf ruf:  sys  51984  * 

294  rem  * * 

296  rem  **************************************************** 

298  : 

300  : 

400  rem  ***  datas  einiesen  *** 

410  restore:zl=1000 

420  ad=51711:rem  Startadresse  der  routine 
430  ps=0:z=0 

440  read  wt:if  wt=-1  then  print  "datas  ok!":end 

450  poke  ad,wt :ad=ad+1 :z=z+1 

460  ps=ps+wt:rem  pruef summe 

470  if  z<10  then  440:rem  eine  zeile  lesen 

480  read  wt 

485  if  ps<>wt  then  print  "data-fehler  in  zei  le,,;zl;"!  ":end 
490  zl=zl+10:goto  430 
500  : 

510  : 

990  rem  ***  datas  *** 

1000  data  32,253,174,32,37,203,142,166,203,138,1380 
1010  data  10,168,185,138,203,141,167,203,185,139,1539 
1020  data  203,141,168,203,96,32,253,174,32,48,1350 
1030  data  203,32,253.174,32,109,203,120.169,53,1348 
1040  data  174,166,203,208,2,169,51,133,1,164,1271 
1050  data  2,177,20,133,2,32,132,203,164,2,867 
1060  data  132,251,96,32,100,203,32,253,174,32,1305 
1070  data  48,203,32,253,174,32,109,203,32,253,1339 
1080  data  174,32,158,183,138,164,2,145,20,96,1112 
1090  data  32,100,203,32,253,174,32,83,203,165,1277 
1100  data  253,164,254,133,34,132,35,32,126,203,1366 
1110  data  160,0,177,34,145,20,200,192,8,208,1144 
1120  data  247,76,132,203,32,146,202,160,0,177,1375 
1130  data  253; 170, 177,20, 145,253, 138, 145,20,200, 1521 
1140  data  192,8,208,241,76,132,203,32,100,203,1395 
1150  data  32,253,174,32,83,203,76,126,203,32,1214 
1160  data  100,203,32,253,174,32,48,203,32,126,1203 
1170  data  203,160,0,177,20,73,255,145,20,200,1253 
1180  data  192,8,208,245,76,132,203,32,146,202,1444 
1190  data  160,0,177,253,49,20,145,253,200,192,1449 
1200  data  8,208,245,76,132,203,32,146,202,160,1412 
1210  data  0,177,253,17,20,145,253,200,192,8,1265 
1220  data  208,245,76,132,203,32,146,202,160,0,1404 
1230  data  177,253,81,20,145,253,200,192,8,208,1537 
1240  data  245,76,132,203,32,253,174,32,37,203,1387 


Die  Wunderwelt  der  Grafik 


647 


1250  data  173,24,208,41,240,29,159,203,141,24,1242 
1260  data  208,173,0,221,41,252,29,152,203,141,1420 
1270  data  0,221,96,169,21,141,24,208,173,0,1053 
1280  data  221,41,252,9,3,141,0,221,169,4,1061 
1290  data  141,136,2,96,32,158,183,224,7,144,1123 
1300  data  3,76,72,178,96,32,138,173,32,247,1047 
1310  data  183,201,2,176,242,162,3,6,20,38,1033 
1320  data  21,202,208,249,24,173,167,203,101,20,1368 
1330  data  133,20,173,168,203,101,21,133,21,96,1069 
1340  data  32,48,203,165,20,164,21,133,253,132,1171 
1350  data  254,32,253,174,76,48,203,173,166,203,1582 
1360  data  208,3,76,72,178,96,32,158,183,138,1144 
1370  data  208,3,76,72,178,224,9,176,249,202,1397 
1380  data  134,2,96,120,169,53,133,1,96,169,973 
1390  data  55,133,1,88,96,0,208,0,0,0,581 
1400  data  16,0,32,0,48,0,224,0,240,3,563 
1410  data  3,3,3,3,0,0,4,0,4,8.28 
1420  data  12,8,12,0,0,0,0,0,0,0,32 
2000  data  -1:rem  endmarkierung 


Nachdem  wir  die  Maschinensprache-Routinen  erarbeitet  haben, 
können  wir  das  Hauptprogramm  des  Zeichen-Editors  ergänzen. 
Als  erstes  fügen  Sie  die  Zeile  146  ein,  die  die  Routinensamm- 
lung nachlädt: 


146  if  ft=1  then  fl=2:load  "zeichensatz,,,8,1 


Außerdem  benötigen  wir  ja  die  Routine  TRANSFER: 

147  if  f 1=2  then  fl=3:load  "transfer",8,1 

Um  den  geänderten  Zeichensatz  dauerhaft  zu  sichern,  muß  er 
auf  Diskette  gespeichert  werden.  Dazu  verwenden  wir  die  Rou- 
tine DSAVEM  aus  Kapitel  4: 

148  if  ft=3  then  fl=4:load  "dsavem",8,1 

Das  weitere  Hauptprogramm  sieht  wie  folgt  aus: 

210  rem  zeichensatz  in  bereich  12288-16383  verlagern 
215  sys  49152,53248,57343,12288, 1 :rem  umspeichern 
220  sys  51711, 4:rem  charset 
225  sys  51955, 4:rem  chswitch 
230  : 

235  print  "neues  Zeichen  entwerfen  : -1-" 

240  print  "altes  Zeichen  aendern:  -2-" 

242  print  "programm  beenden:  -3-" 
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245  input  "ihre  wähl  (1,2,3):  ";wl 

250  if  wl <1  and  wl>3  then  250: rem  falsche  eingabe 

255  : 

257  if  wl=3  then  end 
260  if  wl=2  then  335 
265  rem  neues  Zeichen 
270  gosub  1250: rem  editor 
280  print  chr$(147) 

290  input  "nummer  des  Zeichens:  ";zn 

300  rem  Zeichenmatrix  in  zeichensatz  schreiben  (chwrite) 

305  for  mp=1  to  8 

310  sys  51774,zn,mp,asc(mid$(mtS,mp,1)) 

315  next  mp 

320  goto  235:  rem  hauptmenue 
325  : 

330  rem  altes  Zeichen 
335  print  chr$(147) 

340  input  "nummer  des  Zeichens:  ";zn 

350  rem  zeichenmatrix  aus  zeichensatz  holen  (chread) 

352  mt$="" 

355  for  mp=1  to  8 

360  sys  51736, zn,mp:mt$=mt$+chr$(peek(251 )) 

365  next  mp 

370  gosub  11 00: rem  editor 

375  rem  zeichenmatrix  in  zeichensatz  schreiben  (chwrite) 

380  for  mp=1  to  8 

385  sys  51774,zn,mp,asc(mid$(mt$,mp,1)) 

390  next  mp 

395  goto  235: rem  hauptmenue 

Das  Programm  fragt  Sie,  ob  Sie  ein  neues  Zeichen  entwerfen 
oder  ein  vorhandenes  Zeichen  darstellen  und  verändern  wollen. 
Ein  neues  Zeichen  wird  anschließend  an  der  erfragten  Position 
(Nummer  des  Zeichens)  in  den  Zeichensatz  geschrieben. 


Im  zweiten  Fall  möchte  das  Programm  die  Nummer  des  Zeichens 
wissen,  dessen  Zeichenmatrix  dargestellt  werden  soll.  Nachdem 
Sie  die  Änderungen  durchgeführt  haben,  wird  die  geänderte 
Zeichenmatrix  in  den  Zeichensatz  zurückgeschrieben.  Um  den 
geänderten  Zeichensatz  zum  Schluß  auf  Diskette  zu  speichern, 
geben  Sie  einfach  ein: 

SYS  49489, "ZEICHENSATZ", 12288, 16383:REM  DSAVEM 


Wie  eingangs  versprochen,  möchte  ich  Ihnen  zum  Schluß  ein 
Programm  vorstellen,  das  einen  "deutschen  Zeichensatz"  erzeugt: 
Die  Buchstaben  Y und  Z werden  vertauscht.  Anstelle  des 


Die  Wunderwelt  der  Grafik 


649 


"Pfund"-Zeichens  tritt  ein  Doppel-S  (ß).  Die  deutschen  Umlaute 
ä,  ö und  ü sind  über  die  Tasten  für  den  Doppelpunkt,  das  Semi- 
kolon sowie  den  "Klammeraffen"  erreichbar. 


100  rem  deutscher  zeichensatz  auf  dein  64 'er 
110  : 

120  re«  nasch inenprog ranne  nachladen 
130  if  fl=0  then  fl*1:load  Mtransfer,,l8, 1 
140  if  fl=1  then  fl=2:load  “zeichensatz", 8,1 
150  : 

160  rem  zeichensatz  in  bereich  12288-16383  verlagern 
170  sys  49152, 53248, 57343, 12288, Irrem  umspeichern 
180  sys  5171 1,4: rem  charset 
190  sys  51955, 4:rem  chswitch 
200  : 

210  re«  y und  z vertauschen  (mit  chchange) 

220  sys  51835, 25, 26:rem  tei l zeichensatz  1,  grossbuchstaben 
230  sys  51835, 153, 154: rem  tei l zeichensatz  1,  grossb.,  revers 
240  sys  51835, 281, 282:rem  tei Izeichensatz  2,  kleinbuchstaben 
250  sys  51835, 409, 410:rem  tei Izeichensatz  2,  kleinb. , revers 
260  sys  51835,345,346: rem  tei Izeichensatz  2,  grossbuchstaben 
270  sys  51835,473,474: rem  tei Izeichensatz  2,  grossb.,  revers 
280  : 

290  rem  deutscher  umlaut  • ä • 

300  sys  51801, 1,59: rem  'a'  zun  (chmove) 

310  sys  51774, 59, 1,219: rem  punkte  einfuegen  (chwrite) 

320  sys  51801 ,59, 187:rem  (chmove)  inverses  'ä' 

330  sys  51870, 187:rem  (chinvert)  erzeugen 

340  sys  51801, 257,315:rem  (chmove)  tei Izeichensatz  2 

350  sys  51774, 315, 1,102: rem  (chwrite) 

360  sys  51801, 315, 443: rem  (chmove) 

370  sys  51870, 443:rem  (chinvert) 

380  sys  51801, 59, 285: rem  (chmove) 

390  sys  51801, 187, 413: rem  (chmove) 

400  : 

410  rem  deutscher  unlaut  'ö1 

420  sys  51801, 15, 58:rem  ’o'  zun  (chmove) 

430  sys  51774, 58, 1,195:rem  punkte  (chwrite) 

440  sys  51774,58,2,60:rem  einfuegen  (chwrite) 

450  sys  51801, 58, 186: rem  (chmove)  inverses  'ö1 
460  sys  51870, 186:rem  (chinvert)  erzeugen 
470  sys  51801, 271, 314: rem  (chmove)  tei Izeichensatz  2 
480  sys  51774, 314, 1,102:rem  (chwrite) 

490  sys  51801, 314, 442: rem  (chmove) 

500  sys  51870, 442:rem  (chinvert) 

510  sys  51801, 58, 284: rem  (chmove) 

520  sys  51801, 186, 412: rem  (chmove) 

530  : 

540  rem  deutscher  unlaut  • ü* 

550  sys  51801, 21,0: rem  'u'  zun  '3'  (chmove) 

560  sys  51774,0, 2, 0:rem  punkte  einfuegen  (chwrite) 

570  sys  51801, 0,128:rem  (chmove)  inverses  'ä' 
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580  sys  51870, 128: rem  (chinvert)  erzeugen 

590  sys  5 1801, 277, 256: rem  (chmove)  teil  Zeichensatz  2 

600  sys  51774,256,3,0:rem  (chwrite) 

610  sys  51774, 256, 1,102:rem  (chwrite) 

620  sys  5 1801, 256, 384: rem  (chmove) 

630  sys  51870, 384:rem  (chinvert) 

640  sys  51801, 0,378: rem  (chmove) 

650  sys  51801, 128, 506:rem  (chmove) 

660  : 

670  rem  'doppel-s' 

680  for  mp=1  to  8 

690  read  mc:sys  51774, 28, mp,mc:rem  (chwrite) 

700  next  mp 

710  sys  51801, 28, 156:rem  (chmove) 

720  sys  51870, 156: rem  (chinvert) 

730  sys  51801 ,28, 284:rem  (chmove) 

740  sys  51801, 156, 412:rem  (chmove) 

750  data  60,102,102,124,102,102,124,96 


6.5  Einführung  in  die  GEOS-Programmierung 

Ein  weiteres  Betätigungsfeld  für  grafikbegeisterte  Programmierer 
bietet  die  Benutzeroberfläche  GEOS.  Leider  ist  GEOS  aber  nicht 
für  eine  Zusammenarbeit  mit  dem  BASIC  2.0  ausgelegt. 

Möchte  man  unter  GEOS  programmieren,  kommt  man  daher  um 
Assembler  nicht  herum.  Um  eigene  Programme  unter  GEOS 
schreiben  zu  können,  müssen  wir  uns  zunächst  einmal  mit  dem 
grundsätzlichen  Aufbau  von  GEOS  befassen.  GEOS  besteht  an 
sich  aus  vier  "Teilen": 

► dem  GEOS-Kernal 

► dem  Desktop 

► den  Applikationen 

► den  Accessoires 

Das  Desktop,  der  "Schreibtisch"  von  GEOS,  dürfte  Ihnen  zur 
Genüge  vertraut  sein.  Bei  den  Applikationen  handelt  es  sich  um 
Anwendungsprogramme,  wie  etwa  GEOWRITE  oder  GEO- 
PAINT,  die  vom  Desktop  aus  gestartet  werden  können. 

Das  besondere  bei  den  Accessoires  ist  die  Möglichkeit,  sie  aus 
einer  Applikation  heraus  aufrufen  zu  können.  Bekannte  Beispiele 
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für  Accessoires  sind  das  Notepad,  die  Alarm-Clock  und  der 
Calculator.  Sowohl  das  Desktop  als  auch  sämtliche  Applikationen 
und  Accessoires  arbeiten  mit  denselben  gestalterischen  Elemen- 
ten. Dazu  zählen  insbesondere  die  sogenannten  Pulldown-Menüs 
und  die  Dialogboxen. 

Wie  Sie  sich  leicht  vorstellen  können,  erfordert  es  einiges  an 
Programmieraufwand,  um  etwa  eine  Dialogbox  oder  ein  Pull- 
down-Menü  zu  erzeugen.  Daher  wäre  es  natürlich  reine  Spei- 
cherplatzverschwendung, wenn  jede  Applikation  und  jedes  Ac- 
cessory  die  Programmroutinen  zur  Erzeugung  dieser  Elemente 
enthalten  würde. 

Aus  diesem  Grund  sind  alle  Routinen,  die  von  allgemeiner  Be- 
deutung sind,  in  einem  eigenen  Programm  zusammengefaßt,  dem 
GEOS-Kernal.  Das  GEOS-Kernal  stellt  sozusagen  das  "Betriebs- 
system" von  GEOS  dar.  Es  ist  im  Grunde  genommen  nichts  an- 
deres als  eine  Sammlung  von  Unterprogrammen,  die  von  den 
anderen  GEOS-Teilen  genutzt  werden.  Wenn  eine  Applikation 
beispielsweise  einen  Text  ausgeben  möchte,  ruft  sie  einfach  mit 

JSR  $ 

das  entsprechende  Unterprogramm  im  GEOS-Kernal  auf.  Diese 
Vorgehensweise  kennen  Sie  ja  auch  schon  vom  "normalen"  Be- 
triebssystem des  Commodore  64,  das  ja  ebenfalls  verschiedenste 
Routinen,  etwa  zur  Ein-  und  Ausgabe  von  Daten,  bereitstellt, 
mit  denen  man  sich  das  Programmiererleben  leichter  machen 
kann. 

Das  GEOS-Kernal  kann  aber  noch  mehr.  Wenn  ein  Programm 
ein  Pulldown-Menü  anbietet,  muß  dieses  ständig  "überwacht" 
werden,  da  ja  der  Anwender  des  Programms  die  Möglichkeit 
hat,  einen  bestimmten  Menüpunkt  zu  (fast)  jedem  beliebigen 
Zeitpunkt  anzuklicken. 

Zu  diesem  Zweck  verfügt  das  GEOS-Kernal  über  eine  zentrale 
"Job-Schleife",  die  regelmäßig  durchlaufen  wird.  Innerhalb  die- 
ser Job-Schleife  werden  verschiedene  Unterprogramme  aufge- 
rufen, die  beispielsweise  kontrollieren,  ob  ein  Menüpunkt  eines 
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Pulldown-Menüs  angeklickt  wurde,  und  unter  anderem  dafür 
sorgen,  daß  die  interne  Uhr  von  GEOS  weitergestellt  wird. 

Die  jeweils  gerade  ablaufende  Applikation  wird  ebenfalls  als  ein 
Unterprogramm  in  die  Job-Schleife  "eingehängt"  und  von  dieser 
immer  wieder  aufgerufen.  Grafisch  veranschaulicht  sieht  das  so 
aus: 


1 > JSR  Job  1 (Pull down- Menü) 

JSR  Job  2 (Maus) 

JSR  Job  3 (Systemzeit) 


JSR  Applikation 
JMP  Start  


Tatsächlich  ist  der  Aufbau  der  Job-Schleife  etwas  komplizierter. 
Hier  soll  es  ja  aber  nur  um  das  Prinzip  gehen.  Wesentlich  ist, 
daß  die  Kontrolle  der  Systemaktivitäten  unter  GEOS  nicht  wie 
sonst  beim  Anwendungsprogramm  liegt,  sondern  beim  GEOS- 
Kernal,  das  je  nach  aufgetretenem  Ereignis  (z.B.  Mausklick)  in 
entsprechende  Unterprogramme  verzweigt. 

Es  würde  an  dieser  Stelle  zu  weit  führen,  auf  weitere  Details, 
etwa,  wie  eine  selbstgeschriebene  Applikation  in  die  Job- 
Schleife  eingebunden  werden  muß,  einzugehen.  Ich  möchte  Ih- 
nen hier  aber  trotzdem  einmal  einen  kurzen  praktischen  Einblick 
in  die  Programmierung  unter  GEOS  geben.  Alle  Routinen  des 
GEOS-Kernal  sind  - wie  die  des  64’er-Betriebssystems  - über 
eine  sogenannte  "Sprungtabelle"  erreichbar. 

Diese  Sprungtabelle  liegt  im  Rechnerspeicher  von  $000  bis 
$C2C7.  Die  Routine  zur  Erzeugung  von  Dialogboxen  jeder  Art 
beispielsweise  hat  die  Adresse  $C256,  kann  also  mit 

JSR  SC256 

aufgerufen  werden.  Nehmen  wir  einmal  an,  Sie  möchten  in  ei- 
nem Programm  eine  Dialogbox  erzeugen.  Wie  sieht  das  nun  kon- 


Die  Wunderwelt  der  Grafik 


653 


kret  aus?  Die  Dialogbox- Routine  benötigt  natürlich  Informatio- 
nen darüber,  wie  die  Dialogbox  aussehen  soll.  Diese  werden  ihr 
in  einer  Datentabelle  übergeben.  Wo  die  Tabelle  im  Rechner- 
speicher liegt,  teilen  Sie  der  Routine  über  einen  sogenannten 
"Zeiger"  mit,  der  in  den  Speicherzellen  $02/$03  übergeben  wird: 


100 

110 

120 

130 

140 


Ida  #<( tabelle) 
Idy  #>( tabelle) 
sta  $02 
sty  $03 
jsr  $c256 


; zeiger 
;auf  tabelle 
; zeiger 
;setzen 

; rout  ine  auf  rufen 


500  tabelle  .by 


Durch  gezielte  Änderungen  in  der  Datentabelle  lassen  sich  so 
völlig  verschiedenartige  Dialogboxen  erzeugen,  ohne  am  Pro- 
gramm selbst  etwas  ändern  zu  müssen. 


Die  Tabelle  nun  muß  wie  folgt  auf  gebaut  sein:  Das  erste  Byte 
der  Tabelle  bestimmt  die  Größe  der  Dialogbox.  Ist  das  7.  Bit  des 
Bytes  gleich  1,  wird  ein  Standardfenster,  wie  es  auch  im  Desktop 
verwendet  wird,  erzeugt.  Ist  das  Bit  gleich  Null,  müssen  in  den 
folgenden  sechs  Bytes  die  genauen  Koordinaten  der  Dialogbox 
folgen: 


► oberer  Rand 

► unterer  Rand 

► linker  Rand  (low) 

► linker  Rand  (high) 

► rechter  Rand  (low) 

► rechter  Rand  (high) 

Zur  Textaus-  und  -eingabe  und  für  die  sogenannten  Klickfelder 
stehen  spezielle  Kommandocodes  zur  Verfügung.  Der  Code  $0B 
beispielsweise  gibt  einen  Text  in  die  Dialogbox  aus.  Dazu  wer- 
den hinter  dem  Code  folgende  Daten  abgelegt: 

► Abstand  des  Textes  vom  linken  Rand  des  Fensters 

► Abstand  vom  oberen  Rand 

► Zeiger  auf  den  auszugebenden  Text  (low) 

► Zeiger  auf  den  auszugebenden  Text  (high) 
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Der  auszugebende  Text  (und  auch  die  Datentabelle)  müssen  mit 
einer  Null  abgeschlossen  sein.  Ein  Beispiel:  Sie  möchten  einen 
Text  in  ein  Fenster  im  oberen  Bereich  des  Bildschirms  ausgeben 
lassen.  Die  Tabelle  muß  dann  so  auf gebaut  sein: 


500  tabelle 

.by 

$01 

510 

.by 

$0a 

520 

.by 

$32 

530 

.by 

$0a 

540 

.by 

$00 

550 

.by 

$2c 

560 

.by 

$01 

570 

.by 

$0b 

580 

.by 

$10 

590 

.by 

$10 

600 

.by 

<(text) 

610 

.by 

>(text) 

620 

.by 

$00 

630  / 

640  text 

.tx 

"das  ist 

650 

.by 

0 / tex 

;bit7=0  ->koordinaten  folgen 
;oberer  Rand  (y=10) 

/unterer  Rand  (y=50) 

/linker  Rand  (x=10) 
/high-byte 

/rechter  Rand  (x=300) 

/high-byte 

/textausgabe 

/abstand  vom  linken  rand 
/abstand  vom  oberen  rand 
/zeiger 
/auf  text 
/tabel lenende 

ein  bei  spiel text." 


Für  die  sechs  Klickfelder  sind  die  folgenden  Kommandocodes 
zuständig: 


$01:  OK 
$02:  CANCEL 
$03:  YES 
$04:  NO 
$05:  OPEN 
$06:  DISK 


Hinter  dem  Kommandocode  folgt  in  zwei  Bytes  der  Abstand  des 
Feldes  vom  linken  und  oberen  Rand.  Um  beispielsweise  eine  Ja/ 
Nein- Abfrage  zu  realisieren,  geht  man  so  vor: 


100  Ida  #<(tabelle)  /zeiger 

110  Idy  #>(tabelle)  /auf  tabelle 


120 

sta  $02 

130 

sty  $03 

140 

jsr  $c256 

150 

Ida  $02 

160 

170 

cmp  #$03 

180 

beq  yes 

190 

cmp  #$04 

200 

beq  no 

/zeiger 

/setzen 

/routine  auf rufen 
/$02  enthaelt  konmandocode 
/des  geklickten  feldes 
/'yes'-feld  geklickt? 

;ja 

/'no'-feld  geklickt? 

/ja 
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300  yes 

; 'yes'-feld 

400  no 

; 'no'-feld 

500  tabelle 

.by  S81 

;bit7=1  - »standardfenster 

510 

.by  $0b 

;textausgabe 

520 

.by  $05 

;abstand  vom  linken 

rand 

530 

.by  S0a 

;abstand  vom  oberen 

rand 

540 

.by  <(text) 

; zeiger 

550 

.by  >(text) 

;auf  text 

560 

.by  $03 

; 'yes'-feld 

570 

.by  $05 

;abstand  vom  linken 

rand 

580 

.by  $40 

;abstand  vom  oberen 

rand 

590 

.by  $04 

;'no'-feld 

600 

.by  $15 

;abstand  vom  linken 

rand 

610 

.by  $40 

;abstand  vom  oberen 

rand 

620 

.by  $00 

;tabellenende 

630  ; 

640  text 

.tx  "wollen 

sie  weitermachen?“ 

650 

.by  0 ; textende 

Wie  Sie  sehen,  läßt  sich  unter  GEOS  sehr  komfortabel  und  flexi- 
bel programmieren.  Aber  auch  ohne  GEOS  sind  die  Möglich- 
keiten der  Grafikprogrammierung  auf  dem  Commodore  64  der- 
art vielfältig,  daß  ich  Ihnen  im  Rahmen  dieses  Kapitels  unmög- 
lich alles  vorstellen  und  zeigen  konnte. 
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7.  Sound  und  Musik 


In  diesem  Kapitel  geht  es  um  die  Programmierung  von  Sound 
und  Musik  auf  dem  Commodore  64.  Auch  dabei  steht  die  Praxis 
wieder  im  Mittelpunkt.  Die  Theorie  habe  ich  auf  das  wirklich 
notwendige  beschränkt.  Leider  läßt  einen  das  BASIC  2.0  auch 
bei  der  Sound-Programmierung  fast  vollkommen  im  Stich.  Der 
einzige  Weg  führt  über  unhandliche  POKE-  und  PEEK-Wüsten. 
Da  man  damit  natürlich  nicht  vernünftig  arbeiten  kann,  habe  ich 
für  Sie  wieder  eine  umfangreiche  Sammlung  von  Mashinen- 
sprache-Routinen  zusammengestellt,  die  die  Programmierung 
wesentlich  vereinfachen. 

Zunächst  sollten  Sie  aber  einmal  die  wichtigsten  Grundlagen  zur 
Sound-Programmierung  erfahren. 


7.1  Grundlagen 

Verantwortlich  für  die  Tonerzeugung  ist  ein  spezieller  Baustein 
im  Commodore  64,  der  sogenannte  "Sound  Interface  Device", 
kurz  SID.  Möchte  man  dem  Commodore  64  einen  bestimmten 
Ton  entlocken,  muß  man  den  SID  entsprechend  programmieren. 

Dazu  verfügt  der  SID  über  insgesamt  24  Register,  die  allerdings 
nur  beschrieben  und  nicht  gelesen  werden  können.  In  den  ein- 
zelnen Registern  hat  zum  Teil  jedes  Bit  eine  verschiedene  Funk- 
tion. Der  SID  verfügt  über  drei  getrennte  Tongeneratoren,  die  in 
einem  Frequenzbereich  von  null  bis  etwa  4.000  Hertz  arbeiten 
können.  Jeder  der  Tongeneratoren  kann  unabhängig  von  den  an- 
deren über  jeweils  sieben  Register  gesteuert  werden.  Der  Com- 
modore 64  ist  also  in  der  Lage  "dreistimmig"  zu  spielen. 

Über  die  Register  lassen  sich  die  gewünschte  Frequenz  eines  To- 
nes, seine  Wellenform  sowie  die  sogenannte  Hüllkurve,  die  den 
Lautstärkeverlauf  beeinflußt,  einstellen.  Zusätzlich  verfügt  der 
SID  über  einen  sogenannten  Filter  mit  dem  sich  die  Ausgaben 
der  drei  Tongeneratoren  auf  vielfältige  Art  und  Weise  verändern 
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lassen.  Bei  jedem  der  Tongeneratoren  kann  der  Filter  wahlweise 
zugeschaltet  werden.  Damit  wäre  der  Grobaufbau  des  SID  auch 
schon  geklärt.  Es  gibt  also  drei  voneinander  unabhängige  Ton- 
generatoren, oft  auch  "Stimmen"  genannt,  und  einen  wahlweise 
zuschaltbaren  Filter.  Schön  und  gut,  doch  bevor  wir  uns  nun 
konkret  ans  Programmieren  machen,  sollten  wir  zunächst  kurz 
die  Frage  klären,  was  überhaupt  ein  Ton  ist. 


7.2  Etwas  Tontheorie 

Wie  Sie  sicher  wissen,  sind  Töne,  Musik  und  Geräusche  nichts 
anderes  als  mehr  oder  minder  komplexe  Luftschwingungen,  die 
im  menschlichen  Ohr  vom  Trommelfell  wahrgenommen  werden. 
Jede  Luftschwingung  läßt  sich  physikalisch  als  Welle  auffassen. 
Die  beiden  wesentlichen  Kriterien  zum  Beschreiben  einer  Welle 
(und  damit  eines  Tones)  sind  ihre  Frequenz  und  ihre  Amplitude. 

Die  Frequenz  bezeichnet  die  Anzahl  der  Schwingungen  je  Se- 
kunde. Ihre  Einheit  ist  "Hertz".  Bei  einem  Ton  mit  der  Frequenz 
1.000  Hertz  finden  also  tausend  Schwingungen  je  Sekunde  statt. 
Je  höher  die  Frequenz  ist,  desto  höher  empfinden  wir  den  be- 
treffenden Ton.  Die  Tongeneratoren  des  SID  sind  in  der  Lage, 
Töne  mit  einer  Frequenz  zwischen  0 und  etwa  4.000  Hertz  zu 
erzeugen. 

Die  Amplitude  bezeichnet  die  Höhe  des  "Ausschlags"  einer 
Schwingung.  Je  größer  die  Amplitude  ist,  desto  "lauter"  wird  der 
betreffende  Ton  empfunden.  Beim  SID  läßt  sich  die  Lautstärke 
nur  global  zwischen  Werten  von  0 bis  15  einstellen,  wobei  15  für 
die  Maximal-Lautstärke  steht. 

Ein  weiterer  wichtiger  Punkt  ist  die  "Form"  der  Welle.  Der  SID 
kann  vier  grundlegende  Wellenformen  erzeugen:  Dreieck,  Säge- 
zahn, Rechteck  und  Rauschen.  Töne  in  der  Natur  setzen  sich 
meistens  aus  Schwingungen  der  verschiedensten  Formen  zusam- 
men. Der  SID  ist  nur  in  der  Lage  jeweils  eine  bestimmte  Wel- 
lenform zu  erzeugen.  Nicht  zuletzt  deshalb  klingen  die  Töne  aus 
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dem  Computer  irgendwie  "unnatürlich".  Zwar  kann  man  auch 
mehrere  Wellenformen  überlagern,  das  bringt  aber  in  der  Regel 
keine  große  Klangverbesserung. 

Mit  den  drei  Komponenten  Lautstärke,  Frequenz  und  Wellen- 
form könnte  man  nun  schon  einfache  Dauertöne  erzeugen.  Mehr 
aber  auch  nicht. 

Was  jetzt  noch  fehlt,  ist  die  Möglichkeit,  den  Lautstärkeverlauf 
eines  Tones  festzulegen.  Dazu  dient  - nicht  nur  auf  dem  Com- 
modore  64,  sondern  ganz  allgemein  in  der  Tontheorie  - die  so- 
genannte ADSR-Hüllkurve.  Durch  diese  Hüllkurve  wird  festge- 
legt, zu  welchem  Zeitpunkt  der  betreffende  Ton  welche  Laut- 
stärke haben  soll.  Der  gesamte  Lautstärkeverlauf  wird  dabei  in 
vier  Phasen  unterteilt:  Attack,  Decay,  Sustain  und  Release.  Da- 
her auch  die  Bezeichnung  "ADSR". 

Attack 

In  der  Attack-Phase  steigt  die  Lautstärke  des  Tones  von  null  auf 
die  Gesamtlautstärke  an.  Die  Zeit  dafür  kann  beim  SID  zwischen 
0,002  und  8 Sekunden  liegen. 

Decay 

Nachdem  die  Lautstärke  ihren  Maximalwert  erreicht  hat,  beginnt 
die  Decay-Phase.  In  dieser  Phase  fällt  die  Lautstärke  wieder  ab, 
allerdings  nur  auf  den  durch  den  Sustain-Parameter  bestimmten 
Wert.  Die  Zeitspanne  für  die  Decay-Phase  darf  zwischen  0,008 
und  24  Sekunden  liegen. 

Sustain 

In  der  Sustain-Phase  bleibt  die  Lautstärke  konstant  auf  dem 
festgelegten  Wert.  Die  Zeitdauer  der  Sustain-Phase  läßt  sich 
beim  SID  nicht  einstellen.  Man  muß  sie  "extern"  durch  eine  Pro- 
grammschleife festlegen. 


660 


Das  groß«  Commodore  64-Buch 


Release 

In  der  Release-Phase  fällt  die  Lautstärke  wieder  bis  auf  Null  ab. 
Die  Zeitspanne  für  die  Release-Phase  darf  zwischen  0,008  und 
24  Sekunden  liegen.  Durch  geschickte  Wahl  der  Hüllkurve  lassen 
sich  die  interessantesten  Effekte  erzielen.  Schon  kleinste  Ände- 
rungen an  den  einzelnen  Parametern  bewirken  völlig  andere 
Klänge. 

Mit  diesem  kleinen  Exkurs  haben  wir  alles  an  Theorie  beieinan- 
der, was  wir  für  die  SID-Programmierung  benötigen.  Wenn  Ih- 
nen jetzt  das  eine  oder  andere  noch  nicht  ganz  klar  ist,  macht 
das  natürlich  überhaupt  nichts.  Bekanntlich  lernt  man  ja  durch 
die  Praxis  am  besten,  fangen  wir  also  an! 


7.3  Den  Sound-Chip  programmieren 

Den  Mittelpunkt  dieses  Abschnitts  bildet  eine  Sammlung  von  16 
Mashinensprache-Routinen,  mit  denen  sich  alle  Sound-Effekte 
sehr  komfortabel  programmieren  lassen.  Die  einzelnen  Routinen 
werde  ich  Ihnen  im  Laufe  dieses  Abschnitts  nach  und  nach  vor- 
stellen. Wenn  Sie  die  Routinen  von  Assembler  aus  nutzen  wollen, 
beachten  Sie  bitte,  daß  die  einzelnen  Routinen  nur  als  Gesamt- 
programm lauffähig  sind.  Für  BASIC-Programmierer  befindet 
sich  am  Ende  des  Abschnitts  wieder  ein  BASIC-Lader  für  das 
gesamte  Programmpaket.  Dort  sind  noch  einmal  alle  Routinen 
mit  ihren  Aufrufparametern  in  REM-Zeilen  zusammengefaßt. 

Zunächst  folgt  der  Programmkopf.  Als  Startadresse  habe  ich 
40.000  gewählt.  Leider  haben  die  Routinen  nicht  mehr  - wie  die 
anderen  - in  den  Speicherbereich  hinter  dem  BASIC-Interpreter 
gepaßt.  Deshalb  habe  ich  sie  notgedrungen  am  Ende  des  BASIC- 
Speichers  untergebracht. 

Bitte  beachten  Sie,  daß  das  Ende  des  BASIC-Speichers  aus  die- 
sem Grund  auf  die  Adresse  39.999  herabgesetzt  werden  muß! 
Der  BASIC-Lader  am  Ende  des  Abschnitts  erledigt  das  automa- 
tisch. Wenn  Sie  das  Programmpaket  später  von  Diskette  oder 
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Kassette  nachladen  lassen,  sollte  die  erste  Zeile  in  Ihrem  Pro- 
gramm wie  folgt  aussehen: 

10  poke  55,63:poke  56,156:clr 

Erst  im  Anschluß  daran  kommt  die  Ladeanweisung.  Wenn  Sie 
diese  Anweisungen  vergessen,  laufen  Sie  Gefahr,  daß  die  Routi- 
nen durch  String- Variablen  überschrieben  werden.  Doch  nun 
zum  Programmcode: 

1 00  * ******************************************************* 

105  ;*  * 

110  ;*  Programm:  sound  * 

120  ;*  rout inen  zur  soundprogramnii erung  * 

HO  ;*  * 

j50  .«t****************************************************** 

200  ; 

205  ; 

210  .ba  40000  ;***  Startadresse  *** 

220  ; 

230  ; 

240  ;***  labels  ******************************************** 

245  .gl  zw  = 2 /Zwischenspeicher 

250  .gl  zpl  = 251 

255  .gl  zp2  = 252 

260  .gl  zp3  = 253 

265  .gl  zp4  * 254 

270  ; 

280  ; 

Die  erste  Routine  SDCLEAR  dient  dazu,  sämtliche  Register  des 
SID  zu  löschen.  Das  ist  besonders  bei  "mißglückten"  Sound-Ver- 
suchen sehr  nützlich.  So  müssen  Sie  beispielsweise  nicht  extra 
alle  drei  Tongeneratoren  abschalten  oder  die  Gesamtlautstärke 
zurückstellen.  Aufgerufen  wird  SDCLEAR  durch  SYS  40000; 
Parameter  sind  nicht  erforderlich. 

Wie  ich  eingangs  schon  kurz  erwähnt  habe,  können  die  SID-Re- 
gister  nur  beschrieben  werden.  Aus  diesem  Grund  werden  die 
Register-Inhalte  im  hier  vorgestellten  Programmpaket  zusätzlich 
in  einem  Zwischenspeicher  abgelegt,  von  wo  aus  sie  bei  Bedarf 
bequem  ausgelesen  werden  können. 

Konkret  sieht  das  so  aus:  Wenn  ein  Wert  geändert  werden  soll, 
so  geschieht  das  zunächst  an  der  entsprechenden  Stelle  im  Zwi- 
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schenspeicher.  Anschließend  wird  immer  der  gesamte  Zwi- 
schenspeicher in  die  SID-Register  übertragen.  Dieses  Verfahren 
erweist  sich  am  effizientesten,  weil  man  nur  eine  Routine  zum 
Übertragen  der  Inhalte  benötigt. 

Für  alle,  die  es  interessiert:  Die  Register  des  SID  belegen  im 
Speicher  die  Adressen  54.272  bis  54.296.  Eine  komplette  Regi- 
ster-Tabelle finden  Sie  übrigens  im  Anhang. 

Wenn  Sie  sich  diese  genauer  anschauen,  werden  sie  feststellen, 
daß  der  SID  von  Adresse  54.297  bis  54.300  noch  über  vier  spe- 
zielle Lese-Register  verfügt.  Da  sie  aber  für  die  Sound-Erzeu- 
gung nicht  von  Bedeutung  sind,  möchte  ich  in  diesem  Kapitel 
nicht  auf  sie  eingehen.  Der  Programmcode  von  SDCLEAR: 

200  ******************************************************* 

205  ;*  * 

210  ;*  sdclear  - sid-register  loeschen  * 

220  ;*  * 


220 

;*  auf ruf: 

: sys  40000 

* 

265 

.* 

« 

* 

270 

•************************************1Hk**************** 

300 

$ 

340 

sdclear 

Idx  #24 

;anzahl  der  register-1 

350 

Ida  #0 

.■Zwischenspeicher 

360 

sdcl Ip 

sta  sdzwsp.x 

; loeschen 

370 

dex 

380 

bpi  sdcllp 

;alle  register  loeschen 

390 

jmp  sdunsp 

;sid  aktualisieren 

400 

1 

410 

1 

Leider  läßt  der  SID  nur  eine  Gesamtlautstärke  für  alle  drei  Ton- 
generatoren zu.  Eingestellt  wird  diese  mit  der  Routine  SDVO- 
LUME.  Es  stehen  insgesamt  16  mögliche  Werte  (0  bis  15)  zur 
Verfügung.  Der  Wert  Null  bedeutet  dabei,  daß  der  Ton  nicht 
hörbar  ist,  beim  Wert  15  hat  der  Ton  Maximal-Lautstärke. 

Aufgerufen  wird  SDVOLUME  mit  SYS  40013,LS.  LS  steht  für 
den  gewünschten  Lautstärkewert.  SYS  40013,8  beispielsweise 
setzt  die  Lautstärke  auf  einen  mittleren  Wert.  Der  Programmcode 
von  SDVOLUME: 
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412 

414 

416 

418 

420 

422 

424 

426 

428 

430 

440 

450 

460 

470 

480 

490 

500 

510 


******************************************************* 
.*  * 

;*  sdvolume  - gesamt lautstaerke  einstellen  * 

.*  * 

;*  aufruf:  sys  40013, Is  * 

;*  Is:  lautstaerke  (0-15)  * 

.*  * 

.**•*•••**•*****••••***•*•******•***•••**•*•••***•***** 

sdvolune  jsr  Saefd  ;auf  kocnma  testen 

jsr  sdutfq  ;uert  holen  und  pruefen 

Ida  sdzwsp+24  ;entspr.  register  holen 
and  #$f0 

ora  zu  /lautstaerke  setzen 

sta  sdzwsp*24 

jmp  sdumsp  ;sid  aktualisieren 


Die  Frequenz  läßt  sich  für  die  drei  Tongeneratoren  getrennt 
einstellen.  Diese  Aufgabe  übernimmt  die  Routine  SDFREQ.  Die 
Frequenz  darf  sich  im  Bereich  zwischen  0 und  3.848  Hertz  be- 
wegen. Je  höher  die  Frequenz,  desto  höher  der  Ton. 


Aufgerufen  wird  SDFREQ  mit  SYS  40032, TG,FR.  TG  steht  für 
den  gewünschten  Tongenerator  (1-3),  FR  für  die  Frequenz. 
Beispiel: 

100  sys  40032,1,1000 
110  sys  40032,2,2000 
120  sys  40032,3,3000 


Die  Frequenz  des  Tongenerators  1 wird  auf  1.000,  die  des  Ton- 
generators 2 auf  2.000  und  die  des  Tongenerators  3 auf  3.000 
Hertz  gesetzt.  Die  Frequenz  kann  übrigens  jederzeit,  während 
ein  Ton  gespielt  wird,  geändert  werden.  Dadurch  lassen  sich  in- 
teressante Effekte  erzielen.  Der  Programmcode  von  SDFREQ: 

520  .***********************************»****************** 

522  ;*  * 

524  ;*  sdfreq  - frequenz  einer  stimme  einstellen  * 

526  ;*  * 

528  ;*  aufruf:  sys  40032, tg, fr  * 

530  ;*  tg:  stimme  (1-3)  * 

532  ;*  fr:  frequenz  in  Hertz  (0-3848)  * 

534  ;*  * 

536  • ****************************************************** 
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538  ; 

540  sdfreq 

jsr  $aefd 

;auf  komna  testen 

545 

jsr  sdtgnr 

;stimnennr.  holen 

550 

jsr  $aefd 

;auf  komna  testen 

560 

jsr  $ad8a 

;frequenz  holen 

570 

Ida  #<(sdtab4) 

; zeiger  auf 

580 

Idy  #>(sdtab4) 

; konstante 

590 

jsr  Sba28 

;mit  frequenz  multiplizieren 

600 

jsr  $b7f7 

;nach  16-bit  wandeln 

610 

Idy  #0 

620 

Ida  $14 

; frequenz  (low) 

630 

sta  (zp1),y 

640 

iny 

650 

Ida  $15 

; (high) 

660 

sta  (zp1),y 

670 
682  ; 
684  ; 

jmp  sdumsp 

;sid  aktualisieren 

Wie  Sie  vielleicht  wissen,  entspricht  jede  Musiknote  einer  be- 
stimmten Frequenz.  Möchte  man  nun  ein  Musikstück  spielen 
lassen,  so  müßte  man  die  Noten  extra  in  ihre  zugehörigen  Fre- 
quenzen umrechnen.  Ein  sehr  mühseliges  Unterfangen.  Diese 
Aufgabe  überläßt  man  besser  einer  entsprechenden  Routine  SD- 
NOTE.  Bei  SDNOTE  genügt  die  Angabe  der  Note  in  der  übli- 
chen Notation.  Der  Aufruf  erfolgt  mit  SYS  40.068,TG,NT$.  TG 
gibt  wieder  die  Nummer  des  gewünschten  Tongenerators  an. 
NT$  enthält  die  zu  spielende  Note  in  der  Form  "Note-Oktave". 
Mehr  dazu  im  nächsten  Abschnitt. 


Ich  wollte  SDNOTE  nur  gleich  an  dieser  Stelle  ins  Spiel  bringen, 
da  sie  ja  in  unmittelbarem  Zusammenhang  mit  der  Frequenzan- 
gabe über  SDFREQ  steht.  Hier  der  Programmcode: 

. ****************************************************** 

688  ;*  * 

690  ;*  sdnote  - musi knote  eingeben  * 

692  ;*  * 

694  ;*  aufruf:  sys  40068, tg,nt$  * 


696 

;*  tg:  stimme  (1- 

3) 

* 

698 

;*  nt$:  musi knote 

C'cO'-'a#?1) 

* 

700 

.* 

* 

* 

702 

******************************************************* 

704 

$ 

sdnote  jsr  $aefd 

710 

;auf  komna  testen 

720 

jsr  sdtgnr 

;stimnennr.  holen 

730 

jsr  $aefd 

;auf  komna  testen 

740 

jsr  $ad9e 

;notenstring  holen 
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750  jsr  $b6a3 

760  ;***  note  holen  *** 

770  Idy  #1 

780  Ida  ($22),y 

790  sta  zw 

800  dey 

810  Ida  ($22),y 

820  sta  zp3 

830  iny 

840  ;***  note  in  tabelle  suchen  *** 


850 

Idx  #0 

;zaehler 

860  sdntl 

cmp  sdtabIO.x 

870 

beq  sdnt2 

.-gleich,  dann  weiter 

880 

inx 

890 

cpx  #12 

;tabel lenende? 

900 

bcc  sdntl 

;nein,  weiter  suchen 

910  sdnterr 

jmp  $af08 

;ja,  'syntax  error* 

920  ;***  '#' 

-bearbeitung  *** 

930  sdnt2 

Ida  zw 

;2.  Zeichen 

940 

cmp  #35 

;■#'? 

950 

bne  sdnt3 

;nein,  weiter 

960 

inx 

970 

cmp  sdtab10,x 

;'#'  erlaubt? 

980 

bne  sdnterr 

;nein,  fehler 

990 

iny 

1000 

Ida  ($22), y 

,-zeichen  hinter  '#' 

1010 

sta  zw 

1020  ;***  note  in  frequenz  umrechnen  *** 

1030  sdnt3 

txa 

1040 

asl 

1050 

tax 

1060 

Ida  sdtab11,x 

;basiswerte  holen 

1070 

sta  zp3 

1080 

inx 

1090 

Ida  sdtabll.x 

1100 

sta  zp4 

1110 

Ida  zw 

; oktave 

1120 

sec 

1130 

sbc  #$30 

1140 

cmp  #8 

;>7? 

1150 

bcc  sdnt4 

;nein,  weiter 

1160  sdnterr2  jmp  $b248 

;ja,  'illegal  quantity' 

1170  sdnt4 

eor  #7 

;7.  oktave? 

1180 

bne  sdnt5 

;nein 

1190 

Idy  #0 

;ja,  note  kontrollieren 

1200 

Ida  ($22), y 

1210 

cmp  #$48 

; ' h ' ? 

1220 

beq  sdnterr2 

;ja,  fehler 

1230 

jmp  sdnt6 

;nein,  weiter 

1240  sdnt5 

tax 

;zaehler 

1250 

Idy  #0 

1260 

Ida  ($22), y 

;note 

1270 

cmp  #$48 

;'h'? 
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1280 

bne 

sdnt5a 

1290 

sec 

1300 

ror 

zp4 

1310 

bnri 

sdnt5b 

1320  sdnt5a 

Isr 

zp4 

1330  sdnt5b 

ror 

zp3 

1340 

dex 

1350 

bne 

sdnt5a 

1360  sdnt6 

Idy 

#0 

1370 

tda 

zp3 

1380 

sta 

(zpi).y 

1390 

iny 

1400 

Ida 

zp4 

1410 

sta 

(zpi).y 

1420 

jmp 

sdumsp 

1430  ; 

1432  ; 

;nein 

; f requenzberechnung 


;sid  aktualisieren 


Für  den  Lautstärkeverlauf  eines  Tones  ist,  wie  bereits  eingangs 
kurz  erklärt,  die  sogenannte  Hüllkurve  zuständig.  Mit  Hilfe  der 
Routine  SDENVEL  lassen  sich  alle  Hüllkurven-Parameter  be- 
quem angeben. 

Der  Aufruf  erfolgt  mit  SYS  40203,TG,A,D,S,R.  TG  ist  dabei  die 
Nummer  des  anzusprechenden  Tongenerators  (1-3).  Für  A,  D,  S 
und  R sind  jeweils  Werte  zwischen  null  und  15  erlaubt.  Noch 
einmal  kurz  zur  Wiederholung: 

In  der  Attack-Phase  schwillt  der  Ton  von  null  bis  zur  maxima- 
len Lautstärke  an.  Die  Zeitdauer  dieser  Phase  wird  durch  den 
A-Parameter  gesteuert. 

In  der  Decay-Phase,  deren  Dauer  durch  den  Parameter  D beein- 
flußt wird,  fällt  die  Tonlautstärke  auf  den  durch  den  Sustain- 
Parameter  S bestimmten  sogenannten  Haltepegel. 

Die  Sustain-Phase,  in  der  die  Lautstärke  auf  dem  Haltepegel 
bleibt,  ist  vom  SID  zeitlich  unbefristet.  Ihre  Zeitdauer  kann 
beispielsweise  durch  eine  Warteschleife 

FOR  W=1  T0  1000:NEXT  U 

festgelegt  werden.  Im  Gegensatz  zu  den  drei  anderen  Parametern 
A,  D und  R wird  durch  S also  keine  Zeitspanne,  sondern  die 
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Tonlautstärke  nach  der  Attack-Phase  festgelegt.  S=15  bedeutet 
dabei,  daß  die  Lautstärke  auf  dem  Maximalwert  der  Attack- 
Phase  verbleibt.  S=0  hat  zur  Folge,  daß  der  Ton  bereits  in  der 
Decay-Phase  vollständig  ausklingt,  seine  Lautstärke  also  auf  Null 
absinkt. 

In  der  Release-Phase,  deren  Zeitdauer  durch  den  Parameter  R 
festgelegt  wird,  klingt  der  Ton  vom  momentanen  Sustain-Pegel 
auf  Null  aus.  Die  den  einzelnen  Parameterwerten  entsprechenden 
Zeitspannen  für  A,  D und  R können  Sie  der  folgenden  Tabelle 
entnehmen: 


Parameterwert 

Attack  (A) 

Decay  (D)/ Release  (R) 

0 

2 ms 

6 ms 

1 

8 ms 

24  ms 

2 

16  ms 

48  ms 

3 

24  ms 

72  ms 

4 

38  ms 

114  ms 

5 

56  ms 

168  ms 

6 

68  ms 

204  ms 

7 

80  ms 

240  ms 

8 

100  ms 

300  ms 

9 

250  ms 

750  ms 

10 

500  ms 

1.5s 

11 

800  ms 

2.4  s 

12 

1 s 

3s 

13 

3s 

9s 

14 

5s 

15s 

15 

8s 

24  s 

SYS  40203,1,9,12,7,14  beispielsweise  bewirkt  eine  Attack-Phase 
von  250  Millisekunden  Dauer,  eine  3 Sekunden  dauernde  Decay- 
Phase,  in  der  die  Lautstärke  etwa  auf  den  halben  Maximalwert 
absinkt,  und  eine  mit  15  Sekunden  sehr  lange  dauernde  Release- 
Phase.  Der  Programmcode  von  SDENVEL: 

1 434  • ***************************************************** 

1436  ;*  * 

1438  ;*  sdenvel  - hüll  kurve  festlegen  * 

1440  ;*  * 

1442  ;*  auf  ruf:  sys  40203, tg,a,d,s,r  * 

1444  ;*  tg:  stimme  (1-3)  * 

1446  ;*  a,d,s,r:  attack-,  decay-,  sustain-  und  * 

1448  ;*  re lease- parameter  (siehe  text)  * 
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1450  ;* 

1452  ******** 
1454  ; 

1460  sdenvel 

************** 

jsr  Saefd 

**************************** 
;auf  konina  testen 

* 

**** 

1470 

jsr  sdtgnr 

;stimmennr.  holen 

1480 

tdy  #5 

; Zeiger  setzen 

1490 

jsr  sdenvl 

;1.  und  2.  einsteilwert 

1500 

iny 

1510 

jsr  sdenvl 

;3.  und  4.  einstellwert 

1520 

jmp  sdumsp 

;sid  aktualisieren 

1540  sdenvl 

jsr  sdutep 

;einstellwert  holen 

1550 

asl 

;*16 

1560 

asl 

1570 

asl 

1580 

asl 

1590 

sta  (zp1),y 

;und  setzen 

1600 

jsr  sdwtep 

;einstellwert  holen 

1610 

ora  (zp1),y 

1620 

sta  (zp1),y 

;und  setzen 

1630 
1640  ; 
1642  ; 

rts 

.■fertig 

Wesentlich  für  den  Klang  eines  Tones  ist  die  eingestellte 
Wellenform.  Beim  SID  stehen  vier  Wellenformen  zur  Auswahl, 
die  für  die  drei  Tongeneratoren  getrennt  angegeben  werden 
können. 


Um  eine  bestimmte  Wellenform  einzuschalten,  verwenden  Sie  die 
Routine  SDWAVEON,  die  mit  SYS  40238,TG,WF  aufgerufen 
wird.  Ausschalten  läßt  sich  eine  Wellenform  mit  Hilfe  der  Rou- 
tine SDWAVEOFF,  die  durch  SYS  40292,TG,WF  aufgerufen 
wird.  TG  steht  wieder  für  die  Nummer  des  anzusprechenden 
Tongenerators  (1-3).  WF  ist  die  Kennziffer  der  Wellenform: 


1:  Dreieck 
2:  Sägezahn 
3:  Rechteck 
4:  Rauschen 


Falls  Sie  als  Wellenform  "Rechteck"  gewählt  haben,  müssen  Sie 
in  PW  zusätzlich  noch  die  sogenannte  Pulsweite  festlegen.  Die 
Pulsweite  wird  in  Prozent  angegeben  und  darf  daher  Werte  von 
Null  bis  100  annehmen.  Die  Genauigkeit  beträgt  dabei  mehrere 
Stellen  hinter  dem  Komma.  Werte  wie  6.11  sind  daher  durchaus 
sinnvoll.  Bei  den  anderen  Wellenformen  hat  PW  keine  Bedeu- 
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tung.  Übrigens  kann  man  auch  mehrere  Wellenformen  gleichzei- 
tig einstellen.  Beispielsweise  würde 

SYS  40238,1,1:SYS  40238,1,2 

für  den  Tongenerator  1 die  Wellenformen  "Dreieck"  und  "Säge- 
zahn" auswählen.  In  der  Regel  bringen  solche  Kombinationen  im 
Hinblick  auf  den  Klang  des  Tones  aber  nicht  allzu  viel.  Schon 
eher  von  Bedeutung  ist  da  das  Umschalten  von  der  einen  auf 
eine  andere  Wellenform: 

SYS  40238,2,2: :SYS  40292, 2, 2: SYS  40238,2,3,60 

Für  den  Tongenerator  2 wird  zunächst  die  Wellenform  "Säge- 
zahn" festgelegt  und  dann  später  auf  "Rechteck"  mit  einer  Puls- 
weite von  60%  umgeschaltet.  Der  Programmcode  von  SDWA- 
VEON  und  SDWAVEOFF: 


1644  * ***************************************************** 

1646  ;* 

* 

1648  ;* 

sdwaveon 

wellenform  einschalten 

* 

1650  ;* 

* 

1652  ;* 

auf ruf:  sys  40238, tg,wf  (,pw) 

* 

1654  ;* 

tg:  stimme  (1-3) 

* 

1656  ;* 

wf:  wellenform  (1 

: drei  eck,  2:saegezahn, 

* 

1658  ;* 

3 

rechteck,  4 

: rauschen) 

* 

1660  ;* 

pw:  pulsweite  (0- 

100;  nur  bei  wf=3!) 

* 

1662  ;* 

* 

1664 

*********** 

************ 

*************************** 

Ir*** 

1666  ; 

1670  sdwaveon  jsr 

sdwvgm 

.■gemeinsamer  teil 

1680 

ora 

sdtab2a,x 

1690 

sta 

1700 

cpx 

#2 

;wel lenform  'rechteck1? 

1710 

bne 

sdwvft 

;nein,  fertig 

1720 

jsr 

S0079 

;ja,  weitere  Zeichen? 

1730 

beq 

sdwvft 

;nein,  fertig 

1740 

jsr 

Saefd 

;auf  komma  testen 

1750 

jsr 

Sad8a 

;tastverhaeltnis 

1760 

Ida 

#<(sdtab3) 

; zeiger  auf 

1770 

Idy 

#>(sdtab3) 

; konstante 

1780 

jsr 

Sba28 

;mit  konstante  multiplizieren 

1790 

jsr 

$b7f  7 

;und  nach  16-bit  wandeln 

1800 

Ida 

$15 

;highwert 

1810 

cmp 

#16 

;>15? 

1820 

bcc 

sdwtl 

1830 

jmp 

$b248 

;ja,  fehler 

1840  sdwtl  Idy 

#3 
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1850  sta  (zp1),y  ;wert  ablegen 

1860  dey 

1870  Ida  $14  ;lowwert 

1880  sta  (zp1),y 

1890  sdwvft  jmp  sdumsp  ;sid  aktualisieren 

1900  ; 

1902  ; 

1904  * ***************************************************** 
1906  ;*  * 

1908  ;*  sdwaveoff  - uellenform  ausschalten  * 

1910  ;*  * 

1912  ;*  aufruf:  sys  40292, tg,wf  * 

1914  ;*  tg:  stimme  (1-3)  * 

1916  ;*  uf:  Hellenform  (1-4)  * 

1918  ;*  * 

1 920  a ***************************************************** 
1922  ; 

1930  sdwaveoff  jsr  sdwvgm  .'gemeinsamer  teil 


1940 

and  sdtab2b,x 

1950 

sta  (zp1),y 

1960 

jmp  sdumsp 

;sid  aktualisieren 

1970  ; 

2000  ;***  gemeinsamer  teil  > 

von  sdwaveon/off  *************** 

2020  sdwvgm 

jsr  $aefd 

;auf  konma  testen 

2030 

jsr  sdtgnr 

;stimmennr.  holen 

2040 

jsr  $aefd 

;auf  konma  testen 

2050 

jsr  $b79e 

;wel lenform 

2060 

dex 

;-i 

2070 

cpx  #4 

;>3? 

2080 

bcc  sdwvl 

;nein 

2090  sderr2 

jmp  $b248 

;ja,  fehler 

2100  sdwvl 

Idy  #4 

2110 

Ida  (zp1),y 

; reg i ster  holen 

2120 

rts 

; fertig! 

2130  ; 

2132  ; 

Nun  kommen  wir  zu  den  beiden  zentralen  Routinen  des  Pro- 
grammpakets, SDVOICEON  und  SDVOICEOFF.  Die  Parameter, 
die  Sie  mit  den  anderen  Routinen  festgelegt  haben,  wurden  nur 
in  den  entsprechenden  Registern  des  SID  gespeichert.  Zu  hören 
war  bisher  noch  nichts.  Das  wird  sich  gleich  ändern.  Mit  Hilfe 
der  Routine  SDENYEL  haben  Sie  den  Lautstärkeverlauf  des  To- 
nes, seine  Hüllkurve,  definiert.  Sobald  der  Tongenerator  nun 
mittels  SYS  40328, TG  eingeschaltet  wird,  beginnt  die  Attack- 
Phase. 

Anschließend  geht  der  Tongenerator  in  die  Decay-Phase  und 
dann  in  die  Sustain-Phase  über,  in  der  er  auch  verbleibt.  Erst 
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wenn  Sie  durch  SYS  40338, TG  den  Tongenerator  wieder  aus- 
schalten, wird  die  Release-Phase  eingeleitet. 

Zwischen  den  beiden  Aufrufen  steht  für  gewöhnlich  eine  War- 
teschleife, mit  der  sich  die  Gesamt-Tondauer  sehr  fein  einstellen 
läßt: 


100  sys  40328; 1: rem  tongenerator  1 einschalten 

110  for  w=1  to  5000:next  w:rem  warten 

120  sys  40338, 1:rem  tongenerator  1 ausschalten 


Natürlich  können  Sie,  während  der  Ton  gespielt  wird,  auch  ir- 
gendeinen anderen  Programmteil  abarbeiten  lassen.  Dann  wird  es 
in  der  Regel  allerdings  sehr  schwierig,  eine  genaue  Tondauer 
festzulegen.  Manchmal  möchte  man  das  ja  aber  auch  gar  nicht. 
Hier  der  Programmcode  von  SDVOICEON  und  SDVOICEOFF: 

2134  «Ir**************************************************** 

2136  '•*  * 

2138  ;*  sdvoiceon  - stimme  einschalten  * 

2140  ;*  * 

2142  ;*■  auf  ruf:  sys  40328,  tg  * 

2144  ;*  tg:  stimme  (1-3)  * 

2146  ;*  * 

2148  ****************************************************** 

2150  ; 

2160  sdvoiceon  jsr  sdvcrg4a  ;stimmennr.  holen 
2170  ora  #1  ;flag  setzen 

2180  sdvcrg4b  sta  (zp1),y 

2190  jmp  sdumsp  ;sid  aktualisieren 

2200  ; 

2202  ; 

2204  * ***************************************************** 

2206  '■*  * 

2208  ;*  sdvoiceoff  - stinrne  ausschalten  * 

2210  ;*  * 

2212  ;*  aufruf:  sys  40338, tg  * 

2214  ;*  tg:  stimme  (1-3)  * 

2216  ;*  * 

2218  * ***************************************************** 

2220  ; 

2230  sdvoiceoff  jsr  sdvcrg4a  ;stimmermr.  holen 
2240  and  #$fe  ;flag  loeschen 

2250  jmp  sdvcrg4b  ;wert  zuruecksch reiben 

2260  ; 

2262  ; 
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Eine  wesentliche  Hilfe,  wenn  es  darum  geht,  komplexere  Klänge 
zu  erzeugen,  ist  der  sogenannte  Filter.  Der  Filter  dient  dazu, 
bestimmte  Frequenzbereiche  eines  Tongenerators  zu  sperren  bzw. 
abzudämpfen. 

Ob  eine  der  drei  Stimmen  über  den  Filter  geschickt  werden  soll, 
läßt  sich  für  jede  Stimme  getrennt  festlegen.  Allerdings  existiert 
nur  ein  gemeinsamer  Filter  für  alle  Stimmen.  Die  Routine 
SDFTON,  die  durch  SYS  40458,TG  aufgerufen  wird,  veranlaßt 
den  SID,  die  Ausgaben  des  betreffenden  Tongenerators  über  den 
Filter  zu  leiten.  Die  Routine  SDFTOFF,  die  mit  SYS  40488,TG 
aufgerufen  wird,  sorgt  dafür,  daß  der  Tongenerator  wieder  un- 
gefiltert zu  hören  ist. 

Übrigens  läßt  sich  der  Filter  zu  jedem  beliebigen  Zeitpunkt  zu- 
schalten. Das  erhöht  seine  Einsatzmöglichkeiten.  Bevor  Sie  mit 
dem  Filter  arbeiten  können,  müssen  Sie  zunächst  einmal  die  ge- 
wünschten Filterparameter  definieren.  Dazu  gibt  es  die  Routine 
SDFILTER.  SDFILTER  wird  mit  SYS  40346,FA,FQ,RS  aufge- 
rufen. FA  steht  für  die  Filterbetriebsart.  Zur  Auswahl  stehen: 

1.  Hochpaß:  Der  Hochpaß  läßt  nur  Frequenzanteile  oberhalb 
der  Grenzfrequenz  FQ  durch. 

2.  Tiefpaß:  Der  Tiefpaß  läßt  nur  Frequenzanteile  unterhalb  der 
Grenzfrequenz  FQ  durch. 

3.  Bandpaß:  Der  Bandpaß  läßt  nur  die  Frequenzanteile  in  der 
Umgebung  der  Mittenfrequenz  FQ  durch. 

4.  Bandsperre:  Die  Bandsperre  (auch  Notch-Filter  genannt)  läßt 
alle  Frequenzen,  bis  auf  die  Frequenzanteile  in  der  Umge- 
bung der  Mittenfrequenz  FQ  durch. 

FQ  steht  für  den  Frequenzbereich,  in  dem  der  Filter  arbeiten 
soll.  Je  nach  eingestellter  Filterbetriebsart  hat  FQ  verschiedene 
Bedeutungen.  Grundsätzlich  darf  sich  FQ  im  Bereich  zwischen 
30  und  11.800  Hertz  bewegen. 

Mit  RS  wird  schließlich  noch  die  sogenannte  Resonanz  des  Fil- 
ters festgelegt.  Ein  hoher  Resonanzwert  (maximal  15)  bewirkt 
eine  zusätzliche  Verstärkung  der  Frequenzanteile  in  der  Nähe 
der  Filterfrequenz  FQ.  Nach  soviel  Theorie  einige  Beispiele: 
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SYS  40346,1,500,12 

stellt  die  Betriebsart  "Hochpaß"  ein,  wobei  die  Filterfrequenz  500 
Hertz  beträgt.  Der  Filter  läßt  nun  also  nur  noch  Frequenzen 
oberhalb  von  500  Hertz  durch.  Frequenzen  in  der  Nähe  von  500 
Hertz  werden  wegen  des  Resonanzwertes  12  besonders  verstärkt. 

SYS  40346,2,2000,0 

stellt  die  Betriebsart  "Tiefpaß"  ein,  wobei  die  Grenzfrequenz 
2.000  Hertz  beträgt.  Frequenzen  oberhalb  von  2.000  Hertz  wer- 
den also  nicht  mehr  durchgelassen.  Wegen  des  Resonanzwertes  0 
erfolgt  keine  zusätzliche  Verstärkung  von  Frequenzanteilen. 

SYS  40346,4,8000,4 


stellt  die  Filterbetriebsart  "Bandsperre"  ein.  Alle  Frequenzen 
außer  derjenigen  in  der  Umgebung  von  8.000  Hertz  werden 
durchgelassen.  Frequenzen  knapp  unterhalb  und  knapp  oberhalb 
von  8.000  Hertz  werden  wegen  RS=4  leicht  verstärkt.  Der  Pro- 
grammcode von  SDFILTER,  SDFTON  und  SDFTOFF: 


2264 

.***************************************************** 

2266 

.* 

1 

* 

2268 

• * 
1 

sdfilter  - filter  einstellen 

* 

2270 

.* 

i 

* 

2272 

.* 

t 

auf ruf:  sys  40346, fa,fq,rs 

* 

2274 

.* 

1 

fa:  f i It erbet riebsart  (1-4;  siehe  text) 

* 

2276 

.* 

# 

fq:  grenzfrequenz  (30-11800  hz) 

* 

2278 

1 

rs:  resonanz  (0- 

15) 

* 

2280 

• * 
f 

* 

2282 

****************************************************** 

2284 

i 

2290 

sdfilter  jsr  Saefd 

;auf  komma  testen 

2300 

jsr  $b79e 

;filterart  holen 

2310 

dex 

;-i 

2320 

cpx  #4 

;>3? 

2330 

bcc  sdfll 

;nein,  weiter 

2340 

sdflerr  jmp  Sb248 

;ja,  fehler 

2350 

sdfll  Ida  sdzusp+24 

;f i Iter-register 

2360 

and  #143 

;flags  loeschen 

2370 

ora  sdtab6,x 

;und  entspr.  setzen 

2380 

sta  sdzwsp+24 

2390 

jsr  Saefd 

;auf  komma  testen 

2400 

jsr  Sad8a 

;f i Iterfrequenz  holen 

2410 

Ida  #<(sdtab7) 

; zeiger  auf  konstante 

2420 

Idy  #>(sdtab7) 

; (grenzfrequenz  11800  hz) 
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2430 

jsr 

$bc5b 

vergleich 

2440 

bpi 

sdf  12 

positiv 

2450 

beq 

sdf  12 

oder  null,  dann  weiter 

2460 

jmp 

$b248 

sonst  fehler 

2470 

sdf  12  Ida 

#<(sdtab8) 

zeiger  auf 

2480 

Idy 

#>(sdtab8) 

konstante 

2490 

jsr 

$b867 

addition 

2500 

ida 

#<(sdtab9) 

zeiger  auf 

2510 

Idy 

#>(sdtab9) 

konstante 

2520 

jsr 

$ba28 

Multiplikation 

2530 

jsr 

$b7f7 

nach  16-bit  wandeln 

2540 

Ida 

$15 

highwert 

2550 

emp 

#8 

>7? 

2560 

bcs 

sdf lerr 

ja,  fehler 

2570 

Ida 

$14 

lowwert 

2580 

and 

#7 

2590 

sta 

sdzwsp+21 

in  register  ablegen 

2600 

Ida 

$14 

2610 

Isr 

2620 

Isr 

2630 

Isr 

2640 

sta 

sdzwsp+22 

2650 

Ida 

$15 

■highwert 

2660 

asl 

2670 

asl 

2680 

asl 

2690 

asl 

2700 

asl 

2710 

ora 

sdzwsp+22 

2720 

sta 

sdzwsp+22 

2730 

jsr 

sdwtep 

resonanz  holen 

2740 

asl 

2750 

asl 

2760 

asl 

2770 

asl 

2780 

ora 

sdzwsp+23 

2790 

sta 

sdzwsp+23 

■in  register  ablegen 

2800 

jmp 

sdumsp 

■sid  aktualisieren 

2810 

2812 

< 

2814 

■ ***************************lHr****M****************** 

2816 

.* 

§ 

* 

2818 

;*  sdfton  • filter  zuschalten 

* 

2820 

• * 
1 

* 

2822 

;*  auf ruf:  sys  40458, tg 

* 

2824 

;*  tg:  stimme  (1-3) 

* 

2826 

.* 

§ 

* 

2828 

.fr**************************************************** 

2830 

/ 

2840  seif  ton  jsr  sdvcftgm 

■gemeinsamer  teil 

2850 

ora 

sdtab5a,x 

•stimmen-Flag  setzen 

2860  sdvcfnjp  sta  sdzwsp+23 

2870 

jmp  sdumsp 

;sid  aktualisieren 
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2880 

2890 

2910 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3012 

3014 

3016 

3018 

3020 

3022 

3024 

3026 

3028 

3030 

3040 

3050 

3060 

3070 

3072 


***  gemeinsamer  teil  von  sdfton/off  ***************** 


sdvcftgm  jsr  taefd 
jsr  Sb79e 
dex 
cpx  #4 


sdvgl 


bcc  sdvgl 
jmp  ib248 
Ida  sdzwsp+23 
rts 


;auf  komme  testen 
;stimmennr.  holen 

;-l 

;>3? 

;nein,  weiter 
;ja,  fehler 

;entspr.  filterreg.  holen 
.•fertig! 


****************************************************** 

t 

.*  * 

I 

;*  sdftoff  - filter  abschalten  * 

.*  * 

i 

;*  auf ruf:  sys  40488, tg  * 

;*  tg:  stimme  (1-3)  * 

.*  * 

I 

.***************************************************** 


sdftoff 


jsr  sdvcftgm 
and  sdtab5b,x 
jmp  sdvcfnjp 


; gerne i nsamer  teil 
.•stimmen- Flag  loeschen 
;zur  sdfton-routine 


Der  SID  erlaubt  es  auch,  eine  Stimme  durch  eine  andere  Stimme 
synchronisieren  zu  lassen.  Dazu  muß  nur  das  entsprechende  Bit 
im  Kontroll-Register  gesetzt  werden. 

Dazu  dient  die  Routine  SDSYNON.  Mit  SDSYNOFF  läßt  sich 
die  Synchronisation  wieder  abbrechen.  Beide  Routinen  benötigen 
als  Parameter  nur  die  Nummer  TG  der  Stimme,  die  synchroni- 
siert werden  soll:  SDSYNON  wird  mit  SYS  40497,TG  aufge- 
rufen,  SDSYNOFF  durch  SYS  40505,TG. 

Welche  Stimme  durch  welche  Stimme  synchronisiert  werden 
kann,  ist  fest  vorgegeben: 

TG  = 1:  Stimme  1 wird  durch  Stimme  3 synchronisiert. 

TG=2:  Stimme  2 wird  durch  Stimme  1 synchronisiert. 

TG -3:  Stimme  3 wird  durch  Stimme  2 synchronisiert. 
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Hier  der  Programmcode: 

3074  ****************************************************** 

3076  ;*  * 

3078  ;*  sdsynon  - Synchronisation  einschalten  * 

3080  ;*  * 

3082  ;*  aufruf:  sys  40497,tg  * 

3084  ;*  tg:  stimme  (1-3)  * 

3086  ;*  * 

3088  * ***************************************************** 

3090  ; 

3100  sdsynon  jsr  sdvcrg4a  ;stimmennr.  holen 

3110  ora  #02  ;flag  setzen 

3120  jmp  sdvcrg4b  ;uert  zurueckschreiben 

3130  ; 

3132  ; 

3134  ****************************************************** 

3136  ;*  * 

3138  ;*  sdsynoff  - Synchronisation  ausschalten  * 

3140  ;*  * 

3142  ;*  aufruf:  sys  40505,tg  * 

3144  ;*  tg:  stimme  (1-3)  * 

3146  ;*  * 

3148  ****************************************************** 

3150  ; 

3160  sdsynoff  jsr  sdvcrg4a  ;stimmennr.  holen 

3170  and  #$fd  ;flag  loeschen 

3180  jmp  sdvcrg4b  ;wert  zurueckschreiben 

3190  ; 

3192  ; 

Eine  weitere  Besonderheit  des  SID  ist  die  Erzeugung  von  soge- 
nannten Ringmodulator-Produkten  aus  zwei  Stimmen.  Ähnlich 
wie  bei  der  Synchronisation  werden  dabei  zwei  Stimmen  zu  einer 
"neuen"  Stimme  überlagert.  Dazu  existiert  ebenfalls  ein  entspre- 
chendes Bit  im  Kontroll-Register  der  Tongeneratoren,  das  mit 
SDRINGON  gesetzt  werden  kann.  SDRINGOFF  beendet  die 
Ringmodulation. 


Beide  Routinen  benötigen  als  Parameter  nur  die  Nummer  TG 
der  Stimme,  die  ringmoduliert  werden  soll:  SDRINGON  wird  mit 
SYS  405 13, TG  aufgerufen,  SDRINGOFF  durch  SYS  40521,TG. 
Welche  Stimme  durch  welche  Stimme  ringmoduliert  werden 
kann,  ist  fest  vorgegeben: 
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TG-1:  Ringmodulator-Produkt  aus  den  Stimmen  1 und  3. 
TG =2:  Ringmodulator-Produkt  aus  den  Stimmen  2 und  1 . 
TG -3:  Ringmodulator-Produkt  aus  den  Stimmen  3 und  2. 


Zu  beachten  ist,  daß  die  Wellenform  der  betreffenden  Stimme 
auf  "Dreieck"  eingestellt  sein  muß.  Ansonsten  bleibt  die  Ring- 
modulation unhörbar!  Hier  der  Programmcode: 


3196  !*  * 

3198  ;*  sdringon  - ringmodulation  einschalten  * 

3200  ;*  * 

3202  ;*  aufruf:  sys  40513, tg  * 

3204  ;*  tg:  stimme  (1-3)  * 

3206  ;*  * 

3208  * ***************************************************** 
3210 

3220  sdringon  jsr  sdvcrg4a  ;stimnennr.  holen 

3230  ora  #04  ;flag  setzen 

3240  jmp  sdvcrg4b  ;wert  zuruecksch reiben 

3250  ; 

3252  ; 

3254  * ***************************************************** 
3256  ;*  * 

3258  ;*  sdringoff  - ringmodulation  ausschalten  * 

3260  ;*  * 

3262  ;*  aufruf:  sys  40521, tg  * 

3264  ;*  tg:  stimme  (1-3)  * 

3266  ;*  * 

^268  * ***************************************************** 
3270  ; 

3280  sdringoff  jsr  sdvcrg4a  ;stimnennr.  holen 
3290  and  #$fb  ;flag  loeschen 

3300  jmp  sdvcrg4b  ;wert  zurueckschreiben 


Damit  haben  wir  alle  Routinen  durch.  Bitte  vergessen  Sie  nun 
nicht,  noch  die  nachfolgenden  gemeinsamen  Unterprogramme 
und  die  Tabellen  abzutippen: 


3310  ; 

3320  ; 

3330  ; 

3340  ; 

3350  ; 

3390  ;***  gemeinsame  unterprogranine  *********************** 
3400  ; 

3410  ; 

3430  ;***  aktualisierung  der  sid-register  *** 

3450  sdumsp  Idx  #24  ;anzahl  der  register-1 

3460  sdunsplp  Ida  sdzwsp,x  ; Zwischenspeicher  in  sid 
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3470 

sta  54272, x 

;umspeichern 

3480 

dex 

3490 

bpi  sdumsplp 

;alle  register 

3500 

rts 

; fertig! 

3510  ; 

3520  ; 

3540  ;***  wert  zwischen  0 und  15  holen  und  testen  *** 

3560  sdwtfq 

jsr  $b79e 

;wert  holen 

3570 

cpx  #16 

; >15? 

3580 

bcc  sdwql 

;nein 

3590  sderrl 

jmp  Sb248 

;ja,  'illegal  quantity' 

3600  sdwql 

rts 

.•fertig! 

3610  ; 

3620  ; 

3640  ;***  wert  zwischen  0 und  15  holen  *** 

3660  sdwtep 

sty  zw 

; Zeiger  Zwischenspeichern 

3670 

jsr  $aefd 

;auf  komma  testen 

3680 

jsr  sdwtfq 

;wert  holen  und  testen 

3690 

Idy  zw 

; zeiger 

3700 

txa 

;wert  in  akku 

3710 

rts 

.■fertig! 

3720  ; 

3730  ; 

3750  ;***  nummer  der  stimme 

einiesen  und  testen  *** 

3770  sdtgnr 

jsr  Sb79e 

; nimmer  holen 

3780 

dex 

;-i 

3790 

cpx  #3 

;>2? 

3800 

bcs  sderrl 

;nein,  fehler 

3810 

Ida  sdtabla.x 

;register-adr.  fuer  stimme 

3820 

sta  zpl 

3830 

Ida  sdtab1b,x 

;highwert 

3840 

sta  zp2 

3850 

rts 

.■fertig! 

3860  ; 

3870  ; 

3890  ;**  bearbeitung  der  stimm-Register  4 (kontrol Ireg. 

3910  sdvcrg4a 

jsr  Saefd 

;auf  komma  testen 

3920 

jsr  sdtgnr 

;stimmennr.  holen 

3930 

Idy  #4 

; zeiger 

3940 

Ida  (zpl).y 

;register 

3950 

rts 

.•fertig! 

3960  ; 

3970  ; 

3980  ; 

3990  ; 

4000  ; 

4040  •***  sid- tsbsl l6n  ************************************ 
4050  ; 

4060  ;***  low- werte  der  register-adressen  *** 

4070  sdtabla  .by  <(sdzwsp),<(sdzwsp+7),<(sdzwsp+14) 

4080  sdtablb  .by  >(sdzwsp),>(sdzwsp+7),>(sdzwsp+14) 

4090  ; 

4110  ;***  tabellen  fuer  wel lenform-f lags  *** 
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4120 

4130 

4140 

4160 

4170 

4180 

4200 

4210 

4220 

4240 

4250 

4260 

4270 

4290 

4300 

4310 

4330 

4340 

4350 

4360 

4370 

4390 

4400 

4410 

4420 

4430 

4435 

4440 

4445 

4450 

4460 

4480 

4490 


sdtab2a  .by  16,32,64,128 
sdtab2b  .by  239,223,191,127 
0 

;***  konstante  fuer  tastverhaeltnisberechnung  *** 
sdtab3  .by  $86,$ 23,$cc,Scc,$cd 

9 

;***  konstante  fuer  frequenzberechnung  *** 
sdtab4  .by  $85,$08,$3a,$33,$be 

I 

;***  tabellen  fuer  filter-flags  *** 
sdtab5a  .by  1,2, 4, 8 
sdtab5b  .by  254,253,251,247 

;***  tabelle  fuer  filterarten  *** 
sdtabö  .by  64,16,32,80 
0 

;***  konstanten  fuer  f i Iterf requenzberechnung  *** 
sdtab7  .by  $85, $70, $00, $00, $00 
sdtab8  .by  $85,$f0,$00,$00,$00 
sdtab9  .by  $7e,$30,$8d,$3d,$96 
0 

;***  tabellen  fuer  notenumrechnung  *** 
sdtablO  .by  $43,35, $44,35, $45, $46,35, $47,35, $41 ,35, $48 
sdtabll  .by  $38,$8b,$81 ,$93,$45,$9c,$90,$a5,$68,$af ,$d6,$b9 
.by  $e4,$c4,$99,$d0,$ff,$dc,$24,$ea,$10,$f8,$cf,$06 


.***  Zwischenspeicher  fuer  sid-register  ************** 
sdzwsp  .by  0,0, 0,0, 0,0, 0,0, 0,0 

.by  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 


BASIC-Lader  für  alle  Maschinensprache-Routinen 

Der  nachfolgende  BASIC-Lader  enthält  sämtliche  in  diesem 
Abschnitt  vorgestellten  Maschinensprache-Routinen  zur  Sound- 
Programmierung.  Zudem  habe  ich  in  den  Kommentarzeilen  noch 
einmal  die  Routinen  mit  ihren  Auf ruf Parametern  aufgelistet. 
Diese  REM- Zeilen  müssen  Sie  natürlich  nicht  mit  abtippen. 
Falls  Sie  mit  den  Routinen  häufiger  arbeiten  möchten,  wird  es 
das  Beste  sein,  wenn  Sie  sich  diese  Auflistung  fotokopieren. 

1 00  rem  *************************************************** 

102  rem  * * 

104  rem  * Programm:  sound  * 

106  rem  * programmlaenge:  706  bytes  * 

108  rem  * routinen  zur  soundprogrammierung  * 

110  rem  * * 
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112  rem  *************************************************** 
114  rem  * * 
116  rem  * sdclear  - sid-register  loeschen  * 
118  rem  * * 
120  rem  * auf ruf:  sys  40000  * 
122  rem  * * 
1 24  rem  *************************************************** 
126  rem  * * 
128  rem  * sdvolume  - gesamt  laut st aerke  einstellen  * 
130  rem  * * 
132  rem  * aufruf:  sys  40013, Is  * 
134  rem  * Is:  lautstaerke  (0-15)  * 
136  rem  * * 
^33  rem  *************************************************** 
140  rem  * * 
142  rem  * sdfreq  - frequenz  einer  stimme  einstellen  * 
144  rem  * * 
146  rem  * aufruf:  sys  40032, tg, fr  * 
148  rem  * tg:  stimme  (1-3)  * 
150  rem  * fr:  frequenz  in  Hertz  (0-3848)  * 
152  rem  * * 
1 54  rem  *************************************************** 
156  rem  * * 
158  rem  * sdnote  - musiknote  eingeben  * 
160  rem  * * 
162  rem  * aufruf:  sys  40068, tg,nt$  * 
164  rem  * tg:  stimme  (1-3)  * 
166  rem  * nt$:  musi knote  CcO'-'a#?')  * 
168  rem  * * 
1 rem  *************************************************** 
172  rem  * * 
174  rem  * sdenvel  - hüll  kurve  festlegen  * 
176  rem  * * 
178  rem  * aufruf:  sys  40203, tg,a,d,s,r  * 
180  rem  * tg:  stimme  (1-3)  * 
182  rem  * a,d,s,r:  attack-,  decay-,  sustain-  und  * 
184  rem  * release-parameter  (siehe  text)  * 
186  rem  * * 
1 88  rem**************************************************** 
190  rem  * * 
192  rem  * sdwaveon  - wellenform  einschalten  * 
194  rem  * * 
196  rem  * aufruf:  sys  40238, tg,wf  (,pw)  * 
198  rem  * tg:  stimme  (1-3)  * 
200  rem  * wf:  wellenform  (1:dreieck,  2:saegezahn,  * 
202  rem  * 3:rechteck,  4: rauschen)  * 
204  rem  * pw:  pulsweite  (0-100;  nur  bei  wf=3!)  * 
206  rem  * * 
208  pem**************************************************** 
210  rem  * * 
212  rem  * sdwaveoff  - wellenform  ausschalten  * 
214  rem  * * 
216  rem  * aufruf:  sys  40292, tg,wf  * 
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218  rem 
220  rem 
222  rem 
224  rem 
226  rem 
228  rem 
230  rem 
232  rem 
234  rem 
236  rem 
238  rem 
240  rem 
242  rem 
244  rem 
246  rem 
248  rem 
250  rem 
252  rem 
254  rem 
256  rem 
258  rem 
260  rem 
262  rem 
264  rem 
266  rem 
268  rem 
270  rem 
272  rem 
274  rem 
276  rem 
278  rem 
280  rem 
282  rem 
284  rem 
286  rem 
288  rem 
290  rem 
292  rem 
294  rem 
296  rem 
298  rem 
300  rem 
302  rem 
304  rem 
306  rem 
308  rem 
310  rem 
312  rem 
314  rem 
316  rem 
318  rem 
320  rem 
322  rem 


tg:  stimne  (1-3) 
wf:  wellenform  (1-4) 


*************************************************** 
• * 

* sdvoiceon  - stimme  einschalten  * 

* * 

* auf ruf:  sys  40328, tg  * 

* tg:  stimme  (1-3)  * 

* * 

*************************************************** 
* * 

* sdvoiceoff  - stimne  ausschalten  * 

* * 

* auf ruf:  sys  40338, tg  * 

* tg:  stimme  (1-3)  * 

* * 

*************************************************** 
* * 

* sdfilter  - filter  einstellen  * 


* auf ruf:  sys  40346, fa,fq,rs 

* fa:  f i Iterbetriebsart  (1-4;  siehe  text) 

* fq:  grenzf requenz  (30-11800  hz) 

* rs:  resonanz  (0-15) 


*************************************************** 


* * 

* sdfton  - filter  zuschalten  * 

* * 

* auf ruf:  sys  40458, tg  * 

* tg:  stimne  (1-3)  * 

* * 

*************************************************** 
* * 

* sdftoff  - filter  abschalten  * 

* * 

* auf ruf:  sys  40488, tg  * 

* tg:  stimme  (1-3)  * 

* * 


*************************************************** 


* * 

* sdsynon  - Synchronisation  einschalten  * 

* * 

* auf ruf:  sys  40497, tg  * 

* tg:  stimme  (1-3)  * 

* * 

*************************************************** 
* * 

* sdsynoff  - Synchronisation  ausschalten  * 

• * 

* aufruf:  sys  40505, tg  * 

* tg:  stimme  (1-3)  * 
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324  rem  * * 

326  rem  *************************************************** 
328  rem  * * 

330  rem  * sdringon  - ringmodulation  einschalten  * 

332  rem  * * 

334  rem  * auf ruf:  sys  40513, tg  * 

336  rem  * tg:  stinine  (1-3)  * 

338  rem  * xxxxxxxxxxxxxxxxxxxxxxxx* 

342  rem  * * 

344  rem  * sdringoff  - ringmodulation  ausschalten  * 

346  rem  * * 

348  rem  * auf ruf:  sys  40521, tg  * 

350  rem  * tg:  stimme  (1-3)  * 

352  rem  * * 

354  rem  *************************************************** 
356  : 

358  : 

360  rem  basic-ende  auf  39999  herabsetzen 
370  poke  55,63:poke  56,156:clr 
400  rem  ***  datas  einiesen  *** 

410  restore:zl=1000 

420  ad=40000: rem  startadresse  der  routine 
430  ps=0:z=0 

440  read  wt:if  ut=-1  then  print  "datas  ok!":end 

450  poke  ad,wt:ad=ad+1 :z=z+1 

460  ps=ps+wt : rem  pruef summe 

470  if  z<10  then  440:rem  eine  zeile  lesen 

480  read  wt 

485  if  ps<>wt  then  print  "data-fehler  in  zeile,,;zl;,,!":end 
490  zl=zl+10:goto  430 
500  : 

510  : 

990  rem  ***  datas  *** 

1000  data  162,24,169,0,157,233,158.202,16,250,1371 
1010  data  76,81,158,32,253,174,32,93,158,173,1230 
1020  data  1,159,41,240,5,2,141,1,159,76,825 
1030  data  81,158.32,253,174,32,116,158,32,253,1289 
1040  data  174,32,138,173,169,165,160,158,32,40,1241 
1050  data  186,32,247,183,160,0,165,20,145,251,1389 
1060  data  200,165,21,145,251,76,81,158,32,253,1382 
1070  data  174,32,116,158,32,253,174,32,158,173,1302 
1080  data  32,163,182,160,1,177,34,133,2,136,1020 
1090  data  177,34,133,253,200,162,0,221,197,158,1535 
1100  data  240,8,232,224,12,144,246,76,8,175,1365 
1110  data  165,2,201,35,208,11,232,221,197,158,1430 
1120  data  208,241,200,177,34,133,2,138,10,170,1313 
1130  data  189,209,158,133,253,232,189,209,158,133,1863 
1140  data  254,165,2,56,233,48,201,8,144,3,1114 
1150  data  76.72,178,73,7,208.11,160.0,177.962 
1160  data  34,201,72,240,241,76,253,156,170,160,1603 
1170  data  0,177,34,201,72,208,5,56,102,254,1109 
1180  data  48,2,70,254,102,253,202,208,249,160,1548 
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1190  data  0,165,253,145,251,200,165,254,145,251,1829 
1200  data  76,81,158,32,253,174,32,116,158,160,1240 
1210  data  5,32,29,157,200,32,29,157,76,81,798 
1220  data  158,32,104,158,10,10,10,10,145,251,888 
1230  data  32,104,158,17,251,145,251,96,32,111,1197 
1240  data  157,29,152,158,145,251,224,2,208,39,1365 
1250  data  32, 121, 0,240,34, 32, 25*,  174, 32, 138, 1056 
1260  data  173,169,160,160,158,32,40,186,32,247,1357 
1270  data  183,165,21,201,16,144,3,76,72,178,1059 
1280  data  160,3,145,251,136,165,20,145,251,76,1352 
1290  data  81,158,32,111,157,61,156,158,145,251,1310 
1300  data  76,81,158,32,253,174,32,116,158,32,1112 
1310  data  253,174,32,158,183,202,224,4,144,3,1377 
1320  data  76,72,178,160,4,177,251,96,32,135,1181 
1330  data  158,9,1,145,251,76,81,158,32,135,1046 
1340  data  158,41,254,76,141,157,32,253,174,32,1318 
1350  data  158,183,202.224,4,144,3,76,72,178,1244 
1360  data  173,1,159,41,143,29,178,158,141,1,1024 
1370  data  159,32,253,174,32,138,173,169,182,160,1472 
1380  data  158,32,91,188,16,5,240,3,76,72,881 
1390  data  178,169,187,160,158,32,103,184,169,192,1532 
1400  data  160,158,32,40,186,32,247,183,165,21,1224 
1410  data  201,8,176,199,165,20,41,7,141,254,1212 
1420  data  158,165,20,74,74,74,141,255,158,165,1284 
1430  data  21,10,10,10,10,10,13,255,158,141,638 
1440  data  255,158,32,104,158,10,10,10,10,13,760 
1450  data  0,159,141,0,159,76,81,158,32,22,828 
1460  data  158,29,170,158,141,0,159,76,81,158,1130 
1470  data  32,253,174,32,158,183,202,224,4,144,1406 
1480  data  3,76,72,178,173,0,159,96,32,22,811 
1490  data  158,61,174,158,76,16,158,32,135,158,1126 
1500  data  9,2,76,141,157,32,135,158,41,253,1004 
1510  data  76,141,157,32,135,158,9,4,76,141,929 
1520  data  157,32,135,158,41,251,76,141,157,162,1310 
1530  data  24,189,233,158,157,0,212,202,16,247,1438 
1540  data  96,32,158,183,224,16,144,3,76,72,1004 
1550  data  178,96,132,2,32,253,174,32,93,158,1150 
1560  data  164,2,138,96,32,158,183,202,224,3,1202 
1570  data  176.232,189,146,158,133,251,189,149,158,1781 
1580  data  133,252,96,32,253,174,32,116,158,160,1406 
1590  data  4,177,251,96,233,240,247,158,158,158,1722 
1600  data  16,32,64,128,239,223,191,127,134,35,1189 
1610  data  204,204,205,133,8,58,51,190,1,2,1056 
1620  data  4,8,254,253,251,247,64,16,32,80,1209 
1630  data  133,112,0,0,0,133,240,0,0,0,618 
1640  data  126,48,141,61,150,67,35,68,35,69,800 
1650  data  70,35,71,35,65,35,72,56,139,129,707 
1660  data  147,69,156,144,165,104,175,214,185,228,1587 
1670  data  196,153,208,255,220,36,234,16,248,207,1773 
1680  data  6,0,0,0,0,0,0,0,0,0,6 
1690  data  0,0,0,0,0,0,0,0,0,0,0 
1700  data  0,0, 0,0, 0,0, 0,0, 0,0,0 
2000  data  -1:rem  endnarkierung 
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Einstellbeispiele 

Nachdem  wir  nun  alles  an  Routinen  beieinander  haben,  was  wir 
für  die  Sound-Programmierung  benötigen,  wollen  wir  einmal  ein 
wenig  experimentieren.  Für  welche  Art  des  Abtippens  (As- 
sembler oder  BASIC)  auch  immer  Sie  sich  entschieden  haben, 
für  die  nun  folgenden  Programme  muß  sich  das  Programmpaket 
im  Rechner  befinden.  Ansonsten  bekommen  Sie  sofort  einen 
Absturz! 

Am  einfachsten  ist  es  natürlich  mit  dem  BASIC-Lader.  Einfach 
den  BASIC-Lader  starten  und  anschließend  mit  NEW  löschen. 
Die  Routinen  sind  nun  gebrauchsfertig  installiert  und  der  BA- 
SlC-Speicher  ist  frei  für  Ihre  ersten  Sound-Programme.  Eines 
gleich  vornweg:  Die  Einstellung  aller  SID- Parameter  ist  in  den 
meisten  Fällen  sehr  subjektiv.  Insbesondere,  wenn  es  darum 
geht,  Musikinstrumente  nachzuahmen,  können  die  Geschmäcker 
sehr  differieren.  Was  für  den  einen  wie  eine  Trompete  klingt, 
erinnert  den  anderen  vielleicht  eher  an  eine  Flöte. 

Die  hier  vorgestellten  Einstellbeispiele  sollen  Ihnen  deshalb  nur 
eine  Orientierung  geben,  wie  sich  in  etwa  ein  bestimmtes  Ge- 
räusch oder  eine  bestimmte  Imitation  erreichen  läßt.  Beginnen 
wir  mit  etwas  ganz  Einfachem,  einem  Signalton,  der  vom  Ton- 
generator 1 erzeugt  werden  soll: 

100  rem  programm:  Signalton 

110  sys  40000:rem  sid  initialisieren 

120  sys  40013, 15:rem  volle  lautstaerke 

130  sys  40032, 1,500: rem  frequenz  500  hertz 

140  sys  40238, 1,1: rem  wellenform  dreieck 

150  sys  40203, 1,0,0, 15, 0:rem  huellkurve 

160  : 

170  sys  40328,1: rem  stimme  ein 
180  for  w=1  to  5000:next  w:rem  warteschleife 
190  sys  40338, 1:rem  stimme  aus 
200  : 

210  end 

Indem  Sie  die  Warteschleife  in  Programmzeile  180  entsprechend 
variieren,  können  Sie  einen  Signalton  von  beliebiger  Dauer  spie- 
len lassen.  Schon  etwas  komplexer  ist  das  Erzeugen  eines  Schuß- 
geräusches: 
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100  rem  prograam:  schussgeraeusch 

110  sys  40000:rem  sid  initialisieren 

120  sys  40013, 15:rem  volle  lautstaerke 

130  sys  40032, 1,3250: rem  frequenz  3250  Hertz 

140  sys  40238, 1,4:rem  wellenform  rauschen 

150  sys  40203,1,0,9,0,0:rem  huell kurve 

160  : 

170  sys  40328, 1:rem  stimme  ein 
180  for  w=1  to  1000:next  w:rem  warteschleife 
190  sys  40338,1: rem  stimne  aus 
200  : 

210  end 


Um  ein  Explosionsgeräusch  erzeugen  zu  können,  benötigen  wir 
den  Filter: 

100  rem  programm:  explosionsgeraeusch 

110  sys  40000:rem  sid  initialisieren 

120  sys  40013, 15:rem  volle  lautstaerke 

130  sys  40032, 1,500: rem  frequenz  500  hertz 

140  sys  40238, 1,4:rem  wellenform  rauschen 

150  sys  40203, 1,0, 11, 3, 12: rem  huellkurve 

160  rem  filter  hochpass,  frequenz  500  hertz,  resonanz  12 

170  sys  40346,1,500,12 

180  sys  40458, 1:rem  stimme  1 ueber  filter  leiten 
190  : 

200  sys  40328, 1:rem  stimme  ein 

210  for  w=1  to  2500:next  w:rem  warteschleife 

220  sys  40338,1: rem  stimne  aus 

230  : 

240  end 

Die  beiden  folgenden  Beispiele  sollen  Ihnen  zeigen,  welche  kom- 
plexen Klänge  sich  mit  Hilfe  der  Synchronisation  und  der 
Ringmodulation  von  Stimmen  erreichen  lassen.  Beide  Programme 
erzeugen  sirenenartige  Geräusche.  Lassen  Sie  sich  überraschen: 

100  rem  programm:  Synchronisation 

110  sys  40000:rem  sid  initialisieren 

120  sys  40013, 15:rem  volle  lautstaerke 

130  sys  40203, 1,0,0, 15, 0:rem  huellkurve  stimne  1 

140  sys  40238, 1,3, 40: rem  wellenform  (stimnel)  rechteck 

150  sys  40238,3,2:rem  wellenform  (stimne3)  saegezahn- 

160  sys  40497,1 :rem  Synchronisation  einschalten 

170  sys  40032,3, 150: rem  frequenz  (stimne3)  150  hertz 

180  : 

190  sys  40328, 1:sys  40328,3: rem  beide  stimmen  ein 
200  for  z=100  to  2000  Step  3 

210  sys  40032, 1,z:rem  frequenz  schrittweise  aendern 
220  next  z 


686 


Das  große  Commodore  64-Buch 


230  sys  40000: rem  sid  initialisieren 
240  : 

250  end 

100  rem  programm:  ringmodulation 

110  sys  40000:rem  sid  initialisieren 

120  sys  40013,15:rem  volle  lautstaerke 

130  sys  40203, 1,0,0, 15f0:rem  huellkurve  stirone  1 

140  sys  40203, 1,0, 0,15,0: rem  huellkurve  stimme  2 

150  sys  40238, 1,1, 40: rem  wellenform  (stimmel)  dreieck 

160  sys  40238,3,3,40: rem  wellenform  (stimme3)  rechteck 

170  sys  40513,1 :rem  ringmodulation  einschalten 

180  : 

190  sys  40328, 1:sys  40328, 3: rem  beide  stimmen  ein 
200  : 

210  rem  frequenzen  schrittweise  aendern 

220  for  z1=1  to  2000  Step  100 

230  for  z2=1  to  2000  Step  50 

240  sys  40032, 3, z2: rem  frequenz  stimme3 

250  next  z2 

260  sys  40032, 1,z1: rem  frequenz  stimel 
270  next  zl 

280  sys  40000:rem  sid  initialisieren 
290  : 

300  end 

Zum  Abschluß  und  als  Überleitung  zum  nächsten  Abschnitt  soll 
es  etwas  musikalisch  werden.  Die  nächsten  drei  Beispiele  ahmen 
den  Ton  einer  Flöte,  einer  Oboe  sowie  eines  Banjos  nach: 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 


rem  programm:  floete 
sys  40000:rem  sid  initialisieren 
sys  40013, 15:rem  volle  lautstaerke 
sys  40032, 1,600: rem  frequenz  600  hertz 
sys  40238,1,1: rem  wellenform  dreieck 
sys  40203, 1,8,5, 15, 8:rem  huellkurve 

sys  40328,1: rem  stimme  ein 

get  eg$:if  eg$=""  then  180: rem  auf  tastendruck  warten 
sys  40338, 1:rem  stimme  aus 

end 

rem  programm:  oboe 

sys  40000: rem  sid  initialisieren 

sys  40013, 15:rem  volle  lautstaerke 

sys  40032, 1,450: rem  frequenz  450  hertz 

sys  40238,1,3,6.11:rem  wellenform  rechteck,  pulsweite  6.11% 

sys  40203,1,4,9,15,8:rem  huellkurve 

sys  40328,1  :rem  stimme  ein 

get  eg$:if  eg$=""  then  180:rem  auf  tastendruck  warten 
sys  40338,1: rem  stimme  aus 
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200  : 

210  end 

100  rem  Programm:  banjo 

110  sys  40000:rem  sid  initialisieren 

120  sys  40013, 15:rem  volle  lautstaerke 

130  sys  40032, 1,450: rem  frequenz  450  hertz 

140  sys  40238, 1,2: rem  wellenform  saegezahn 

150  sys  40203, 1,0, 9, 0,0: rem  huell kurve 

160  rem  filter  notch,  frequenz  2000  hertz,  resonanz  15 

170  sys  40346,4,2000,15 

180  sys  40458, 1:rem  stimme  1 ueber  filter  leiten 
190  : 

200  sys  40328, 1:rem  stimme  ein 

210  for  w=1  to  2000:next  w:rem  warteschleife 

220  sys  40338,1: rem  stimme  aus  ' 

230  : 

240  end 


Diese  Einstellbeispiele  sollen  genügen.  Wie  Sie  gesehen  (oder 
besser  gehört)  haben,  lassen  sich  dem  SID  die  interessantesten 
Geräusche  und  Töne  entlocken. 


7.4  Etwas  Musiktheorie 

Wie  Sie  wahrscheinlich  wissen,  ist  die  sogenannte  Tonleiter  in 
der  Musik  in  einzelne  Oktaven  und  diese  wiederum  in  verschie- 
dene Nöten  unterteilt.  Eine  Musiknote  ist  also  durch  ihre  Noten- 
bezeichnung und  ihre  Oktave  charakterisiert.  Jeder  Musiknote 
entspricht  eine  bestimmte  Frequenz.  Den  Noten  der  1.  Oktave 
beispielsweise  sind  die  folgenden  Frequenzen  zugeordnet: 


CI 

32.7 

Hz 

C#1 

34.6 

Hz 

Dl 

36.7 

Hz 

D#1 

38.9 

Hz 

El 

41.2 

Hz 

Fl 

43.7 

Hz 

F#1 

46.2 

Hz 

Gl 

49.0 

Hz 

G#1 

51.9 

Hz 

Al 

55.0 

Hz 

A#1 

58.3 

Hz 

Hl 

61.7 

Hz 

In  dieser  Tabelle  sind  gleichzeitig  auch  alle  Notenbezeichnungen 
aufgelistet.  Die  Frequenzen  der  jeweils  nächsten  Oktave  lassen 
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sich  leicht  berechnen.  Der  Frequenzwert  wird  einfach  verdop- 
pelt. Der  Note  "C2M  entspricht  also  die  Frequenz  65.4  Hertz.  Wie 
Sie  schon  wissen,  sind  die  Tongeneratoren  des  SID  in  der  Lage, 
Frequenzen  zwischen  0 und  3.848  Hertz  zu  erzeugen.  Die  SID- 
Tonleiter  reicht  daher  von  "CO"  (16,4  Hz)  bis  "A#7"  (3729,3  Hz). 
Insgesamt  stehen  also  acht  Oktaven  zur  Verfügung. 

In  der  Regel  wird  man  mit  zwei  bis  drei  Oktaven  auskommen. 
Musikstücke,  die  sich  über  mehr  als  drei  Oktaven  erstrecken 
sind  sehr  selten.  Außerdem  empfindet  das  menschliche  Ohr  Töne 
unterhalb  etwa  100  Hertz  (Note  "G2")  nur  noch  als  dumpfes 
Brummen.  Und  auch  die  Noten  der  höchsten  Oktave  klingen 
meist  nur  noch  wie  ein  mehr  oder  minder  schrilles  Pfeifen,  je 
nachdem,  welche  Wellenform  und  Hüllkurve  man  gewählt  hat. 

Für  alle  Fälle  finden  Sie  aber  im  Anhang  eine  Tabelle  mit  allen 
Noten  und  ihren  zugehörigen  Frequenzen. 


7.5  Musik  mit  dem  Commodore  64 

Da  es  natürlich  recht  umständlich  ist,  sich  immer  wieder  die  zu 
den  Noten  gehörenden  Frequenzen  herauszusuchen,  enthält  das 
im  vorherigen  Abschnitt  vorgestellte  Maschinensprachepaket  eine 
spezielle  Routine  SDNOTE,  bei  der  man  die  Noten  in  der  ge- 
wohnten Schreibweise  angeben  kann.  Kurz  zur  Wiederholung: 
SDNOTE  wird  mit 

SYS  40068, TG, NT$ 

auf  gerufen.  TG  steht  für  die  Nummer  des  Tongenerators  NT$ 
enthält  die  Note.  Da  der  Commodore  64  natürlich  nicht  über  die 
Klangqualitäten  eines  tatsächlichen  Musikinstruments,  etwa  eines 
Klaviers,  verfügt,  muß  man  manchmal  etwas  "tricksen",  um  we- 
nigstens einen  einigermaßen  guten  Klang  zu  bekommen.  Der 
Trick  besteht  nun  darin,  die  Frequenz  einer  Note  zu  variieren, 
d.h.  die  zugehörige  Frequenz  etwas  zu  erhöhen  oder  zu  verrin- 
gern. Ein  "A"  in  der  dritten  Oktave  beispielsweise  läßt  man  dann 
nicht  mehr  mit  220,0  Hertz  spielen,  wie  es  ja  eigentlich  korrekt 
wäre,  sondern  vielleicht  mit  218,5  oder  222,0  Hertz. 
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In  diesem  Fall  können  Sie  die  Routine  SDNOTE  natürlich  nicht 
mehr  verwenden  und  müssen  sich  mit  der  direkten  Frequenzein- 
stellung über  SDFREQ  begnügen.  Noch  einmal  zur  Erinnerung, 
SDFREQ  wird  so  aufgerufen: 

SYS  40032, TG, FR 

Ob  eine  solche  "Verfälschung"  der  Noten  erforderlich  ist,  hängt 
entscheidend  von  der  Wahl  des  zu  imitierenden  Musikinstru- 
ments ab  und  nicht  zuletzt  natürlich  auch  von  Ihrem  "musikali- 
schen" Gehör.  Im  folgenden  möchte  ich  einmal  davon  ausgehen, 
daß  Sie  nicht  allzu  empfindlich  sind,  und  werde  deshalb  SD- 
NOTE verwenden. 

Neben  den  Noten  selbst  muß  auch  ihre  jeweilige  Spieldauer 
festgelegt  werden.  Auch  hier  hat  der  Commodore  64  einen 
Nachteil  oder  auch  Vorteil,  je  nachdem,  wie  man  es  sieht.  Um 
die  Notendauer  einzustellen,  muß  man  sich  einer  sogenannten 
"Warteschleife"  bedienen,  beispielsweise: 

FOR  W=1  TO  100:NEXT  U 

Diese  Warteschleife  hat  den  Nachteil,  daß  man  die  Spieldauer 
einer  Note  nicht  exakt  einstellen  kann.  Die  Abarbeitung  ein  und 
derselben  Schleife  kann  nämlich  durchaus  unterschiedlich  lange 
dauern,  je  nachdem,  wo  im  Programm  (weiter  vorne  oder  weiter 
hinten)  sie  steht. 

Auf  der  anderen  Seite  läßt  sich  die  Spieldauer  durch  die  Warte- 
schleife praktisch  völlig  frei  gestalten.  Man  ist  nicht  auf  die  in 
der  Musik  üblichen  "ganzen",  "halben"  oder  "viertel"  Noten  be- 
schränkt. Im  Hinblick  auf  einen  besseren  Klang  kann  das  sehr 
nützlich  sein.  Möchten  Sie  sich  trotzdem  an  die  übliche  No- 
tendauer halten,  so  gilt  die  folgende  Regel: 

FOR  W=1  TO  1000:NEXT  U 

entspricht  in  etwa  einer  ganzen  Note, 


FOR  W=1  TO  500:NEXT  U 
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demnach  einer  halben  Note, 

FOR  W=1  TO  250:NEXT  U 

einer  viertel  Note  usw...  Wenn  man  nun  ein  Musikstück  abspie- 
len lassen  möchte,  stellt  sich  die  Frage,  wie  und  wo  man  die 
Noten  und  ihre  jeweilige  Dauer  ablegt.  Am  einfachsten  geht  das 
in  DATA-Zeilen.  Die  Noten  und  ihre  Dauer  werden  jeweils 
paarweise  hintereinander  abgelegt. 

Wie  so  etwas  konkret  aussieht,  zeigt  das  folgende  Programm.  Be- 
vor Sie  das  Programm  abtippen  bzw.  starten,  vergessen  Sie  bitte 
nicht,  dafür  zu  sorgen,  daß  die  Routinensammlung  im  Speicher 
zur  Verfügung  steht!  Da  ich  ja  Ihren  persönlichen  Musikge- 
schmack nicht  kenne,  habe  ich  in  dem  Programm  bewußt  darauf 
verzichtet.  Ihnen  irgendeine  Melodie  Vorspielen  zu  lassen.  Das 
Programm  spielt  so,  wie  es  abgedruckt  ist,  einfach  die  gesamte 
Tonleiter  von  der  tiefsten  bis  zur  höchsten  Note.  Natürlich  kön- 
nen Sie  die  vorhandenen  Noten  aber  sehr  leicht  durch  die  Noten 
einer  Ihrer  Lieblingsmelodien  austauschen. 

Das  Programm  soll  Ihnen  sozusagen  als  "Grundgerüst"  für  eigene 
Experimente  dienen.  Vielleicht  probieren  Sie  auch  einmal  ein 
anderes  Musikinstrument  aus.  Im  Listing  "voreingestellt"  ist  eine 
Flöte. 


100  rem  programn:  musik 
110  sys  40000:rem  sid  initialisieren 
120  sys  40013, 15:rem  volle  lautstaerke 
125  : 

130  rem  musikinstrument:  floete 
140  sys  40238,1, 1:rem  wellenform  dreieck 
150  sys  40203,1,8,5,15,8:rem  huell kurve 
160  : 

170  sys  40328,1 :rem  stimme  ein 
175  : 

180  read  nt$:rem  note  lesen 

190  if  ntS^ende"  then  250: rem  fertig 

190  read  dr:rem  notendauer 

200  sys  40068, 1,nt$: rem  note  setzen 

210  for  w=1  to  dr:next  w:rem  warteschleife 

220  goto  180:naechste  Note 

240  : 

250  sys  40338,1: rem  stimme  aus 
260  end 
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980  : 

990  : 

1000  rem  musi knoten  und  Spieldauer 

1010  data  cO, 1000, c#0. 1000, dO, 1000, d#0, 1000, eO, 1000, fO, 1000 
1020  data  f#0, 1000, gO, 1000, g#0,1000,a0, 1000, a#0, 1000, hO, 1000 
1010  data  cl, 1000, c#1, 1000, dl, 1000, d#1, 1000, ei, 1000, fl, 1000 
1020  data  f#1 ,1000, gl , 1000, g#1, 1000, al, 1000, a#1, 1000, hl, 1000 
1010  data  c2, 1000, c#2, 1000, d2, 1000, d#2, 1000, e2, 1000,12,1000 
1020  data  f#2, 1000, g2, 1000, g#2, 1000,a2, 1000, a#2, 1000, h2, 1000 
1010  data  c3, 1000, c#3,1000,d3,1000,d#3, 1000, e3,1000,f3, 1000 
1020  data  f#3,1000,g3, 1000, g#3,1000,a3,1000,a#3,1000,h3, 1000 
1010  data  c4, 1000,c#4, 1 000, d4, 1000, d#4, 1000, e4, 1000, f 4, 1000 
1020  data  m,  1000, g4, 1000, g#4, 1000, a4, 1000, a#4, 1000, h4, 1000 
1010  data  c5, 1000, c#5, 1000, d5,1000,d#5, 1000, e5, 1000, f5, 1000 
1020  data  f#5, 1000, g5, 1000, g#5, 1000, a5, 1000, a#5, 1000, h5, 1000 
1010  data  c6, 1000, c#6, 1000, d6, 1000, d#6, 1000, e6,1000,f6, 1000 
1020  data  f#6, 1000, g6,1000,g#6, 1000, a6, 1000, a#6, 1000, h6, 1000 
1010  data  c7, 1000, c#7, 1000, d7, 1000, d#7, 1000, e7, 1000, f 7, 1000 
1020  data  f#7,1000,g7,1000,g#7,1000,a7,1000,a#7,1000 
1030  data  ende: rem  endemark ierung 
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8.  Die  speziellen  Schnittstellen 

In  diesem  Kapitel  möchte  ich  kurz  auf  die  etwas  spezielleren 
Anschlüsse  des  Commodore  64  eingehen.  Wie  man  beispielsweise 
einen  Drucker  oder  eine  Floppy  ansteuert,  wissen  Sie  ja  in  der 
Zwischenzeit.  Wie  läßt  sich  aber  zum  Beispiel  ein  Joystick  in  ei- 
genen Programmen  abf ragen? 


8.1  Die  Joystick-Anschlüsse 

Nicht  nur  in  Spielen,  auch  in  Anwendungsprogrammen  läßt  sich 
ein  Joystick  durchaus  sinnvoll  einsetzen,  was  ja  nicht  zuletzt 
GEOS  auf  eindrucksvolle  Weise  demonstriert.  Die  Abfrage  der 
beiden  "Joystick-Ports"  gestaltet  sich  sehr  einfach.  Sehen  wir  uns 
das  ganze  zunächst  einmal  in  BASIC  an.  Als  erstes  muß  die 
Tastaturabfrage  gesperrt  werden: 

10  poke  56322, 224: rem  tastaturabfrage  sperren 

Anschließend  wird  das  zu  dem  betreffenden  Joystick-Port  ge- 
hörende Register  augelesen.  Es  enthält  alle  Informationen,  die 
wir  benötigen.  Das  Register  für  den  Joystick-Port  1 hat  die 
Adresse  56.321,  das  Register  für  Port  2 die  Adresse  56.320: 

20  jt=peek( 56321): rem  Joystick-Porti  abfragen 
Jetzt  können  wir  die  Tastaturabfrage  wieder  freigeben: 

30  poke  56322,255 

und  dann  den  aus  dem  Register  ausgelesenen  Wert  analysieren. 
Für  uns  interessant  sind  die  ersten  fünf  Bits: 

BitO:  Bewegung  nach  oben 
Bitl:  Bewegung  nach  unten 
Bit2:  Bewegung  nach  links 
Bit3:  Bewegung  nach  rechts 
Bit4:  Feuerknopf 
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Falls  das  betreffende  Bit  gelöscht  ist,  hat  die  entsprechende 
Operation  stattgefunden.  Oft  ist  es  zweckmäßig,  die  Richtungs- 
änderungen nicht  mit  "oben",  "unten"  usw.  zu  bezeichnen,  son- 
dern die  entsprechenden  Himmelsrichtungen  zu  wählen: 

Oben:  Nord 

Unten:  Süd 

Rechts:  Ost 
Links:  West 


Die  "Zwischenrichtungen"  sind  in  vielen  Fällen  von  Bedeutung: 

Oben  und  rechts:  Nordost 

Oben  und  links:  Nordwest 

Unten  und  rechts:  Südost 
Unten  und  links:  Südwest 


Eine  komplette  Abfrage  sieht  dann  so  aus: 

100  rem  nord 

110  if  ( j t and  1)=0  then  gosub  1000 
120  rem  nordost 

130  if  (jt  and  9)=0  then  gosub  2000 
140  rem  ost 

150  if  (jt  and  8)=0  then  gosub  3000 
160  rem  südost 

170  if  (jt  and  10)=0  then  gosub  4000 
180  rem  süd 

190  if  (jt  and  2)=0  then  gosub  5000 
200  rem  südwest 

210  if  (jt  and  6)=0  then  gosub  6000 
220  rem  west 

230  if  (jt  and  4)=0  then  gosub  7000 
240  rem  nordwest 

250  if  (jt  and  5)=0  then  gosub  8000 
260  rem  feuerknopf 

270  if  (jt  and  16)=0  then  gosub  9000 
290  : 

300  goto  10: rem  naechster  durchgang 

Natürlich  kann  man  die  Feuerknopfabfrage  auch  mit  einer  der 
Richtungsabfragen  verknüpfen.  Wollen  Sie  zum  Beispiel  wissen, 
ob  der  Joystick  bei  gedrücktem  Feuerknopf  nach  "südost"  bewegt 
wurde,  so  müßte  die  Abfrage  so  aussehen: 


280  if  (jt  arid  26)=0  then  gosub 
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Sie  sehen,  das  ganze  ist  sehr  flexibel.  Eines  sollten  Sie  aber  be- 
achten: Da  zum  Abfragen  der  Joystick-Ports  die  Tastaturabfrage 
gesperrt  werden  muß,  besteht  keine  Möglichkeit,  die  Abfrage- 
schleife durch  die  <Stop>-Taste  zu  unterbrechen!  Starten  Sie  also 
das  Programm  und  befindet  sich  in  dem  betreffenden  Port  gar 
kein  Joystick,  so  kommen  Sie  aus  der  Programmschleife  nicht 
mehr  heraus.  Dann  hilft  nur  noch  ein  RESET.  Auch  in  As- 
sembler läßt  sich  die  Joystick- Abfrage  relativ  leicht  realisieren: 

100  ;tastatur  sperren 
100  abfrage  Ida  #224 
110  sta  56322 

120  ;register  von  joystick-port2  aus lesen 
;und  Zwischenspeichern 
130  Ida  56320 

140  sta  02 

150  ;tastatur  freigeben 
160  Ida  #255 

170  sta  56322 

180  ; 

190  ;register-wert  analysieren 


210 

Ida 

#1 

220 

and 

02 

230 

beq 

nord 

210 

Ida 

#9 

220 
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02 

230 
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#8 
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02 
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02 
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02 
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02 
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Ida 

#5 
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#16 
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02 
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knöpf 

240 

jmp 
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8.2  Der  User-Port 

Der  "User-Port"  ist  eine  frei  programmierbare  Schnittstelle,  die  - 
wie  der  Name  schon  sagt  - zum  Anschluß  anwenderspezifischer 
Peripheriegeräte  dient.  Der  User- Port  läßt  sich  im  wesentlichen 
auf  dreierlei  Weise  nutzen: 

Als  programmierbare  Steuerschnittstelle  für  Hardware-Schaltungen 

Von  der  einfachen  Diodenschaltung  über  eine  Rolladensteuerung 
bis  hin  zur  Robotersteuerung  (dafür  gibt  es  von  Fischertechnik 
sogar  spezielle  Bausätze)  - mit  dem  User-Port  läßt  sich  alles 
messen,  steuern  und  regeln. 

Dazu  sind  natürlich  gute  Elektrotechnik-Kenntnisse  erforderlich. 
Außerdem  benötigt  man  detaillierte  Informationen  über  den 
Hardware-Aufbau  des  Commodore  64.  Es  würde  an  dieser  Stelle 
zu  weit  führen,  auf  weitere  Programmierdetails  einzugehen. 

Als  Centronics-Schnittstelle 

Ein  Drucker  mit  einer  sogenannten  "Centronics-Schnittstelle" 
läßt  sich  ebenfalls  am  User-Port  anschließen.  Dazu  benötigt  man 
nur  ein  geeignetes  Verbindungskabel  (in  jedem  guten  Fachge- 
schäft erhältlich)  sowie  spezielle  Steuerungs-Software,  die  die 
Centronics-Schnittstelle  am  User-Port  realisiert. 

Auch  bei  der  Steuerungs-Software  kann  man  sich  die  Eigenpro- 
grammierung, die  gute  Hardware-Kenntnisse  erfordert,  ersparen. 
Jede  gute  Textverarbeitung  ist  heutzutage  in  der  Lage,  eine 
Centronics-Schnittstelle  am  User-Port  anzusteuern.  Außerdem 
verfügen  auch  die  meisten  Steckmodule  über  eine  entsprechende 
Implementierung.  Diese  Modul-Centronics-Schnittstelle  steht  in 
der  Regel  von  allen  Programmen  aus  zur  Verfügung,  so  daß  man 
damit  beispielsweise  auch  seine  BASIC-Programme  über  den 
User-Port  ausdrucken  lassen  kann. 
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Als  RS-232-Schnittstelle 

Die  vielleicht  interessanteste  Schnittstelle,  die  man  am  User-Port 
realisieren  kann,  ist  eine  sogenannte  RS-232-Schnittstelle.  Dabei 
handelt  es  sich  um  eine  Schnittstelle  zur  seriellen  Datenübertra- 
gung. Die  RS-232-Schnittstelle  wird  zum  Beispiel  bei  der 
Datenfernübertragung  verwendet.  Dabei  werden  dann  zwei 
Rechner  über  ihre  RS-232-Schnittstellen  und  das  öffentliche 
Telefonnetz  miteinander  verbunden,  um  Daten  auszutauschen. 
Genauso  gut  kann  man  zwei  Rechner  aber  auch  direkt  miteinan- 
der verbinden,  ohne  extra  das  Telefonnetz  zu  bemühen. 

So  könnten  Sie  beispielsweise  zwei  Commodore  64  miteinander 
koppeln  oder  auch  Daten  zwischen  Ihrem  Commodore  64  und 
einem  PC,  einem  Atari  St  oder  einem  Amiga  austauschen. 
Zunächst  benötigen  Sie  natürlich  ein  passendes  Verbindungska- 
bel. Im  einschlägigen  Fachhandel  gibt  es  entsprechende  Kabel 
für  fast  alle  Zwecke.  Man  ist  also  nicht  unbedingt  gezwungen, 
selbst  zum  Lötkolben  zu  greifen. 

Außerdem  gibt  es  von  Commodore  auch  ein  spezielles  RS-232- 
Steckmodul,  das  auf  den  User-Port  gesteckt  werden  kann.  Hat 
man  dieses  Modul  zur  Verfügung,  dann  genügt  ein  einfacheres 
Kabel.  Die  RS-232-Schnittstelle  ist  wie  gesagt  eine  serielle 
Schnittstelle,  d.h.,  die  Daten  werden  Bit  für  Bit  hintereinander 
übertragen.  Eine  Centronics-Schnittstelle  beispielsweise  arbeitet 
dagegen  parallel.  In  einem  Durchgang  werden  jeweils  acht  Bits 
übertragen.  Diese  Form  der  Datenübertragung  ist  natürlich  we- 
sentlich schneller  als  die  serielle  Übertragung. 

Der  große  Nachteil  dabei  ist  aber  die  mangelnde  Datensicherheit 
bei  größeren  Entfernungen.  Ab  einer  Kabellänge  von  etwa  zwei 
Metern  beeinflussen  sich  die  einzelnen  Leitungen  gegenseitig,  so 
daß  es  zu  Störungen  bei  der  Übertragung  kommen  kann.  Speziell 
abgeschirmte  Kabel  schaffen  dem  zwar  Abhilfe,  für  größere 
Entfernungen  sind  derartige  Kabel  aber  viel  zu  teuer.  Möchte 
man  die  Daten  über  das  Telefon  übertragen,  so  scheidet  eine 
parallele  Übertragung  von  vornherein  aus.  Das  Telefonnetz  ar- 
beitet nämlich  mit  nur  jeweils  zwei  Leitungen  zwischen  zwei 
Anschlüssen,  das  sind  sechs  Leitungen  zuwenig. 
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Die  Programmierung  der  RS-232-Schnittstelle  gestaltet  sich  fast 
so  einfach  wie  beispielsweise  die  Ansteuerung  der  Floppy  oder 
des  Druckers.  Man  muß  lediglich  einige  Parameter  mehr  einstel- 
len. Das  Betriebssystem  des  Commodore  64  enthält  nämlich  be- 
reits sämtliche  Routinen  zur  Ansteuerung  der  RS-232-Schnitt- 
stelle.  Die  Arbeit  gliedert  sich  in  drei  Phasen: 

► öffnen  der  Schnittstelle  mittels  einer  OPEN-Anweisung. 

► Lesen  und/oder  Schreiben  von  Daten  mit  INPUT#,  GET# 
bzw.  PRINT#. 

► Schließen  der  Schnittstelle  mittels  einer  CLOSE-Anweisung. 

Um  den  Aufbau  der  OPEN-Anweisung  zu  verstehen,  müssen 
wir  uns  noch  ein  wenig  mit  dem  Übertragungskonzept  befassen. 
Zur  Erhöhung  der  Übertragungssicherheit  werden  jeweils  acht 
zu  übertragende  Bits  in  ein  Start-Bit  (vor  dem  ersten  Daten-Bit) 
und  in  ein  oder  zwei  Stop-Bits  (hinter  dem  letzten  Daten-Bit) 
"eingebettet". 

Wahlweise  läßt  sich  auch  noch  ein  sogenanntes  Paritäts-Bit  ein- 
fügen.  Dieses  Bit  gibt  an,  ob  die  Anzahl  der  Einsen  in  den  Da- 
ten-Bits  gerade  oder  ungerade  ist.  Veranschaulichen  wir  uns  das 
ganze  einmal  grafisch: 


B 

n 

B 

D 

D 

B 

□ 

D 

B 

B 

B 

bbb 

Datenbytel 


Datenbyte2 


Die  Nummern  0 bis  7 stehen  jeweils  für  die  einzelnen  Daten- 
Bits  eines  Bytes.  Vor  jedes  Daten-Byte  wird  nun  ein  Start-Bit 
"S"  und  hinter  jedes  Daten-Byte  ein  oder  zwei  Stop-Bits  "Sl"  und 
"S2"  eingefügt.  Für  ein  einzelnes  Byte  sieht  das  dann  so  aus: 
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bzw.: 


O 

B 

B 

B 

B 

B 

B 

fl 

B 

S1 

S2 

Das  Paritäts-Bit  wird  anstelle  des  7.  Daten 

fl 

B 

B 

B 

B 

B 

B 

B 

B 

S1 

bzw.: 

fl 

B 

B 

B 

B 

B 

B 

B 

B 

S1 

1 SZ  1 

Ein  weiterer  wichtiger  Punkt  bei  der  Datenübertragung  ist  die 
Übertragungsgeschwindigkeit.  Während  man  bei  der  Floppy  oder 
beim  Drucker  keine  Möglichkeit  hat,  die  Übertragungsgeschwin- 
digkeit zu  variieren  (von  Floppy-Speedern  einmal  abgesehen), 
läßt  sie  sich  bei  der  RS-232-Schnittstelle  auf  Bits  genau  einstel- 
len. Die  Einheit,  in  der  die  Übertragungsgeschwindigkeit  ge- 
messen wird,  heißt  "Baud"  und  steht  für  "Bits  je  Sekunde".  Eine 
Übertragungsgeschwindigkeit  von  2.400  Baud  bedeutet  also,  daß 
je  Sekunde  2400  Bits  übertragen  werden. 

Schließlich  muß  noch  angegeben  werden,  in  welcher  Übertra- 
gungsart gearbeitet  werden  soll,  "vollduplex"  oder  "halbduplex". 
Bei  Vollduplex-Betrieb  werden  die  Daten  in  beiden  Richtungen 
mit  derselben  Geschwindigkeit  gesendet,  bei  Halbduplex-Be- 
trieb, erfolgt  die  Datenübertragung  in  eine  Richtung  wesentlich 
verlangsamt.  In  der  Regel  arbeitet  man  im  Vollduplex-Betrieb. 

Der  letzte  anzugebende  Parameter  betrifft  den  sogenannten 
"Handshake-Modus".  Zur  Auswahl  stehen  "3-Draht-Handshake" 
und  "X-Draht-Handshake".  Beim  3-Draht-Handshake,  dem  ein- 
facheren der  beiden  Modi,  erfolgt  bei  der  Datenübertragung 
keine  Kontrolle,  ob  die  gesendeten  Daten  auch  tatsächlich  beim 
Empfänger  angekommen  sind.  Außerdem  besteht  für  den  emp- 
fangenden Rechner  keine  Möglichkeit,  die  Datenübertragung 
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anzuhalten.  Diese  beiden  Nachteile  hat  der  X-Draht-Handshake 
nicht. 

Die  Art  des  Handshakes  hängt  von  der  Verdrahtung  des  Verbin- 
dungskabels ab.  Bei  einfachen  Rechner-Rechner-Verbindungen 
reicht  der  3-Draht-Handshake  in  der  Regel  aus.  Bei  einer  Ver- 
bindung Rechner-Modem  beispielsweise  benötigt  man  dagegen 
den  X-Draht-Handshake. 


Damit  haben  wir  alle  Parameter  beieinander.  Doch  wie  wählt 
man  diese  nun  aus  und  wie  teilt  man  sie  dem  Commodore  64 
mit?  Dazu  verfügt  die  RS-232-Schnittstelle  über  zwei  Register, 
ein  "Kontroll-Register"  und  ein  "Befehls-Register". 

Die  Bits  0 bis  3 des  Kontroll-Registers  sind  für  die  Übertra- 
gungsgeschwindigkeit, die  "Baudrate",  zuständig: 


! 

Baudrate 

3 

2 

1 

0 

Wert 

50 

0 

0 

0 

1 

1 

75 

0 

0 

1 

0 

110 

0 

0 

1 

1 

134.5 

0 

1 

0 

0 

150 

0 

1 

0 

1 

300 

0 

1 

1 

0 

6 

600 

0 

1 

1 

1 

7 

1200 

1 

0 

0 

0 

8 

1800 

1 

0 

0 

1 

9 

2400 

1 

0 

1 

0 

10 

Die  Bits  5 und  6 des  Kontroll-Registers  sind  für  die  Anzahl  der 
Daten-Bits  zuständig: 


Daten-Bits 

6 

5 

Wert 

8 

0 

0 

0 

7 

0 

1 

32 

6 

1 

0 

64 

5 

1 

1 

96 
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Bit  7 des  Kontroll-Registers  bestimmt  die  Anzahl  der  Stop-Bits: 


Stop-Bits 

7 

Wert 

1 

0 

0 

2 

1 

128 

Das  Bit  0 des  Befehls-Registers  bestimmt  die  Handshake-Art: 


Handshake 

0 

Wert 

3-Draht 

0 

0 

X-Draht 

1 

1 

Das  Bit  4 des  Befehls-Registers  bestimmt  die  Übertragungsart: 


Art 

4 

Wert 

Vollduplex 

0 

0 

Halbduplex 

1 

16 

Bit  5 bis  7 sind  für  die  Art  der  Paritätsprüfung  zuständig: 


Prüfung 

7 6 5 

Wert 

keine 

0 0 0 

0 

ungerade 

0 0 1 

32 

gerade 

1 0 1 

96 

keine 

0 1 0 
8.  Daten-Bit  = 1 

160 

keine 

1 1 1 
8.  Daten-Bit  = 0 

224 

Beide  Register- Werte  werden  in  der  OPEN-Anweisung  als  "File- 
Namen"  übergeben  und  zwar  in  der  Reihenfolge  Kontroll-Regi- 
ster-Befehls-Register.  Nehmen  wir  einmal  an.  Sie  möchten  die 
RS-232-Schnittstelle  mit  den  folgenden  Parametern  öffnen: 
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300  Baud 

7 Bit  ASCII  Daten 
1 Stop-Bit 
keine  Parität 
8.  Daten-Bit  immer  1 
Voll duplex 
3-Draht-Handshake 


Das  sieht  dann  so  aus: 

100  lf=2:rem  logische  file-nummer  (frei  wählbar) 

110  ga=2:rem  geraeteadresse  der  rs-232-schnittstelle 
120  sa=0:sekundaeradresse  (ohne  bedeutung) 

130  : 

140  bd=6:rem  baudrate  (1-10) 

150  db=0:rem  daten-bit-anzahl  (0,32,64,96) 

160  sp=0:rem  stop-bit-anzahl  (0,128) 

170  : 

180  hd=0:rem  handshake  (0,1) 

190  ua=0:rem  uebertragungsart  (0,16) 

200  pr=160:pari taet  (0,32,96,160,224) 

210  : 

220  open  If ,ga,sa,chr$(bd+db+sp)+chr$(hd*-ua+pr) 

Dann  kann  man  mit  INPUT#2  und  GET#2  Daten  lesen  oder  mit 
PRINT#2  schreiben.  CLOSE  2 beendet  die  Übertragung. 


8.3  Der  Expansion-Port 

Der  "Expansion- Port"  dient  ausschließlich  dazu,  sogenannte 
Steckmodule  aufzunehmen.  Sobald  der  Commodore  64  einge- 
schaltet wird,  überprüft  die  dabei  ablaufende  RESET-Routine, 
ob  ein  Modul  eingesteckt  ist.  Dazu  muß  im  Modul-Speicher  die 
Kennung  "CBM80"  abgelegt  sein.  Ist  das  der  Fall,  so  wird  die 
Rechnerkontrolle  an  die  Modul-Software  übergeben.  Diese 
Modul-Software  liegt  in  der  Regel  in  sogenannten  EPROM  vor. 
EPROM  bedeutet  "Erasable  Programmable  Read  Only  Memory", 
also  lösch-  und  beschreibbarer  ROM-Speicher.  Um  die  Software 
in  das  EPROM  zu  bekommen,  ist  ein  spezielles  EPROM-Pro- 
grammiergerät  erforderlich,  mit  dessen  Hilfe  die  Software  in  das 
EPROM  "gebrannt"  wird.  EPROM-Programmiergeräte  zum  Be- 
trieb am  Commodore  64  und  die  zugehörigen  EPROM  gibt  es 
bei  verschiedenen  Spezialanbietern  zu  kaufen.  Für  die  hobby- 
mäßige Anwendung  dürfte  das  ganze  allerdings  zu  teuer  sein. 
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9.  Pflegen  und  Reparieren  - 
Floppy  1541  und  C64 

Die  Floppy  1541  dient  Ihnen  zur  Sicherung  von  Daten,  wobei 
die  Vorgänge  schneller  ablaufen  als  z.B.  bei  der  Datasette.  Sie 
erhalten  im  folgenden  Hinweise  zur  Pflege  und  Reparatur  des 
Gerätes. 


9.1  Einleitung 

Vor  dem  Aufdrehen  der  Gehäusebefestigungsschrauben  sollten 
Sie  die  220-Volt-Versorgungsleitung  und  das  Seriellbuskabel  von 
der  Floppy  abziehen.  Für  das  öffnen  der  vier  Gehäuseschrauben 
sollten  Sie  einen  Kreuzschlitz-Schraubendreher  der  Größe  Nr.  2 
verwenden,  welchen  Sie  auch  noch  weiterhin  benötigen  werden. 

Vorsichtl  Die  Digitalplatine  Ihres  1541  ist  mit  Bausteinen  be- 
stückt. Die  Bausteine  sind  sehr  empfindlich  gegen 
statische  Aufladungen  die  durch  den  Menschen 
übertragen  werden  können.  Gehen  Sie  deshalb  mit 
ihrer  Elektronikplatine  sehr  behutsam  um.  Ein 
Kurzschluß,  der  durch  ihre  Hände  oder  herumlie- 
gendes Werkzeug  verursacht  wird,  kann  ebenfalls 
zum  "Sterben“  eines  ICs  führen. 


9.1.1  Prüfen  ohne  Werkzeug 

Die  hier  beschriebenen  Vorgehensweisen  sind  für  alle  Lauf- 
werkstypen, natürlich  mit  Ausnahme  der  3,5-Zoll-Floppy  1581, 
gültig.  Die  im  Kapitel  "Überwachungsdienst  alle  4 Monate" 
(Wärmeentwicklung  und  Geräuschentwicklung  des  Transforma- 
tors) beschriebenen  Vorgehens  weisen  beziehen  sich  nur  auf 
Laufwerke,  in  denen  das  Netzteil  fest  eingebaut  ist. 
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Beim  Kauf  Ihres  Diskettenlaufwerks  haben  Sie  zum  Gerät  zwei 
Disketten  erhalten.  Die  eine  Diskette  enthält  u.a.  auch  das  Pro- 
gramm PERFORMANCE  TEST  und  DISPLAY  T&S  sowie  wei- 
tere nützliche  Programme.  Das  Programm  PERFORMANCE 
TEST  fordert  Sie  auf,  eine  neue  Diskette  einzulegen  und  den 
Test  mit  <Return>  zu  starten.  Daraufhin  wird  die  Diskette  for- 
matiert und  anschließend  ein  Schreib-/Lesetest  durchgeführt. 
Dieser  druckt  nach  Beendigung  PERFORMANCE  TEST  OK 
oder  eine  Fehlermeldung  mit  Angabe  der  Spur  und  dem  Sektor, 
in  dem  der  Fehler  auftrat,  auf  den  Bildschirm.  Eine  Liste  der 
Bedeutungen  der  Fehlermeldungen  finden  Sie  im  Anhang. 

Ein  READ  ERROR  in  der  Spur  35  weist  auf  eine  Dejustage  der 
Spur- 1 -Einstellung  hin,  genauso  ein  READ  ERROR  in  der  Spur 
1 oder  in  mehreren  Spuren.  Die  Besonderheit  beim  PERFOR- 
MANCE TEST  ist,  daß  die  am  äußeren  Rand  der  Disk  liegende 
Spur  als  Spur  35  bezeichnet  wird.  Sie  ist  aber  mit  der  Spur  1 
identisch.  Im  Klartext:  Die  Spur  1 befindet  sich  außen  auf  der 
Diskette  und  ist  im  PERFORMANCE  TEST  als  Spur  35  ge- 
kennzeichnet. 

Das  Programm  "DISPLAY  T&S"  sollten  Sie  vor  Beginn  ihrer  Tä- 
tigkeiten an  ihrer  Floppy  1541  testen.  Sollten  Sie  dieses  Pro- 
gramm nicht  besitzen,  rate  ich  Ihnen,  sich  dieses  Programmm 
bei  Ihrem  Fachhändler  zu  besorgen.  Sollte  Ihre  1541  überhaupt 
nicht  mehr  laden,  sollten  Sie  sich  von  einem  Bekannten  einen 
Kassettenrekorder  1530  leihen,  und  sich  das  Programm  "DIS- 
PLAY T&S"  auf  Kassette  überspielen.  Noch  besser  wäre  es  je- 
doch, es  leiht  Ihnen  jemand  eine  1541. 


9.1 .2  Werkzeuge  und  andere  Hilfen 

Werkzeuge  für  die  Mechanik 

► Kreuzschlitz-Schraubendreher  Größe  2 

► Schraubendreher  normal/klein  Breite  2.5mm  und  nor- 
mal/groß Breite  ca.  8 mm 

► Spitzzange  klein 

► Elektroniker-Mikroschere 
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Hilfsmittel 

► Sekundenkleber,  Panzerkleber  oder  Nagellack 

► Zwei  Disketten  des  1541  Diskettenlaufwerks,  die  in  einem 
Laufwerk  formatiert  wurden,  das  sich  in  einem  guten  Zu- 
stand befand  (für  R/W-Test  und  Spur- 1 -Justage),  oder  be- 
reits ältere  Disketten  vor  der  Dejustierung  ihres  Laufwerks. 

► Nähmaschinenöl  und  säurefreies  Fett  (Vaseline) 

► Spiritus  oder  ähnliches  (fettfrei) 

► Wattestäbchen 

Werkzeuge  für  die  Elektronik 

► Vielfachmeßgerät  (für  Spannungs-/Widerstandsmessungen) 


9.1.3  Garantie  und  Reparaturen 

Natürlich  können  einmal  Schäden  oder  Störungen  Sie  zwingen 
mit  Ihrem  1541  Laufwerk  eine  Werkstatt  aufzusuchen.  Dann 
könnte  ein  Spezialist  in  manchen  Fällen  gezielter  helfen.  Gehen 
Sie  dann  zu  einem  Vertragshändler  der  Fa.  Commodore,  da  die- 
ser in  der  Regel  die  erforderlichen  Ersatzteile  auf  Lager  hat. 
Solche  Service-Werkstätten  sind  auf  ihrem  Spezialgebiet  mit  den 
Geräten  vertraut. 

Aber  vielleicht  führt  es  wegen  Arbeitsüberlastung  der  Werkstatt 
zu  Verzögerungen,  dann  können  Sie  die  erforderlichen  Repara- 
turen oder  Wartungsarbeiten  eventuell  selbst  durchführen  und 
die  nötigen  Ersatzteile  dort  kaufen. 

Garantie-Ansprüche 

Sie  haben  auf  Ihre  1541 -Diskettenstation  eine  Garantie,  die  Ih- 
nen Ihr  Händler  oder  Kaufhaus,  bei  dem  Sie  Ihr  Gerät  erworben 
haben,  gewährt.  Dieser  Garantie-Anspruch  verfällt,  wenn  Sie  in 
diesem  Zeitraum  in  Ihre  1541  eingreifen.  Dies  gilt  auch  bei  an- 
deren Geräten,  wie  beim  64’er  oder  Druckern.  Schon  ein  Ändern 
der  Geräteadresse,  was  Sie  selbst  durchführen  können,  läßt  den 
Garantie-Anspruch  erlöschen. 
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Selbst  ist  der  Mann 

Oben  aufgeführte  Hinweise  sollen  Sie  jedoch  nach  der  Garan- 
tiezeit nicht  daran  hindern,  Zeit  und  Geld  zu  sparen.  Prüfen  Sie 
vor  einer  Reparatur  Ihre  eigenen  Kenntnisse  und  die  Ihnen  zur 
Verfügung  stehenden  Mittel,  bevor  Sie  ans  Werk  gehen.  Bei  allen 
Arbeiten,  die  Sie  durchführen,  ist  Sorgfalt  und  Feingefühl  die 
oberste  Pflicht. 

Sollten  Sie  das  Gefühl  haben,  daß  es  für  Sie  zu  schwierig  wird, 
können  Sie  immer  noch  eine  Fachwerkstatt  aufsuchen. 


9.2  Pflegen  des  Laufwerks 

Das  Wohlergehen  Ihres  1541  richtet  sich  - wie  auch  bei  anderen 
technischen  Geräten  - nach  der  Pflege,  die  Sie  ihm  zuteil  wer- 
den lassen.  Regelmäßige  Überprüfungen,  die  sich  aus  Funktions- 
kontrollen und  Pflegearbeiten  zusammensetzen,  sind  ebenso 
wichtig,  wie  etwa  der  Kundendienst  bei  einem  Auto. 


9.2.1  Wartung  - wann  und  wo? 

Da  vom  Hersteller  keine  Wartungsintervalle  festgelegt  sind,  soll 
die  unten  aufgeführte  Tabelle  Ihnen  bei  der  Pflege  Ihres  1541 
Diskettenlaufwerks  behilflich  sein. 

Bei  näherer  Betrachtung  stellt  man  fest,  daß  viele  Dinge  in  we- 
nigen Handgriffen  zu  erledigen  sind  und  einzelne  Punkte  bei 
etwas  routinierter  Beziehung  zu  Ihrem  Diskettenlaufwerk  sogar 
ohne  Anleitung  durchgeführt  werden  können.  Dennoch  sollten 
Sie  zur  erstmaligen  Pflege  auch  die  Kurzbeschreibungen  der 
einzelnen  Wartungsarbeiten  durchlesen. 

Pflegearbeiten  alle  4 Monate 

► Reinigen  des  Schreib- Lesekopfes 

► Laufwerk  entstauben 

► Schmieren  der  Führungswellen 
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Überwachungsdienst  alle  4 Monate: 

► Wärmeentwicklung  im  Gerät  überprüfen 

► Geräuschentwicklung  des  Transformators 

► Stroboskopscheibe  überprüfen 

Pflegearbeiten  alle  12  Monate: 

► Antriebsriemen  im  Laufwerk  ersetzen 

► Andrucksfilz  austauschen 

► Schmieren  der  Laufwerksmechanik 

► Geschwindigkeit  überprüfen 

Pflegearbeiten  alle  18  Monate: 

► Schreib-/Lesekopfeinstellung  korrigieren 

► Spur- 1 -Einstellung  prüfen 

Es  soll  Anwender  geben,  die  ihr  Gerät  sorglos  drauflos  benutzen, 
ihre  Diskettenstation  nicht  pflegen,  nicht  reinigen,  geschweige 
denn  an  eine  Wartung  oder  Nachjustierung  denken.  Aus  Furcht 
vor  Werkstattkosten  oder  Ausfall  des  Gerätes  führen  andere  hin- 
gegen zuviel  des  guten  durch,  so  daß  zum  Schluß  das  Disketten- 
laufwerk, von  Öl  verklebt,  nicht  arbeiten  kann  und  die  Köpfe 
der  Schrauben  zur  Befestigung  der  Gehäuseteile  und  der  Elek- 
tronikplatine abgenutzt  oder  abgedreht  sind.  Der  Mittelweg  ist 
hier  meist  am  besten.  Die  oben  genannten  Intervalle  wurden  aus 
der  täglichen  Praxis  mit  1541 -Diskettenlaufwerken  abgeleitet. 


9.2.2  Vorbereitung  zur  Wartung 

Bevor  man  das  Gerät  zum  öffnen  der  Gehäuseschrauben  um- 
dreht, sind  die  beiden  Stecker  auf  der  Geräterückseite,  220- 
Volt-Anschluß  und  serieller  IEEE-488-Bus,  abzuziehen.  Drehen 
Sie  nun  das  Gerät  um,  so  daß  es  auf  der  Geräteoberseite  liegt. 
Sie  benötigen  zuerst  nur  einen  Kreuzschlitz-Schraubendreher, 
um  die  Gehäuse befestigungsschrauben  zu  lösen.  Damit  Sie  keine 
Schrauben  verlieren  oder  verwechseln,  sollten  die  Schrauben  in 
mehreren  kleinen  Schachteln  zusammengehörend  aufbewahrt 
werden.  So  können  Sie  vermeiden,  daß  die  verschiedenen 
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Schrauben  vertauscht  werden  und  daß  Sie  nicht  versehentlich 
nach  Beendigung  aller  Arbeiten  Schrauben  an  einer  falschen 
Stelle  verwenden. 

Anschließend  wird  das  Gerät  wieder  umgedreht,  das  Gehäuseo- 
berteil abgehoben  und  zur  Seite  gelegt.  Je  nach  Laufwerkstyp 
sieht  man  die  Befestigungschrauben,  die  das  Blechchassis  mit 
dem  Gehäuseunterteil  verbinden.  Diese  Schrauben  werden  dann 
mit  dem  Schraubendreher  entfernt  und  separat  aufbewahrt. 

Die  Steckverbindung  des  Kabels,  das  zur  Leuchtdiode  in  der 
Gehäusefront  führt,  ist  von  der  dreipoligen  Stiftleiste  auf  der 
Digitalplatine  abzuziehen.  Steckverbindungen,  welche  getrennt 
werden  müssen,  sollte  man  mit  Farbstift,  kleinen  Aufklebern 
oder  Tipp-Ex  markieren,  wobei  die  Aufkleber  die  eleganteste 
Methode  darstellen,  da  diese  z.B  mit  Zahlen  beschriftet  werden 
können.  Durch  Kennzeichnung  der  Steckverbindungen  vermei- 
den Sie,  daß  Stecker  beim  Zusammenbauen  nach  beendeter  Ar- 
beit falsch  oder  vertauscht  aufgesteckt  werden.  Ein  Verpolen  der 
Anschlüsse  kann  dazu  führen,  daß  IC  oder  eine  ganze  Baugruppe 
beschädigt  werden. 

Für  Justagearbeiten  am  Schreib-/Lesekopf  oder  Korrekturen  der 
Geschwindigkeit  des  Diskettenantriebsmotors,  sind  keine  weite- 
ren Schrauben  zu  entfernen  oder  Steckverbindungen  zu  lösen. 
Das  Chassis  wird  hochkantig  auf  die  linke  Seitenfläche  gestellt, 
so  daß  der  Diskettenschacht  vor  Ihnen  liegt  und  die  Geräteun- 
terseite von  rechts  zugänglich  ist. 

Damit  das  Gerät  senkrecht  steht,  sollte  man  einen  ca.  15  mm 
starken  Gegenstand  an  den  gegenüberliegenden  Blechlaschen  an 
beiden  Geräteenden  unterlegen.  Die  nächsten  Schritte  sind  nur 
auszuführen,  wenn  direkt  an  der  Unterseite  des  Laufwerks  gear- 
beitet wird. 

Um  die  Pflegearbeiten  und  Justagen  durchführen  zu  können, 
müssen  die  Befestigungsschrauben  der  Digitalplatine  entfernt 
und  vorerst  alle  Steckverbindungen  der  Platine  getrennt  werden. 
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Die  Digitalplatine  legen  Sie  vorerst  an  einer  gefahrenlosen  Stelle 
ab.  Vorsicht:  Elektrostatische  Aufladungen  schädigen  die  Digi- 
talplatine. Jetzt  sieht  man  das  eigentliche  Laufwerk,  das  mit 
Schrauben  befestigt  ist.  Nun  kann  man  die  Schrauben  auf  der 
linken  und  rechten  Seite  jeweils  mit  einen  Kreuzschraubendreher 
entfernen.  Anschließend  heben  Sie  das  Laufwerk  heraus  und 
stellen  es  vorsichtig  auf  Ihrem  Arbeitstisch  ab.  An  dieser  Stelle 
soll  nicht  vergessen  werden.  Sie  darauf  hinzuweisen,  daß  ver- 
schiedene Teile  der  Laufwerksmechanik  sehr  empfindlich  sind. 

Wenn  man  eine  Justage  des  Spur- 1 -Stoppanschlags  oder  im  An- 
schluß dazu  eine  Schreib-/Lesekopf-Justage  ausführen  will,  muß 
die  Digitalplatine  angeschlossen  werden.  Um  den  Spur- 1 -Stopp- 
anschlag einstellen  zu  können,  sind  die  Geräteteile  so  anzuord- 
nen, daß  man  ein  funktionsfähiges  Diskettenlaufwerk  hat,  wobei 
man  aber  an  die  Befestigungsschraube  des  Kopfanschlages  für 
die  Spur  1 herankommen  muß.  Dazu  muß  man  keine  Sondervor- 
richtung bauen,  sondern  nur  das  Blechchassis  in  das  Gehäuseun- 
terteil (ohne  Laufwerk)  einsetzen,  wobei  es  nicht  angeschraubt 
wird.  Schraubt  man  die  Digitalplatine  nun  auf  das  Chassis  und 
verbindet  den  Netzteilstecker  vom  Transformator,  hat  man  be- 
reits das  funktionsfähige  Gerät  ohne  Laufwerk.  Stellen  Sie  nun 
das  Gerät  ohne  Laufwerk  mit  dem  Diskettenschacht  nach  vorne, 
und  legen  Sie  eine  Diskettenbox  für  10  Disketten  oder  ein  gleich 
dickes  Buch  links  neben  das  Gerät. 

Ungefähr  in  der  Mitte  des  Gerätes  stellen  Sie  das  Laufwerk 
senkrecht  auf  die  links  liegende  Unterlage  mit  den  Steckern  des 
Laufwerks  zur  Digitalplatine  hin.  Positionieren  Sie  das  Laufwerk 
so,  daß  es  mit  Steckern  des  Laufwerks  so  nahe  wie  möglich  an 
den  dazugehörigen  Stiftleisten  auf  der  linken  Seite  der  Digital- 
platine steht.  Das  Laufwerk  liegt  jetzt  im  rechten  Winkel  zum 
Gehäuse,  so  daß  die  Rückseite  des  Laufwerks,  aus  dem  die  Ka- 
bel mit  den  Verbindungen  herausgeführt  sind,  an  den  Stiftleisten 
liegen. 

Die  Stecker  des  Laufwerks  kann  man  jetzt  mit  den  dazugehöri- 
gen Stiftleisten  der  Digitalplatine  verbinden.  Eine  Erleichterung 
erfahren  Sie,  wenn  die  zusammengehörenden  Steckverbindungen 
bereits  markiert  sind.  Zuletzt  wird  der  schwarze  Stecker  des 
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Schreib-/Lesekopfes  mit  der  Platine  verbunden,  da  das  Kabel 
den  weitesten  Weg  zur  Digitalplatine  hat  (Vorsicht  vor  Verpo- 
lung). 

Nun  haben  das  Laufwerk  und  der  elektronische  Teil  des  1541 
eine  Position  erreicht,  in  der  man  den  Spur- 1 -Anschlag  einstel- 
len kann.  Schreib -/Lesekopf jus  tage  nach  einer  Spur- 1 -Einstel- 
lung. Dreht  man  nun  das  Laufwerk  um  90  Grad,  so  daß  es  mit 
der  Seitenfläche  auf  dem  Buch  oder  der  Diskettenbox  liegt,  kann 
man  in  dieser  Position  die  Justage  der  R/W-Kopfes  durchfüh- 
ren, wie  es  bereits  weiter  vorne  beschrieben  wurde. 

In  dieser  Position  steht  das  Laufwerk  fest  auf  der  Unterlage  und 
ist  von  unten  sehr  gut  zugänglich. 


9.2.3  Der  kleine  Wartungsdienst 

Sie  sollten  es  unterlassen,  eine  Modifikation  des  Stopprings 
durchzuführen,  indem  Sie  die  Welle  des  Steppermotors  (für 
Kopftransport)  und  den  Stoppring  durchbohren  und  durch  einen 
Splint  sichern,  wie  es  einmal  in  einer  Zeitschrift  zu  lesen  war. 

Diese  Warnung  soll  Sie  aber  von  ihrem  Vorhaben,  ihr  Disket- 
tenlaufwerk 1541  selbst  zu  warten,  nicht  abhalten. 

Pflegearbeiten  alle  4 Monate  - selbst  ist  der  Mann 

Reinigen  des  R/W-Kopfes 

Heben  Sie  die  Andruckplatte  am  R/W-Kopf  an,  und  wischen  Sie 
mit  einem  in  Spiritus  getränkten  Wattestäbchen  über  die 
rechteckige  Keramikplatte  des  Schreib-/Lesekopfes. 

Laufwerk  entstauben 

Verwenden  sie  einen  Pinsel  für  die  Entstaubung  des  Laufwerks. 
Schmieren  der  Führungswelle 

Über  die  beiden  Führungswellen  gleitet  der  Kunststoffträger  des 
R/W-Kopfes,  der  auf  3 Punkten  gelagert  ist.  Für  die  Schmie- 
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rung  dieser  Welle  sollten  Sie  säurefreies  Fett  (z.B  Vaseline)  ver- 
wenden, da  es  den  Kunststoff  nicht  angreift.  Benutzen  Sie  ein 
Wattestäbchen  mit  Vaseline,  und  streichen  Sie  damit  über  die 
beiden  Wellen.  Bereits  ein  dünner  Fettfilm  sorgt  für  ausrei- 
chende Schmierung. 

Überwachungsdienst 

Wärmeentwicklung  im  Gerät  kontrollieren 

Ihr  1541  benötigt  eine  Gleichspannung  von  5 Volt  für  die  Digi- 
talplatine und  12  Volt  "DC"  für  das  Laufwerk. 

Diese  Spannungen  müssen  jedoch  aus  unserer  Netzspannung  von 
220  Volt  Wechselstrom  gewonnen  werden.  Dafür  enthält  unser 
1541  den  Transformator  TI,  der  durch  sein  Übersetzungsver- 
hältnis diese  220  Volt/AC  in  eine  kleinere  Wechselspannung 
transformiert.  Der  Transformer  stellt  zwei  der  Wechselspannun- 
gen zur  Verfügung,  die  getrennt  über  den  Stecker  den  Brücken- 
gleichrichtern zugeführt  werden  (DC  = Gleichspannung,  AC  * 
Wechselspannung).  Jeder  Gleichrichter  für  sich  erzeugt  eine 
Gleichspannung,  die  über  zwei  Kondensatoren  zur  Glättung  der 
Spannung  an  die  Spannungsregler  für  12  Volt/DC  oder  für  5 
Volt/DC  geführt  wird.  Diese  Spannungsregler  strahlen  je  nach 
Leistungsaufnahme  Ihres  Gerätes  mehr  oder  weniger  Wärme  ab. 

Bei  direktem  Betrieb,  wenn  sich  der  Diskettenantriebsmotor  und 
R/W-Kopftransportmotor  dreht,  wird  eine  höhere  Leistung  auf- 
genommen als  im  indirekten  Betrieb.  Über  zwei  Kühlkörper 
und  eine  Verbindung  zum  Blechchassis  des  Gerätes  wird  die  er- 
zeugte Wärme  abgeführt.  Ist  einer  der  Spannungsregler  defekt 
oder  wird  aus  irgendeinem  Grund  zuviel  Leistung  aufgenommen, 
so  kann  es  dazu  führen,  daß  die  Kühlung  nicht  ausreicht.  Des- 
halb sollten  Sie  regelmäßig  die  Wärmeentwicklung  überprüfen, 
indem  Sie  mit  einem  Finger  die  Gehäusoberflächen  des  Span- 
nungsreglers berühren.  Temperaturen  von  30  bis  ca.  55  Grad 
sind  als  normal  anzusehen.  Ebenso  ist  bei  den  Gleichrichtern  zu 
verfahren.  Sollten  sie  so  heiß  sein,  daß  Sie  sich  die  Finger  ver- 
brennen oder  daß  an  der  Platine  Verfärbungen  erkennbar  sind, 
liegt  ein  Defekt  vor. 


712 


Das  große  Commodore  64-Buch 


Eine  weitere  Wärmequelle  kann  der  Transformer  sein,  wenn  er 
im  Laufwerksgehäuse  fest  eingebaut  ist  und  die  Isolierung  des 
verwendeten  Kupferdrahtes  schadhaft  geworden  ist.  Dadurch 
kann  es  zu  Kurzschlußströmen  im  Transformer  kommen. 

Diese  Kurzschlußströme  können  den  Transformer  so  weit  erhit- 
zen, bis  dieser  eine  Temperatur  von  über  40  Grad  Celsius  er- 
reicht und  das  Gerät  somit  aufheizt.  In  diesem  Fall  ist  der 
Transformer  zu  ersetzen,  was  jedoch  sehr  selten  ist. 


Geräuschentwicklung  des  Transformers 

Wenn  die  Wicklungen  des  Kupferdrahtes  im  Transformer  nicht 
richtig  vergossen  sind,  kann  es  dazu  führen,  daß  die  Drähte  in 
Resonanz  geraten  und  Geräusche  entwickelt  werden.  Dann  ent- 
stehen Töne,  die  vom  tiefen  Brummen  bis  zu  einem  hohen 
Pfeifen  reichen  können.  Erzeugt  der  Transformer  Ihres  Gerätes 
Geräusche  oder  neigt  er  zur  Wärmeentwicklung,  sollten  Sie  dies 
bei  Ihrem  Händler  auch  nach  der  Garantiezeit  reklamieren.  Ihr 
Fachhändler  könnte  in  diesem  Fall  den  Transformer  beim  Gerä- 
tehersteller als  von  Anfang  an  mangelhaftes  Teil  reklamieren. 
Eventuell  bekommen  Sie  ihn  ausgetauscht. 


Überwachungsdienst:  Stroboskopscheibe  überprüfen 

Damit  sich  das  Antriebsrad  bei  Geräten  ohne  Sicherungsschraube 
nicht  lösen  kann,  ist  es  zu  verkleben.  Dazu  gibt  man  1 - 2 
Tropfen  Sekunden-  oder  Panzerkleber  auf  die  Verbindung  der 
Welle  und  des  Antriebsrades. 

Hat  sich  die  Antriebsscheibe  von  der  Welle  gelöst,  ist  von  oben 
auf  den  Diskettenteller  zu  drücken  und  die  Scheibe  von  der 
Unterseite  des  Laufwerks  wieder  auf  die  Welle  zu  pressen.  Dazu 
sollte  man  keinen  großen  Hammer  verwenden,  sondern  mit  dem 
Griff  des  Schraubendrehers  2-3  mal  leicht  auf  das  Antriebsrad 
klopfen  (auf  keinen  Fall  zu  fest). 

Anschließend  ist  die  Verbindung,  wie  oben  beschrieben,  mit 
Kleber  zu  sichern.  Damit  man  den  Diskettenteller  niederdrücken 
kann,  muß  die  Digitalplatine  demontiert  werden.  Von  einem 
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nachträglichen  Einbau  der  Befestigungsschraube  zur  Sicherung 
der  Antriebsscheibe  ist  abzuraten,  da  eine  Beschädigung  des 
Laufwerks  bei  der  Durchführung  der  nötigen  Arbeiten  sehr 
wahrscheinlich  ist. 


9.2.4  Der  große  Wartungsdienst 

Pflegearbeiten  alle  12  Monate 

Der  Antriebsriemen  ist  aus  Gummi  hergestellt  und  unterliegt 
somit  der  Alterung  gummihaltiger  Produkte.  Wie  bei  Autoreifen 
wird  auch  dieser  Gummi  brüchig,  spröde  und  bekommt  Risse. 
Ein  gealteter  Riemen  kann  zu  einem  hohen  Verlust  bei  der  An- 
triebsübertragung führen,  was  zur  Folge  hat,  daß  die  Drehzahl 
der  Diskette  zu  niedrig  wird  oder  ständig  ansteigt  und  abfällt. 

Dieses  Verhalten  führt  häufig  zu  READ  ERROR?  in  den  äuße- 
ren Spuren  der  Disketten.  Ebenso  macht  sich  dieser  Effekt  auch 
bei  größeren  Schreibzugriffen  auf  die  Diskette  bemerkbar.  Eine 
typische  Fehlermeldung  ist  dann  die  Fehlermeldung  21: 

SYNCRONI SAT  IONS  Markierung  auf  der  Diskette  wird  nicht  gefunden. 

Je  ein  Sektor  auf  der  Diskette  enthält  zwei  Sync-Markierungen, 
deren  Bits  alle  "1"  sind,  also  1111111111  binär  dargestellt.  Die 
Spuren  1 bis  17  auf  der  Diskette  enthalten  42  Sync- Zeichen  pro 
Spur,  wobei  die  Spuren  31  bis  35  nur  noch  34  Sync-Zeichen  je 
Spur  enthalten. 

Durch  die  höhere  Anzahl  von  Sync-Zeichen  in  den  äußeren 
Spuren  erklären  sich  somit  die  Syncronisations-Probleme  bei  zu 
niedriger  Drehzahl.  . 

Antriebsriemen  des  Laufwerks  ersetzen 

Ziehen  Sie  den  Antriebsriemen  von  den  Riemenscheiben,  und 
legen  Sie  anschließend  den  neuen  Riemen  so  ein,  daß  die  glän- 
zende Seite  auf  den  Antriebsscheiben  zum  Liegen  kommt. 


714 


Das  große  Commodore  64-Buch 


Legen  Sie  den  Antriebsriemen  zuerst  um  die  kleinere  der  beiden 
Antriebsscheiben  und  ziehen  danach  den  Riemen  unter  Drehen 
der  größeren  Scheibe  auf.  Die  Demontage  des  Gehäuses  ist  wie 
in  Unterkapitel  9.2.2  durchzuführen. 

Andruckfilz  austauschen 

Bei  Abnutzung  des  Andruckfilzes  wird  die  Diskette  nicht  aus- 
reichend gegen  den  Schreib-/Lesekopf  gedrückt,  was  dazu  führt, 
daß  der  Lesestrom  im  R/W-Kopf  zu  gering  ist. 

Aus  diesen  Informationen  vom  R/W-Kopf  kann  der  Lesever- 
stärker der  Elektronikplatine  kein  ausreichendes  Signal  gewin- 
nen, was  ebenso  zu  READ  und  WRITE  ERRORS  führen  kann. 

Bei  Abnutzung  oder  Vibration  ("der  Drive  singt")  muß  der  An- 
druckfilz bereits  früher  ausgetauscht  werden.  Mit  einer  Spitz- 
zange wird  die  Halteklammer  des  Andruckfilzes  zusammenge- 
drückt und  die  Halteklammer  herausgezogen.  Anschließend  wird 
der  Andruckfilz  aus  der  Halteklammer  entfernt  und  der  neue 
Filz  in  die  Halteklammer  gedrückt.  Die  Halteklammer  wird 
daraufhin  wieder  in  den  Andruckhebel  eingerastet. 

Die  beiden  Ersatzteile  erhalten  Sie  bei  Ihrem  Commodore- Fach  - 
händler.  Wenn  Sie  diese  Teile  selbst  einbauen,  sparen  Sie  bereits 
einige  DM  an  Montagekosten  die  Ihnen  in  einer  Fachwerkstatt 
angefallen  wären. 

Funktion  des  Andruckfilzes 

Der  Andruckhebel,  der  den  Filz  trägt,  drückt  die  Diskette,  die 
sich  im  Laufwerk  befindet,  mit  einer  Kraft  von  ca.  5 Gramm 
gegen  den  Schreib-/Lesekopf.  Die  Andrückfeder,  die  diese 
Kraft  erzeugt  ist  in  der  Regel  keine  Fehlerursache. 

Deshalb  sollten  an  dieser  Feder  keine  Änderungen  vorgenommen 
werden.  Die  jeweilige  Diskettenoberseite  unterliegt  sonst  einer 
höheren  Reibung  durch  den  Andruckfilz.  Sollten  Sie  Ihre  Dis- 
ketten beidseitig  verwenden  (wovon  Sie  niemand  abbringen 
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will),  wird  auch  die  ansonsten  unten  liegende  Seite  der  Reibung 
des  Andruckfilzes  ausgesetzt.  Dieser  Andruckfilz  hat  auf  die 
oben  liegende  Diskettenseite  die  Wirkung  einer  Polierscheibe.  Bei 
beidseitig  verwendeten  Disketten  verringert  sich  dadurch  die 
Haltezeit  der  Diskette. 

Sie  können  das  Abtragen  der  Magnetfolie  am  Andruckfilz  Ihres 
Laufwerks  durch  eine  bräunliche  Färbung  des  Filzes  erkennen. 
Bei  Doppelkopf- Laufwerken  kann  diese  Abnutzung  der 
Diskettenoberseite  nicht  auftreten,  da  sich  statt  des  Andruck- 
filzes ein  zweiter  Schreib-/  Lesekopf  auf  der  Diskettenoberseite 
befindet. 

Der  Schreib -/Lesekopf  hat  durch  seine  keramische  Beschichtung 
eine  geringere  Rauhtiefe,  wodurch  er  eine  wesentlich  geringere 
Reibung  erzeugt. 

Das  Speichermedium 

Die  Lebensdauer  einer  Diskette  liegt  bei  ungefähr  10  Mio.  Um- 
drehungen pro  Spur  beim  Schreiben  oder  Lesen.  Die  Dicke  der 
Magnetfolien  beträgt  ca.  80  Mikrometer.  Die  Magnetfolien  sind 
mit  einer  speziellen  Beschichtung  versehen,  die  eine  Oberflä- 
chenglätte sowie  hervorragende  Gleiteigenschaften  erzeugt. 

Die  Lagertemperatur  für  Disketten  beträgt  in  der  Regel  5 bis  55 
Grad  Celsius  laut  Herstellerangaben,  wobei  von  einer  Luft- 
feuchtigkeit von  10  - 90%  R.H.  ausgegangen  wird.  Eine  Lager- 
temperatur der  Disketten  von  ca.  20  Grad  Celsius  sowie  eine 
Betriebstemperatur  des  1541  bei  ungefähr  gleicher  Temperatur 
erscheint  als  angemessen. 

Schmieren  der  Laufwerksmechanik 

Wie  bereits  erwähnt,  sollte  man  das  Schmiermittel  in  geringen 
Mengen  auftragen,  so  daß  kein  öl  auf  die  später  eingelegte  Dis- 
kette tropfen  kann.  Am  besten  trägt  man  das  öl  mit  einem 
Tropföler,  einer  Spritze  mit  Injektionskanüle  oder  einer  kleinen 
Ölkanne  auf.  Das  dünnflüssige  Nähmaschinenöl  wird  in  kleinen 
Tropfen  an  den  beschriebenen  Stellen  auf getragen. 
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Um  die  mechanischen  Teile  des  Diskettenlaufwerks  schmieren  zu 
können,  ist,  wie  bereits  weiter  vorne  beschrieben,  zu  verfahren. 
Das  Entfernen  der  Schrauben,  die  das  Gehäuseunterteil  mit  dem 
eventuellen  Blechchassis  verbinden,  ist  nicht  nötig. 

Bevor  man  die  Steckverbindungen  der  Digitalplatine  trennt  und 
die  Befestigungsschrauben  der  Platine  entfernt,  sollten  aber  die 
Stecker  gekennzeichnet  werden.  Ist  die  Digitalplatine  abgehoben, 
sieht  man  die  mechanischen  Teile  des  Laufwerks. 

Die  Führungen  des  Diskettenverschlusses  sind  ebenfalls  mit  ei- 
nem Tropfen  öl  zu  schmieren.  Wird  das  Laufwerk  verschlossen, 
wird  die  Trägerplatte  des  Andruckfilzes  über  die  Verlängerung 
des  Hebels  angehoben.  Der  Andruckfilz  wird  angehoben,  damit 
er  nicht  im  Schreib-  /Leseschlitz  der  Diskettenhülle  hängen 
bleibt  und  ein  Entnehmen  der  Diskette  verhindert. 

Damit  auch  das  konische  Andruckrad  leicht  mitläuft,  sollte  auf 
die  Unterlegscheibe  und  Welle  ein  Tropfen  öl  gegeben  werden. 

Geschwindigkeit  des  Diskettenantriebsmotors 

Daß  die  1541  richtig  funktioniert  ist  u.a  auch  von  der  konstan- 
ten Drehzahl  der  Diskette  abhängig.  Der  Zusammenhang  zwi- 
schen dem  Antriebsriemen  und  der  Drehzahl  des  Laufwerks 
wurde  bereits  besprochen.  Schlagen  Sie,  falls  erforderlich,  noch 
einmal  weiter  vorne  nach,  wie  sich  die  Synchronisation  beim 
Schreiben  oder  Lesen  bei  veränderter  Drehzahl  verhält. 

Man  konnte  an  Diskettenlaufwerken,  die  sich  ca.  1 Jahr  in  Be- 
trieb befanden,  feststellen,  daß  die  Geschwindigkeit  der  Diskette 
geringfügig  niedriger  ist  (-1  ms),  was  jedoch  in  der  Regel  noch 
nicht  zu  R/W-Errors  führt.  Mit  der  Betriebsdauer  der  1541  ist 
die  Zeit  gemeint,  in  der  sich  die  Diskette  bei  Lese-/Schreib- 
zugriffen  dreht,  und  nicht  die  Einschaltdauer  des  Gerätes. 

In  der  täglichen  Praxis  jedoch  gibt  es  einige  Anwender,  die  die 
Laufzeit  (Betriebsdauer)  von  einer  halben  Stunde  um  ein  Viel- 
faches überschreiten.  Um  die  Geschwindigkeit  zu  überprüfen, 
sind  die  Vorbereitungen,  wie  bereits  beschrieben,  durchzufüh- 
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ren.  Keine  Angst,  so  schwer  ist  das  nicht.  Wichtig  ist  zunächst, 
daß  Sie  die  bereits  ergangenen  Hinweise  zur  Sicherheit  beachten 
und  die  besprochenen  Grundprinzipien  verstanden  haben.  Befin- 
det sich  das  Chassis  inklusive  Platine  und  Laufwerk  in  senk- 
rechter Lage,  so  daß  der  Einschubschlitz  der  Diskette  nach  vorne 
gerichtet  ist,  sehen  Sie  auf  der  Unterseite  des  Gerätes  die  Stro- 
boskopscheibe. 

In  dem  Raum,  in  dem  Sie  die  Geschwindigkeit  des  Laufwerks 
(der  Diskette)  überprüfen,  sollte  sich  eine  Neonleuchte  befinden. 
Diese  Neonleuchte  flimmert  durch  die  Frequenz  unseres  Wech- 
selstroms in  Deutschland  und  anderen  europäischen  Ländern  mit 
einer  Frequenz  von  SO  Hertz.  Das  menschliche  Auge  ist  zu  träge, 
um  das  Wechseln  des  Stromes  von  50  Hertz  pro  Sekunde  zu  er- 
fassen. Damit  sich  die  Stroboskopscheibe  ausreichend  lange 
dreht,  ist  eine  Diskette  zu  formatieren  und  ein  Programm  zu  la- 
den oder  abzuspeichern.  Dreht  sich  die  Stroboskopscheibe  sollte 
die  innere  Skala,  die  mit  "50"  für  50  Hertz  bezeichnet  ist,  ein 
stehendes  Bild  ergeben. 

Bewegt  sich  das  Bild  der  Stroboskopscheibe  in  Drehrichtung, 
läuft  die  Diskette  zu  schnell.  Sollte  es  sich  gegen  die  Drehrich- 
tung bewegen,  läuft  das  Laufwerk  zu  langsam.  Ein  sich  nur  ge- 
ringfügig bewegendes  Bild  auf  der  Stroboskopscheibe  ist  noch 
kein  Anlaß,  die  Geschwindigkeit  zu  justieren.  Wie  in  diesem 
Unterkapitel  bereits  beschrieben,  laufen  die  meisten  Laufwerke 
nach  einiger  Zeit  etwas  langsamer,  meist  um  -1  ms. 

Die  Diskette  dreht  sich  mit  300  Umdrehungen  in  der  Minute, 
d.h.  5 Umdrehungen  pro  Sekunde.  Der  Sollwert  ist  dabei  200  ms 
- Zeit  = T,  die  sich  aus  einer  Umdrehung  ergeben. 


9.2.5  Modifikation  des  Stopprings 

Am  Schrittmotor,  der  für  den  Transport  des  Schreib-/Lesekopfes 
zuständig  ist,  ist  ein  Ring  mit  zwei  Anschlagflächen  aufgepresst. 
Davon  dient  die  eine.  Anschlagfläche  des  Stopprings  als  Endean- 
schlag der  äußersten  Position  des  Schreib-/Lesekopfes. 
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Sollte  Ihr  Stoppring  keine  Bohrung  besitzen,  kann  ich  Ihnen  von 
einem  nachträglichen  Anbringen  der  Bohrung  zur  Sicherung  des 
Stoppringes  nur  abraten.  Also  lassen  Sie  besser  die  Finger  von 
irgendwelchen  Versuchen,  die  Sie  vielleicht  sehr  viel  Geld  ko- 
sten könnten. 

Bei  Laufwerken  mit  Stoppringen  auf  der  Schrittmotorwelle  ist 
ein  Verkleben  der  Verbindung  ratsam,  wobei  außerhalb  des 
Schwenkbereichs  die  Verbindung  mit  Sicherungslack  festzulegen 
ist.  Die  Fläche  des  Stoppringes  ist  der  Schwenkbereich.  Haben 
Sie  keinen  Sicherungslack  oder  ähnliches  zur  Hand,  können  Sie 
auch  Panzerkleber  oder  Sekundenkleber  für  Metall  verwenden. 

Es  sind  2 bis  3 Tropfen  Sicherungslack  auf  die  Verbindung  der 
Welle  und  des  Rades  zu  geben.  Damit  der  Sicherungslack  aus- 
härten kann,  sollte  das  Laufwerk  mehrere  Stunden  nicht  benutzt 
werden.  Um  diese  Arbeiten  durchführen  zu  können,  ist  die  De- 
montage, wie  schon  beschrieben,  durchzuführen  und  die  Digital- 
platine abzuschrauben.  Dazu  sind  ebenfalls  die  Steckverbindun- 
gen zu  markieren,  damit  kein  Verpolen  der  Stecker  bei  der 
Montage  der  Platine  vorkommt. 


9.3  Laufwerkspraxis 

Prüfen  der  Justagen  mit  dem  Programmm  Display  T&S 

Wie  in  Kapitel  9.1.1  bereits  erwähnt,  kann  die  Einstellung  der 
Spur  1 mit  dem  Programm  "DISPLAY  T&S"  überprüft  werden. 


9.3.1  Prüfen  der  Einstellungen  - Soll-Ist-Vergleich 

Laden  Sie  das  Programm  DISPLAY  T&S  mit  LOAD,  und  starten 
Sie  es  mit  <Run>.  Daraufhin  erscheint  folgende  Meldung: 

Display  Block  Contents 

Screen 

or 

Printer 
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Legen  Sie  erst  eine  nicht  bespeicherte,  formatierte  Diskette  ins 
Laufwerk,  bevor  Sie  die  Taste  <S>  für  "Bildschirmausgabe"  be- 
tätigen. Daraufhin  erfolgt  die  Meldung 

Track,  Sector? 

auf  dem  Bildschirm.  Nun  betätigen  Sie  die  Taste  <1>  für  die 
Spur- 1 -Überprüfung  und  die  <Return>-Taste.  Nun  werden  zwei 
Fragezeichen  auf  den  Bildschirm  gedruckt  und  die  Eingabe  der 
Sektorennummer  erwartet.  Geben  Sie  auch  hier  wieder  die  <1> 
ein  und  schließen  Sie  mit  der  <Return>-Taste  die  Eingabe  ab. 

Bei  angeschlossenem  Laufwerk  und  eingelegter  Diskette  fährt 
nun  der  Schreib-/Lesekopf  auf  die  Spur  1 der  Diskette.  Wenn 
eine  leere  Diskette  eingelegt  ist,  sind  die  Bytes  des  Sektors  auf  0 
gesetzt,  mit  Ausnahme  des  ersten  Bytes,  das  EA  anzeigt. 

Es  wird  folgendes  Bild  auf  den  Bildschirm  ausgegeben: 

Track  1 Sector  1 
00  :EA  00  00  00 
04  : 00  00  00  00 
08  :00  00  00  00 


bis 


7c  :00  00  00  00 
Continue  (Y/N) 

Durch  dieses  Hilfsmittel  können  Sie  sich  alle  254  Bytes  eines 
Sektors  ansehen.  Somit  sehen  Sie  auch,  ob  sich  der  Schreib- 
/Lesekopf  auf  die  Spur  1 bewegen  kann  und  die  Daten  der  Spur 
1 gelesen  werden. 

Probieren  Sie  jetzt  das  Lesen  von  anderen  Sektoren  auf  der  Spur 
1.  Sie  werden  dabei  feststellen,  daß  diese  Sektoren  dieselben 
Daten  wie  der  Sektor  1 enthalten. 

Sehen  Sie  sich  auch  andere  Spuren  und  Sektoren  auf  der  Diskette 
an,  geben  Sie  dabei  aber  keine  Spuren  oder  Sektoren  an,  die  auf 
der  Diskette  nicht  existieren.  Belegung  der  Spuren: 
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Spur 

Sektor-Nr. 

Sektoren 

1 - 17 

0-20 

21 

18  - 24 

0 - 18 

19 

25  - 30 

0 - 17 

18 

31  - 35 

0 - 16 

17 

In  der  Praxis  mit  der  1541  ist  es  auch  schon  vorgekommen,  daß 
die  Spuren  1 bis  33  oder  34  gelesen  wurden  und  die  Spur  35 
nicht.  Dieser  Fehler  ist  auch  auf  eine  Dejustage  der  physikali- 
schen Spur  1 zurückzuführen,  da  bei  der  1541  die  Spuren  von 
der  Spur  1 nach  innen  bis  zur  Spur  35  gezählt  werden. 

Zur  Überprüfung,  daß  die  Spur  35  gelesen  wird,  sollten  Sie  sich 
einen  Sektor  dieser  Spur  mittels  DISPLAY  T&S  ausdrucken  las- 
sen. Der  Inhalt  des  Sektors  bei  einer  leeren  Diskette  ist  gleich 
mit  dem  der  Spur  1.  Sollte  Ihnen  das  Programm  DISPLAY  T&S 
bisher  unbekannt  sein,  dann  nehmen  Sie  sich  die  Zeit,  mit  die- 
sem Hilfsprogramm  etwas  zu  experimentieren. 

Besonders  die  Spur  18  ist  sehr  interessant,  die  ja  bekanntlich 
vom  Betriebssystem  der  1541  beschlagnahmt  wird. 

Im  Sektor  0 der  Spur  18  befindet  sich  die  BAM  (Block  Availa- 
bility  Map),  zu  deutsch  "Blockverfügbarkeitstabelle".  Hier  wird 
festgehalten,  welche  Blöcke  noch  verfügbar  sind,  welche  schon 
beschrieben  sind,  der  Name  der  Diskette  und  die  ID.  Das  Di- 
rectory der  Disk  beginnt  im  Sektor  1 der  Spur  18. 

Wurde  die  Kontrolle  der  Spur  35  durchgeführt  und  keine  Män- 
gel festgestellt,  sollten  Sie  trotzdem  kritisch  bleiben.  Nehmen  wir 
an,  es  liegt  eine  Dejustage  des  Spur- 1 -Anschlages  vor,  dann 
wird  eine  Diskette  ja  zur  normalen  Formatierungsposition  ver- 
setzt formatiert. 

Machen  Sie  sich  klar,  das  ein  Floppy  so  nicht  funktionieren 
kann.  Die  Folge  ist,  daß  Disketten,  die  vor  der  Verstellung  des 
Laufwerks  formatiert  und  bespielt  wurden,  nicht  oder  nur  teil- 
weise gelesen  werden.  Ebenso  verhält  es  sich  bei  Programmen 
auf  Diskette,  die  Sie  aus  Ihrem  Bekanntenkreis  bekommen.  Zur 
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Sicherheit  kann  man  diese  Überprüfung  mit  einer  Diskette  vor- 
nehmen, die  zu  einem  früheren  Zeitpunkt  formatiert  und  auch 
bespielt  wurde. 

Das  hört  sich  etwas  kompliziert  an,  ist  aber  sehr  einfach.  Es  ist 
davon  auszugehen,  daß,  wenn  Sie  eine  Diskette  verwenden,  die 
auf  einer  intakten  Floppy  formatiert  wurde,  die  logische  Lage 
der  Spur  1 auf  der  Diskette  als  Sollwert  dienen  kann,  da  bei  ei- 
nem richtig  eingestellten  Laufwerk  die  physikalische  Lage  der 
Spur  1 dem  Sollwert  entspricht. 

Wenn  die  Überprüfung  mit  dieser  Diskette  und  dem  Programm 
DISPLAY  T&S  wiederholt  wird,  kann  eine  falsche  Beurteilung 
des  Laufwerks  ausgeschlossen  werden.  So  ist  es  möglich,  einen 
echten  Soll- Ist- Wertvergleich  zu  erstellen.  Ist  es  dabei  nicht 
möglich,  die  Spur  1 oder  35  mit  DISPLAY  T&S  zu  lesen,  ist  eine 
Justage  der  Spur  1 vorzunehmen. 

Wichtige  Hinweise 

Bei  dem  Programm  DISPLAY  T&S  handelt  es  sich  quasi  nur  um 
einen  Lesetest.  Um  eine  Dejustage  der  Einstellungen  Ihres 
Laufwerks  zu  erkennen,  reicht  in  den  meisten  Fällen  das  Pro- 
gramm DISPLAY  T&S  aus,  mit  dem  Sie  alle  Spuren  einer  Dis- 
kette lesen  können. 

Fehler,  die  nur  im  Schreibzugriff  der  1541  Vorkommen,  treten 
selten  auf  und  lassen  in  der  Regel  nicht  auf  eine  Dejustage  des 
Schreib-/Lesekopfes  oder  der  Spur  1 schließen. 

Ist  eine  dieser  mechanischen  Einstellungen  oder  sind  beide  ver- 
stellt, erhalten  Sie  auch  READ-ERROR-MELDUNGEN  und 
nicht  nur  WRITE-ERRORs.  WRITE  ERRORs  lassen  bei  intak- 
tem Leseverhalten  Ihrer  1541  in  der  Regel  auf  einen  Hardware- 
Fehler  schließen,  vor  allem,  wenn  es  auf  allen  Spuren  keine  Le- 
seprobleme gibt  und  selbst  Programmme  oder  Spiele  mit  100 
Blocks  und  mehr  einwandfrei  gelesen  werden. 

Wie  bereits  angesprochen,  gibt  es  die  Möglichkeit,  daß  der 
Schreib-/Lesekopf  und  der  Stoppanschlag  für  die  Spur  1 ver- 
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stellt  sind.  Hier  stellt  sich  die  Frage,  welche  der  beiden  Justagen 
wohl  wichtiger  ist.  Die  Antwort  dazu  ist  sehr  einfach:  Die  bei- 
den Einstellungen  besitzen  die  gleiche  Priorität,  wobei  die  Ein- 
stellung des  W-K-Kopfes  von  der  Einstellung  des  Stoppanschlags 
der  Spur  1 abhängig  ist. 

Das  heißt,  es  muß  zuerst  die  Justage  des  Stoppanschlags  der  Spur 
1 überprüft  und  - falls  notwendig  - eine  Nachjustierung  durch- 
geführt werden.  Eine  Nachjustierung  am  Stoppanschlag  der  Spur 
1 zieht  eine  Neueinstellung  des  R/W-Kopfes  mit  sich.  Deshalb 
sollten  Sie  sich  nicht  zu  übereilten  Eingriffen  hinreißen  lassen. 

Ein  Nachstellen  des  Schreib-/Lesekopfes  hingegen  erfordert 
nicht  die  Nachjustierung  des  Stoppanschlags  der  Spur  1,  weshalb 
Sie  aber  nicht  weniger  kritisch  handeln  sollten.  Führen  Sie  des- 
halb alle  Ihnen  zur  Verfügung  stehenden  Tests  kritisch  durch, 
bevor  Sie  sich  für  eine  Nachjustierung  entscheiden. 

Laden  bei  verstelltem  Drive 

Ist  es  Ihnen  nicht  mehr  möglich,  auch  kurze  Programme  mit  Ih- 
rem Diskettenlaufwerk  zu  lesen,  sollten  Sie  sich  eine  Datasette 
zur  Hilfe  nehmen.  Bei  stark  verstelltem  Laufwerk  kommt  es  vor, 
daß  bereits  Programme  mit  wenigen  Blöcken  nicht  gelesen  wer- 
den. Trotzdem  ist  es  in  den  meisten  Fällen  (99%)  möglich,  einen 
R/W-Test  oder  das  Programm  DISPLAY  T&S  zu  betreiben. 
Nach  folgender  Reihenfolge  ist  zu  verfahren,  wenn  Sie  eine 
1541  besitzen,  die  Ihnen  das  Laden  der  Testprogramme  nicht 
ermöglicht. 

Zweite  1541 

Steht  Ihnen  eine  zweite  1541  zur  Verfügung,  dann  laden  Sie  den 
gewünschten  Test  mit  diesem  Gerät  in  Ihre  Zentraleinheit.  Dar- 
aufhin wird  die  1541  ausgeschaltet  und  die  beiden  Stecker  an 
der  Geräterückseite  des  Diskettenlaufwerks  werden  abgezogen. 
Schließen  Sie  jetzt  das  zu  testende  Gerät  an,  schalten  Sie  es  ein, 
und  starten  Sie  den  jeweiligen  Test. 
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Datasette 

Mit  der  Datasette  können  Sie  Ihre  Testprogramme  laden  und  das 
gleichzeitig  angeschlossene  Diskettenlaufwerk  testen. 

Laufwerk  oder  Digitalplatine 

Können  Sie  die  genannten  Tests  mit  Ihrer  1541  noch  laden,  sind 
die  folgenden  Zeilen  für  Sie  weniger  wichtig.  Mußten  Sie  jedoch 
das  Testprogramm  mit  einem  zweiten  Gerät  laden,  sollten  Sie 
folgende  Zeilen  aufmerksam  lesen. 

Sollte  Ihre  1541  nach  dem  Starten  des  jeweiligen  Testprogramms 
keine  Reaktion  zeigen,  ist  es  möglich,  daß  ein  elektronischer 
Fehler  vorliegt. 

Überzeugen  Sie  sich  davon,  daß  Ihr  Commodore  64  keinen  De- 
fekt aufweist.  Es  kann  durchaus  sein,  daß  die  serielle-IEEE- 
488-Schnittstelle  defekt  ist.  Überprüfen  Sie  Ihren  Commodore 
64,  indem  Sie  Ihren  Rechner  an  ein  intaktes  Diskettenlaufwerk 
anschließen.  Lädt  Ihr  64’er  auch  von  diesem  Gerät  nicht,  ist  mit 
Sicherheit  die  serielle  Schnittstelle  des  Commodore  64  oder  auch 
eine  andere  Komponente  defekt.  In  der  Regel  erhalten  Sie  dann 
beim  Laden  des  Directory  folgenden  Ausdruck: 

LOAD  "$",8 
SEARCHING  FOR 

xxxxxxxx  : Die  Meldung  LOAD ING  erscheint  bei 
: intaktem  Gerät  an  dieser  Stelle. 

: Bei  einem  defekten  jedoch  nicht. 

READY. 

Erhalten  Sie  beim  Laden  des  Inhaltsverzeichnisses  folgende  Se- 
quenz, ist  der  Fehler  bei  Ihrer  1541  zu  suchen: 

LOAD  8 

Searching  for  $ : Nach  dieser  Meldung  stürzt  Ihr  Commodore 

: 64  ab  (der  Cursor  erscheint  nicht  mehr), 

: und  es  ist  keine  weitere  Eingabe 
: mehr  möglich. 


Weiterhin  sollten  Sie  darauf  achten,  daß  nach  dem  Einschalten 
die  Leuchtdioden  (LED)  in  der  üblichen  Reihenfolge  aufleuch- 
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ten.  Ist  dies  nicht  der  Fall  und  dreht  sich  der  Motor  des  Lauf- 
werks, seitdem  Sie  eingeschaltet  haben,  dann  erhält  Ihre  Disket- 
tenstation ein  ständiges  RESET-Signal. 

Dieser  RESET  ist  Ihnen  wahrscheinlich  schon  von  Ihrem  64’er 
durch  den  "RESET-Taster"  bekannt.  Deshalb  kann  es  sein,  daß 
die  Ihnen  zur  Verfügung  stehenden  Tests  nicht  ausgeführt  wer- 
den, nachdem  sie  mittels  eines  zweiten  Gerätes  geladen  wurden. 


9.3.2  Geschwindigkeit  justieren 

Schalten  Sie  Ihre  Anlage  aus,  und  ziehen  Sie  danach  die  Stecker 
aus  den  Gerätebuchsen.  Vorbereitungen  zur  Justage  oder  Repa- 
raturarbeiten sollten  Sie  stets  bei  stromlosem  Gerät  durchführen. 
So  wird  das  Risiko  einer  ungewollten  Beschädigung  vermindert. 

Um  die  Geschwindigkeit  nachstellen  zu  können,  ist  die  Demon- 
tage des  Gehäuses,  wie  bereits  beschrieben,  durchzuführen.  Zur 
Durchführung  der  Justage  ist  nur  die  Steckverbindung  zu  der  in 
der  Gehäusefront  befindlichen  Leuchtdiode  abzuziehen.  Nach- 
dem Sie  das  Chassis  in  die  richtige  Position  gebracht  haben, 
können  Sie  Ihre  1541  wieder  anschließen  und  einschalten.  Wie 
Sie  wissen,  ist  die  Elektronik  der  1541  gegen  elektrostatische 
Aufladungen  sehr  empfindlich,  vor  allem  sind  es  die  großen 
Bausteine  auf  der  Digitalplatine,  die  bei  elekrostatischer  Entla- 
dung beschädigt  werden  können. 

Mit  dem  Programm  "Geschwindigkeitsjustage"  ist  das  genaue 
Einstellen  des  Diskettenantriebsmotors  möglich.  Dieses  Programm 
liegt  als  Listing  vor.  Nachdem  Sie  das  Programm  in  den  Rechner 
eingetippt  haben,  ist  eine  formatierte  Diskette  in  das  Laufwerk 
einzulegen  und  zu  starten.  Geschwindigkeitsabweichungen  wer- 
den durch  -1  ms,  -2  ms  oder  +1  ms  oder  mehr  angezeigt. 

10  P0KE53281 , 1 :POKE53280, 1 :PRINTCHR$(30) 

20  PRINTCHR$(147) 

30  OPEN1,8,15 

40  PRINT"  "CHR$( 18)"GESCHWI ND I GKE I TSE I NSTELLUNG" 

50  PRINT 

60  PRINTTAB(9)"BITTE  WARTEN" 
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70  FOR  I»  0 TO  161 
80  READA:S=S+A 

90  PRINT#1 ,HM-W";CHR$(I )CHR$(3);CHR$(1)CHR$(A) 

100  NEXT  I 

110  IF  S <>  15669  THENPRINT"FEHLER  IN  DATAS":GOT0480 
120  PRINT 
130  PRINT 

140  PRINTTAB(4)"LEGEN  SIE  EINE  UNFORMATIERTE  H 
150  PRINT 

160  PRINTTAB(10)"DISKETTE  EIN" 

170  GOSUB560 
180  PRINT 
190  PRINT 

200  PRINTTAB(4)"UENN  FERTIG  "CHRS(18)HSPACEllCHR$<146)n  DRUECKEN" 
210  GETAS:IF  AS  <>  CHR$(32)  THEN210 
220  PRINTCHRS(19) 

230  FOR  I =0TO5 : PR  I NTCHR$(  1 7) : NEXT  I 

240  PRINT 

250  PRINT 

260  PRINT 

270  PRINT 

280  PRINT 

290  PRINT"DRUECKE  HCHR$(18)IIIF7"ICHR$(146)"  WENN  GESCHWINDIGKEIT 
O.K.  “ 

300  FORI=0TO2:PRINTCHR$(145); :NEXT 

310  PRINT#1 , "M-W"CHR$(5 )CHR$(3)CHR$( 1 )CHR$( 11) 

320  T=36:J=14:GOSUB570 
330  F0RI-1T04 

340  PRINT#1  ,"M-R,,CHR$(6+I  )CHRS(3):GET#1,BS 
350  S(  I )=ASC(  B$+CHR$(  0 ) ) 

360  NEXT  I 

370  IF  S(3)=0  OR  S(4)=0  THEN500 
380  C=256*(S(4)+S(3))+S(2)+S(1)-3996 
390  C*INT(C/20+0.5) 

400  PRI NTCHRSC 1 45 )"GESCHWI NO I GKE I TSABWE I CHUNG  IST  "C  CHRS(148)"MS 

M 

410  GETAS: IF  AS=  CHR$(136)  THEN450 

420  IF  ABS(C)  > 5 THEN310 

430  PRINT#1>IIN-W,>CHRS(5)CHRS(3)CHRS(1)CHR$(78) 

440  G0T0320 

450  PR I NTCHRSC 1 7)CHRS( 1 7)CHRS( 1 7) 

460  PRINT»O.K." 

470  GOSUB560 
480  CLOSEI 
490  END 
500  PRINT 

510  PRINTCHRS(18)"FEHLER  !!!  ->" 

520  PR I NT"UEBERPRUEFEN  SIE  IHRE  DISKETTE!!!  " 

530  FOR I =1 TOI 000 : NEXT  I 
540  GOTO470 
550  REM 
560  T=1:J=12 

570  PRINT#1,"M-W"CHRS(6)CHRS(0)CHRS(2)CHRS(T)CHRS<0) 
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580  PRINT#1,"M-U,,CHR$(0)CHR*<0)CHRS<1)CHR$<J*16) 

590  PRINT#1,"M- 

R"CHR$(0)CHR$(0) :GET#1 , L$:L=ASC(L$+CHR$(0) ) : I FL>127TNEN590 


600 

IF  J=1 2 

TKEN 

FORI=1TO2500:NEXT 

610 

RETURN 

620 

REM 

630 

DATA169, 

0. 

133,  0, 

76, 

11. 

3, 

0 

640 

DATA  0, 

0, 

0,120, 

173. 

12. 

28. 

41 

650 

DATA  31, 

9, 

192,141, 

12, 

28, 

169. 

255 

660 

DATA141 , 

3. 

28,162, 

85, 

142, 

1. 

28 

670 

DATA162, 

50, 

160.  0, 

80, 

254, 

184, 

136 

680 

DATA208, 

250. 

202,208, 

247. 

80. 

254, 

184 

690 

DATA141 , 

1. 

28,169, 

224, 

13. 

12. 

28 

700 

DATA162, 

4. 

80,254, 

184, 

202, 

208, 

250 

710 

DATA141 , 

12. 

28,142, 

3. 

28, 

162, 

3 

720 

DATA  80, 

254, 

184,202, 

208, 

250, 

120, 

173 

730 

DATA  11, 

24, 

9,  64, 

141, 

11. 

24. 

162 

740 

DATA  1 , 

169, 

98,141, 

4, 

24, 

160, 

0 

750 

DATA 140, 

8. 

3.140, 

10, 

3, 

140, 

7 

760 

DATA  3, 

140, 

9,  3. 

44. 

0. 

28. 

48 

770 

DATA251 , 

140, 

5,  24, 

44, 

0. 

28. 

16 

780 

DATA251 , 

44, 

0.  28, 

16, 

19. 

173, 

13 

790 

DATA  24, 

10. 

16,245, 

173. 

4, 

24. 

254 

800 

DATA  7, 

3. 

208,237, 

254. 

9. 

3, 

208 

810 

DATA232, 

202, 

240,224, 

169, 

191, 

45, 

11 

820 

DATA  24, 

141, 

11,  24, 

169, 

1. 

88, 

108 

830 

DATA232, 

255 

Um  einen  stroboskopischen  Effekt  zu  erhalten,  benötigen  Sie  in 
Ihrem  Arbeitszimmer  eine  Neonleuchte,  mit  der  es  Ihnen  mög- 
lich ist,  anhand  der  Stroboskopscheibe  die  Geschwindigkeit  des 
Laufwerks  einzustellen.  Ihr  Diskettenlaufwerk  sollte  senkrecht 
auf  einer  der  beiden  Seitenflächen  des  Chassis  stehen.  Steht  das 
Chassis  des  Gerätes  so,  daß  die  rote  Leuchtdiode  des  Laufwerks 
oben  ist,  und  blicken  Sie  nun  von  links  auf  die  Geräteunterseite, 
sehen  Sie  in  der  linken  unteren  Ecke  des  Chassis  die  Bohrung, 
hinter  der  sich  das  Potentiometer  befindet. 


Der  veränderbare  Widerstand  befindet  sich  auf  einer  kleinen 
Platine,  die  zur  Ansteuerung  der  beiden  Laufwerksmotoren 
dient.  Diese  Platine  ist  meist  an  die  Unterseite  des  Laufwerks 
geschraubt. 

Wie  bereits  erwähnt,  befindet  sich  auf  der  Unterseite  des 
Blechchassis  das  Potentiometer.  Sinnbildlich  im  Sinne  eines  Uh- 
renziffernblattes gesehen,  steht  in  der  Regel  der  Schlitz  des  ca. 
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auf  11  Uhr  und  30  Minuten,  wobei  die  Seite,  die  näher  zur  Ge- 
häuseaußenseite liegt,  mit  12  Uhr  bezeichnet  wird.  Zum  Ein- 
stellen der  Geschwindigkeit  ist  es  empfehlenswert,  eine  Diskette 
zu  formatieren  oder  ein  sehr  langes  Programm  zu  laden.  So  ha- 
ben Sie  ausreichend  Zeit,  auf  die  Stroboskopscheibe  zu  sehen, 
und  die  innere  Markierung,  die  mit  "SO"  für  SO  Hertz  bezeichnet 
ist,  für  das  Einstellen  des  Diskettenantriebsmotors  zu  beobach- 
ten. Erhalten  Sie  mit  der  inneren  Markierung  der  Stroboskop- 
scheibe ein  stehendes  Bild,  so  ist  das  Nach  justieren  Ihres  Drives 
nicht  nötig. 

Dreht  sich  das  Bild  der  50-Hertz-Stroboskopscheibe  gegen  die 
Drehrichtung  der  Aluminiumscheibe,  dann  läuft  der  Motor  Ihres 
Laufwerks  zu  schnell.  Umgekehrt  bewegt  sich  bei  zu  langsam 
drehendem  Motor  die  Markierung  in  die  Drehrichtung  der  An- 
triebsscheibe, also  links  herum. 

Stellen  Sie  nun  die  Geschwindigkeit  des  Antriebsmotors  mit  ei- 
nem kleinen  Schraubendreher  am  Widerstand  ein.  Beobachten  Sie 
nun  die  50-Hertz-Skala  der  Stroboskopscheibe,  und  drehen  Sie 
ein  wenig  in  Richtung  12  Uhr.  So  läuft  der  Diskettenantriebs- 
motor schneller.  Verstellen  Sie  das  Potentiometer  in  Richtung  11 
Uhr,  so  läuft  der  Antriebsmotor  langsamer.  Sollten  Sie  zuviel 
nach  rechts  gedreht  haben,  dreht  sich  die  50-Hertz-Stroboskop- 
scheibe gegen  die  Drehrichtung  der  Antriebsscheibe. 

Drehen  Sie  auf  keinen  Fall  unnötig  eine  viertel  Umdrehung  nach 
rechts  oder  links!  Bei  dieser  Justage  ist  etwas  Feingefühl  not- 
wendig. Dreht  das  Bild  mit  der  Drehrichtung  der  Antriebs- 
scheibe, so  läuft  der  Antriebsmotor  zu  langsam.  Sie  sollten  auf 
keinen  Fall  mit  Ihrer  1541  experimentieren,  da  dieses  Gerät  als 
Elektronik-Experimentierkasten  zu  wertvoll  ist. 

Bei  der  Durchführung  der  Geschwindigkeitseinstellung  werden 
Sie  kaum  ein  vollkommen  stehendes  Bild  der  Stroboskopscheibe 
erhalten.  Selbst,  wenn  Sie  die  Justage  sehr  genau  durchführen, 
werden  Sie  bemerken,  daß  sich  das  Stroboskopbild  geringfügig 
bewegt.  Nachdem  die  Justage  der  Geschwindigkeit  beendet  ist, 
sollten  Sie  das  Potentiometer  mit  einem  Tropfen  Nagellack  si- 
chern, damit  es  sich  nicht  von  selbst  verstellen  kann.  Nachdem 
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Sie  die  erste  Justage  an  Ihrem  Diskettenlaufwerk  der  1541  vor- 
genommen haben,  werden  Sie  feststellen,  daß  es  nicht  allzu 
schwierig  ist,  irgendwelche  Justagen  durchzuführen. 


9.3.3  Lage  der  Spuren  1-35  einstellen 

Die  Justage  des  Stoppanschlags  für  die  Spur  1 auf  der  Diskette 
können  Sie  nach  Ablauf  der  Garantiezeit  durchaus  selbst  erledi- 
gen. Ein  Verstellen  der  Spur- 1 -Justierung  stellt  man  kaum  von 
der  einen  auf  die  andere  Minute  fest. 

Aber  auf  einmal  merkt  man  doch,  daß  das  eine  oder  andere  Pro- 
gramm nicht  geladen  wird.  Dann  sollten  Sie,  wie  es  schon  weiter 
vorne  besprochen  wurde,  anhand  der  Testprogramme  Ihr  Lauf- 
werk überprüfen.  Nur,  wenn  Sie  anhand  der  Ihnen  zur  Verfü- 
gung stehenden  Testprogramme  eine  Dejustage  des  Stoppan- 
schlags für  die  Spur  1 auf  der  Diskette  festgestellt  haben,  sollten 
Sie  zum  Schraubendreher  greifen. 

Es  ist  nicht  besonders  wichtig,  gut  mit  dem  Schraubendreher 
umgehen  zu  können,  zu  dieser  Justage  sind  Aufmerksamkeit  und 
Feingefühl  die  wesentlichen  Eigenschaften.  Das  sorgfältige 
Überprüfen  mit  den  Programmen  DISPLAY-T&S  oder  PER- 
FORMANCE TEST  während  der  Einstellarbeiten  ist  eine  Vor- 
aussetzung. 

Demontieren  Sie  das  Gehäuse  Ihrer  1541,  und  führen  Sie  die 
nötigen  Vorbereitungen  durch.  Sie  sollten  Demontage  und  Vor- 
bereitungsarbeiten nur  bei  stromlosem  Gerät  durchführen.  Da- 
durch vermeiden  Sie  Kurzschlüsse,  die  durch  eine  kleine  Un- 
achtsamkeit hervorgerufen  werden  können.  Eine  Beschädigung 
der  Digitalplatine  durch  Kurzschluß  oder  ähnlichem  ist  schwie- 
riger zu  beseitigen  als  die  Dejustierung  eines  Laufwerks. 

Einstellen  des  Stoppanschlags  für  die  Spur  1 

Der  Stoppring  mit  seinen  zwei  Anschlagflächen  dient  als  Ende- 
anschlag für  die  Spur  1.  Der  weiße  Teil  des  Stopprings  ist  der 
mögliche  Arbeitsbereich  des  R/W-Kopfes. 
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Initialisieren  Sie  Ihre  Diskettenstation  mit  dem  folgendem  Be- 
fehl, dann  fährt  der  Schreib-/Lesekopf  nach  außen,  schlägt  mit 
dem  Stoppring  gegen  den  Endeanschlag,  und  von  da  an  zählt 
Ihre  1541  17  Spuren  nach  innen,  bis  der  R/W-Kopf  auf  Spur  18 
der  Diskette  steht.  Entnehmen  Sie  dazu  zuerst  die  Diskette,  da- 
mit Sie  den  R/W-Kopf  beobachten  können. 

OPEN  15, 8,15,  ''I" 

Das  Initialisieren  ist  auch  bei  dejustiertem  Laufwerk  möglich 
und  nicht  von  der  richtigen  Einstellung  des  Stoppanschlags  ab- 
hängig. Nehmen  wir  an,  der  Stoppanschlag  ist  verstellt  und  steht 
mit  der  Vorderkante  zu  nahe  an  der  Welle  des  Schrittmotors. 
Auf  dieser  ist  der  Stoppanschlagring  befestigt. 

Der  Stoppanschlagring  ist  über  das  Metallband  mit  dem  R/W- 
Kopf  verbunden  und  transportiert  somit  den  Schreib-/  Lesekopf 
des  Laufwerks.  Sollen  nun  Daten  bei  obengenannter  Dejustie- 
rung  von  der  Spur  1 einer  Diskette  geladen  werden,  die  mit  ei- 
nem intakten  Laufwerk  formatiert  und  bespielt  wurde,  ist  dies 
nicht  möglich.  Daraufhin  blinkt  die  rote  Leuchtdiode  Ihrer  1541 
und  signalisiert  eine  Fehlermeldung.  Bei  der  Abfrage  der  Feh- 
lermeldung erhalten  Sie  die  Meldung:  20  : READ  ERROR.  Der 
Disk-Controller  kann  den  Header  (Vorsatz)  eines  Datenblocks 
nicht  finden.  Abfragen  des  Fehlerkanals: 

10  OPEN  1,8,15 

20  INPUT#1,A,BS,C,D 

30  PRINT  A,B$,C,D 

Wenn  der  Stoppanschlag  zu  weit  innen  bzw.  zu  nahe  am  Stopp- 
ring steht  wird  die  Spur  1 vom  R/W-Kopf  nicht  erreicht.  Zur 
Nachjustierung  des  Stoppanschlags  2 benötigen  Sie  das  Pro- 
gramm DISPLAY  T&S  oder  R/W-Test  und  die  bereits  erwähnten 
Arbeitsdisketten.  Laden  und  starten  Sie  DISPLAY  T&S  wie,  es 
bereits  ausführlich  besprochen  wurde.  Kann  die  Spur  1 einer 
Diskette,  die  auf  einem  intakten  Laufwerk  formatiert  oder  be- 
schrieben wurde,  nicht  gelesen  werden  ist  folgendes  zu  tun: 

Lösen  Sie  die  Kreuzschlitzschraube  mit  einem  passenden  Schrau- 
bendreher. Nun  vergrößern  Sie  mit  einem  normalen  Schrauben- 
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dreher  den  Abstand  des  Stoppanschlags  und  der  Welle  des  R/W- 
Kopftransportmotors,  indem  Sie  den  Schraubendreher  zwischen 
die  Welle  und  das  Anschlagblech  setzen  und  das  Stoppanschlag  - 
blech  von  der  Welle  weg  um  ca.  0.5  mm  nach  außen  drücken. 
Drehen  Sie  daraufhin  die  Schraube  fest,  und  überprüfen  Sie  die 
Justage,  wie  es  in  Unterkapitel  9.3.2  bereits  besprochen  wurde. 

Wenn  jetzt  die  Spur  1 der  Diskette  gelesen  wird,  sollte  der  Ab- 
stand zwischen  Stoppanschlag  und  Stoppring  ca.  0.35  mm  betra- 
gen. Gegebenenfalls  ist  die  Einstellung  des  Stoppanschlags  zu 
korrigieren,  bis  die  Spur  1 der  Arbeitsdiskette  gelesen  wird.  Der 
Abstand  von  0.35  mm  muß  nicht  eingehalten  werden.  Wichtiger 
ist  die  Funktion  des  Laufwerks.  Nachdem  Sie  in  diesem  Fall  den 
Abstand  zwischen  Stoppanschlag  und  Stoppring  um  0.1  bis  0.5 
mm  vergrößert  und  mit  der  Schraube  gesichert  haben,  ist  der 
Stoppanschlag  festzukleben.  Dazu  ist  die  Verbindung  des  Stopp- 
anschlags und  der  Schraube  mit  einem  Tropfen  Kleber  oder 
ähnlichem  zu  sichern.  Dabei  ist  auch  ein  Tropfen  Kleber  in  die 
Einfräsung  des  rechteckigen  Aluminiumzapfens  zu  geben,  auf 
dem  der  Stoppanschlag  befestigt  ist.  Vom  Hersteller  wurde  diese 
Verbindung  ebenso  gesichert. 

Nach  dem  ersten  Erfolg  bei  Ihrer  Selbsthilfe  werden  Sie  fest- 
stellen, daß  dies  nicht  besonders  schwierig  war.  Sollte  Ihre  1541 
noch  nicht  vollkommen  funktionieren,  ist  das  kein  Anlaß  aufzu- 
geben. Ein  Nachjustieren  des  Schreib-/Lesekopfes  Ihrer  1541 
muß  nicht  unbedingt  erforderlich  sein.  Überprüfen  Sie  deshalb 
Ihr  Laufwerk,  wie  es  in  Unterkapitel  9.3.2  bereits  beschrieben 
wurde,  und  laden  Sie  außerdem  mehrere  lange  Programme.  Ist 
Ihr  Laufwerk  nun  wieder  in  Ordnung  und  haben  Sie  alle  Funk- 
tionen überprüft,  ist  die  Montage  des  Gerätes  durchzuführen. 
Dabei  sollten  Sie  ebenfalls  sorgfältig  vorgehen. 

Lage  der  Spuren  1 bis  35  einstellen 

Fehlermeldung:  20  Read  Error  - Spur  33  (34,35) 

Wird  bei  Ihrem  Laufwerk  die  Spur  35  der  Diskette  nicht  gelesen, 
wie  es  in  Kapitel  9.3.2  bereits  erwähnt  wurde,  ist  der  Stoppan- 
schlag eventuell  nachzustellen.  Jedoch  ist  der  Stoppanschlag  in 
Richtung  Stoppring  zu  verstellen.  Bei  dieser  Dejustierung  erhal- 
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ten  Sie  READ-ERROR-Meldungen  in  der  Spur  35,  gegebenen- 
falls auch  schon  ab  der  Spur  33.  Zum  Justieren  des  Laufwerks 
sind  Disketten  zu  verwenden,  die  auf  einem  intakten  Laufwerk 
formatiert  wurden. 

Steht  bei  Ihrem  Diskettenlaufwerk  der  Stoppanschlag  um  0,5  bis 
1 mm  zu  weit  außen,  ist  es  möglich,  daß  die  Spuren  ab  32  bis  35 
nicht  gelesen  werden. 

Zum  Nachstellen  des  Stoppanschlags  benötigen  Sie  das  Programm 
DISPLAY  T&S  und  Disketten,  die  mit  einer  intakten  1541  for- 
matiert wurden.  Überprüfen  Sie  das  Laufwerk  mit  dem  Ihnen 
zur  Verfügung  stehenden  Programm,  wie  es  in  Unterkapitel  9.3.2 
bereits  besprochen  wurde.  Positionieren  Sie  den  R/W-Kopf  mit 
dem  Programm  DISPLAY  T&S  auf  Spur  1,  wie  es  in  Unterka- 
pitel 9.3.2  beschrieben  ist.  Lösen  Sie  nun  die  Schraube  mit  einem 
passenden  Schraubendreher.  Der  Stoppanschlag  ist  so  zu  verstel- 
len, daß  der  Luftspalt  zwischen  der  Anschlagfläche  des  Stopp- 
rings und  dem  Stoppanschlag  geringer  wird. 

Überprüfen  Sie  die  Justage  mit  Ihren  verschiedenen  Testpro- 
grammen, und  laden  Sie  mehrere  lange  Programme  oder  Spiele, 
die  auf  den  Spuren  30  bis  35  abgespeichert  sind.  Sichern  Sie  die 
Schraube  und  den  Stoppanschlag  mit  Kleber  oder  Nagellack. 
Auch  hier  ist  nicht  der  Abstand  von  0,35  mm  zwischen  Stopp- 
anschlag und  Stoppring  entscheidend,  sondern  die  Funktion  des 
Laufwerks.  Im  Werk  des  Herstellers  wird  der  Abstand  zwischen 
Stoppanschlag  und  Stoppring  auf  0,35  mm  eingestellt,  wobei  sich 
der  Schreib-/Lesekopf  auf  der  Spur  1 befindet.  Betreiben  Sie 
Ihre  1541  längere  Zeit,  ist  es  möglich,  daß  sich  das  eine  oder 
andere  Teil  Ihres  Laufwerks  abnutzt  oder  daß  sich  Grundein- 
stellungen des  Laufwerks  verändert  haben.  In  der  Regel  ist  dies 
aber  selten  der  Fall. 

Dadurch  kann  es  beim  Nachjustieren  Ihres  Laufwerks  erforder- 
lich sein,  daß  Sie  den  Abstand  von  0,35  mm  nicht  einhalten 
können.  Es  kann  sein,  daß  Sie  den  Stoppanschlag  so  weit  ver- 
stellen müssen,  daß  der  Abstand  nur  noch  0,1  mm  beträgt. 
Mußte  der  Stoppanschlag  stark  verstellt  werden,  um  die  eine 


732 


Das  große  Commodore  64-Buch 


oder  andere  Spur  wieder  lesen  zu  können,  ist  in  der  Regel  ein 
Nachjustieren  des  Schreib-/Lesekopfes  erforderlich. 


9.3.4  Schreib-/Lesekopf  einstellen 

Einführung 

Das  Einstellen  des  Schreib -/Lesekopfes  wird  im  Fachjargon 
"Alignment"  genannt.  Darunter  versteht  man  die  Justierung  der 
radialen  Schreib-/Lesekopf Position.  In  folgenden  Schritten  er- 
halten Sie  eine  Einführung  zur  Justage  des  Diskettenlaufwerks 
1541.  In  einer  Fachwerkstatt  werden  mit  Hilfe  eines  Oszilloskops 
und  einer  Spezialdiskette  die  Amplitude  des  Schreib-/Lesekopfes 
gemessen.  Auf  dieser  Spezialdiskette  (Alignment-Diskette  ge- 
nannt) befindet  sich  auf  der  Spur  17  ein  Bit-Muster  zum  ge- 
nauen Einstellen  des  Schreib-/Lesekopfes.  Schließt  man  am  Le- 
severstärker der  Diskettenstation  1541  ein  geeignetes  Oszilloskop 
an,  erhält  man  zwei  Amplitudenschwingungen  auf  dem  Bild- 
schirm des  Oszilloskops. 

Diese  beiden  Amplitudenschwingungen  haben  die  Form  zweier 
Katzenaugen  und  werden  deshalb  als  "Cats  Eyes"  in  der  Fach- 
sprache bezeichnet.  Bei  einer  Ablenkzeit  von  20  msec/div  des 
Oszilloskopes  sind  auf  dem  Bildschirm  zwei  gleiche  Cats  Eyes 
sichtbar,  welche  bei  korrekter  Einstellung  eine  Umdrehung  der 
Alignment-Diskette  darstellen.  Als  Amplitude  wird  die  Signal- 
höhe eines  Impulses  bezeichnet.  Die  Signalhöhe  wird  in  der  Ein- 
heit Volt  gemessen.  Die  Bezeichnung  20  ms/div  bedeutet,  daß 
ein  Kästchen  auf  dem  Bildschirm  eine  Zeit  von  20  Millisekun- 
den darstellt.  Der  Bildschirm  eines  Oszilloskopes  hat  in  der  Re- 
gel 10  Kästchen  in  der  Breite  (horizontal),  daraus  ergeben  sich 
10  * 20  msec  = 200  Millisekunden  oder  0,2  Sekunden.  Wie  be- 
reits erwähnt  wurde,  drehen  sich  die  Disketten  mit  300  Umdre- 
hungen in  der  Minute.  Daraus  ergeben  sich  300  U.  pro  min  / 60 
sec  = 5 U.  pro  sec,  und  das  ergibt  wiederum  1 sec  / 5 U.  pro 
sec  = 0,2  Sekunden  für  eine  Umdrehung  der  Diskette.  So  ist  es 
möglich,  die  Spur  17  der  Alignment-Diskette  auf  dem  Bild- 
schirm des  Oszilloskopes  darzustellen. 
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Eine  Alignment- Diskette  läßt  sich  nicht  kopieren  und  ist  für 
Ihre  1541  im  Fachhandel  für  ungefähr  200  DM  erhältlich.  Diese 
Diskette  ist  keine  Programmdiskette,  sondern  eine  Meßdiskette. 
Bei  der  Justierung  der  radialen  Schreib- /Lesekopf Position  han- 
delt es  sich  um  eine  Feineinstellung. 

Ist  der  Schreib-/Lesekopf  exakt  abgeglichen,  sind  die  beiden 
Cats  Eyes  gleich  groß.  Ist  das  erste  Katzenauge  auf  dem  Bild- 
schirm um  25  % kleiner  als  das  zweite,  liegt  eine  Fehljustierung 
von  0,05  mm  in  Richtung  Spur  16  vor.  Wenn  das  zweite  Kat- 
zenauge auf  dem  Oszilloskopschirm  um  25  % kleiner  ist  als  das 
erste,  liegt  eine  Fehljustierung  von  0,05  mm  in  Richtung  Spur 
18  vor.  Eine  Fehljustierung  von  0,05  mm  macht  sich  noch  nicht 
bemerkbar.  Erst,  wenn  das  eine  Katzenauge  weniger  als  75  % 
der  Amplitude  des  anderen  hat,  macht  sich  eine  Dejustierung 
durch  READ  oder  WRITE  ERRORs  bemerkbar. 

Können  mit  Ihrem  Diskettenlaufwerk  nur  noch  kürzere  Pro- 
gramme eingelesen  werden,  dann  ist  in  der  Regel  der  Schreib- 
/Lesekopf  sehr  stark  verstellt,  und  es  wären  keine  Katzenaugen 
auf  dem  Bildschirm  sichtbar.  Eine  solche  Dejustierung  kann 
durch  äußere  Einflüsse  hervorgerufen  werden,  z.B.  wenn  das 
Diskettenlaufwerk  beim  Transport  heftig  gestoßen  wird  oder 
wenn  es  beim  Versand  fällt.  In  diesem  Fall  steht  der  Schreib-/ 
Lesekopf  nicht  auf  der  Alignment-Spur  17  der  Alignment-Dis- 
kette,  sondern  auf  Spur  16  oder  vielleicht  sogar  auf  Spur  18. 
Dann  ist  es  möglich,  daß  der  Schrittmotor  des  R/W-Kopfes  um 
einige  Millimeter  verstellt  ist  und  neu  justiert  werden  muß.  Der 
Schreib-/Lesekopf  wird  nachgestellt,  indem  man  die  Schrauben 
löst,  danach  den  Schrittmotor  in  die  eine  oder  andere  Richtung 
verdreht  und  dabei  den  Feinabgleich  des  Schreib-/Lesekopfes 
vornimmt. 

Vorbereitungen  zur  Justage  des  Schreib-/Lesekopfes 

Nachdem  Sie  im  letzten  Unterkapitel  die  Grundlagen  für  das 
Justieren  des  Schreib-/Lesekopfes  erfahren  haben,  wollen  wir 
diese  nun  in  die  Praxis  umsetzen.  Sicher  haben  Sie  sich  die 
Frage  gestellt,  wie  es  Ihnen  möglich  ist,  ohne  Oszilloskop  die 
Justierung  des  Schreib-/Lesekopfes  durchzuführen. 
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Justierung  des  Schreib-/Lesekopfes  ohne  Oszilloskop 

Es  braucht  wohl  nicht  darauf  hingewiesen  zu  werden,  daß  das 
folgende  Unterkapitel  nur  für  den  sinnvoll  ist,  der  weiß,  an 
welchem  Ende  ein  Lötkolben  heiß  wird.  Sollten  Sie  sprichwört- 
lich zwei  linke  Hände  besitzen,  ist  es  für  Sie  ratsam  eine  Com- 
modore-Fachwerkstatt  aufzusuchen.  Nachdem  Sie  diese  Warnung 
erhalten  haben,  sollen  Sie  nicht  davon  abgehalten  werden,  Ihr 
Laufwerk  selbst  zu  justieren,  zumal  dies  mit  etwas  Feingefühl 
und  Aufmerksamkeit  kein  Problem  ist. 

Vorbereitungen 

Ist  es  Ihnen  nicht  möglich,  mit  Ihrer  Diskettenstation  lange  Pro- 
gramme zu  laden,  und  erhalten  Sie  daraufhin  Fehlermeldungen 
von  20  - 24  ist  es  sehr  wahrscheinlich  das  der  Schreib-Lese 
Kopf  verstellt  ist. 

Werden  bei  den  Programmen  PERFORMANCE  TEST  oder 
R/W-Test  in  mehreren  Spuren  READ  ERRORs  gemeldet,  ist  das 
Laufwerk  in  der  Regel  stark  dejustiert.  Im  Unterkapitel  9.3.2 
wurden  die  Möglichkeiten  zur  Überprüfung  eines  Laufwerks 
bereits  ausführlich  besprochen.  Sind  Sie  sich  noch  nicht  sicher, 
ob  eine  Dejustage  des  Schreib-/Lesekopfes  vorliegt,  sollten  Sie 
Unterkapitel  9.3.2  wiederholen.  Auch  Kopierprogramme,  wie 
Quickcopy  oder  ähnliche,  geben  häufig  Aufschluß  über  das 
Schreib-/Leseverhalten  eines  Laufwerks. 

Die  einzige  aufschlußreiche  Möglichkeit,  um  festzustellen,  ob 
eine  Dejustage  des  Schreib-/Lesekopfes  vorliegt,  ist,  das  Lesesi- 
gnal am  Leseverstärker  der  1541  nachzumessen. 

Erfolgt  die  Justage  des  Schreib-/Lesekopfes  im  Anschluß  zur 
Spur- 1 -Justage,  müssen  keine  weiteren  Vorbereitungen  bzw. 
Demontagen  durchgeführt  werden.  Das  Laufwerk  ist  nur  noch  so 
auf  eine  Seitenfläche  zu  stellen,  daß  es  senkrecht  auf  der  Un- 
terlage steht.  In  dieser  Position  sind  die  Befestigungsschrauben 
des  Schrittmotors,  der  für  den  Schreib-/Lesekopftransport  ver- 
antwortlich ist,  gut  zugänglich. 
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Demontagen  zur  Justierung  des  Schreib-/Lesekopfes 

Ist  nur  die  Justierung  des  Schreib -/Lesekopfes  erforderlich  sind 
die  Vorbereitungen  aus  Unterkapitel  9.2.2  auszuführen.  Nach 
Ausführung  der  Vorbereitungen  sehen  Sie  die  Befestigungs- 
schrauben, die  der  Befestigung  des  exentrisch  gelagerten 
Schrittmotors  dienen. 

Schalten  Sie  die  Diskettenstation  aus,  und  ziehen  Sie  den  Stecker 
der  220-Volt-Zuführung  ab.  Die  nötigen  Vorbereitungen  zur 
Justierung  des  Schreib-Lesekopfes  sollten  stets  bei  stromlosen 
Gerät  durchgeführt  werden.  Dadurch  vermeiden  Sie  eine  Be- 
schädigung der  Digitalplatine,  die  durch  eine  Unachtsamkeit 
hervorgerufen  werden  kann.  Nachdem  die  Vorbereitungen  aus 
Unterkapitel  9.2.2  durchgeführt  wurden,  sehen  Sie  auf  der  Un- 
terseite des  Blechchassis  die  Aussparungen  und  die  Schrauben. 
Der  Schrittmotor  ist  mit  einer  abgesetzten  Welle  in  das  Alumini- 
umchassis des  Laufwerks  eingesetzt.  Mit  den  beiden  Blechla- 
schen des  Motors  und  den  Schrauben  wird  der  Motor  befestigt. 
Wird  eine  der  vier  Wicklungen  des  Schrittmotors  bestromt,  wird 
die  Welle  und  der  damit  verbundene  Stoppring  um  1,8  Grad  ge- 
dreht und  somit  der  mit  dem  Metallbändchen  verbundene 
Schreib-/Lesekopf  transportiert. 

Durch  Verdrehen  des  Schreib- /Lesekopf transportmotors  ist  es 
möglich,  die  Justage  des  R/W-Kopfes  durchzuführen. 


9.4  C64-Wartung 

Das  Ziel  dieses  Kapitels  ist  es,  Ihren  C64  im  bescheidenen  Maß- 
stab aufzurüsten  und  - im  Falle  eines  Fehlers  - diesen  selbst  zu 
lokalisieren  und  ihn  gegebenenfalls  zu  reparieren. 

Falls  die  Garantie  Ihres  Geräts  noch  nicht  abgelaufen  ist,  sollten 
sie  es  sich  vorher  gut  überlegen,  ob  Sie  Ihr  Gerät  aufschrauben 
und  damit  Ihren  Garantieanspruch  verlieren. 

Bevor  Sie  nach  den  in  diesem  Kapitel  gegebenen  Kurzanleitun- 
gen Geräte  aufschrauben,  ICs  austauschen  oder  Sonstiges  unter- 


736 


Das  große  Commodore  64-Buch 


nehmen,  untersuchen  Sie  als  erstes,  ob  Sie  wirklich  alle  nötigen 
Geräte  ordnungsgemäß  angeschlossen  und  eingeschaltet  haben. 
Wenn  sich  bei  einem  Gerät  überhaupt  nichts  tut,  kontrollieren 
Sie  als  erstes  die  Kabel  und  Sicherungen.  Nehmen  Sie  auch  keine 
Eingriffe  vor,  die  Sie  sich  nicht  selbst  Zutrauen  oder  die  Ihren 
Erfahrungsbereich  weit  übersteigen.  Überschätzen  Sie  sich  nicht, 
denn  das  kann  Sie  weitaus  mehr  kosten  als  die  Reparatur  bei  ei- 
nem Fachmann.  In  den  folgenden  Absätzen  werden  wir  auf  die 
häufigsten  Fehlertypen  näher  eingehen: 

Der  Bildausfall 

Unter  "Bildausfall"  verstehen  wir,  daß  nach  dem  Einschalten  des 
Computers  und  des  entsprechenden  Datensichtgeräts  (Monitor, 
Fernseher)  kein  Bild  erscheint,  obwohl  die  LED  am  Computer 
leuchtet. 

Falls  dies  der  Fall  ist,  so  ist  mit  größter  Warscheinlichkeit  ein 
Teil  der  Stromzuleitung  unterbrochen,  welches  meistens  auf  eine 
defekte  Sicherung  zurückzuführen  ist.  Um  dies  festzustellen,  lö- 
sen Sie  die  drei  Schrauben  an  der  Unterseite  des  Computers  und 
klappen  den  oberen  Teil  vorsichtig  nach  hinten  weg.  Den  Stand- 
ort der  Sicherung  können  Sie  in  den  nachfolgenden  Bildern  er- 
mitteln (die  Stärke  der  Sicherung  ist  entweder  1 oder  1.25  Am- 
pere). Anschließend  nehmen  Sie  die  Sicherung  vorsichtig  aus  der 
Fassung  und  ersetzen  sie  gegebenenfalls  durch  eine  1.25  Ampere 
tragende  Sicherung.  Es  ist  häufig  der  Fall,  daß  die  Sicherung 
ohne  besonderen  Grund  durchbrennt.  Der  Ersatz  durch  eine  1.25 
Ampere  starke  Sicherung  ist  völlig  ohne  Risiko,  dagegen  kann 
eine  Überbrückung  der  Sicherung  durch  ein  Stück  Draht  zu 
großen  Schäden  führen. 

Ist  die  Sicherung  in  Ordnung,  liegt  der  Fehler  wahrscheinlich 
beim  Transformator.  Falls  Sie  über  das  entsprechende  Meßgerät 
verfügen,  können  Sie  in  der  DIN-Buchse  nachmessen.  Oft  fehlt 
die  5-Volt-Gleichspannung,  die  von  der  Stabilisierungsschaltung 
im  Netzteil  geliefert  werden  soll.  Aber  auch  die  9-Volt-Wech- 
selspannung  ist  vereinzelt  nicht  vorhanden. 
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Wenn  Sie  allerdings  nicht  die  Möglichkeit  haben,  das  Netzteil 
durchzumessen,  tauschen  Sie  Ihr  Netzteil  durch  das  eines  Freun- 
des aus.  Sollte  sich  heraussteilen,  daß  der  Fehler  im  Netzteil  lag, 
so  bringen  Sie  dieses  zu  Ihrem  Fachhändler.  Sollte  sich  heraus- 
steilen, daß  auch  das  Netzteil  funktioniert,  so  überprüfen  Sie  ihr 
Anschlußkabel  an  dem  Monitor  oder  Fernseher.  Sind  die  Kabel 
in  Ordnung,  so  könnte  der  Modulator  defekt  sein.  Um  dieses  zu 
überprüfen,  bedarf  es  eines  kleinen  Tricks: 

Schließen  sie  Ihre  Floppy  oder  Ihre  Datasette  an  den  Computer 
an.  Im  Falle  der  Datasette  drücken  Sie  <Shift>-i-<Run/Stop>  und 
daraufhin  die  <Play>-Taste.  Beginnt  der  Motor  zu  laufen,  so 
wird  der  Modulator  defekt  sein,  und  Ihr  Computer  muß  in  die 
Werkstatt.  Ist  eine  Floppy  angeschlossen,  so  tippen  Sie  blind 
LOAD"$",8.  Beginnt  der  Laufwerksmotor  sich  zu  drehen,  so  gilt 
das  oben  gesagte. 

Wenn  nicht  einmal  die  LED  an  Ihrem  Computer  leuchtet,  so 
sollten  Sie  die  Sicherung  an  Ihrem  Netzteil  überprüfen  und  ge- 
gebenenfalls durch  eine  gleicher  Stärke  ersetzen.  Es  ist  auch 
möglich,  daß  Ihre  Sicherung  sich  nur  gelockert  hat.  Trifft  beides 
nicht  zu,  so  sollten  Sie  den  Stecker  für  die  Steckdose  überprüfen. 

Nur  Bildschirm  und  Rahmen 

Häufiger  aber  auch  schwerwiegender  sind  die  Fehler,  wenn  nach 
dem  Einschalten  der  Rahmen  und  die  Hintergrundfarbe  erschei- 
nen, danach  jedoch  jede  Aktivität  stoppt.  In  diesem  Fall  sollten 
Sie  zuerst  einmal  die  IRQ-Leitung  messen.  Im  Normalfall,  also 
bei  funktionierendem  Gerät,  tritt  an  diesem  Anschluß  (Pin  3 des 
Prozessors)  alle  16  Millisekunden  ein  negativer  Impuls  von  ca. 
200  Microsekunden  Dauer  auf.  Mit  einem  Vielfachmeßgerät  ist 
nur  eine  Gleichspannung  von  ca.  4.5  Volt  zu  messen.  Mit  einer 
LED  und  einem  Widerstand  von  200  Ohm  kann  man  oben  sehen, 
ob  die  Interrupts  ausgelöst  werden.  Dazu  wird  der  Widerstand 
mit  5 Volt  verbunden  und  als  Vorwiderstand  für  die  LED  be- 
nutzt. Die  Kathode  der  LED  wird  an  Pin  3 des  Prozessors  ge- 
halten. Jetzt  muß  die  LED  soeben  sichtbar  leuchten  und  etwas 
flackern.  Besser  geeignet  ist  natürlich  ein  Logik-Tester  oder  ein 
Oszilloskop. 


738 


Das  große  Commodore  64-Buch 


Was  aber,  wenn  die  Interrupts  ausbleiben?  Wenn  die  IRQ-Lei- 
tung  nach  dem  Einschalten  High  ist,  dann  nach  kurzer  Zeit  Low 
wird,  kommen  als  Fehlerquellen  das  Betriebssystem-ROM,  das 
RAM,  die  CIAs  oder  der  Prozessor  in  Frage.  Ein  Fall  für  eine 
gut  ausgerüstete  Werkstatt,  wenn  Sie  nicht  die  Möglichkeit  ha- 
ben, die  ICs  aus  einem  anderen  Rechner  zu  probieren. 

Sind  die  CIAs  defekt,  so  ist  dieser  Fehler  leicht  festzustellen. 
Der  C64  kann  ohne  CIA  2 arbeiten,  und  deshalb  ist  es  möglich, 
die  beiden  ICs,  deren  Lage  anhand  der  Bilder  ermittelt  werden 
kann,  auszutauschen.  Falls  der  Computer  nun  wieder  funktio- 
niert, müssen  Sie  das  defekte  IC,  das  vorher  im  Sockel  von  CIA 
1 steckte,  austauschen. 

Hat  diese  Operation  auch  nicht  den  gewünschten  Erfolg,  können 
Sie  untersuchen,  ob  der  Prozessor- Port  defekt  ist.  Um  dieses 
feststellen  zu  können,  sollten  Sie  jedoch  schon  einige  Erfahrung 
im  Umgang  mit  ICs  haben. 

Dazu  messen  Sie  die  drei  Leitungen  -LORAM,  -HIRAM  und  - 
CHAREN  an  den  Pins  27,  28  und  29  des  Prozessors.  Diese  Lei- 
tungen sollten  nach  dem  Einschalten  auf  High  liegen.  Stellt  sich 
nach  dem  Einschalten  aber  ein  Low-Pegel  an  einem  dieser  Pins 
ein,  so  kann  der  Rechner  das  Betriebssystem-ROM  nicht  ord- 
nungsgemäß adressieren.  Es  wird  ausgeblendet  und  das  darun- 
terliegende RAM  kommt  zum  Vorschein.  Folglich  kann  der 
Computer  die  RESET-Routine  nicht  anspringen,  was  unweiger- 
lich zum  "Absturz"  führt. 

Stellt  sich  also  ein  Low-Pegel  ein,  so  können  Sie  jetzt  den  Pro- 
zessor-Port untersuchen.  Dafür  löten  Sie  den  Prozessor  aus  und 
löten  eine  40-beinige  Fassung  an  diese  Stelle.  Nun  müssen  Sie 
die  Pins  27,  28  und  29  des  Prozessors  rechtwinklig  abbiegen  und 
ihn  zurück  in  die  Fassung  stecken,  so  daß  diese  Pins  keinen 
Kontakt  zur  Platine  haben.  Auf  diese  Art  wird  dem  Adreß-Ma- 
nager  Ul 7 vorgegaukelt,  daß  alles  in  Ordnung  ist,  da  ein  offener 
Eingang  an  TTL-ICs  als  High  gewertet  wird.  Wenn  der  Rechner 
nach  dieser  Prozedur  arbeitet,  so  ist  ein  neuer  Prozessor  nötig. 
Schlägt  diese  Methode  fehl,  so  ist  es  unumgänglich,  den  Com- 
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puter  in  eine  Werkstatt  zu  geben,  da  der  Fehler  kaum  mit  nor- 
malen Mitteln  zu  lokalisieren  ist. 

Farbige  Zeichen  auf  dem  Bildschirm 

Wenn  Sie  zum  Beispiel  beim  Listen  einer  Directory  oder  eines 
BASIC-Programms  ungewollt  lauter  farbige  Zeichen  auf  dem 
Bildschirm  erhalten,  so  muß  dies  nicht  unbedingt  am  VIC  liegen. 
Der  Fehler  kann  auch  an  dem  Netzteil  liegen,  welches  zu  wenig 
Spannung  liefert.  Um  dieses  zu  überprüfen,  messen  Sie  die 
Spannung  nach  oder  tauschen  Ihr  Netzteil  aus. 

Die  Tastatur  funktioniert  nicht  richtig! 

In  diesem  Fall  liegt  bestimmt  ein  Fehler  der  CIA  1 vor,  die  für 
die  Tastaturabfrage  zuständig  ist.  Gewißheit  darüber  können  Sie 
sich  jedoch  mit  dem  Testprogramm  verschaffen. 

Der  Joystick  funktioniert  nichtl 

Hier  liegt  der  Fehler,  sofern  keine  Störungen  der  Tastatur  vor- 
liegen, ausschließlich  am  Joystick  selbst.  Mit  Hilfe  des  Testpro- 
gramms können  Sie  die  Joystick-Funktionen  überprüfen. 

Wenn  er  nicht  richtig  lädtl 

Hier  muß  man  zwischen  Datasette  und  Floppy  unterscheiden. 
Beim  Bandbetrieb  gibt  es  drei  Fehlermöglichkeiten: 

In  der  Datasette  selbst 

Der  Tonkopf  ist  dejustiert.  Mit  einem  kleinen  Schraubenzieher 
kann  man  versuchen,  die  Stellung  des  Tonkopfes  anhand  der 
Justageschraube  zu  justieren  (merken  Sie  sich  die  ursprüngliche 
Einstellung,  damit  Sie,  falls  dies  nicht  die  Fehlerquelle  war,  sich 
nicht  die  Datasette  selbst  dejustieren).  Eine  weitere  Möglichkeit 
ist  der  verschmutzte  Tonkopf,  den  man  mit  einer  Reinigungs- 
kassette oder  einem  Tonkopfspray  säubern  kann. 
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Im  Computer 

Auch  hier  muß  zwischen  zwei  Fällen  unterschieden  werden: 

1.  Es  wurde  nicht  richtig  "gesavet",  was  auf  einen  defekten 
Prozessor- Port  zurückzuführen  ist.  In  diesem  Fall  müssen  Sie 
den  Computer  in  die  Reparatur  schicken. 

2.  Es  wird  nicht  richtig  geladen,  was  auf  eine  defekte  CIA  1 
schließen  läßt.  In  diesem  Fall  können  Sie,  die  beiden  CIAs 
vertauschen. 

Die  Floppy  lädt  nicht! 

Falls  der  Fehler  im  Computer  liegt,  so  kann  dies  nur  bei  der 
CIA  2 der  Fall  sein,  da  diese  für  die  Kommunikation  mit  der 
Floppy  zuständig  ist.  Hier  ist  es  ratsam,  die  CIA  2 mit  der  eines 
Freundes  auszutauschen,  um  sich  Gewißheit  zu  verschaffen. 
Wenn  dies  nicht  hilft,  so  müßte  der  Fehler  in  der  Floppy  liegen, 
die  man,  wenn  es  nicht  auf  eine  defekte  Sicherung  in  der 
Floppy  zurückzuführen  ist,  zu  einer  Reparaturwerkstatt  bringen 
muß. 

Fehler,  die  nach  längerem  Betrieb  auftreten 

Zeitweise  oder  spontan  auf  tretende  Fehler  sind  in  einer  Werk- 
statt immer  die  unbeliebtesten  Defekte.  Da  kann  es  dann  ohne 
weiteres  Vorkommen,  daß  ein  Gerät  mehrere  Tage  im  Test  ord- 
nungsgemäß funktioniert,  obwohl  der  Kunde  als  Fehler  angege- 
ben hat,  daß  sich  das  Gerät  nach  1/2  Stunde  "verabschiedet". 
Häufige  Ursache  dieser  Fehler  ist  ein  thermischer  Defekt  in  ei- 
nem Bauteil.  Sollte  Ihr  C64  irgendwann  einmal  solche  Symptome 
zeigen,  so  empfiehlt  sich  die  Anschaffung  einer  großen  Dose 
Kältespray.  Dieses  Spray  ist  im  Elektronikfachhandel  für  ein 
paar  DM  zu  erhalten.  Durch  einfaches  Ansprühen  lassen  sich  die 
Bauteile  auf  bis  zu  -40  Grad  abkühlen.  Dabei  hat  sich  das  fol- 
gende Prinzip  bewährt: 

Nachdem  die  Tastatur  entfernt  ist,  wird  die  Rechnerplatine  mit 
einem  normalen  Haarfön  gleichmäßig  erhitzt.  Sobald  der  Rech- 
ner einen  Fehler  zeigt,  werden  die  einzelnen  Bauteile  systema- 
tisch mit  dem  Spray  gekühlt  und  der  Rechner  nach  jedem  Bau- 
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teil  aus-  und  wieder  eingeschaltet.  Sobald  nach  dem  Einschalten 
der  Rechner  wieder  funktioniert,  werden  die  zuletzt  abgekühlten 
Bauteile  noch  einmal  erwärmt,  um  zu  sehen,  ob  wirklich  eines 
dieser  Bauteile  den  Defekt  verursachte.  Auf  diese  Weise  kann 
man  nun  das  defekte  Bauteil  immer  weiter  einkreisen  und  zu- 
letzt austauschen. 

Leider  sind  nicht  nur  die  Bauteile  als  Fehlerursache  möglich. 
Auch  die  Leiterplatte  kann  als  Ursache  in  Frage  kommen.  Durch 
die  Erwärmung  dehnt  sie  das  Material  aus,  und  obwohl  diese 
Ausdehnung  sehr  gering  ist,  können  winzige  Haarrisse  entstehen, 
die  dann  zum  Versagen  des  Gerätes  führen.  Diese  Haarrise  zu 
finden  ist  nur  mit  viel  Glück  möglich.  Glücklicherweise  ist  das 
im  C64  verwendete  Leiterplattenmaterial  von  sehr  guter  Qualität, 
so  daß  diese  Fehler  ausgesprochen  selten  sind. 

Eine  Ursache  für  sporadisch  auf tretende  Fehler  können  auch  die 
RAMs  sein.  Mit  dem  in  diesem  Kapitel  abgedruckten  Testpro- 
gramm ist  es  möglich,  das  gesamte  RAM  des  C64  zu  prüfen  und 
das  vermutlich  fehlerhafte  RAM-IC  anzuzeigen. 

Das  Herausnahmen  von  ICs 

Diese  Anleitung  gilt  nur  für  ICs,  die  gesockelt  sind.  Sollte  dies 
nicht  der  Fall  sein,  überlassen  Sie  diese  Arbeit  einem  Fachmann. 

Nehmen  Sie  einen  kleinen  Schraubenzieher,  und  schieben  Sie  ihn 
vorsichtig  unter  die  eine  der  kurzen  Seiten  des  ICs.  Drücken  Sie 
den  Schraubenzieher  nun  allmählich  nach  unten,  um  das  IC  an 
der  Stelle  etwas  aus  der  Fassung  zu  heben.  Genauso  verfahren 
Sie  an  der  anderen  Seite.  Achten  Sie  dabei  darauf,  daß  Sie  das 
IC  nicht  einseitig  zu  weit  anheben,  weil  dies  ein  Verbiegen  der 
noch  steckenden  Beinchen  auf  der  anderen  Seite  des  ICs  zur 
Folge  haben  könnte.  Wenn  Sie  das  IC  nun  so  weit  aus  der  Fas- 
sung gehoben  haben,  daß  Sie  es  mühelos  mit  Daumen  und  Zei- 
gefinger, die  die  beiden  Enden  des  ICs  halten,  herausziehen 
können,  dann  nehmen  Sie  es  an  beiden  Enden  gleichmäßig  zie- 
hend aus  der  Fassung  heraus. 
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Fassen  Sie  die  Beinchen  des  ICs  nicht  an,  weil  Sie  statisch  auf- 
geladen  sein  können,  was  eine  Zerstörung  des  ICs  zur  Folge  ha- 
ben könnte. 

Wie  stelle  ich  mir  meine  Tastatur  strammer? 

Dieser  kleine  Trick  ist  sehr  nützlich,  wenn  man  die  Tastatur  satt 
hat.  Alle  Tasten  des  C64  sind  mit  Federn  ausgestattet,  die  die 
Tasten  vom  Kontakt  auf  der  Tastaturplatine  wegdrücken.  Die 
Tasten  sind  auf  einem  kleinen  Stäbchen  festgesteckt.  Mit  Hilfe 
des  Schraubenziehers  kann  man  die  Tasten  vom  Keyboard  lösen. 

Man  schiebt  den  Schraubenzieher  unter  eine  Taste  und  drückt 
dann  vorsichtig  den  Schraubenzieher  nach  unten,  um  die  Taste 
aus  der  Halterung  zu  hebeln.  Gleichzeitig  zieht  man  die  Taste 
mit  Daumen  und  Zeigefinger  nach  oben.  Nachdem  Sie  die  Taste 
entfernt  haben,  nehmen  Sie  die  Feder  heraus,  die  ca.  1 cm  lang 
ist.  Sie  können  sie  jetzt  vorsichtig  auseinanderziehen.  Es  ist  nicht 
ratsam,  sie  länger  als  1.5  cm  zu  ziehen,  da  der  Anschlag  sonst  zu 
hart  wird. 

Nachdem  Sie  die  Feder  präpariert  haben,  setzen  Sie  sie  wieder 
auf  ihren  alten  Platz.  Dann  stecken  Sie  die  Taste  auf  den  Pin 
und  pressen  sie  nach  unten,  bis  sie  einrastet. 

Die  Taste  hat  nun  einen  härteren  Anschlag.  Am  besten  stellt 
man  sich  die  Tasten  härter,  die  am  meisten  benutzt  werden,  zum 
Beispiel  die  <Return>-,  <Run/Stop>-  und  <Restore>-Tasten. 

Wie  baue  ich  einen  RESET-Taster  ein? 

Bevor  wir  in  die  Praxis  übergehen,  wollen  wir  Ihnen  zuvor  erst 
die  Arbeitsweise  eines  RESET  erklären.  Beim  Auslösen  eines 
Hardware -RESET  geschieht  das  gleiche  wie  beim  Einschalten 
des  Computers.  Die  RESET-Leitung  des  Computers,  die  mit  den 
wichtigsten  Bauteilen  verbunden  ist,  wird  kurzzeitig  auf  Low 
(MASSE)  gelegt.  Daraufhin  springt  der  Prozessor  die  RESET- 
Routine,  deren  Vektor  in  Speicheradresse  SFFFC  und  $FFFD 
liegt,  an.  In  dieser  Routine  werden  die  wichtigsten  Bausteine  in- 
itialisiert, während  der  Speicherinhalt  zum  größten  Teil  erhalten 
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bleibt.  In  unserer  Anleitung  haben  wir  die  einfachste  Möglich- 
keit zum  Bau  eines  RESET-Tasters  gewählt.  Es  werden  die  Lei- 
tungen RESET  und  MASSE  des  User-Ports  per  Taster  miteinan- 
der verbunden.  Zum  Bau  benötigen  Sie  folgende  Bauteile:  Einen 
Taster  und  zwei  dünne  Kabel. 


Falls  Sie  nichts  an  Ihren  Computer  anlöten  wollen,  dann  besor- 
gen Sie  sich  noch  einen  User-Port-Stecker  und  löten  die  beiden 
Kabel  nicht  direkt  an  den  User-Port,  sondern  an  den  Stecker. 
Jetzt  löten  Sie  die  beiden  Kabelenden  an  Pin  1 und  3 des  User- 
Ports  oder  des  Steckers.  Drücken  Sie  nun  auf  den  Taster,  und  Sie 
werden  feststellen,  daß  Ihr  Rechner  einen  RESET  ausführt.  Den 
gleichen  Vorgang  können  Sie  auch  mit  SYS64738  vom  BASIC 
aus  erzielen. 


Das  Testprogramm 

Ans  Ende  dieses  Kapitels  haben  wir  noch  ein  kleines  Testpro- 
gramm gehängt,  mit  dessen  Hilfe  Sie  das  RAM,  den  Soundchip 
und  Ihren  Joystick  überprüfen  können.  Außerdem  enthält  es 
noch  ein  Testbild,  mit  dem  Sie  die  Farben  und  den  Kontrast 
Ihres  Fernsehers  oder  Monitors  einstellen  können.  Das  Progamm 
ist  in  Assembler  geschrieben  und  liegt  hier  als  BASIC-Lader  vor. 


5 N =49152 

10  READX : I FX=- 1 THEN30 
20  S=S+X:P0KEM,X:N=N+1:G0T0  10 

30  IF  S<> 124998  0R  N<>50359  THEN  PRINT"FEHLER  IN  DATAS":END 
40  SYS49152 

101  DATA  169,0, 141,32,208, 141 ,33,208,170, 169,5,141 , 134,2, 189,58, 192,32,2 
10 

102  DATA  255,232,201,0,208,245,32,62,241,240,251,201,49,208,3,76,154,192 

.201 

103  DATA  50,208,3,76,125,195.201.51.208,3,76,59,194,201,52,208,201,76,56 
,193 

104  DATA  147,13,32,32,32,32,32,32,32,67,72,69,67,75,80,82,79,71,82,65,77 
.77 

105  DATA  32,13,13.13,13,32,32,18,32,49,32,146,32,84,69,83,84,66,73,76,68 
.13 

106  DATA  13,32,32,18,32,50,32,146,32,83,79,85,78,68,13,13,32,32,18,32,51 
,32 

107  DATA  146,32,82,65,77,84,69,83,84, 13,13,32,32, 18,32,52,32, 146,32,74,7 
9 

108  DATA  89,83,84,73,67,75,13,13,0,169,147,32,210,255,160,28,162,0,189,2 
23 
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109  DATA 
55 

110  DATA 
240 

111  DATA 
5 

112  DATA 
2 

113  DATA 
2 

114  DATA 
29 

115  DATA 
65 

116  DATA 
245 

117  DATA 
.0 

118  DATA 
.189 

119  DATA 
3 

120  DATA 
208 

121  DATA 
.8 

122  DATA 
.41 

123  DATA 
41 

124  DATA 
9 

125  DATA 
32 

126  DATA 
69 

127  DATA 
84 

128  DATA 
57 

129  DATA 
0 

130  DATA 
8 

131  DATA 
195 

132  DATA 
1 

133  DATA 
0 

134  DATA 
.245 


192.32.210.255.232.201.0. 208.245.136.208.240.162.0.160.40.189.2 

192.32.210.255.136.208.250.232.224.20.208.240.162.0. 189.21.193, 
7,32,210,255,232,76,197,192,162,18,160,12,24,32,10,229,32,86,19 

76.0. 192.18.154.32.32.5.32.32.28.32.32.159.32.32.156.32.32.30.3 

32.31.32.32.158.32.32.152.32.32.153.32.32.0. 18.154.32.5.32.28.3 

159.32.156.32.30.32.31.32.158.32.152.32.153.32.0. 19.5.18.29.29, 
29,29,29,29,29,29,17,84,69,83,84,66,73,76,68,32,68,69,83,32,68, 

84.65.83.65.84.13.0. 162.0.189.211.193.32.210.255.232.201.0.208, 

162.13.160.16.24.32.240.255.162.0. 189.44.194.32.210.255.232.201 

208.245.162.13.160.16.24.32.240.255.162.0. 173.0.220.41.1.208.13 

9.194.32.210.255.232.201.0. 208.245.240.205.173.0.220.41.2.208.1 

189.16.194.32.210.255.232.201.0. 208.245.240.185.173.0.220.41.4, 

13.189.23.194.32.210.255.232.201.0. 208.245.240.165.173.0.220.41 

208.13.189.30.194.32.210.255.232.201.0. 208.245.240.25.173.0.220 

16.208.13.189.37.194.32.210.255.232.201.0. 208.245.240.5.32.62.2 

208.3.76.69.193.76.0. 192.147.13.83.84.69.67.75.69.78.32.83.73.6 
32,68,69,78,32,74,79,89,83,84,73,67,75,32,73,78,32,80,79,82,84, 

35.50.13.17.18.69.78.68.69.146.32.61.32.84.65.83.84.69.0. 79.66, 

78.32.32.0. 85.78.84.69.78.32.0.76.73.78.75.83.32.0.82.69.67.72, 

83.0. 70.69.85.69.82.32.0.32.32.32.32.32.32.32.157.157.157.157.1 

157.157.0. 120.162.0.189.7.195.32.210.255.232.201.0.208.245.162, 

181.0. 141.144.4.160.0.200.208.253.213.0.240.3.76.235.194.232.20 

236.162.0. 189.53.195.32.210.255.232.201.0.208.245.162.0.189.64, 

32.210.255.232.201.0. 208.245.162.0.189.0.1.160.0.200.208.253.14 

144.4.157.0. 1.221.0.1.208.93.232.208.234.162.0.189.53.195.32.21 

255.232.201.0. 208.245.162.0.189.75.195.32.210.255.232.201.0.208 
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135  DATA 
251 

136  DATA 
7 

137  DATA 
13 

138  DATA 
210 

139  DATA 
13 

140  DATA 
13 

141  DATA 
.32 

142  DATA 
.13 

143  DATA 
0 

144  DATA 
2 

145  DATA 
2 

146  DATA 
,157 

147  DATA 
.212 

148  DATA 
,157 

149  DATA 
0 

150  DATA 
0 

151  DATA 
157 

152  DATA 
2 

153  DATA 
6 

154  DATA 
7 

155  DATA 
,196 

156  DATA 
.7 

157  DATA 
.87 

158  DATA 
.69 

159  DATA 
,46 

160  DATA 
.-1 


120.169.48.133.1.162.0. 160.4.134.251.132.252.162.0.160.251.161, 
129,251,141,144,4,193,251,208,36,232,208,242,230,252,136,208,23 

169.55.133.1.162.0. 189.53.195.32.210.255.232.201.0.208.245.169, 

32.210.255.32.86.195.76.0. 192.169.55.133.1.162.0.189.40.195.32, 

255.232.201.0. 208.245.169.13.32.210.255.32.86.195.76.0.192.147, 
32,32,32,32,32,32,32,32,82,65,77,84,69,83,84,17,17,17,17,17,13, 

90.69.82.79.80.65.71.69.0. 32.32.32.32.32.32.70.69.72.76.69.82.0 

32.32.32.32.32.32.32.79.75.0. 13.13.83.84.65.80.69.76.32.32.0.13 

54.52.75.32.82.65.77.32.0. 162.0.189.105.195.32.210.255.232.201, 

208.245.32.62.241.240.251.96.18.17.17.17.84.65.83.84.69.32.68.8 

85.69.67.75.69.78.146.0. 32.68.229.162.0.134.124.169.8.133.125.3 

49.196.166.124.169.15.141.24.212.169.1.157.0. 212.133.126.169.22 
1,212,169,34,157,5,212,169,133,157,6,212,169,15,157,3,212,157,2 
6,125,32,2,196,165,125,9,1,166,124,157,4,212,32,232,195,165,125 
4,212,32,232,195,32,243,195,176,231,36,125,48,3,76,176,195,169, 

157.4.212.165.124.24.105.7.133.124.201.21.144.159.76.0. 192.160, 
162,5,136,208,253,202,208,250,96,166,124,230,126,165,126,240,5, 
1,212,56,96,24,96,32,87,196,169,32,36,125,112,14,48,17,208,5,16 
0,76,32,196,162,14,76,32,196,162,30,76,32,196,162,44,189,105,19 

240.7.32.210.255.232.76.32.196.169.13.76.210.255.32.68.229.32.9 
196,165,124,240,10,201,7,240,3,162,59,44,162,56,44,162,53,32,32 
162,62,32,32,196,169,13,32,210,255,76,210,255,56,32,240,255,160 
24,76,240,255,162,5,160,7,24,76,240,255,68,82,69,73,69,67,75,45 

69.76.76.69.0. 83.69.65.71.69.90.65.72.78.45.87.69.76.76.69.0.82 

67.72.69.67.75.45.87.69.76.76.69.0. 82.65.85.83.67.72.69.78.0.49 
0,50,46,0,51,46,0,32,32,84,79,78,71,69,78,69,82,65,84,79,82,0,9 
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1 0.  Die  Datasette  VC  1 530  - Tips  und  Tricks 


Die  Datasette  VC  1530  ist  ein  Gerät  zur  Speicherung  von  Daten 
auf  Magnetband.  Sie  funktioniert  wie  ein  Kassettenrekorder.  Im 
folgenden  werden  Tips  zu  deren  Handhabung  auf  geführt. 


10.1  Die  Befehle  zur  Datasetten-Handhabung 

Das  Commodore-BASIC  stellt  Ihnen  acht  Befehle  zum  Arbeiten 
mit  der  Datasette  zur  Verfügung: 


1.  SAVE 

2.  LOAD 

3.  VERIFY 

4.  OPEN 

5.  CLOSE 

6.  PRINT# 

7.  INPUT# 

8.  GET# 


Programme  speichern 
Programme  laden 

Programme  auf  Richtigkeit  überprüfen 

Eine  Datei  eröffnen 

Eine  Datei  schließen 

Einen  Ausdruck  senden 

Einen  Ausdruck  einiesen 

Ein  einzelnes  Byte  einiesen 


Im  folgenden  möchte  ich  die  Befehle  näher  beschreiben. 


10.1.1  SAVE 

Mit  diesem  Befehl  veranlassen . Sie  den  Computer,  das  im  Spei- 
cher befindliche  Programm  abzuspeichern.  Um  zu  wissen,  an 
welcher  Stelle  das  Programm  im  Speicher  steht,  gibt  es  in  Ihrem 
Rechner  einige  Speicherstellen,  in  denen  steht,  wo  das  Programm 
beginnt  und  wo  es  endet. 

Der  Rechner  legt  sich  nämlich  sofort  nach  dem  Einschalten  ein 
"Merkheft"  an.  Dieses  Heft  hat  vier  Seiten  (0  - 3),  sogenannte 
"Pages",  und  liegt  am  Anfang  des  ganzen  Speicherbereichs.  Je- 
weils 256  Speicherstellen  werden  aufgrund  der  prozessoreigenen 
Speicherverwaltung  zu  einer  Page  zusammengefaßt,  da  jede 
Speicherstelle  oder  auch  jedes  Byte  genau  256  (0  - 255)  ver- 
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schiedene  Werte  annehmen  kann.  In  der  nullten  Seite,  also  von  0 
bis  255,  merkt  sich  der  Rechner  die  Werte,  die  er  sehr  oft 
braucht. 

In  den  Stellen  43,  44  steht  immer  der  aktuelle  Start  des  BASIC- 
Speichers  und  in  45,  46  das  Ende  eines  BASIC-Programms. 
Schauen  Sie  doch  einmal  nach.  Geben  Sie  PRINT  PEEK  (43), 
PEEK  (44),  PEEK  (45),  PEEK  (46)  ein.  Auf  dem  Bildschirm 
erscheint  dann 


18  3 8 


wenn  Sie  kein  Programm  geladen  haben.  Da  der  Rechner  65.535 
Speicherstellen  hat,  werden  Adressen  immer  durch  2 Bytes  aus- 
gedrückt.  Das  erste  Byte,  das  LSB  (Last  Significant  Byte),  gibt 
die  Position  innerhalb  einer  Seite  an,  das  zweite,  das  MSB  (Most 
Significant  Byte),  die  Seitennummer.  Unser  BASIC-Bereich  fängt 
also  auf  Seite  8 an  der  ersten  Speicherstelle  an,  also  mit  der 
Speicherstelle  8*256+1  = 2.049. 

"Wieso  stehen  aber  in  den  Speicherstellen  45,  46  die  Werte  3 und 
8,  ich  habe  doch  gar  kein  Programm  im  Speicher  ?",  werden  Sie 
jetzt  fragen.  Das  hat  folgenden  Grund:  Damit  der  Rechner  weiß, 
wo  ein  BASIC-Programm  zu  Ende  ist,  hängt  er  immer  2 Nullen 
an  das  Ende,  um  es  zu  markieren.  Sie  haben  also  jetzt  ein  Pro- 
gramm im  Speicher,  welches  sozusagen  nur  aus  einer  Programm- 
endemarkierung besteht.  Sie  können  dies  leicht  überprüfen. 
Wenn  Sie 

PRIMI  PEEK  <PEEK(45)+PEEK(46)*256  -1) 

eingeben,  erhalten  Sie  0.  Geben  Sie  jetzt  einmal  eine  BASIC- 
Zeile  ein,  z.B. 

10  PRINT  “HALLO" 

und  schließen  Sie  die  Eingabe  mit  <Return>  ab.  Wenn  Sie  jetzt 
wie  oben  die  Inhalte  der  Speicherstellen  43,  44,  45,  46  auslesen, 
erhalten  Sie: 
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1816  8 

Der  Rechner  hat  Ihrem  Programm  entsprechend  die  Eintragun- 
gen in  seinem  Merkheft  geändert.  Nach  dieser  Exkursion  in  die 
Speicherverwaltung  kehren  wir  zum  SAVE-Befehl  zurück. 

Durch  diesen  Befehl  veranlassen  wir  also  den  Rechner,  alles,  was 
zwischen  den  eben  genannten  Zeigern  steht,  auf  Band  abzu- 
speichern. Dem  Computer  ist  es  dabei  egal,  ob  auf  dem  Band 
schon  etwas  abgespeichert  ist  oder  nicht.  Wie  bei  einem  norma- 
len Kassettenrekorder  wird  die  Kassette  einfach  überschrieben. 
Damit  Sie  aber  das  abgespeicherte  Programm  wieder  finden  kön- 
nen, haben  Sie  die  Möglichkeit,  dem  abzuspeichernden  Pro- 
gramm einen  Namen  zu  geben.  Die  Syntax  ist  dann  folgende: 

SAVE"NAME" 


Sie  haben  natürlich  auch  die  Möglichkeit,  den  String  "NAME" 
vorher  in  eine  String-Variable  einzulesen  und  ein  Programm  mit 
folgender  Syntax  abzuspeichern: 

) 

A$="NAME'' 

SAVEAS 

Diese  Möglichkeit  kann  wichtig  sein,  wenn  Sie  diesen  Befehl  in- 
nerhalb von  Programmen  nutzen.  Aber  darüber  finden  Sie  im 
Unterkapitel  10.4  mehr.  Nach  dem  Namen  haben  Sie  dann  noch 
die  Möglichkeit,  eine  Geräteadresse  und  eine  Sekundäradresse, 
jeweils  durch  Komma  getrennt,  folgen  zu  lassen.  Die  genaue  Be- 
deutung der  Sekundäradresse  finden  Sie  in  Unterkapitel  10.2 
beschrieben.  Die  Geräteadresse  sagt  dem  Computer,  welches 
Peripheriegerät  er  wählen  soll.  Sie  stellt  sozusagen  die  Haus- 
nummer der  verschiedenen  Geräte  dar.  Die  Hausnummer  der 
Datasette  ist  1,  die  einer  Diskettenstation  8 oder  9. 

Damit  Sie  aber  nicht  soviel  tippen  müssen,  ist  Ihr  Computer  so 
programmiert,  daß  er  immer  die  Datasette  auswählt,  wenn  keine 
Angabe  über  die  Geräteadresse  gemacht  wird. 
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10.1.2  LOAD 

Mit  diesem  Befehl  können  Sie  das  einmal  Abgespeicherte  wieder 
laden.  Geben  Sie  dem  Rechner  keinen  Namen  an,  lädt  er  das 
nächste  Programm,  welches  er  finden  kann.  Sie  können  bei  die- 
sem Befehl  genauso  wie  bei  SAVE  einen  Namen  angeben.  Auch 
können  Sie  hier  wieder  eine  Geräte-  und  Sekundäradresse  folgen 
lassen.  Hierfür  gilt  das  gleiche  wie  beim  SAVE-Befehl. 

Nach  jedem  LOAD-Befehl  im  Direktmodus  werden  vom  Rech- 
ner automatisch  die  Eintragungen  in  seinem  Merkheft  entspre- 
chend dem  geladenen  Programm  geändert.  Dies  ist  zu  beachten, 
wenn  Sie  Maschinenprogramme  laden.  Wenn  Sie  z.B.  ein  Maschi- 
nenprogramm laden,  das  am  Ende  des  BASIC-Speichers  liegt, 
werden  dementsprechend  auch  die  BASIC-Endvektoren  auf  das 
BASIC-RAM-Ende  gesetzt.  Eine  weitere  Eingabe  wird  danach 
mit  "?OUT  OF  MEMORY  ERROR"  vom  Rechner  kommentiert. 
Um  nun  weitere  Eingaben  machen  zu  können,  müssen  Sie  ent- 
weder in  die  Zeiger  45,46  den  alten  Wert  poken,  oder  Sie  geben 
einen  NEW-Befehl,  damit  das  im  BASIC-Speicher  befindliche 
Programm,  nicht  aber  das  Maschinenprogramm  gelöscht  wird. 

Sie  können  den  NEW-Befehl  umgehen,  wenn  Sie  das  Maschi- 
nenprogramm im  Programm-Modus  laden.  Näheres  lesen  Sie 
dazu  im  Unterkapitel  10.4. 


10.1.3  VERIFY 

Dieser  Befehl  arbeitet  ähnlich  wie  der  LOAD-Befehl.  Der  ein- 
zige Unterschied  ist,  daß  durch  diesen  Befehl  das  Programm 
nicht  in  den  Speicher  geschrieben  wird,  sondern  Byte  für  Byte 
mit  dem  im  Speicher  stehenden  verglichen  wird.  Dadurch  kön- 
nen Sie  testen,  ob  eine  Programmspeicherung  erfolgreich  war. 

War  die  Speicherung  erfolgreich  und  hat  auch  die  Kassette  kei- 
nen Fehler,  erscheint  OK  auf  dem  Bildschirm.  Wird  bei  dem 
Vergleich  ein  Fehler  festgestellt,  erhalten  Sie  die  Meldung 
"7VERIFY  ERROR". 
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10.1.4  OPEN 

Bis  jetzt  habe  ich  nur  über  das  Laden  und  Speichern  von  Pro- 
grammen geschrieben.  Sie  haben  aber  auch  die  Möglichkeit,  Da- 
ten zu  speichern  und  zu  laden.  Um  dem  Rechner  mitzuteilen, 
daß  Sie  Daten  laden  oder  speichern  wollen,  müssen  Sie  mit  dem 
OPEN-Befehl  eine  Datei  eröffnen. 

Mit  diesem  Befehl  teilen  Sie  dem  Computer  alle  Parameter  mit, 
die  er  benötigt,  nämlich  die  Gerätenummer,  den  File-Namen 
und  die  Sekundäradresse,  die  darüber  etwas  aussagt,  ob  geladen 
oder  gespeichert  werden  soll.  Um  eine  Datei  zu  eröffnen,  müs- 
sen Sie  folgenden  Befehl  eingeben: 

OPEN  lf, GA, SA, "NAME" 

Mit  "NAME"  können  Sie  der  Datei  wie  bei  SAVE  und  LOAD 
einen  Namen  geben. 

SA  steht  für  Sekundäradresse:  Über  diese  Zahl  teilen  Sie  dem 
Computer  mit,  ob  Sie  Daten  senden  (-  1)  oder  empfangen  (=  0) 
wollen.  Geben  Sie  eine  2 ein,  wird  nach  dem  Abspeichern  noch 
ein  EOT  (End  Of  Tape)  Block  geschrieben. 

GA  steht  für  Geräteadresse:  Diese  Zahl  sagt  dem  Rechner,  mit 
welchem  Gerät  er  arbeiten  soll.  Dabei  bedeutet 

0=  Tastatur 
1=  Kassette 
3=  Bildschirm 
4,5  = Drucker 
8,9  = Diskette 

"lf  steht  für  logische  File-Nummer:  Diese  Zahl,  sie  kann  zwi- 
schen 0 und  255  liegen,  stellt  den  Index  dieser  OPEN- Anwei- 
sung dar.  Damit  nicht  bei  jedem  Ein-  und  Ausgabebefehl  alle 
Parameter  mit  übergeben  werden  müssen,  legt  sich  der  Computer 
eine  Tabelle  an,  in  der  die  Parameter  der  OPEN-Anweisung 
unter  dieser  Indexnummer  abgelegt  sind.  Nachdem  wir  nun  eine 
Datei  eröffnet  haben,  kommen  wir  zu  den  Befehlen  der  Daten- 
ein- und  ausgabe. 
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10.1.5  PRINT#  und  CLOSE 

Mit  dem  PRINT#-Befehl  ist  es  möglich,  einzelne  Daten  auf 
Band  zu  schreiben.  Zur  besseren  Erklärung  geben  Sie  einmal 
folgendes  Programm  ein: 

10  OPEN  1,1,1, »DATEN- FI  LE" 

20  PRINT  "DATEI  UURDE  EROEFFNET" 

30  PR I NT : PR I NT"GEBEN  SIE  DATEN  EIN" 

40  INPUT "DATEN";A$ 

50  PRINT#1 ,A$ 

60  A=A+1 

70  PRINT  A "DATEN  UURDEN  ZWISCHENGESPEICHERT" 

80  PR1NT:PRINT"WEITERE  DATEN" 

90  GET  FS:  IF  FS  = ""  THEN  90 
100  IF  FS  = "J"  THEN  40 
110  CLOSEI 

120  PR I NT : PR I NT"DATE I UURDE  GESCHLOSSEN» 

130  END 

* 

Legen  Sie  nun  eine  leere  Kassette  in  Ihren  Rekorder  und  starten 
das  Programm  mit  RUN.  Es  erscheint  sofort  die  Meldung  PRESS 
RECORD  & PLAY  ON  TAPE.  Wenn  Sie  dieser  Meldung  Folge 
leisten,  wird  entsprechend  der  OPEN- Anweisung  in  Zeile  10  ein 
Dateikopf  auf  Band  geschrieben,  der  den  Namen  der  Datei  ent- 
hält. Danach  hält  der  Rekorder  an,  und  Sie  werden  durch  Zeile 
40  gebeten,  Daten  einzugeben. 

In  der  Zeile  50  wird  dann  durch  den  PRINT#-Befehl  der  einge- 
gebene String  dann  zwischengespeichert.  Die  Nummer  nach  der 
PRINT#-Anweisung,  es  ist  die  logische  File-Nummer,  stellt  den 
Bezug  zur  OPEN- Anweisung  her.  Daß  der  String  nicht  sofort 
auf  Band  geschrieben  wird,  können  Sie  daran  sehen,  daß  sich 
das  Band  noch  nicht  bewegt. 

Erst,  wenn  Sie  eine  ganze  Reihe  von  Daten  eingegeben  haben, 
setzt  sich  das  Band  in  Bewegung,  und  alle  bis  dahin  eingegebe- 
nen Daten  werden  auf  das  Band  übertragen.  Auf  den  Zwi- 
schenspeicher, es  handelt  sich  um  den  Kassettenpuffer,  werde 
ich  noch  im  Unterkapitel  10.5  genauer  eingehen.  Wenn  Sie  nun 
auf  die  Abfrage  in  Zeile  100  mit  "J"  antworten,  können  Sie 
weitere  Daten  eingeben.  Ist  der  Puffer  voll,  können  Sie  feststel- 
len, daß  eine  Pause  entsteht  und  sich  das  Band  kurzzeitig  be- 
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wegt.  Jetzt  wird  der  Puffer  auf  Band  geschrieben  und  daran 
anschließend  mit  "Space"  (CHR$(32))  beschrieben,  um  neue  Da- 
ten aufzunehmen. 

Wenn  Sie  die  Eingabe  beenden,  verzweigt  der  Rechner  zum 
CLOSE-Befehl  in  Zeile  110.  Die  Zahl  hinter  diesem  Befehl  ist 
wieder  eine  logische  File-Nummer  und  sagt  dem  Computer,  daß 
er  die  mit  der  logischen  File-Nummer  1 geöffnete  Datei  auch 
schließen  soll.  Das  macht  er,  indem  er  alle  Eintragungen,  die  er 
in  seinem  Merkheft  unter  dem  Index  1 notiert  hat,  löscht.  Der 
Rechner  schreibt  nun  hinter  die  letzte  Eintragung  ein  Null-Byte, 
um  das  Datenende  zu  kennzeichnen,  und  speichert  den  Puffer 
auf  Band.  Es  ist  also  sehr  wichtig,  eine  Datei  wieder  zu 
schließen,  da  sonst  die  letzten  Daten  verlorengehen. 

Bis  jetzt  haben  wir  nur  Strings  bzw.  den  Inhalt  von  String-Va- 
riablen abgespeichert.  Die  Frage  ist  nun:  "Wie  verarbeitet  der 
Rechner  numerische  Ausdrücke  und  Variablen?"  Solche  Aus- 
drücke werden  abgespeichert,  als  wären  es  Strings.  D.h.,  der 
Rechner  führt  bei  jedem  PRINT#-Befehl  automatisch  einen 
STR$-Befehl  durch.  Es  ist  also  das  gleiche,  ob  Sie 

PRINT#1,55  oder 

A$=STR$(55):PRINT#1,A$ 

schreiben.  Aus  diesem  Grund  können  Sie  später  jeden  numerisch 
abgespeicherten  Wert  auch  in  eine  String-Variable  einiesen.  Eine 
weitere,  wichtige  Sache  ist  das  Format  einer  PRINT#-Anwei- 
sung,  wenn  Sie  mit  einer  Anweisung  mehrere  Ausdrücke  ab- 
speichern wollen.  Auf  dieses  Problem  möchte  ich  aber  zum  bes- 
seren Verständnis  erst  nach  der  Beschreibung  INPUT#-Befehls 
kommen. 


10.1.6  INPUT# 

Dieser  Befehl  verhält  sich  vollkommen  analog  zum  "normalen" 
INPUT-Befehl,  nur  daß  hier  nicht  die  Tastatur  als  festes  Emp- 
fangsgerät voreingestellt  ist.  Wenn  Sie  z.B.  mit 
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OPEN 1,0 

(0=Tastatur)  die  Tastatur  als  Sender  definieren,  verhält  sich  IN- 
PUT#1,A$  genauso  wie  INPUT A$,  mit  dem  kleinen  Unter- 
schied, daß  kein  Fragezeichen  ausgedruckt  wird.  Wie  sich  nun 
INPUT#  in  Hinsicht  auf  den  Kassettenrekorder  verhält,  sehen 
wir  uns  am  besten  wieder  mit  einem  kleinen  Beispielprogramm 
an.  Spulen  Sie  Ihre  Kassette  zu  dem  Punkt  zurück,  wo  Sie  die 
Datei  DATEN-FILE  abgespeichert  haben,  und  geben  Sie  folgen- 
des Programm  ein: 

10  OPEN  1,1,0, "DATEN-FILE" 

20  PRINT  "DATEI  WURDE  EROEFFNET" 

30  PRINT: PR INT"DATEN  WERDEN  EINGELESEN" 

40  INPUT#1 ,A$ 

50  PRINTAS 
60  A=A+1 

70  PRINT  A"DATEN  WURDEN  EINGELESEN" 

80  PR I NT : PR I NT"WE I TERE  DATEN" 

90  GET  FS:  IF  F$  = ••"  THEN  90 
100  IF  F$  = "J"  THEN  40 
110  CLOSEI 

120  PRINT :PRINT"DATEI  WURDE  GESCHLOSSEN" 

130  END 


Wenn  Sie  nun  das  Programm  starten  und  laut  Anweisung  die 
<Play>-Taste  drücken,  sehen  Sie,  daß  das  Band  einige  Zeit  läuft 
und  dann  anhält.  Ihr  Rechner  hat  nun  aufgrund  des  OPEN- Be- 
fehls die  Datei  "DATEN-FILE"  gesucht  und  dann  aufgrund  des 
INPUT#-Befehls  in  Zeile  40  den  ersten  Datenblock  eingelesen 
und  den  ersten  String  der  Variablen  A$  übergeben,  die  über 
Zeile  50  auf  dem  Bildschirm  angezeigt  wird. 

Die  einzelnen  Daten  stehen  jetzt  genauso  im  Puffer,  wie  Sie  sie 
beim  Abspeichern  hereingeschrieben  haben.  Hinter  jedem  String 
steht  aufgrund  der  PRINT#-Anweisung  ein  "CARRIAGE  RE- 
TURN" (CHR$(13)),  also  ein  Zeilenvorschub.  Der  PRINT#-Be- 
fehl  schreibt  die  Daten  genauso  in  den  Puffer,  wie  ein  PRINT- 
Befehl  sie  auf  den  Bildschirm  schreiben  würde.  Der  INPUT#- 
Befehl  erkennt  genauso  wie  der  INPUT-Befehl  durch  ein 
Komma  oder  <Return>,  daß  hier  der  Ausdruck  zu  Ende  ist. 

Byte  0123456789  10  11  .. .27  28  29  30  31 

Inhalt  STR  1 CR  S T R 2 CR  S T ...R  5 CR  00 
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Beantworten  Sie  jetzt  die  Frage,  ob  weitere  Daten  eingelesen 
werden  sollen.  Bei  unserem  Beispielprogramm  geben  Sie  "J"  ein. 
Jetzt  können  Sie  String  für  String  wieder  einiesen  und  auf  dem 
Bildschirm  ausdrucken  lassen,  bis  Sie  die  Meldung  erhalten 
"7STRING  TOO  LONG  ERROR". 

Diese  Meldung  erhalten  Sie,  weil  Sie  inzwischen  den  letzten,  ab- 
gespeicherten String  eingelesen  haben  und  nun  versuchen,  einen 
weiteren  einzulesen.  Der  Computer  sucht  das  Ende  des  Strings, 
also  ein  Komma  oder  "CARRIAGE  RETURN"  (kurz  CR),  findet 
aber  in  den  nächsten  folgenden  80  Speicherstellen  keins.  (Sie 
können  maximal  80  Zeichen  mit  einer  INPUT-  bzw.  INPUT#- 
Anweisung  einiesen.)  Daraus  schließt  der  Computer,  daß  hier  ein 
String  länger  als  80  Zeichen  vorliegt  und  gibt  die  Fehlermeldung 
aus. 

Damit  Sie  aber  nicht  bei  einem  "normalen"  Dateiprogramm  im- 
mer diese  Fehlermeldung  bekommen,  gibt  es  eine  Möglichkeit, 
das  Dateiende  mit  Hilfe  der  Statusvariablen  zu  erkennen.  Wie  Sie 
das  programmieren  müssen,  finden  Sie  im  Unterkapitel  10.3. 
Diese  Fehlermeldung  erhalten  Sie  aber  nicht  nur,  wenn  Sie  über 
das  Dateiende  hinaus  zu  lesen  versuchen,  sondern  auch  dann, 
wenn  die  Daten  in  einem  falschen  Format  abgespeichert  wurden. 

Bei  der  Besprechung  des  PRINT#-Befehls  haben  wir  immer  nur 
einen  Ausdruck  pro  PRINT#-Anweisung  abgespeichert,  was  zur 
Folge  hatte,  daß  automatisch  immer  ein  CR  angehängt  wurde.  Es 
ist  aber  auch  möglich,  mehrere  Ausdrücke  mit  einer  PRINT#- 
Anweisung  abzuspeichern.  Dabei  muß  aber  darauf  geachtet  wer- 
den, daß  die  einzelnen  Ausdrücke  voneinander  getrennt  werden. 
Schreiben  Sie  z.B. 

PRINT#1,A$,B$ 

mit  A$="STRING1"  und  B$="STRING2",  werden  die  beiden 
Ausdrücke  genauso  in  den  Puffer  geschrieben,  wie  sie  mit  einer 
PRINT- Anweisung  auf  den  Bildschirm  geschrieben  würden, 
nämlich 
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Byte  0 1 2 3 4 5 6 7 8 9 10  11  12  13  H 15  16  17 

Inhalt  S TR1NG1STR1NG2CR 

Wenn  Sie  aber  folgende  Anweisungen  geben: 
t$=v 

PRINT#1,A$;T$;B$ 
erhalten  Sie 

Byte  0 1 2 3 4 5 6 7 8 9 10  11  12  13  14  15  16  17 

Inhalt  STRING1  , S T R I N G 2 CR 

Jetzt  sind  die  Strings  eindeutig  voneinander  getrennt  und  werden 
von  einer  INPUT#  1,A$,B$- Anweisung  richtig  eingelesen.  Auf 
eine  beachtenswerte  Besonderheit  muß  ich  aber  noch  hinweisen. 
Das  Komma  reicht  zwar  aus,  um  die  Daten  für  eine  eindeutige 
Variablenzuweisung  mit  INPUT#  zu  gewährleisten,  aber  es 

reicht  nicht  aus,  dem  Computer  zu  sagen,  daß  hier  eine  Eintra- 
gung zu  Ende  ist  und  daß  ab  dem  nächsten  Byte  eine  neue  be- 
ginnt. Das  klingt  zwar  sehr  ähnlich,  ist  es  aber  nicht.  Deshalb 
möchte  ich  im  folgenden  etwas  näher  darauf  eingehen. 

Man  kann  den  Computer  mit  einer  großen  Firma  mit  vielen 
Abteilungen  vergleichen.  Das  Verarbeiten  von  Daten  beim  Lesen 
und  Schreiben  überläßt  er  zwei  Abteilungen. 

1.  Abteilung  - Variablenverarbeitung 

Diese  Abteilung  sorgt  dafür,  daß  ein  Ausdruck,  der  irgendwo  im 
Speicher  steht  (Kassettenpuffer,  Bildschirmspeicher,  Programm 
etc.),  der  richtigen  Variablen  im  richtigen  Format  zugeordnet 
wird. 

2.  Abteilung  - Speicherplatzverwaltung 

Diese  Abteilung  sagt  der  ersten  Abteilung  immer,  ab  welchem 
Speicherplatz  der  für  sie  interessante  Ausdruck  steht.  Jede  der 
beiden  Abteilung  hat  nun  ihre  eigene  Art,  das  Ende  eines  Aus- 
drucks und  somit  den  Beginn  eines  neuen  zu  suchen.  Der  ersten 
Abteilung  ist  es  egal,  ob  sie  ein  Komma  oder  einen  CR  findet. 
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Bei  beiden  weiß  sie,  daß  hier  ein  Ausdruck  zu  Ende  ist  und  da- 
nach ein  neuer  beginnt.  Die  zweite  Abteilung  kümmert  sich  um 
das  Komma  überhaupt  nicht.  Sie  erkennt  nur  den  CR  als  Tren- 
nungszeichen an.  D.h.,  sie  gibt  als  Startpunkt  für  einen  neuen 
Ausdruck  immer  die  Stelle  nach  einem  CR  an. 


Am  besten  veranschaulicht  man  sich  das  mit  einem  kleinen  Bei- 
spielprogramm. Geben  Sie  einmal  die  folgenden  Zeilen  ein,  legen 
eine  Leerkassette  in  Ihren  Rekorder  und  starten  das  Programm 
mit  RUN. 

10  0PEN1, 1,1, "TEST" 

20  TS="," 

30  Al$s"STRING1"  : A2S=»STRING2" 

40  A3S="STRING3"  : A4$-"STRING4" 

50  PRINT#1,A1S;TS;A2S;TS;A3S 
60  PRINT#1,A4S 
70  CLOSEI 
80  END 

100  0PEN1, 1,0, "TEST" 

110  INPUT#1,AS 
120  PRINT  AS 
130  INPUT#1 ,A$ 

140  PRINT  AS 
150  CLOSE  1 
160  END 


Nachdem  die  Datei  TEST  abgespeichert  wurde,  spulen  Sie  Ihre 
Kassette  an  den  Start  der  Datei  zurück  und  starten  das  Pro- 
gramm mit  RUN  100.  Wenn  der  Rechner  die  Datei  eingelesen 
hat,  stehen  die  Strings  folgendermaßen  im  Speicher: 

0 1 2 3 4 5 6 7 8 9 10  11  12  13  14  15  16  17  18  19 
STRING1.STRING2.STRI 

20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35 
NG3CRSTR  I N G 4 CR  00 


Auf  dem  Bildschirm  erhalten  Sie: 


STR I NGl 
STRING4 


Abteilung  zwei  hat  beim  ersten  INPUT#  seinen  Zeiger  auf  den 
ersten  String  gesetzt,  und  Abteilung  eins  hat  ihn  dann  A$  zuge- 
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ordnet.  Da  keine  weiteren  Ausdrücke  bei  dieser  INPUT#-An- 
weisung  eingelesen  werden  sollen,  wird  die  Ausführung  wieder 
an  Abteilung  zwei  übergeben.  Bei  der  nächsten  INPUT#-An- 
weisung  sucht  Abteilung  zwei  das  nächste  CR  und  findet  es  vor 
STRING4.  Diesen  Startpunkt  übergibt  sie  der  Abteilung  eins, 
welche  den  Ausdruck  "STRING4"  wiederum  A$  zuweist.  Ändern 
Sie  jetzt  einmal  Zeile  110  und  120,  indem  Sie  H,B$,C$"  anhän- 
gen.  Wenn  Sie  nun  die  Datei  erneut  einiesen,  erhalten  Sie  auf 
dem  Bildschirm: 

STRING1  STRING2  STRING3 

STRING4 

Jetzt  weist  Abteilung  eins  in  Zeile  110  erst  die  beiden  folgenden 
Ausdrücke  den  Variablen  B$  und  C$  zu,  ehe  sie  das  Kommando 
an  Abteilung  zwei  zurückgibt. 

Kurz: 

Der  Zeiger  der  Abteilung  eins  wird  durch  jede  Variablenzuwei- 
sung auf  das  nächste  Trennungszeichen  gesetzt  (Komma  oder 
CR).  Der  Zeiger  der  Abteilung  zwei  wird  durch  jede  INPUT#- 
Anweisung  auf  das  nächste  Trennungszeichen  gesetzt  (CR). 

Zusammenfassend  kann  man  also  sagen,  daß  ein  Komma  so 
lange  als  Trennung  ausreicht,  wie  Sie  die  Daten  im  gleichen 
Format  einiesen,  wie  Sie  sie  abgespeichert  haben.  Wollen  Sie 
aber  beim  Einlesen  frei  sein  vom  Eingabeformat,  dann  definie- 
ren Sie  den  Trennungs-String  mit  CR. 

20  T$=CHR$(13) 

Bei  so  abgespeicherten  Daten  erhalten  Sie  immer  das  gleiche  Er- 
gebnis, egal,  ob  Sie  mit  einer  INPUT#-Anweisung  eine  oder 
mehrere  Variablen  einiesen.  Bis  jetzt  habe  ich  nur  über  die 
Trennung  von  einzelnen  Ausdrücken  geschrieben.  Bei  manchen 
Anwendungen  kann  es  aber  sinnvoll  sein,  einzelne  Ausdrücke 
nicht  zu  trennen.  Dies  erreicht  man  wie  bei  dem  PRINT-Befehl 
auf  dem  Bildschirm  dadurch,  daß  man  eine  PRINT#-Anweisung 
mit  einem  Semikolon  abschließt.  Probieren  Sie  es  einmal  mit 
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dem  kleinen  Testprogramm  von  oben.  Ändern  Sie  die  Zeilen  fol- 
gendermaßen ab: 

10  0PEN1 ,1,1,  ,,TEST2" 

50  PRINT#1 ,A1$;A2$;A3$; 

100  0PEN1 ,1 ,0,"TEST2" 

Löschen  Sie  Zeile  130  und  140.  Wenn  Sie  mit  RUN  die  Datei 
TEST2  abspeichern  und  sie  mit  RUN  100  einladen,  erhalten  Sie: 

STR I NGl STR I NG2STR I NG3STR 1 NG4 

Ergeben  sich  aber  durch  die  Aneinanderreihung  Strings,  die  län- 
ger als  80  Zeichen  sind,  können  Sie  sie  nicht  mehr  mit  der  IN- 
PUT#-Anweisung  einiesen.  Solche  Strings  können  Sie  dann  nur 
noch  Byte  für  Byte  mit  der  GET#- Anweisung  einiesen. 


10.1.7  GET# 

Auch  dieser  Befehl  arbeitet  vollkommen  analog  dem  GET-Be- 
fehl.  Mit  ihm  können  Sie  byteweise  Daten  einiesen.  Geben  Sie 
einmal  folgendes  Programm  ein: 

10  0PEN1, 1,0, "TEST" 

20  GET#1,A$ 

30  PRINTAS; 

40  GETAS:  IF  A$=""  THEN  40 
50  GOTO20 

Spulen  Sie  nun  zum  Beginn  der  Datei  TEST  zurück,  und  starten 
Sie  das  Programm.  Nachdem  der  Computer  die  Datei  gefunden 
hat,  erscheint  buchstabenweise  folgendes  Bild: 

STR I NGl  STRING2  STRING3 

STRING4 

Wenn  nun  noch  weitere  Zeichen  eingelesen  werden,  können  Sie 
keine  Veränderung  auf  dem  Bildschirm  erkennen,  da  der  Puffer 
mit  "SPACE"  auf gefüllt  ist.  Durch  folgendes  Programm  können 
Sie  die  Zeichen  sichtbar  machen: 


30  PRINT  A$,ASC(A$+CHR$(0)) 
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Dadurch  erreichen  Sie,  daß  jedes  Zeichen  als  Buchstabe  und 
ASCII-Wert  ausgedruckt  wird.  Trifft  die  GET#-Anweisung  auf 
ein  Null-Byte,  wird  es  als  Leer-String  interpretiert.  Damit  bei 
der  Umwandlung  in  den  ASCII-Code  dadurch  keine  Fehlermel- 
dung ausgelöst  wird,  wird  zu  A$  immer  CHR$(0)  addiert.  Spulen 
Sie  nun  zurück  und  starten  das  Programm  erneut.  Auf  Ihrem 
Bildschirm  erscheint  nun  folgendes: 


S83 

T84 

R82 

176 

N78 

G71 

149 

44 

S83 


N78 

G71 

452 

13 

0 

32 


Die  Null  nach  STRING4  ist  die  Kennzeichnung  für  das  Datei- 
ende. Danach  folgt  nur  noch  "SPACE". 


10.2  Die  Sekundäradresse 

Wie  ich  schon  im  ersten  Unterkapitel  geschrieben  habe,  gibt  es 
neben  der  Geräteadresse  auch  noch  eine  Sekundäradresse.  Diese 
Adresse  wird  allgemein  dazu  benutzt,  dem  Peripheriegerät  oder 
dem  Computer  als  Empfänger  eine  weitere  Anweisung  zur  Be- 
triebsart zu  übermitteln. 

Vorweg  möchte  ich  noch  ein  paar  grundlegende  Bemerkungen 
über  die  zwei  verschiedenen  Programmarten  machen.  Zum  einem 
gibt  es  BASIC-Programme.  Diese  Programme  sind  nicht  abhän- 
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gig  davon,  in  welchem  Speicherbereich  sie  stehen,  sie  sind  ver- 
schiebbar. Damit  diese  Programme  auch  immer  an  den  Anfang 
des  BASIC-Bereichs  geladen  werden,  besitzt  der  C64  einen  sog. 
"Relativlader",  der  automatisch  alle  BASIC -Programme  an  den 
BASIC-Start  einliest. 

Die  andere  Programmart  ist  das  Maschinenprogramm.  Diese  Art 
von  Programmen  läuft  nur  in  dem  Speicherbereich,  für  den  sie 
geschrieben  wurde.  Maschinenprogramme  dürfen  nicht  relativ 
geladen  werden.  Um  BASIC -Programme  von  Maschinenpro- 
grammen unterscheiden  zu  können,  wird  die  Sekundäradresse  bei 
der  Kassettenhandhabung  benutzt.  Im  einzelnen  bewirken  die 
Sekundäradressen  folgendes: 

I.  SAVE 

0 Das  abgespeicherte  Programm  wird  als  BASIC-Programm  ge- 
kennzeichnet. Dadurch  wird  erreicht,  daß  dieses  Programm 
mit  dem  Befehl  LOAD  automatisch  an  den  gerade  aktuellen 
BASIC-Start,  also  relativ,  geladen  wird. 

1 Sie  kennzeichnet  ein  Programm  als  Maschinenprogramm. 
Wenn  Sie  ein  so  gespeichertes  Programm  mit  LOAD  laden, 
wird  es  automatisch  an  die  Adresse  geladen,  von  welcher  es 
abgespeichert  wurde. 

2 Sie  speichert  ein  Programm  als  BASIC-Programm  ab  wie  mit 
der  Sekundäradresse  0.  Zusätzlich  schreibt  der  Rechner  hin- 
ter das  Programm  noch  einen  sog.  EOT  (End  Of  Tape)- 
Block.  Dieser  Block  sagt  dem  Rechner  beim  Lesen,  daß  er 
hier  mit  der  Suche  nach  weiteren  Programmen  aufhören  soll. 
Trifft  der  Computer  beim  Suchen  eines  Programms  auf  solch 
einen  Block,  ohne  vorher  ein  Programm  gefunden  zu  haben, 
so  gibt  er  die  Meldung  ?FILE  NOT  FOUND  ERROR  aus. 

3 Sie  kennzeichnet  ein  Programm  als  Maschinenprogramm  und 
schreibt  einen  EOT- Block  dahinter. 

II.  LOAD 

Bei  dem  Befehl  LOAD  hat  die  Sekundäradresse  folgende  Be- 
deutung: 
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1 Das  Programm  wird  entsprechend  der  Information  geladen, 
die  im  Programmkopf  steht.  D.h.,  als  Maschinenprogramme 
gespeicherte  Programme  werden  auch  als  solche  geladen.  Das 
gilt  auch  für  BASIC-Programme,  sie  werden  relativ  geladen. 

2 Jedes  Programm,  egal,  wie  es  gekennzeichnet  wurde,  wird 
absolut,  also  an  die  Adresse  geladen,  von  welcher  es  abge- 
speichert wurde. 

Beim  OPEN-Befehl  gibt  es  folgende  Sekundäradressen: 

III.  OPEN 

0 Sie  öffnet  eine  Datei  zum  Lesen. 

1 Sie  öffnet  eine  Datei  zum  Schreiben. 

2 Sie  öffnet  eine  Datei  zum  Schreiben  und  schreibt  einen 
EOT-Block  hinter  die  Datei. 


10.3  Die  Statusvariable 

Wie  ich  schon  in  den  vorausgegagenen  Unterkapiteln  erwähnt 
habe,  gibt  es  in  Ihrem  Commodore  eine  festdefinierte  Variable, 
die  Ihnen  Auskunft  über  den  Verlauf  einer  Kassettenoperation 
gibt.  Diese  sog.  "Statusvariable  ST"  wird  vom  Computer  bei  je- 
dem Zugriff  auf  Kassette  oder  andere  Peripherigeräte  gesetzt. 
Mit  ihr  haben  Sie  die  Möglichkeit,  eventuell  auf  getretene  Fehler 
genauer  zu  spezifizieren.  Weiterhin  können  Sie  mit  ihr  feststel- 
len, wann  eine  Datei  zu  Ende  ist. 

Diese  Variable  besteht  aus  acht  einzelnen  "Flags",  die  entspre- 
chend den  aufgetretenen  Fehlern  gesetzt  werden.  Mit  Hilfe  einer 
AND- Verknüpfung  können  Sie  jedes  einzelne  Bit  dieser  Va- 
riable testen.  Aus  der  Tabelle  1 können  Sie  die  genaue  Bedeu- 
tung der  einzelnen  Flags  entnehmen. 

Um  das  vierte  Bit  der  Statusvariablen  zu  verstehen,  muß  man 
wissen,  daß  der  Computer  alle  Daten  und  Programme  zweimal 
auf  Band  schreibt  und  beim  Einlesen  beide  Versionen  miteinan- 
der vergleicht. 


Die  Datasette  VC  1530  - Tips  und  Tricks 


783 


Tabelle  1 


ST-Btt 

ST-Dez.- 

Bedeutung 

Äquivalent 

0 

1 

Keine  Bedeutung  für  die  Kassette 

1 

2 

— 

■ 

4 

Kurzer  Block.  Ein  gefundener  Block  ist  kürzer, 
als  er  sein  müßte. 

H 

8 

Langer  Block.  Ein  gefundener  Block  ist  länger, 
als  er  sein  müßte. 

■ 

16 

Second-Pass-Fehler.  Die  Daten  des  ersten  Pass 
stimmen  nicht  mit  denen  des  zweiten  überein. 

■ 

32 

Prüfsummenfehler.  Die  abgespeicherte  Prüfsumme 
stimmt  nicht  mit  der  errechneten  überein. 

64 

File-Ende 

128 

Bandende.  EOT  wurde  gelesen. 

Wie  können  Sie  jetzt  diese  Variable  in  Ihren  Programmen  ver- 
wenden? Wie  Sie  aus  der  Tabelle  entnehmen  können,  gibt  das  6. 
Bit  darüber  Auskunft,  ob  eine  Datei  zu  Ende  ist.  Wenn  Sie  also 
innerhalb  Ihres  Programms  Bit  sechs  abfragen,  können  Sie  das 
Einlesen  nach  dem  letzten  String  beenden.  Geben  Sie  einmal  fol- 
gendes Programm  ein,  und  lesen  Sie  damit  die  im  Unterkapitel 
10.1  angelegte  Datei  ein.  Nachdem  "STRING4"  ausgedruckt 
wurde,  erscheinen  READY  und  der  Cursor. 

10  OPENI ,1,0,  "TEST*1 
20  INPUT#1,A$ 

30  PRINT  A$ 

40  IF(ST  AND  64)  = 64  THEN60 
50  GOTO20 
60  CLOSEI 
70  END 


10.3.1  Programme  retten  nach  LOAD  ERROR 

Ihnen  ist  es  bestimmt  schon  passiert,  daß  sich  Ihr  Computer 
nach  dem  Ladevorgang  mit  "?LOAD  ERROR"  meldete  und  das 
geladene  Programm  gar  nicht  oder  nur  teilweise  eingelesen 
wurde.  Die  Ursache  dafür  ist  meistens,  daß  die  Position  des 
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Tonkopfes  relativ  zum  Band  beim  Schreiben  eine  andere  war  als 
beim  Lesen.  Abhilfe  schafft  da  nur  eine  neue  Justierung  des 
Tonkopfes,  wie  sie  im  Unterkapitel  10.9.5  beschrieben  wird. 

Läßt  sich  das  Programm  nach  neuer  Tonkopfeinstellung  immer 
noch  nicht  laden,  liegt  der  Fehler  am  Band  oder  an  einer  fehler- 
haften Speicherung  des  Programms.  Sie  brauchen  aber  nicht  zu 
verzweifeln.  Unter  bestimmten  Bedingungen  ist  es  möglich,  das 
Programm  zumindest  teilweise  zu  retten.  Wenn  Sie  mit  Ihrem 
Computer  ein  Programm  abspeichern,  wird  es  zweimal  hinter- 
einander auf  Band  geschrieben.  Beim  Einlesen  wird  die  erste 
Version  in  den  Speicher  geladen  und  dann  mit  der  zweiten  verg- 
lichen. Stellt  der  Rechner  dabei  einen  Fehler  fest,  versucht  er 
erst  diesen  Fehler  zu  korrigieren.  Ist  das  nicht  möglich,  setzt  er 
Bit  vier  in  der  Statusvariablen  und  gibt  ein  ?LOAD  ERROR  aus. 

Es  kann  auch  sein,  daß  er  einzelne  Bits  oder  Byte-Kennzeich- 
nung nicht  lesen  kann,  was  die  Synchronisation  zwischen  Lese- 
routine und  eingelesener  Information  "außer  Tritt"  bringt.  Das 
hat  zur  Folge,  daß  die  Bits  zwei  und/oder  drei  gesetzt  werden. 
Jeder  auf getretene  Fehler  führt  dazu,  daß  die  BASIC- Vektoren 
45  und  46  (Programmende)  nicht  entsprechend  gesetzt  werden. 

Falls  der  Fehler  erst  gegen  Ende  des  Programms  oder  erst  im 
zweiten  Pass  auf  getreten  ist,  können  Sie  das  Programm  ganz  oder 
zumindest  teilweilse  listen.  Diesen  listbaren  Teil  können  Sie  mit 
einem  UNNEW-Befehl  retten.  Dies  ist  ein  Befehl,  der  nicht  im 
Commodore-BASIC  2.0  enthalten  ist.  Besitzen  Sie  keine  BASIC- 
Erweiterung,  die  diesen  Befehl  enthält,  können  Sie  das  am  Ende 
dieses  Unterkapitels  abgedruckte  Programm  eingeben.  Falls  Sie 
kein  Monitorprogramm  haben,  geben  Sie  es  mit  dem  BASIC-La- 
der  ein  und  speichern  es  ab.  Danach  starten  Sie  den  Lader.  Nun 
können  Sie  das  Maschinenprogramm  von  der  angezeigten 
Startadresse  bis  zum  BASIC-RAM-Ende  abspeichern.  Das  so  ab- 
gespeicherte Maschinenprogramm  können  Sie  nun  bei  Bedarf 
einfach  mit  LOAD  zuladen  und  mit  SYS(Startadresse)  starten, 
um  entweder  ein  gelöschtes  Programm  wieder  ins  Leben  zu  ru- 
fen oder  ein  nur  fehlerhaft  ladbares  Programm  zumindest  teil- 
weise zu  retten. 
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Nachdem  Sie  mit  dem  UNNEW-Befehl  die  Programmendevek- 
toren gesetzt  haben,  speichern  Sie  es  auf  einer  anderen  Kassette 
ab.  Nun  kommt  der  schwierigste  Teil.  Jetzt  müssen  Sie  feststel- 
len, wo  das  Programm  beschädigt  ist.  Das  geschieht  auf  die 
gleiche  Weise,  wie  Sie  ein  anderes  BASIC- Programm  auf  Fehler 
untersuchen. 


Wie  schon  anfangs  bemerkt,  ist  der  häufigste  Grund  für  einen 
?LOAD  ERROR  ein  dejustierter  Kopf.  Darum  sollten  Sie  als 
erstes  immer  versuchen,  den  Tonkopf  besser  auf  das  Band  zu 
justieren  und  ggf.  die  oben  beschriebene  Prozedur  mit  verschie- 
denen Tonkopfeinstellungen  zu  wiederholen,  bis  Sie  ein  mög- 
lichst wenig  beschädigtes  Programm  laden  können. 


100  REN  UNNEW  64 

110  PS=0:E=256*PEEK(55)-1:A=E-51 

120  FOR  I=A  TO  E:READ  X:PS=PS+X:POKE  I,X:NEXT 

130  IF  PS  <>  5274  THEN  PRINT"DATA  ERROR": END 

140  H=INT<A/256):POKE  56,H:POKE  55,A-256*H 

150  PB  I MTNCTABT&nBP^Fk  • I • kIFU 

160  DATA  165,43, 164,44, 133,34,132,35,160,3,200,177,34,208,251,200,152,24 

,101 

170  DATA  34, 160,m0, 145,43, 165, 35, 105, 0,200, 145, 43, 32, 51, 165, 165, 34, 105,2 
.133 

180  DATA  45,165,35,105,0,133,46,32,99,166,76,123,227 


10.4  Laden  und  Speichern  vom  Programm  aus 

Bei  der  Behandlung  der  Befehle  SAVE  und  LOAD  im  Unterka- 
pitel 10.1  habe  ich  beschrieben,  wie  man  Programme  im  Direkt- 
modus abspeichert  und  lädt.  Diese  Befehle  können  aber  auch  in- 
nerhalb von  Programmen  stehen. 

Der  SAVE-Befehl  arbeitet  innerhalb  von  Programmen  genauso 
wie  im  Direktmodus.  Es  ist  somit  möglich,  ein  Programm  sich 
auch  selber  abspeichern  zu  lassen.  Diese  Möglichkeit  werden  Sie 
wahrscheinlich  aber  nur  selten  nutzen.  Weit  häufiger  möchte 
man  nur  einen  Teil  eines  BASIC-Programms  oder  ein  Maschi- 
nenprogramm abspeichern. 
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Stellen  Sie  sich  vor.  Sie  haben  ein  Programm  geschrieben,  das  ab 
Zeile  10.000  Datazeilen  generiert.  Diesen  Programmteil  wollen 
Sie  alleine  abspeichern,  um  ihn  dann  an  andere  Programme  an- 
hängen  zu  können.  Sie  müssen  als  erstes  feststellen,  ab  welcher 
Speicherstelle  die  Zeile  10.000  im  Speicher  steht,  da  Sie  ja  nur 
ab  Zeile  10.000  abspeichern  wollen.  Mit  den  folgenden  Pro- 
grammzeilen lösen  Sie  dieses  Problem: 

1000  S = PEEK(43)  + 256  * PEEK(44)  : BS  = S 
1010  ZN  = PEEKtS  + 2)  + 256  * PEEK(S  + 3) 

1020  IF  ZN  = 10000  THEN  1050 
1030  S = PEEK(S)  + 256  * PEEKtS  + 1) 

1040  GOTO  1010 

Um  diese  Programmzeilen  zu  verstehen,  muß  ich  Ihnen  kurz  er- 
klären, wie  BASIC-Zeilen  im  Speicher  stehen.  Die  ersten  beiden 
Bytes  einer  BASIC-Zeile  bildet  die  sogenannte  Koppeladresse. 
Sie  gibt  die  Startadresse  der  nächsten  BASIC-Zeile  an,  zeigt  also 
auf  die  nächste  Koppeladresse.  In  den  beiden  folgenden  Bytes  ist 
die  Zeilennummer  abgespeichert.  Danach  kommt  der  Inhalt  der 
BASIC-Zeile,  abgeschlossen  durch  ein  Null-Byte.  Ihr  BASIC- 
Programm  steht  also  folgendermaßen  im  Speicher: 

KAL  KAH  ZNL  ZNH  BASICtext  00  KAL  KAH  ZNL  ZNH  

Hierbei  bedeuten: 

KAL  Koppe ladresse  LSB 
KAH  Koppeladresse  MSB 
ZNL  Zei  lennunmer  LSB 
ZNH  Zei  lennunner  MSB 

Bei  unserem  kleinen  Programm  wird  in  der  Zeile  1.000  die  Pro- 
grammstart-Adresse  aus  den  Vektoren  in  S und  BS  eingelesen.  In 
der  Zeile  1.010  wird  die  Zeilennummer  in  die  Variable  ZN 
übertragen.  Die  Abfrage  in  der  Zeile  1.020  testet,  ob  die  ge- 
wünschte Zeilennummer  erreicht  wurde.  Wenn  ja,  wird  in  das 
weitere  Programm  verzweigt.  Ist  sievnoch  nicht  erreicht,  wird  in 
Zeile  1.030  aus  der  Koppeladresse  die  Startposition  der  nächsten 
BASIC-Zeile  in  S geschrieben  und  über  Zeile  1.040  wieder  nach 
1.010  gesprungen. 
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Nach  diesem  Programm  haben  Sie  alle  Informationen,  um  den 
letzten  Teil  Ihres  Programms  abzuspeichern.  Wichtig  ist  nun  nur 
noch,  daß  Sie  nach  dem  Speichervorgang  wieder  den  alten  Wert 
in  den  BASIC-Start-Vektor  schreiben.  Mit  dem  folgenden  Pro- 
grammteil können  Sie  die  Datazeilen  abspeichern. 

1050  POKE  43, S AND  255:  POICE  44,INT(S/256)  :REM  ZEIGER 
AUF  ZEILE  10000  SETZEN 

1060  SAVE"DATAZE I LEN"  :REM  DATAZEILEN  SPEICHERN 

1070  POKE  43,BS  AND  255:  POKE  44, INT(BS/256)  :REM  ZEIGER  ZURUECKSETZEN 


10.4.1  Overlay-Technik 

Der  LOAD-Befehl  arbeitet  innerhalb  von  Programmen  etwas  an- 
ders als  im  Direktmodus.  Im  Unterkapitel  10.1  habe  ich  ge- 
schrieben, daß  nach  einem  LOAD  die  BASIC-Zeiger  auf  das 
neue  Programm  eingestellt  werden.  Geben  Sie  aber  die  LOAD- 
Anweisung  innnerhalb  von  Programmen,  bleiben  die  Vektoren 
ebenso  erhalten  wie  alle  bis  dahin  definierten  Variablen. 

Daher  ist  es  möglich,  von  einem  Hauptprogramm  aus  verschie- 
dene Unterprogramme  aufzurufen,  die  alle  mit  den  gleichen 
Variablen  arbeiten.  Die  Methode  nennt  man  "Overlay-Technik". 

Bei  dieser  Technik  sind  aber  einige  Dinge  zu  beachten: 

1.  Da  die  BASIC- Vektoren  nicht  verändert  werden,  muß  das 
auf  rufende  Programm  mindestens  so  lang  sein  wie  das  auf- 
gerufene. 

Direkt  hinter  einem  BASIC-Programm  werden  die  Variablen 
abgespeichert,  und  der  Vektor  45,  46  ist  damit  auch  der  Zei- 
ger für  den  Beginn  der  Variablentabelle.  Ist  nun  das  nach- 
geladene Programm  länger,  werden  die  Variablen  überschrie- 
ben, und  der  Zeiger  weist  in  das  neue  Programm.  Sobald  nun 
eine  Variablenoperation  stattfindet,  wird  die  Variable  inner- 
halb des  Programms  gesucht,  was  zum  "Absturz"  des  Rech- 
ners führen  kann. 
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Mit  einem  Trick  ist  es  aber  möglich,  von  einem  kurzen  Pro- 
gramm aus  ein  längeres  aufzurufen. 

Zuerst  laden  Sie  das  längste  nachzuladende  Programm  im 
Direktmodus  ein  und  stellen  durch  Auslesen  der  Speicher- 
stellen 45,46  seine  Länge  fest.  Die  erhaltenen  Werte  notieren 
Sie  sich  am  besten.  Als  nächstes  laden  Sie  das  auf  rufende 
Programm  und  setzen  folgende  BASIC-Zeile  an  den  Anfang: 
10  POKE  45,W1:  POKE  46,W2:  CLR. 

Die  Zeilennummer  ist  wahlweise,  sie  muß  nur  die  kleinste  in 
Ihrem  Programm  sein.  W1  und  W2  stehen  für  die  von  Ihnen 
notierten  Werte. 

Durch  die  POKE-Befehle  verlängern  Sie  Ihr  Programm 
künstlich.  Das  CLR  bewirkt,  daß  auch  die  anderen  Zeiger 
entsprechend  geändert  werden. 

2.  Sie  müssen  beachten,  daß  nach  einem  LOAD  das  Programm 
wieder  von  Anfang  an  ausgeführt  wird. 

Das  ist  nur  dann  sinnvoll  und  unproblematisch,  wenn  Sie 
BASIC-Programme  nachladen.  Wollen  Sie  aber  ein  Maschi- 
nenprogramm nachladen,  ändert  sich  das  im  Speicher  befind- 
liche BASIC- Programm  nicht  und  startet  sich  immer  wieder 
von  neuem.  Wenn  das  nicht  geschehen  soll,  müssen  Sie  das 
durch  eine  Sprungtabelle  verhindern.  Bei  dem  folgenden  Pro- 
gramm werden  am  Anfang  des  Programms  drei  Maschinen- 
programme eingeladen,  ehe  es  zum  Hauptprogramm  übergeht. 

10  REM  START 

20  IF  A = 0 THEN  A=1:  LOAO"MPR1", 1 , 1 
30  IF  A = 1 THEN  A=2:  LOAD"MPR2",1,1 
40  IF  A = 2 THEN  A=3:  LOAD "MPR3", 1,1 
50  REM  HAUPTPROGRAMM3 

3.  Als  letztes  ist  eine  Besonderheit  der  String-Speicherung  zu 
beachten. 

Ihr  Commodore-Betriebssystem  ist  so  konzipiert,  daß  mög- 
lichst wenig  Speicherplatz  für  Strings  verwendet  wird.  Je- 
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desmal,  wenn  Sie  einer  String-Variablen  einen  String  zuwei- 
sen, wird  in  der  Variablentabelle  unter  dem  Variablennamen 
ein  Zeiger  abgelegt,  der  auf  den  betreffenden  String  zeigt. 
Weisen  Sie  einer  Variablen  durch  eine  INPUT- Anweisung 
einen  String  zu,  wird  dieser  in  einer  speziellen  Tabelle  am 
Ende  des  BASIC-RAMs  abgelegt.  Geschieht  die  Zuweisung 
aber  innerhalb  des  Programms,  z.B.  durch 

100  A$="STRING" 

wird  der  String  nicht  noch  einmal  in  die  String-Tabelle 
übertragen,  sondern  der  Zeiger  wird  auf  die  Position  des 
Strings  innerhalb  des  Programms  gesetzt. 

Laden  Sie  nun  ein  Programm  nach,  steht  an  der  entsprechen- 
den Stelle  etwas  ganz  anderes  und  der  Computer  druckt  bei 
dem  Befehl  PRINT  A$  nur  wirres  Zeug  aus.  Abhilfe  schaf- 
fen Sie  sich  dadurch,  daß  Sie  scheinbar  einen  neuen  String 
definieren,  indem  Sie  den  im  Programm  definierten  mit  ei- 
nem Leer-String  verknüpfen.  Schreiben  Sie  also: 

100  AS^'STRING":  A$=A$+I,’, 

Dadurch  bringen  Sie  das  Betriebssystem  dazu,  den  String  in 
die  String-Tabelle  zu  übertragen. 


10.5  Der  Kassettenpuffer 

In  diesem  Unterkapitel  möchte  ich  näher  auf  den  Kassetten- 
puffer eingehen.  Dieser  Puffer  belegt  den  Speicherbereich  von 
828  (Hexadezimal  033c)  bis  1019  (Hexadezimal  03FB).  Dieser 
Puffer  hat  2 grundsätzliche  Aufgaben.  Zum  einen  wird  in  die- 
sem Bereich  der  File-Kopf,  der  sogenannte  "Header",  generiert 
und  vor  jedem  File,  sei  es  ein  Programm-  oder  Daten-File,  ab- 
gespeichert und  dient  dann  zur  Kennzeichnung  desselben.  Er 
enthält  dann  folgende  Parameter: 
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1.  File-Typ,Byte  0 = 828 

2.  Startadresse,  Byte  1,  2 = 829,  830 

3.  Endadresse, Byte  3,  4 = 831,  832 

4.  File-Namen  ab  Byte  5 = 833 

Die  restlichen  Bytes  sind  mit  Space  beschrieben.  Als  zweite 
Funktion  dient  der  Kassettenpuffer  als  Zwischenspeicher  bei  der 
Datensicherung.  Die  abzuspeichernden  Daten  werden  zuerst  in 
diesen  Speicherbereich  geschrieben,  und  erst,  wenn  der  ganze 
Puffer  beschrieben  wurde,  wird  er  auf  Band  übertragen.  Wenn 
Sie  Daten  laden,  werden  diese  blockweise  geladen  und  dann 
durch  INPUT#  oder  GET#  aus  dem  Puffer  gelesen,  wie  auch  im 
Unterkapitel  10.1.4  ff  beschrieben. 

Der  File-Typ  ist  folgendermaßen  codiert: 

1 = BAS IC- Programm,  relativ  laden 

2 - Datenblock 

3 = Maschinenprogramm,  absolut  laden 

4 = Daten- Header 

5 = EOT-Block 

Im  Header  sind  alle  wichtigen  Daten  enthalten,  die  zur  Kenn- 
zeichnung benötigt  werden.  Was  liegt  da  näher,  als  mit  Hilfe 
dieser  Daten  die  mit  Programmen  und  Daten  bespielten  Kasset- 
ten zu  archivieren. 


10.5.1  Anlegen  eines  Kassetten-Inhaltsverzeichnisses 

Das  Programm  am  Ende  dieses  Unterkapitels  gibt  ein  Inhalts- 
verzeichnis einer  Kassette  aus.  Falls  Sie  einen  Drucker  haben, 
können  Sie  sich  das  Inhaltsverzeichnis  auch  ausdrucken  lassen. 

Programmbeschreibung 

Die  Zeilen  100  - 160  dienen  zur  Initialisierung.  Hier  werden  die 
einzelnen  Tabulatorstops  in  Tx$  und  die  verschiedenen  File-Ty- 
pen in  das  Feld  TN$  eingelesen.  Für  den  Fall,  daß  die  Ausgabe 
auch  zu  einem  Drucker  geschickt  werden  soll,  wird  in  Zeile  180 
ein  Druckerkanal  eröffnet  und  in  190  - 220  die  Überschrift  an 
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den  Drucker  übermittelt.  In  der  Zeile  230  wird  dann  eine  Datei 
zum  Kassettenlesen  ohne  Namen  eröffnet.  Dadurch  wird  der 
nächste  Header  eingelesen. 


Durch  PEEK  werden  in  den  Zeilen  240  - 270  Typ-Byte,  Start- 
und  Endadresse  und  File-Name  aus  dem  Puffer  gelesen  und 
formatiert.  In  den  Zeilen  280  - 290  wird  aus  Start-  und 
Endadressen  die  Programmlänge  in  KByte  berechnet. 


Durch  die  Zeilen  300  - 320  werden  die  Daten  auf  Drucker  und 
Bildschirm  ausgegeben.  In  Zeile  330  wird  über  die  Programm- 
längen der  Zählerstand  berechnet.  Nachdem  die  Datei  geschlos- 
sen wurde,  springt  das  Programm  wieder  zum  OPEN-Befehl. 

100  REM  ‘INHALTSVERZEICHNIS*** 

110  PA=828:REM  STARTAORESSE  IM  CASSETTENPUFFER 
120  PRINT"DRUCKEN  ? tJ/N]  »;DS 
130  GETOS:  IFD$=H,,THEN130 

140  T1$SCHR$(  16)+"05» : T2$=CHR$( 16)+»10" : T3$=CHR$<  16)+»20» : T4$=CHR$< 16)+» 
30» 

150  T5$*CHR$( 16)+"38" : T6$=CHR$( 16)+"50" :T7$=CHRS( 16)+"63" :REM  TABULATOR- 
STOPPS 

160  TN$(0)=»RELAT I V" : TNS (2)=»ABSOLUT» :TN$(3)="DATE I " 

170  I FDSo» J»THEN230 
180  0PEN2.4 

190  PRINT#2,T1$"LFN»T2$»ZAEHLER"T3$"TYP»T4$»K-BYTE"T5$"  ANFANG"T6$» 
ENDE»; 

200  PRINT#2,T7$"  NAME" 

220  PRINTR2 
230  0PEN1 , 1 

240  TY=PEEK(PA) :TY$=TN$(TY- 1 ) 

250  A$=»  :"+RIGHT$("  »+STR$(PEEK<PA+1)+(256*PEEIC<PA+2))-1),6) 

260  B$="  -"+RIGHT$("  «+STR$(PEEK(PA+3)+(256*PEEK<PA+4))-1),6) 

270  FOR I =5TO20 : C$=C$+CHR$(PEEK( PA+I ) ) : NEXT 

280  T=VAL(RIGHT$(B$,6))-VAL(RIGHT$<A$,6)) 

290  K$=RIGHT$("  "+STR$(INT(T/1024*100)/100),6) 

300  PR I NTZ; T Y$; K$; A$BS : PR I NTCS : PR I NT 
310  N=N+1 :N$=RIGHT$("  "+STR$(N),3) 

315  I FD$<>» J"THEN330 

320  PRINT#2,T1$;NS;  T2$;Z;  T3$;TY$;  T4$;K$;  T5$;A$;  T6$;B$;  T7$;C$ 

330  Z=INT(Z+(T/212)+4+2*<Pl>*(N/100)):REM  BANDZAEHLER  BERECHNEN 
340  CLOSEI 
350  GOT0230 
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10.5.2  Anzeige  der  gefundenen  Dateien 

Das  Auslesen  des  File-Namens  mittels  eines  PEEK-Befehls  kann 
auch  innerhalb  eines  Dateiverwaltungsprogramms  nützlich  sein. 
Haben  Sie  sich  noch  nicht  darüber  geärgert,  daß,  wenn  Sie  von 
einem  Programm  eine  bestimmte  Datei  einiesen  wollen,  der 
Computer  ewige  Zeit  sucht,  um  schließlich  ?FILE  NOT  FOUND 
auszugeben.  Der  Grund  dafür  war  vielleicht,  daß  Sie  das  Band 
etwas  zu  weit  vorgespult  hatten. 


Wenn  der  Rechner  Ihnen  aber  sagt,  welche  Dateien  er  findet, 
können  Sie  leicht  feststellen,  ob  Sie  zu  weit  gespult  haben  oder 
nicht.  Vorausgesetzt  natürlich,  daß  Sie  die  ungefähre  Reihen- 
folge der  Dateien  auf  Band  kennen.  Die  folgenden  BASIC-Zei- 
len  veranlassen  den  Computer,  jede  Datei,  die  er  findet,  anzu- 
zeigen. 


100  INPUT"FILE-NAME";F* 

110  L=LEN(F$) 

120  FE$="" 

130  OPEN4,1fO,FE$ 

140  FORI =0TO1 5 : FES=FE$+CHR* (PEEK(833+ I ) ) : NEXT 
ISO  PRINT :PRINT"FOUND  ";FE$ 

160  IFLEFT$(FE$fL)olEFT$(FS,L)THENCL0SE4:G0SUB200:G0T0120 
170  PRINT :PRINT"FILE  WIRD  GELADEN" 

200  POKE198,0:UAIT198,1:RETURN 


Durch  den  OPEN-Befehl  ohne  Namen  in  Zeile  130,  veranlassen 
Sie  den  Rechner,  jeden  Datenkopf  in  den  Puffer  zu  laden.  In 
Zeile  140-160  wird  dann  der  File-Name  mittels  PEEK  aus  dem 
Puffer  in  FE$  übertragen  und  in  Zeile  170  angezeigt.  Ergibt  der 
Vergleich  von  FES  mit  dem  gewünschten  File-Namen  in  Zeile 
180  keine  Übereinstimmung,  wird  die  Suche  fortgesetzt.  An- 
dernfalls wird  die  Datei  geladen. 


10.5.3  Selbststartende  Programme  und 
Programmschutz 

Bis  jetzt  haben  wir  nur  Daten  aus  dem  Kassettenpuffer  ausgele- 
sen. Dieser  Puffer  eignet  sich  aber  auch  vortrefflich,  um  Daten 
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oder  Programme  aufzunehmen.  So  ist  es  möglich,  durch  diesen 
Puffer  noch  weitere  Daten  oder  ein  Programm  mit  einem  ande- 
ren Programm  abzuspeichern. 

Der  Puffer  belegt  den  Speicherbereich  von  828  bis  1.019.  Er  ist 
also  191  Zeichen  lang.  Zur  Informationsübergabe  werden,  wenn 
er  als  Header  abgespeichert  wird,  maximal  16  + 2 + 2 + 1 (File- 
Name,  Startadresse,  Endadresse,  Typ-Byte)  = 21  Byte  benötigt. 
Es  bleiben  also  noch  170  Byte  übrig,  ausreichend  Platz,  um 
kleine  Maschinenprogramme  unterzubringen. 

Als  Beispiel  beschreibe  ich  Ihnen  hier  ein  kleines  Programm,  das 
ein  Vorprogramm  erzeugt,  das  Ihren  Wünschen  entsprechend  z.B. 
das  nächste  Programm  automatisch  lädt  und  startet. 

Solche  Vorprogramme  können  auch  dazu  dienen,  Ihre  Pro- 
gramme zu  schützen.  Ebenfalls  kann  mit  solch  einem  Vorpro- 
gramm erreicht  werden,  daß  vor  dem  Laden  des  Hauptpro- 
gramms der  BASIC-RAM  verschoben  wird,  um  vor  das  BASIC- 
Programm  noch  eine  oder  mehrere  Grafikseiten  abzulegen.  Dem 
Programmierer  sind  hier  keine  Grenzen  gesetzt.  Doch  nun  zu 
unserem  Beispiel.  Ich  habe  dieses  Beispiel  gewählt,  da  es  einer- 
seits die  allgemeine  Technik  zeigt,  und  andererseits  auch  von  ei- 
nem "Nur-Anwender"  recht  allgemein  genutzt  werden  kann.  Hier 
ist  die  Programmbeschreibung: 

In  Zeile  10  wird  der  File-Name  abgefragt,  unter  welchem  das 
Hauptprogramm  abgespeichert  werden  soll.  In  Zeile  20  und  30 
wird  der  File-Name  durch  Auffüllen  mit  "SPACE"  auf  eine 
Länge  von  16  Zeichen  gebracht.  Durch  die  Zeilen  40  bis  70  wird 
an  den  File-Namen  ein  Maschinenprogramm  angehängt,  welches 
in  den  Datazeilen  ab  Zeile  180  steht. 

Über  die  Zeilen  80  und  90  haben  Sie  nun  die  Möglichkeit,  BA- 
SIC-Befehle  einzugeben,  die  später  nach  dem  Laden  des  Vorpro- 
gramms automatisch  ausgeführt  werden.  Wenn  Sie  also  wün- 
schen, daß  ein  folgendes  BASIC-Programm  geladen  und  gestartet 
werden  soll,  geben  Sie  LOAD  <Return>  RUN  <Return> 
<Return>  in  Kurzbefehlen  ein: 
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10  <Return>  rU  <Return>  <Return> 

Aus  programmtechnischen  Gründen,  die  ich  später  beschreiben 
werde,  ist  es  bei  diesem  Programm  nicht  möglich,  mehr  als  10 
Zeichen  zu  übergeben.  Diese  Zeichen  werden  dann  an  den  File- 
Namen  hinter  das  Maschinenprogramm  angehängt  (Zeile  100  - 
150).  In  Zeile  160  wird  der  Zeiger  zu  einer  Systemroutine,  der 
Eingabe-Warteschleife,  auf  das  Maschinenprogramm  im  Kasset- 
tenpuffer umgesetzt. 

Die  Zeile  170  speichert  dann  mit  Hilfe  des  im  letzten  Unterka- 
pitel beschriebenen  Maschinenprogramms,  diesen  Vektor  ab.  Sie 
müssen  also  hinter  den  SYS- Befehl  die  Startadresse  schreiben, 
die  Ihr  SAVE-ADRESS-Programm  hat.  Durch  diesen  Speicher- 
befehl wird  der  File-Name  mit  Maschinenprogramm  und  BA- 
SIC-Befehlen  in  den  Puffer  und  auf  Band  geschrieben.  Nach 
dem  Programmende  springt  der  Computer  über  den  Vektor  in 
770,  771  normalerweise  in  die  Eingabe- Warteschleife.  Da  dieser 
aber  in  Zeile  160  auf  unser  Maschinenprogramm  im  Kassetten- 
puffer gesetzt  wurde,  springt  er  dorthin  und  arbeitet  es  ab.  Da 
wir  im  Ausgabe-String  dem  Rechner  den  Befehl  LOAD  gegeben 
haben,  versucht  er  das  nächste  Programm  zu  laden.  Durch  das 
Drücken  der  <Run/Stop>-Taste  kann  man  diesen  Vorgang  un- 
terbrechen, um  das  Hauptprogramm  hinter  das  Ladeprogramm 
zu  speichern,  das  vom  Vorprogramm  geladen  werden  soll. 

Wenn  Sie  ein  Programm  hinter  den  Lader  geschrieben  haben, 
spulen  Sie  das  Band  zurück  zum  Start  des  Ladeprogramms  und 
geben  LOAD  und  <Return>  ein.  Ihr  Computer  findet  nun  das 
Ladeprogramm,  lädt  dieses,  lädt  sofort  danach  das  folgende  Pro- 
gramm ein  und  startet  es.  Für  Interessierte  und  Fortgeschrittene 
möchte  ich  nun  diese  Technik  und  das  Programm  genau  erklä- 
ren. Die  zwei  Grundlagen  dieser  Technik  sind  folgende: 

1.  Übergabe  eines  Maschinenprogramms  in  den  Kassettenpuffer 
durch  Anhängen  an  den  File-Namen, 

2.  Änderung  von  Vektoren,  z.B.  dem  zur  Eingabeschleife  auf 
ein  eigenes  Maschinenprogramm,  und  Speicherung  eben  die- 
ser geänderten  Vektoren.  Im  eigenen  Maschinenprogramm 
muß  dann  vor  dem  Sprung  in  das  geladene  Programm  der  in 
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das  eigene  Maschinenprogramm  zeigende  Vektor  wieder  auf 
den  alten  Wert  gebracht  werden. 

3.  Als  Maschinenprogramme  abgespeicherte  Speicherbereiche 
werden  immer  an  die  Stelle  geladen,  von  wo  sie  abgespei- 
chert wurden. 

Ihr  Rechner  besitzt  in  den  Speicherstellen  768  - 819  eine  Reihe 
von  Vektoren,  über  welche  er  in  bestimmte  Unterprogramme 
springt.  Durch  Veränderung  dieser  Zeiger  können  Sie  ein  eigenes 
Programm  dazwischenschalten.  Die  Eingabe-Warteschleife  ist  das 
Unterprogramm,  das  Ihren  Commodore  geduldig  auf  irgendeine 
Eingabe  warten  läßt.  Machen  Sie  eine  Eingabe,  wertet  und  führt 
er  sie  aus,  um  anschließend  wieder  in  diese  Schleife  zurückzu- 
kehren. 

Durch  unser  Programm  wird  nun  ein  Vorprogramm  erzeugt,  das 
den  Vektor  zur  Eingabe-Warteschleife  mit  der  Startadresse  eines 
eigenen  Programms  überschreibt,  das  mit  dem  File-Namen  in 
den  Speicher  geschrieben  wurde.  Wenn  Sie  selber  weitere  Expe- 
rimente machen  wpllen,  können  Sie  natürlich  auch  Ihr  Maschi- 
nenprogramm z.B.  in  den  Bereich  $2CO  - $2FF  (704  - 766)  le- 
gen und  als  Vorprogramm  den  Bereich  $2C0  - 303  abspeichern. 

Doch  sehen  wir  uns  nun  das  Maschinenprogramm  an.  In  den 
Zeilen  200  - 230  wird  der  Vektor  zur  Eingabe-Warteschleife 
wiederhergestellt.  Ab  der  Speicherstelle  S036C  sind  Ihre  Einga- 
ben abgespeichert.  Diese  werden  in  den  Zeilen  230  bis  290  in 
den  Tastaturpuffer  übertragen.  Durch  den  Sprung  am  Ende  des 
Programms  in  die  Eingabe-Warteschleife  wird  der  Rechner  ver- 
anlaßt, die  Befehle,  die  im  Tastaturpuffer  stehen,  auszuführen. 

Das  hier  dargestellte  Beispiel  ist  zwar  recht  einfach,  hat  aber  den 
Nachteil,  daß  Sie  nur  wenige  Befehle  aufgrund  des  begrenzten 
Tastaturpuffers  übergeben  können.  Sie  können  jetzt  aber,  wenn 
Sie  das  Prinzip  verstanden  haben,  leicht  dieses  Programm  auf 
Ihre  eigenen  Bedürfnisse  hin  abändern,  indem  Sie  im  Maschi- 
nenprogramm ab  Zeile  240  Ihre  eigene  Routine  schreiben,  und 
diese  mit  einem  Sprung  in  die  Eingabe-Warteschleife  ab- 
schließen. Ihnen  ist  bestimmt  schon  klar  geworden,  daß  man 
diese  Technik  auch  sehr  gut  zum  Programmschutz  verwenden 
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kann,  da  sich  das  Programm  ja  selbst  startet.  Wenn  Sie  zusätzlich 
noch  einen  Programmabbruch  durch  die  <Run/Stop>- Taste  un- 
terbinden und  das  Hauptprogramm  so  abändern,  daß  es  nur  in 
Verbindung  mit  dem  Lader  lauffähig  ist,  hat  ein  fremder  An- 
wender keine  Möglichkeit,  Einsicht  in  Ihr  Programm  zu  nehmen. 


Der  ganze  Schutz  wäre  aber  nutzlos,  wenn  ich  hier  eine  genaue 
Anleitung  geben  würde.  Ich  hoffe,  daß  Sie  nach  meinen  Aus- 
führungen und  mit  etwas  Maschinenprogrammierkenntnis  selbst 
in  der  Lage  sind,  eigene  Autostart-Routinen  zu  entwickeln. 


5 REM  LADER  FUER  C-64 
10  INPUT"FILE-NAME  ";F$ 

20  SP$="  " 

30  F$=LEFT$( F$+SP$, 16) :S=833 
40  FORI=0TO26 
50  : READF 

60  F$=F$+CHR*(F) 

70  NEXT 

80  PRINT"AUSGABESTRING  MAX.  10  ZEICHEN  " 

90  INPUT"'  = RETURN,  AM  ENDE  2 MAL";A$  t 

100  LA=LEN(A$): I FLA>10THEN90 
110  F*=F$+CHR$(LA) 

120  FORI=1TOLA 

130  : W$=MID$(A$, I , 1 ) : I FU$="*"THENU$=CHR$(13) 

140  : F$=F$+W$ 

150  NEXT 

160  POKE770,81:POKE771,3 
170  SYS12*4096F$, 1,768,772 

180  DATA169, 131, 141, 2, 3, 169, 164, 141, 3, 3, 174, 108, 3, 134, 198, 189, 108, 3, 157, 
119 

190  DATA2, 202, 208, 247,76, 131, 164 


10.6  Speicherformat  der  Kassettenspeicherung 

Um  Daten  oder  Programme  auf  Band  aufzuzeichnen,  werden 
einzelne  Bytes  und  Bits  als  Pulse  auf  gezeichnet.  Zur  Codierung 
sind  drei  verschiedene  Zeiten  definiert: 

K=kur  (176  Microsekunden) 

M=mittel  (256  Microsekunden) 

L=lang  (336  Microsekunden) 


Aus  diesen  Pulsen  werden  drei  verschiedene  Kombinationen  ge- 
bildet, die  die  folgende  Bedeutung  haben: 
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LLMM=Byte,  diese  Kombination  geht  jedem  Byte  voraus 

MMKK  =Bit  gesetzt  = 1 

KKMM  -Bit  nicht  gesetzt  = 0 

Der  Wert  65  wird  also  wie  folgt  auf  Band  auf  gezeichnet: 

LLMM  MMKK  KKMM  KKMM  KKMM  KKMM  KKMM  MMKK  KKMM  MMKK 

Byte  100000101 

Bit  01234567  PARITY  0DD 

Dies  ergibt  eine  Zeitspanne  von  8.96  ms  für  ein  Zeichen.  Beim 
Lesevorgang  zählt  ein  Zähler  von  einen  bestimmten  Wert  so 
lange  abwärts,  wie  ein  Signal  an  der  Leseleitung  des  Computers 
liegt.  An  dem  erreichten  Werten  erkennt  dann  der  Rechner,  ob 
es  sich  um  ein  gesetztes  Bit,  ein  nicht  gesetztes  Bit  oder  eine 
Byte-Marke  handelt. 

Damit  der  Zähler  aber  immer  zur  richtigen  Zeit  gestartet  wird, 
ist  eine  genaue  Synchronisierung  zwischen  Band  und  Zähler 
notwendig.  Aus  diesem  Grunde  geht  jedem  Block  eine  Synchro- 
nisation und  ein  Countdown  voraus. 

Ein  Block  ist  folgendermaßen  aufgebaut 

1.  Synchronisations-Bytes  und  Countdown 

Durch  diesen  Teil  werden  die  Lesebausteine  auf  das  Band 
synchronisiert.  Weiterhin  enthält  die  Synchronisation  auch  die 
Informationen,  um  was  für  einen  Block  es  sich  handelt. 

2.  Daten 

3.  Prüfsummen-Byte 

Während  des  Abspeicherns  und  Ladens  bildet  der  Rechner 
aus  allen  Bytes  eine  EXOR-Prüfsumme,  indem  er  den  letzten 
Wert  mit  dem  nächsten  durch  eine  logische  "Exclusive-Oder- 
Funktion"  verknüpft  und  abspeichert.  Wenn  Lesefehler  auf- 
treten,  stimmt  diese  Prüf  summe  nicht  mit  der  abgespeicher- 
ten überein. 

4.  Wiederholung  der  Daten 

Diese  Wiederholung  wird  beim  Lesevorgang  mit  den  schon 
eingelesenen  Bytes  verglichen,  um  eventuelle  Lesefehler 
festzustellen. 
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5.  Prüfsummen-Byte  (wie  3) 

6.  Blockendemarkierung 

Die  kompletten  Files  werden  wie  folgt  abgespeichert: 
Programm- Files  Daten- Files 


1 . Header  Header 

2.  Programm  Datenblock  (evtl,  weitere  Datenblöcke) 

3.  evtl.  EOT-Block  evtl.  EOT-Block 


10.7  Append  von  BASIC-Programmen 

Sie  haben  sich  bestimmt  schon  darüber  geärgert,  daß  das  Com- 
modore BASIC  2.0  keine  Befehle  zur  Verfügung  stellt,  um 
mehrere  Programme  miteinander  im  Speicher  zu  verknüpfen. 
Wieder  einmal  kommen  uns  die  BASIC-Zeiger  43,  44  / 45,  46  zu 
Hilfe.  Sie  "verbiegen"  den  BASIC-RAM-Startzeiger  auf  das  Ende 
des  im  Speicher  befindlichen  Programms  und  laden  das  anzuhän- 
gende Programm  nach.  Anschließend  muß  der  Zeiger  43,  44 
wieder  auf  den  alten  Wert  gebracht  werden. 

Im  einzelnen  müssen  Sie  wie  folgt  vorgehen: 

1.  Laden  Sie  das  erste  Programm  ein.  Die  Zeilennummern 
müssen  alle  kleiner  sein  als  die  des  anzuhängenden  Pro- 
gramms. Sind  sie  es  nicht,  arbeitet  das  zusammengefügte 
Programm  nicht  so,  wie  es  eigentlich  sollte. 

2.  Stellen  Sie  durch 

PRINT  PEEK(43),PEEK(44) 

die  BASIC-Startadresse  fest,  und  notieren  Sie  sie  am  besten. 

3.  Geben  Sie  nun 

POKE43,(PEEK(45)+256*PEEK(46)-2)And255 

POKE44,(PEEK(45)+256*PEEK(46)-2)/256 
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ein.  Da  am  Ende  eines  BASIC -Programms  immer  zwei  Null- 
Bytes  zur  Endemarkierung  stehen,  müssen  Sie  den  Endevek- 
tor um  zwei  Bytes  vermindern.  Nun  haben  Sie  scheinbar  kein 
Programm  mehr  im  Speicher.  Dies  können  Sie  überprüfen, 
wenn  Sie  LIST  eingeben. 

4.  Laden  Sie  nun  das  zweite  Programm  ein.  Wenn  Sie  jetzt  LIST 
eingeben,  erscheint  nur  das  zweite  Programm. 

5.  Schreiben  Sie  nun  die  alten  Werte  wieder  in  die  Speicher- 
stellen 43,  44.  Durch  diese  Prozedur  haben  Sie  nun  zwei  Pro- 
gramme aneinandergefügt. 

Eleganter  geht  es  natürlich  mit  einem  Maschinenprogramm.  Das 
folgende  kleine  Programm  erkennt  durch  ein  " z!",  dem  Klam- 
meraffen, als  erstes  Zeichen  im  File-Namen,  daß  das  zu  ladene 
Programm  an  das  im  Speicher  befindliche  angehängt  werden  soll. 

Programmbeschreibung 

Durch  die  Initialisierung  wird  der  Ladevektor  auf  dieses  Pro- 
gramm verschoben.  Dadurch  wird  bei  jeder  Ladeoperation  zu 
diesem  Programm  verzweigt.  In  diesem  Programm  wird  dann  das 
erste  Zeichen  des  File-Namens  auf  " z!"  getestet.  Findet  das  Pro- 
gramm dieses  Zeichen  nicht,  springt  es  in  die  alte  Routine.  Wird 
dieses  Zeichen  gefunden,  wird  in  den  Lade-Startadressenvektor 
$C3/$C4  der  Programmendevektor  minus  2 übertragen  und  das 
Zeichen  " " im  File-Namen  gelöscht.  Danach  springt  das  Pro- 
gramm wieder  in  die  alte  Laderoutine. 

10  REM  MERGE  C64 

20  E=256*PEEK(56)+PEEK(55)-1 :A=E-41 

30  FOR I =ATOE : READX : POKE I , X : NEXT 

40  READX ,Y,Z: X=A+X :Y=A+Y : Z=A+Z : H=I NT (Z/256) 

45  POKEX , Z-  256*H : POKE Y , H 

46  POKEE-1 ,PEEK(816):POKEE,PEEK(817) 

50  H= INT (A/256) :POKE56,H:POKE55,A-256*H 
65  SYSA:NEU 

32000  DATA169,224, 162, 127, 141 ,48,3, 142,49,3,96,72,162,0, 161 , 187,201 ,64,2 
08,18 

32001  DATA56, 165, 45, 233, 2, 133, 195, 165, 46,233,0, 133, 196,24, 230, 187, 198, 18 
3,104 

32002  DATA76, 165,244, 1 ,3,1 1 
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10.8  Steuerung  der  Datasette  per  Programm 

Bis  jetzt  habe  ich  nur  über  den  Lade-  und  Speichervorgang  mit 
Ihrer  Datasette  geschrieben.  Dabei  haben  wir  gesehen,  daß  das 
Band  automatisch  gestartet  und  gestoppt  wurde.  Der  Computer 
besitzt  also  die  Möglichkeit,  den  Motor  zu  steuern.  Unter  dem 
Motto,  "was  der  Computer  kann,  kann  ich  schon  lange",  werde 
ich  Ihnen  jetzt  beschreiben,  wie  Sie  diese  Steuerungsmöglichkeit 
in  Ihrem  Programm  nutzen  können. 

Mit  folgenden  Speicherstellen  können  Sie  den  Motor  steuern  und 
abf ragen,  ob  eine  Taste  am  Rekorder  gedrückt  wurde: 


Adr. 

Wert 

Funktion 

1 

AND  223 

Motor  an 

1 

OR32 

Motor  aus 

192 

0 

Motor  an 

192 

1 

Motor  aus 

1 

16 

Taste  gedrückt 

Auf  eine  Taste  am  Rekorder  warten: 

UAIT  1,16,16 

Als  Anwendungsbeispiel,  wie  Sie  die  Steuerungsmöglichkeiten 
nutzen  können,  folgt  ein  Programm,  das  Ihnen  das  Suchen  eines 
Programms,  das  unter  vielen  auf  einer  Kassette  abgespeichert  ist, 
abnimmt.  Es  erstellt  einen  Katalog  aller  auf  Ihrer  Kassette  ge- 
speicherten Programme  und  findet  ein  bestimmtes  Programm 
selbständig.  Das  Programm  arbeitet  nach  folgendem  Prinzip: 

Nachdem  Sie  ein  oder  mehrere  Programme  hinter  dieses  Bei- 
spielprogramm auf  Kassette  abgespeichert  haben,  stellt  es  mit 
Ihrer  Hilfe  und  der  Variablen  "TI"  die  Zeit  fest,  die  der  Kasset- 
tenrekorder benötigt,  um  vom  Ende  des  Katalogprogramms  bis 
zum  zu  katalogisierenden  Programm  vorzuspulen.  Dieser  Zeit- 
wert wird  mit  dem  File-Namen  des  Programms  in  Datazeilen 
abgespeichert.  Soli  später  ein  bestimmtes  Programm  gesucht  wer- 
den, wird  der  Kassettenmotor  beim  Vorspulen  so  lange  angelas- 
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sen,  bis  der  aktuelle  Zeitwert  mit  dem  abgespeicherten  überein- 
stimmt. Nach  Drücken  der  <Play>-Taste  wird  dann  das  ge- 
wünschte File  geladen.  So  bedienen  Sie  das  Programm: 

Dieses  Programm  wird  am  Anfang  der  Kassette  abgespeichert. 
Mit  einem  Abstand  von  ca.  10  Sekunden  können  Sie  dahinter 
wie  gewohnt  die  anderen  Programme  abspeichern.  Sollen  die 
Programme  in  den  Katalog  auf  genommen  werden,  notieren  Sie 
sich  die  Startzähler-Nummern  und  File-Namen  der  einzelnen 
Programme.  Anschließend  spulen  Sie  die  Kassette  an  den  Start 
zurück  und  laden  das  Katalogprogramm.  Nach  Starten  des  Pro- 
gramms wählen  Sie  den  Punkt  "Neueingabe". 

Zuerst  werden  Sie  gebeten,  die  entsprechenden  File-Namen  in 
der  richtigen  Reihenfolge  einzugeben.  Sie  werden  dann  vom 
Programm  aufgefordert,  den  schnellen  Vorlauf  am  Rekorder 
einzustellen.  Nun  können  Sie  den  Rekorder  durch  Drücken  der 
<Space>-Taste  starten  und  bei  den  notierten  Zählerständen  ge- 
nauso stoppen,  wieder  starten  und  beim  nächsten  File-Start 
stoppen,  bis  Sie  so  allen  eingegebenen  Programmen  einen  Zeit- 
wert zugeordnet  haben.  Als  letztes  speichern  Sie  das  Katalogpro- 
gramm wieder  am  Kassettenanfang  ab.  Nun  können  Sie  komfor- 
tabel ein  im  Katalog  gespeichertes  Programm  nach  der  Angabe 
"LADEN"  aus  einem  Bildschirmmenü  wählen.  Bei  gedrückter 
FFWD  spult  der  Rechner  bis  zum  gewünschten  Programm.  Nach 
Drücken  der  <Play>-  und  <Space>-Taste  wird  das  Programm 
geladen. 

Programmbeschreibung 

In  den  Zeilen  120  bis  170  sind  die  Unterprogramme  zum  Starten 
und  Stoppen  des  Motors.  In  den  Zeilen  180  bis  340  wird  das 
Programm  initialisiert  und  das  Menü  auf  den  Bildschirm  ge- 
schrieben. Bei  der  Initialisierung  werden  die  Namens-  und 
Zeitfelder  dimensioniert  und  die  Repeat- Funktion  für  alle  Ta- 
sten eingeschaltet.  Mit  Hilfe  der  Betriebssystem-Routine 
SCREEN  (65517)  wird  der  Computertyp  festgestellt  und 
dementsprechend  der  Start  vom  Video-  und  Farb-Ram  gesetzt. 
Zuletzt  werden  die  Variablen  zur  Motorsteuerung  entsprechend 
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dem  Computer  belegt  (Zeilen  240  und  260).  Aufgrund  der  Ein- 
gabe wird  zur  "Neueingabe"  oder  zum  "Laden"  verzweigt. 

In  den  Zeilen  350  bis  660  befindet  sich  der  Block  "Neueingabe". 
In  der  Zeile  390  wird  die  Anzahl  der  schon  eingegebenen  Files 
über  READ  aus  den  Datazeilen  eingelesen.  In  den  Zeilen  400  - 
420  werden  die  neuen  File-Namen  eingelesen  und  im  Feld  N$(n) 
abgespeichert. 

In  den  Zeilen  530  bis  580  wird  die  Spulzeit  zwischen  den  Start- 
punkten der  einzelnen  Programmen  festgestellt  und,  den  einge- 
gebenen File-Namen  entsprechend  zugeordnet,  im  Feld  ZS(n) 
gespeichert.  Vorher  wird  in  der  Zeile  580  ein  "Offset"  von  10 
abgezogen,  um  die  Auslaufzeit  des  Motors  auszugleichen.  Aus 
gleichem  Grunde  wird  bei  der  Summation  der  einzelnen  Diffe- 
renzzeiten der  Zeitwert  10  addiert.  Um  Fehlbedienungen  zu 
vermeiden  wird  in  Zeile  420  getestet,  ob  eine  Taste  am  Rekorder 
gedrückt  ist,  und  der  Anwender  ggf.  gebeten  die  <Stop>-Taste 
zu  betätigen. 

In  den  Zeilen  600  - 660  werden  File-Namen  und  Zeiten  in  Da- 
tazeilen geschrieben  und  das  Programm  beendet.  In  Zeile  670 
beginnt  der  Programmpunkt  "Laden".  Die  Datenanzahl  und  die 
File-Daten  werden  eingelesen,  und  in  den  Zeilen  720  - 820  wer- 
den die  Files,  je  8 Stück  pro  Seite,  auf  dem  Bildschirm  mit  ei- 
nem " zä",  das  über  die  Zeilen  770  - 810  gesteuert  wird,  ausge- 
druckt. Ist  die  Abfrage  nach  der  Taste  F7  in  Zeile  790  positiv, 
wird  nach  Zeile  830  zur  Such-  und  Laderoutine  verzweigt. 

Nach  dem  Test,  ob  eine  Taste  am  Rekorder  gedrückt  ist  (840), 
wird  in  der  Zeile  900  mit  dem  WAIT-Befehl  auf  das  Drücken 
der  <F.FWD>-Taste  am  Rekorder  gewartet  und  dann,  entspre- 
chend der  abgespeicherten  Zeit  der  Kassettenmotor  angelassen 
(Zeile  920  - 940).  In  den  Zeilen  950  - 1.010  wird  das  ge- 
wünschte Programm  geladen.  Würde  das  Programm  vom  Pro- 
grammodus her  geladen,  könnten  nur  Programme  geladen  wer- 
den, die  kleiner  als  das  Katalogprogramm  sind.  Um  das  zu  ver- 
meiden, wird  der  LOAD-Befehl  bzw.  der  FastTape  LOAD-Be- 
fehl  L auf  den  Bildschirm  und  <Return>  in  den  Tastaturpuffer 
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geschrieben.  Somit  wird  das  Programm  aus  dem  Direktmodus 
geladen  und  die  BASIC-Vektoren  entsprechend  dem  zu  ladenden 
Programm  gesetzt. 

10  GOTO190 


20  *****< 

r********************** 

****** 

30  * 

* 

40  * 

KATALOG 

* 

50  * 

* 

60  * 

FUER  CASSETTE 

* 

70  * 

* 

gO  ********************************** 

90  :REM 

100  REM  WARTESCHLEIFE 

110  POKE198,0:WAIT198,1:GETA$:RETURN 

120  POKE192,0:POKE1 ,PEEK(1 )AND223:REM  MOTOR  AN  C-64 

130  :REM  POKE  37148,252  :REM  MOTOR  AN  VC20 

140  RETURN 

150  POKE192, 1 :POKE1 ,PEEK(1 )OR32:REM  MOTOR  AUS  C-64 
160  :REM  POKE  37148,0  :REM  MOTOR  AUS  VC20 
170  RETURN 

180  REM  " INITIALISIERUNG 

190  HD$=M  * * K A T A L O G * 

200  SYS65517:SP=PEEK(781 ) :ZE=PEEK(782):REM  BILDSCHIRMDATEN  HOLEN 

210  BS*1024:BF=55296:FW=1 : I FSP>25THEN260 

220  BSs4*(PEEK(36866)AND128)+64*(PEEK(36869)AN0120) 

230  BF=37888+4*(PEEK(36866)AND128) 

240  WZ=37151 :UU=64 
250  FW*6:GOT0270 

260  WZ=1 :WW=16:REM  C-64  WERTE  'WARTEN  AUF  RECORDERTASTE 

270  DIMNS(50),ZS(50):REM  NAME  UND  STARTPOSITION 

280  P1=3*SP+1:P2=2*SP 

290  POKE650,128:REM  TASTENWIEDERHOLUNG 

300  PRINT""; :PRINTTAB(SP/2-11)HD$:PRlNT"" 

310  PR  INTTABt  SP/2-6)  "NEUEINGABE11:  PR  INT 
320  PR INTTABt SP/2-6) "LADEN" 

330  GOSUB110: I FA$="L"THEN680 

340  I FA$<>"N"THEN330 

350  REM  ********  NEUEINGABE  ************ 

360  PRINT"DIE  EINGABE  DER  FILES  ":PRINT 

370  PRINT"MUSS  SUKKSESSIV  ERFOL"; : IFSP<40THENPRINT : PR INT 

380  PRINT"GEN.  33  * ENDE" 

390  RESTORE : READA: ZA=A 
400  INPUT"FILE-NAMEN";N$ 

410  IFN$<>"33"THENN$(A)=N$:A=A+1 :GOTO400 
420  ZE*A : A*ZA : I F(PEEK(WZ )ANDWW)=WWTHEN450 
430  PRINT"DRUECKEN  SIE  DIE":PRINT"<STOP>-TASTE" 

440  PRINT"AM  RECORDER»:WAITWZ,WW,255-WW 

450  PRINT"DRUEKEN  SIE  DIE  »; : IFSP<40THENPRINT:PRINT 

460  PR INT"F.FWD- TASTE!“ 

470  PRINT:PRINT"STARTEN  SIE  DEN  RECOR-";:IFSP<40THENPRINT:PRINT:PRINT" 
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480  PRINT»DER  DURCH  DRUECKEN" 

490  PRINT :PRINT"EINER  TASTE  UND  "; : IFSP<40THENPRINT:PRINT 
500  PRINT"STOPPEN  SIE  IHN  AM  11 

510  PRINT :PRINT"START  DES  GEUUENSCH - " ; : IFSP<40THENPRINT : PR  INT : PR INT" 

520  PRINT"TEN  FILES  AUF  GLEICHEII:PRINT"UEISE.H 

530  WA I TUZ , UU, UU : GOSUB1 50 : D I =0 

540  GOSUB1 10:GOSUB120:R*TI :REM  CC  AN,  ZEIT  MERKEN 

550  PRINT"STOPPEN  BEI  START:1' 

560  PRINTN$(A) 

570  GOSUB1 10:GOSUB150:DI*TI-R+DI :REM  CC  AUS,  ZEITDIFFERENZ  BERECHNEN 

580  ZS(A)=DI -10:DI=DI+10:A=A+1 

590  I FA<ZETHEN540:REM  LETZTER  FILE-NAME  ? 

600  REM  * ABSPEICHERN  IN  DATA  ZEILEN  ** 

610  PR I NT "2000DAT A"A : REM  ANZAHL  IN  DATAZEILE 
620  FOR I =ZATOZE- 1 : PR  I NT21 00+1  ,,DATA,,N$(  I )" , »ZS<  I ) 

630  NEXT  :PRINT,lGOTO650M 

640  POKE 1 98 , 1 1 : FOR  I =OTOl  0 : POKE63 1 + 1 , 1 3 : NEXT : PR  I NT : END 

650  PRINT"SPULEN  SIE  JETZT  ZU-":PRINT"RUECK  UND  SPEICHERN":PRINT"DAS 

PROGRAMM  AM  ANFANG" 

660  PRINT :PRINT"AB":GOSUB120:END 

670  REM  *******  LADEN  DER  FILES  ******* 

680  RESTORE:READA:FORI=0TOA-1:READN$(I),ZS(I):NEXT 
690  PRINT""; :PRINTTAB(SP/2-1 1 )HD$ 

700  PRINT"  Fl  = AUFW.":PRINT"  F2  = ABW.":PRINT»  F7  = LADEN" 

710  PRINT SPACE  ":GOSUB110:ZA=0 

720  PRINT""; :PRINTTAB(SP/2-11)HD$:Z=0:PRINT 

730  FOR I =ZATOZA+8 : 1 FN$( I ) <>""THENPR I NT : PR I NTTAB(3)N$( I ) 

740  NEXT 

750  POKEBS+P1 +Z*P2 , 62 : POKEBF+P1+Z*P2 , FW 
760  GOSUB1 10:REM  TASTATUR  ABFRAGE 

770  IF(ASC(A$)=133)AND(Z>0)THENPOKEBS+P1+Z*P2,32:Z=Z-1 :GOTO750 
780  IF(ASC(A$)=134)AND(Z<8)AND(N$(ZA+Z+1 )<>"")THENPOKEBS+ 
P1+Z*P2,32:Z=Z+1 :GOT0750 
790  I FASC(A$)=136THEN830 

800  I F ASC ( A$ ) = 1 33ANDZ=0ANDZAT HENZA=ZA- 9 : GOTO720 

810  I F(ASC(A$)=134)AND(N$( I ))<>""AND(Z=8)THENZA=ZA+9:GOTO720 

820  GOTO750 

830  REM  LADEN 

840  IF(PEEK(WZ)ANDWU)=UWTHEN870 

850  PRINT"DRUECKEN  SIE  DIE":PRINT"<STOP>-TASTE" 

860  PR INT "AM  RECORDER":UAITUZ,UU,255-WU 
870  PR I NT““ ; : PR I NTTAB( SP/2- 1 1 )HD$ : PR I NT : PR I NT 
880  PRINT"DRUECKEN  SIE  DIE  ":PRINT"  F.FUD  " 

890  PRINT :PRINT"TASTE" 

900  UAITUZ,UW,WU:REM  WARTEN  AUF  TASTE  AM  RECORDER 
910  PRINT"  OK  " 

920  R=TI:R2=R+ZS(Z+ZA) 

930  IFR2<TITHEN950 
940  GOTO930 
950  GOSUB150 

960  PRINTTAB(SP/2-1 1 )HD$ 

970  PRINT :PRINT"DRUECKEN  SIE  DIE  ":PRINT"  PLAY  » 

980  PRINT:PRINT"TASTE" 
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990  PRINTTAB(SP/2-6>"  SPACE  ":GOSUB110 
1000  PRINT"tO'';CHR$(34)<NS<Z+ZA))CHR$<34) 

1010  P0KE198, 1 :POKE631 , 13:POKE37148,252:PRINTEND 
1020  REM  ******  PROGRAMMANZAHL  ******** 

2000  DATA  4 

2005  REM  ******  PROGRAMMDATAS  ********* 


10.9  Hardware  der  Datasette 

Bis  jetzt  habe  ich  nur  die  Software  zur  Datasettenhandhabung 
beschrieben.  In  diesem  Unterkapitel  möchte  ich  auf  die  Hard- 
ware der  Datasette  selbst  eingehen. 


10.9.1  Pflege  der  Datasette 

Wie  jeder  andere  Kassettenrekorder  braucht  die  Datasette  auch 
eine  gewisse  Pflege.  Das  häufige  Auftreten  eines  ?LOAD 
ERROR  ist  meistens  die  Folge  eines  verschmutzten,  dejustierten 
oder  magnetisierten  Kopfes. 

1.  Reinigung  der  Köpfe  und  der  Andruckrolle 

Hierzu  eignen  sich  sehr  gut  handelsübliche  Wattestäbchen.  Sind 
sie  nicht  greifbar,  können  Sie  auch  ein  Streichholz  oder  ein  an- 
deres Holzstäbchen  an  einer  Seite  mit  Watte  umwickeln.  Als 
Reinigungsmittel  empfiehlt  sich  Alkohol,  Fleckenbenzin  oder 
Spiritus  benutzen.  Zur  Reinigung  selbst  öffnen  Sie  den  Kasset- 
tenschacht und  drücken  die  <Play>-Taste.  Nun  können  Sie  mit 
den  mit  Reinigungsmittel  getränkten  Wattestäbchen  die  Köpfe 
(Lese -/Schreibkopf  und  Löschkopf)  reinigen,  indem  Sie  so  lange 
über  die  Frontseite  der  Köpfe  fahren,  bis  die  Watte  keine 
braune  Färbung  mehr  annimmt,  und  anschließend  mit  einem 
trockenen  Wattestäbchen  nachreiben. 

Es  empfiehlt  sich,  im  gleichen  "Abwasch"  auch  die  Gummi-An- 
druckrolle  zu  reinigen.  Nach  längerem  Betrieb  der  Datasette  bil- 
det sich  nämlich  ein  schlüpfriger  Belag  aus  Bandabrieb.  Dadurch 
wird  das  Band  nicht  mehr  gleichmäßig  am  Tonkopf  vorbeige- 
führt. Zur  Reinigung  legen  Sie  ein  Stück  nicht  flusenden  Stoffs 
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(Taschentuch  oder  ähnliches)  über  den  Zeigefinger,  befeuchten 
es  mit  einem  der  oben  beschriebenen  Reinigungsmittel  und  hal- 
tet den  Finger  bei  auf  <Play>  laufender  Datasette  von  rechts  ge- 
gen die  Andruckrolle. 

2.  Demagnetisierung 

Zur  Demagnetisierung  benutzen  Sie  einen  käuflichen  Demagne- 
tisator  oder  eine  Demagnetisierungskassette,  wie  sie  für  Audio- 
Anlagen  erhältlich  sind.  Die  Handhabung  ist  dann  genauso,  wie 
sie  in  der  entsprechenden  Bedienungsanleitung  beschrieben  wird. 


10.9.2  Wahl  und  Handhabung  der  Kassetten 

An  eine  Kassette  zur  Daten-  und  Programmspeicherung  braucht 
man  nicht  die  Anforderungen  zu  stellen  wie  an  eine  Audio- 
Kassette.  Sie  brauchen  also  für  Ihre  Datasette  keine  Kassetten 
mit  besonders  gutem  Frequenzgang  oder  großem  Rauschabstand. 
Nach  dem  bisher  Gesagten  wäre  die  billigste  Kassette  gerade  gut 
genug. 

Der  einzig  wichtige  Punkt  ist,  daß  die  Kassette  keine  "Drop 
outs"  hat.  Drop  outs  sind  Stellen  auf  dem  Band,  an  denen  die 
Beschichtung  mit  magnetisierbaren  Partikeln  nicht  einwandfrei 
ist.  An  diesen  Stellen  kann  das  Band  nicht  ordnungsgemäß  ma- 
gnetisiert werden,  sodaß  dort  gespeicherte  Informationen  verlo- 
rengehen. Diese  Gefahr  ist  leider  bei  normalen  Super-Billigkas- 
setten gegeben.  Meiner  Meinung  nach  fahren  Sie  deshalb  am 
besten  mit  den  einfachen  Kassetten  irgend  eines  renommierten 
Herstellers.  Um  zu  lange  Spulzeiten  zu  vermeiden,  empfehle  ich 
Ihnen  maximal  C60-Kassetten  zu  verwenden. 

Wie  Sie  wissen,  sind  am  Anfang  oder  am  Ende  des  Bandes  Vor- 
spannbänder angebracht,  um  die  Belastung,  die  beim  Anschlag 
an  das  Ende  auf  das  Band  einwirkt,  abzufangen.  Trotz  alledem 
wird  das  Magnetband  am  Anfang  und  am  Ende  immer  noch 
stärker  belastet  als  an  anderen  Stellen,  was  zu  einer  Dehnung 
führen  kann.  Ich  empfehle  Ihnen  deshalb,  auf  den  ersten  und 
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zu  speichern.  Sonst  gilt  für  Datenkassetten  das  gleiche  wie  für 
Audio-  und  Video-Kassetten.  Setzen  Sie  sie  keinen  starken 
Magnetfeldern  aus  und  lagern  Sie  sie  staubgeschützt.  Auch  soll- 
ten Sie  sie  nicht  zu  lange  lagern  (über  viele  Monate),  ohne  sie 
einmal  umzuspulen.  Sonst  treten  die  magnetischen  Schichten  des 
Bandes  möglicherweise  miteinader  in  Wechselwirkung  und  kön- 
nen sich  dadurch  verändern.  Um  Programme  gegen  äußere  Ein- 
flüsse oder  auch  eigenes  Fehlverhalten  zu  schützen,  empfiehlt  es 
sich,  von  allen  wichtigen  Daten  und  Programmen  eine  Kopie 
anzufertigen,  mit  der  Sie  nicht  arbeiten  und  die  Sie  auf  einer 
schreibgeschützten  Kassette  ablegen.  So  können  Sie  dann,  wenn 
Ihre  Arbeitskopie  zerstört  wird,  auf  das  Mutter-File  zurück- 
greifen. 


10.9.3  Arbeitsweise  der  Datasette 

Wie  im  Unterkapitel  10.6  beschrieben,  wird  die  zu  speichernde 
Information  in  Form  von  Pulsen  der  Datasette  übermittelt.  Dies 
geschieht  dadurch,  daß  beim  C64  am  Port- Bit  3 des  Prozessors 
(Speicherstelle  eins)  entweder  eine  Spannung  von  ca.  5 V = 1 
oder  0 V = 0 anliegt.  Dieser  Anschluß  ist  direkt  mit  den  Kas- 
setten-Port-Anschlüssen  E und  5 verbunden. 

Über  einige  elektronische  Stufen,  die  ich  hier  nicht  näher  er- 
läutern will,  gelangt  das  Signal  zum  Tonkopf.  Der  Tonkopf  ist 
eine  Spule  mit  Ringkern,  die  einen  kleinen  Schlitz  auf  der  dem 
Band  zugewandten  Seite  hat. 

Entsprechend  der  an  den  Spulenanschlüssen  angelegten  Spannung 
entsteht  ein  Magnetfeld  am  Schlitz,  das  dann  die  magnetisier- 
baren Partikel  auf  dem  Band  in  eine  bestimmte  Richtung  aus- 
richtet. Wenn  Sie  nun  das  Band  lesen,  wird  der  ganze  Vorgang 
umgekehrt. 

Durch  die  magnetisierten  Partikel  wird  über  den  Tonkopf schlitz 
eine  Spannung  in  der  Spule  erzeugt,  die  über  einige  Baustufen 
wieder  zu  dem  gleichen  Spannungsverlauf  führt  wie  beim  Ab- 
speichern. Diese  Spannung  liegt  an  den  Kassetten-Port-An- 
schlüssen  D und  4 an.  Wenn  nun  aus  irgendwelchen  Gründen  die 
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Stellung  des  Tonkopfes  zum  Band  beim  Lesen  anders  ist  als  beim 
Speichern,  erhalten  wir  Lesefehler. 


10.9.4  Ein  Lautsprecher  für  die  Datasette 

Sie  haben  sich  bestimmt  schon  darüber  geärgert,  daß  Sie  außer 
dem  ziemlich  unzuverlässigen  Zählwerk  keine  Möglichkeit  ha- 
ben, die  Position  Ihres  Bandes  festzustellen.  Wünschenswert 
wäre,  festzustellen,  ob  Sie  gerade  innerhalb  eines  Programms  das 
nächste  suchen  oder  ob  Sie  gerade  am  Start  eines  Programms 
sind.  So  könnten  Sie  viel  schneller  ein  bestimmtes  Programm 
suchen.  Diese  Möglichkeit  können  Sie  sich  durch  den  Anschluß 
eines  Lautsprechers  an  die  Datasette  schaffen.  Mit  Hilfe  dieses 
Lautsprechers  hören  Sie,  wo  ein  Programm  anfängt.  Sie  können 
nun  durch  die  Wiederholung  von  kurzzeitigem,  schnellem  Vor- 
lauf und  folgendem  "Reinhören"  mit  <Play>  viel  besser  den  Start 
des  folgenden  Programms  finden. 

Weiterhin  ist  das  akustische  "feed-back"  bei  der  Tonkopfjustie- 
rung, das  ich  in  Unterkapitel  10.9.5.  beschreiben  werde,  ein 
wichtiges  Hilfsmittel.  Zum  Anschluß  an  die  Datasette  eignet  sich 
jeder  Lautsprecher.  Da  es  ja  nicht  auf  einen  möglichst  guten 
Klanggenuß  ankommt,  können  Sie  auch  aus  einem  alten  Minira- 
dio den  Lautsprecher  ausbauen.  Dieser  Lautsprecher  wird  an  die 
READ-Leitung  angeschlossen.  Damit  Sie  diesen  Anschluß  nicht 
überlasten,  müssen  Sie  noch  einen  Widerstand  von  ca.  500  Ohm 
in  Reihe  schalten.  Weiterhin  können  Sie  noch  ein  Potentiometer 
von  2-5  KOhm  in  Reihe  zum  Lautsprecher  schalten,  um  die 
Lautstärke  regeln  zu  können. 


optional 


READ  O- 


3-5  kOhm  500  Ohi 


GRND  O- 
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Anschluß  des  Lautsprechers 

Am  einfachsten  läßt  sich  ein  Lautsprecher  an  den  Stecker  der 
Datasette  anschließen.  Dazu  öffnen  Sie  den  Stecker,  der  an  den 
Computer  gesteckt  wird,  und  klemmen  den  einen  Anschluß  an 
die  GROUND- Leitung  (A/1)  und  den  anderen  an  die  READ- 
Leitung  (D/4).  Schließen  Sie  den  Stecker  wieder  und  stecken  ihn 
an  den  Kassetten-Port  Ihres  Computers. 

Schalten  Sie  nun  den  Computer  ein,  legen  die  bespielte  Kassette 
ein  und  drücken  die  <Play>-Taste.  Jetzt  hören  Sie  entweder 
einen  eintönigen  Pfeif  ton  oder  ein  zirpendes  Geräusch.  Der 
Pfeifton  entspricht  der  Synchronisation  und  kennzeichnet  einen 
Blockanfang.  Das  zirpende  Geräusch  entspricht  den  auf  gezeich- 
neten Daten. 


10.9.5  Kopfjustage 

Es  kann  aus  verschiedenen  Gründen  Vorkommen,  daß  der  Ton- 
kopf nicht  mehr  in  der  richtigen  Stellung  zum  Band  steht,  was 
zum  fehlerhaften  Laden  führt.  Dies  kann  z.B.  passieren,  wenn 
Sie  Programme  von  einer  Kassette  einiesen  wollen,  die  nicht  mit 
Ihrer  Datasette  bespielt  wurde.  Es  kommt  aber  auch  vor,  daß 
sich  der  Kopf  selbständig  nach  längerer  Zeit  dejustiert.  Mit 
Hilfe  eines  Lautsprechers  ist  die  Dejustierung  gut  zu  hören. 
Wenn  der  Kopf  gegenüber  dem  Band  auch  nur  leicht  verwinkelt 
ist,  geht  dies  meist  zu  Lasten  der  hohen  Frequenzen. 

Doch  nun  zum  praktischen  Teil.  Wenn  Sie  die  neuere  Ausfüh- 
rung der  Datasette  haben,  finden  Sie  ungefähr  in  der  Mitte  vor 
dem  Kassettenfach  ein  kleines  Loch.  Durch  dieses  Loch  errei- 
chen Sie  mit  einem  kleinen  Kreuzschlitz-Schraubendreher  bei 
gedrückter  <Play>-Taste  die  Tonkopf  einsteilschraube. 

Doch  bevor  wir  nun  beginnen,  den  Kopf  zu  justieren,  noch  zwei 
Warnungen: 

1.  Es  ist  möglich,  daß  Sie  den  Kopf  so  sehr  dejustieren,  daß 
eine  richtige  Justage  ohne  aufwendige  Hilfsmittel  (Meßge- 
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räte)  nur  sehr  schwer  möglich  ist.  Auch  müssen  Sie  darauf 
achten,  daß  Sie  die  Justierschraube  nicht  gänzlich  herausdre- 
hen. Normalerweise  reichen  maximal  zwei  Umdrehungen  in 
jede  Richtung  aus,  um  den  Kopf  zu  justieren.  Meist  reicht 
schon  eine  halbe  Umdrehung  aus. 

2.  Nachdem  Sie  den  Kopf  neu  justiert  haben,  kann  es  sehr  gut 
sein,  daß  Sie  die  Programme;  die  Sie  mit  der  letzten  Einstel- 
lung abgespeichert  haben,  nicht  mehr  laden  können.  Damit 
Sie  möglichst  leicht  die  ursprüngliche  Kopfstellung  wieder- 
finden und  einen  dejustierten  Kopf  besser  justieren  können, 
benutzen  Sie  das  folgende  kleine  Programm.  Es  schreibt  ein 
Zirpen  auf  Kassette  mit  einem  großen  Anteil  hoher  Fre- 
quenzen. 


Da  es  ja  die  hohen  Frequenzen  sind,  die  zuerst  gedämpft  wer- 
den, erleichtern  Sie  sich  durch  dieses  Zirpen  die  Einstellung  auf 
die  Kopfstellung,  mit  der  das  Zirpen  abgespeichert  wurde,  sehr. 
Auch  können  Sie  damit  den  Kopf  bedeutend  genauer  justieren. 
Geben  Sie  also  das  Programm  ein  und  speichern  es  ab.  Schreiben 
Sie  dann  auf  eine  leere  Kassette  ca.  zwei  Minuten  das  von  die- 
sem Programm  erzeugte  Zirpen. 

10  REM  KOPFJUSTAGE  HILFSPROGRAMM  C64 
20  E=256*PEEK(56)+PEEK(55)-1 :A=E-17 
30  FOR I =ATOE : READX : POKE I , X : NEXT 
40  PRINT,ISTARTADRESSE"A 

50  PRINT :PRINT"LEGEN  SIE  EINE  LEERCASSETTE  EIN  UND" 

60  PR I NT : PR I NT"DRUECKEN  SIE  RECORD  & PLAY" 

70  WAIT1 , 16, 16 

80  PRINT :PRINT"ENDE  DURCH  <RUN/ST0P>-TASTE" 

90  SYSA:END 

1000  DATA160.255, 169,255, 162,255, 32, 177,251, 136,208,246,32, 225, 255, 208,2 
39,96 


Spulen  Sie  das  Band  zurück,  nehmen  Sie  den  kleinen  Kreuz- 
schlitz-Schraubendreher  zur  Hand  und  drücken  die  <Play>-Ta- 
ste.  Führen  Sie  nun  durch  das  beschriebene  Loch  den  Schrau- 
bendreher senkrecht  ein,  bis  er  in  der  Schraube  einrastet.  Drehen 
sie  nun  jeweils  eine  halbe  Umdrehung  nach  rechts  und  links  von 
der  Ausgangsposition,  und  achten  Sie  dabei  auf  die  typische 
Klangveränderung.  Nur  in  einer  Stellung,  nämlich  in  der  Aus- 
gangsstellung, hören  Sie  die  meisten  hohen  Frequenzen.  Legen 


Die  Datasette  VC  1530  - Tips  und  Tricks 


791 


sie  nun  eine  bespielte  Datenkassette  ein  und  wiederholen  Sie  den 
Vorgang.  Sie  werden  jetzt  in  einem  größeren  Bereich  keine 
Klangveränderung  mehr  feststellen.  Die  beste  Stellung  zwischen 
den  hörbaren  Änderungen  ist  hier  die  Mittelstellung. 

Nachdem  Sie  sich  auf  diese  Weise  etwas  "eingehört"  haben,  kön- 
nen Sie  auf  gleiche  Weise  den  Kopf  auch  auf  Programme  ju- 
stieren, die  Sie  nicht  laden  konnten.  Versuchen  Sie  auch  hier 
nach  Gehör  die  beste  Kopfstellung  herauszufinden.  Danach 
versuchen  Sie,  das  Programm  zu  laden.  Läßt  es  sich  immer  noch 
nicht  laden,  verändern  Sie  die  Kopfposition  etwas  und  versuchen 
es  erneut. 

Gelingt  es  Ihnen  trotz  vielfachen  Versuchens  nicht,  das  Pro- 
gramm einwandfrei  zu  laden,  verfahren  Sie  so,  wie  es  in  Unter- 
kapitel 10.3.1  beschrieben  wurde.  Ehe  Sie  aber  das  UNNEW- 
Programm  laden,  bzw.  das  Programmfragment  abspeichem, 
müssen  Sie  den  Tonkopf  mit  Hilfe  der  von  Ihnen  angefertigten 
Justierkassette  wieder  in  die  Ausgangsposition  bringen. 


10.9.6  Andere  Kassettenrekorder  zur 
Datenspeicherung 

In  meinen  Ausführungen  habe  ich  mich  immer  auf  die  Datasette 
von  Commodore  bezogen.  Es  ist  aber  ohne  weiteres  möglich,  an- 
dere Kassettenrekorder  mit  einer  entsprechenden  Anpassung  als 
Aufzeichnungsgerät  zu  verwenden.  Die  Anpassung  erfolgt  durch 
ein  Interface,  welches  die  vom  Band  kommenden  Signale  in  für 
den  Rechner  verständliche  Rechteckimpulse  umsetzt.  Solche  In- 
terface-Bausteine werden  von  verschiedenen  Herstellern  recht 
preiswert  angeboten. 

Der  Vollständigkeit  halber  möchte  ich  hier  eine  kleine  Schaltung 
zum  Selbstbau  darstellen.  Die  benötigten  Bauteile  entnehmen  Sie 
bitte  folgender  Aufstellung. 
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Bauteile  für  ein  Kassettenrekorder-Interface: 

1 Platinen-Stecker  für  den  Kassetten-Port  am  C64 
1 Stecker  für  den  Kopfhörerausgang  Ihres  Kassettenrekorders 
1 Stecker  für  den  Microphoneingang  Ihres  Kassettenrekorders 
1 IC  SN  7414  (6  * invertierender  Schmitt-Trigger) 

1 Microschalter  (ein/aus) 

1 Stecker  für  den  Remote -Eingang  Ihres  Rekorders  (optional) 

Als  Rekorder  eignen  sich  für  diese  Schaltung  nur  solche,  die  mit 
einer  Betriebsspannung  von  4 bis  6 V arbeiten  und  den  Minuspol 
auf  Masse  haben. 


Cass  . -Port 


Recorder 
MIC  Eing. 


Kopfhörer 

Remote 


Beschreibung  der  Anschlüsse  am  Kassetten-Port: 

A/1  = Masse 
B/2  = +5V 

C/3  = Kassettenmotor  (+5  V = ein) 

D/4  - Leseleitung 

E/5  = Schalterleitung  für  Rekordertaste 


In  dem  IC  SN  7414  sind  sechs  "invertierende  Schmitt-Trigger" 
enthalten.  Schmitt-Trigger  sind  Schaltungen,  die  aus  einem  be- 
liebigen Spannungsverlauf  entsprechende  Rechteckimpulse  bil- 
den, wie  ich  es  im  Unterkapitel  10.9.5  beschrieben  habe.  Von 
diesen  sechs  benötigen  wir  für  diese  Schaltung  nur  zwei,  da  es 
sich  ja  um  invertierende  Schaltungen  handelt.  Die  Betriebsspan- 
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nung  dieses  Bausteins  entnehmen  wir  dem  Kassetten-Port  (Pin7 
- A/1,  Pin  14  - B/2).  Wenn  Sie  den  Kassettenrekorder  nur  für 
Ihren  Rechner  benutzen,  können  Sie  die  Schaltung  in  das  Batte- 
riefach einbauen,  und  die  Microphon-  und  Kopfhörerleitung 
fest  anlöten.  Damit  sparen  Sie  die  Klinkenstecker. 

Sehr  praktisch  wäre  es  dann  noch,  wenn  Sie  in  der  Rekorder- 
mechanik eine  Stelle  finden  würden,  wo  Sie  den  Microschalter  so 
anbringen  können,  daß  er  beim  Drücken  einer  Taste  geschlossen 
wird.  Geht  das  nicht,  müssen  Sie  den  Schalter  außen  anbringen 
und  manuell  betätigen,  bevor  Sie  eine  Rekordertaste  drücken. 


10.10  Ein  neues  Kassettenbetriebssystem  - FastTape 

Im  ersten  Teil  habe  ich  Ihen  die  Handhabung  der  Datasette  mit 
dem  im  Rechner  eingebauten  Betriebssystem  erklärt.  Dazu  habe 
ich  Ihnen  einige  Programme  gezeigt,  die  das  Arbeiten  mit  Ihrem 
Datenrekorder  vereinfachen.  Nun  möchte  ich  Ihnen  ein  neues 
Betriebssystem  vorstellen,  das  nicht  nur  die  schon  beschriebenen 
Vereinfachungen  beinhaltet,  sondern  ca.  10-20  mal  schneller  ar- 
beitet und  damit  eine  Diskettenstation  noch  überflügelt. 

Ich  muß  zugeben,  daß  Sie  sich  aufgrund  der  Programmlänge  die 
Finger  fast  wund  tippen  können,  aber  das  Ergebnis  lohnt  die 
Arbeit.  Das  Programm  hat  folgende  Charakteristika: 

1.  10  mal  schnelleres  Speichern  und  Laden  der  Programme. 

2.  Unterstützung  der  Datenspeicherung. 

Daten  können  bis  zu  20  mal  schneller  geladen  und  gespei- 
chert werden  als  mit  dem  normalen  Betriebssystem. 

3.  "Append"  von  BASIC- Programmen  ist  mit  einem  Befehl 
möglich. 

4.  Das  Laden  in  oder  das  Speichern  von  bestimmten  Speicher- 
bereichen ist  ebenfalls  mit  z7einemz8  Befehl  möglich. 

5.  Programme  und  Daten,  die  mit  "FastTape"  abgespeichert 
wurden,  können  vom  C64  gelesen  werden. 
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6.  Alle  FastTape-Befehle  arbeiten  sowohl  im  Direktmodus  als 
auch  innerhalb  von  Programmen. 

Die  Bedienung  des  Programms 

Nach  dem  Laden  des  Programms  initialisieren  sie  es  mit 
SYS1 2*4096.  Durch  den  BASIC-Lader  wird  das  Programm  auto- 
matisch initialisiert.  Nach  einem  RESET  müssen  Sie  das  Pro- 
gramm aber  neu  initialisieren.  Jedem  FastTape-Befehl  geht  ein 
Pfeil  nach  links  (<-)  voraus. 

Ihnen  stehen  jetzt  folgende  Befehle  zur  Verfügung  (in  Klam- 
mern stehende  Ausdrücke  sind  optional,  müssen  also  nicht  gege- 
ben werden): 


SA 


Sekundäradresse 


Sadr,  Eadr  = Start-  bzw.  Endadresse 

"name"  kann  auch  als  String-Variable  übergeben  werden 


Sfname", SA, Sadr, Eadr) 


FastTape  SAVE 


("name")  BASIC-Programm  wird  als  verschiebbares  File  im 
Programm  gespeichert  und  mit  L an  den  BASIC- 
RAM-Start  geladen. 

S"name",l  BASIC-Programm  wird  als  absolutes  File  gespeichert 
und  mit  L an  die  Adresse  geladen,  von  wo  es  abge- 
speichert wurde. 

S"Name",  1 ,Sadr,Eadr 

Der  Speicherbereich  zwischen  "Sadr"  und  "Eadr"  wird 
als  absolutes  File  gespeichert. 
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LCname",SA,Sadr) 


FastTape  LOAD 


Wird  dieser  Befehl  innerhalb  eines  Programms  gegeben,  startet 
danach  das  BASIC-Programm  analog  zum  LOAD-Befehl  wieder 
bei  der  ersten  Zeile. 

L("name")  Ein  Programm  oder  Speicherbereich,  der  mit  S ab- 
gespeichert wurde,  wird  entsprechend  der  bei  S ge- 
gebenen SA  entweder  absolut  oder  verschiebbar  ge- 
laden. Wird  dieser  Befehl  im  Direktmodus  gegeben, 
werden  die  BASIC-Vektoren  entsprechend  dem  ge- 
ladenen Programm  gesetzt. 

L"name",l  Programme  und  Speicherbereiche  werden  absolut 
geladen.  Auch  im  Direktmodus  werden  durch  diesen 
Befehl  die  BASIC-Vektoren  "z7nichtz8"  geändert. 
Dadurch  ist  kein  NEW-Befehl  nach  dem  Laden  eines 
Maschinenprogramms  notwendig. 

L"name,l,Sadr 

Ein  Speicherbereich  wird  an  "Sadr"  geladen,  unab- 
hängig davon,  von  welcher  Adresse  es  abgespeichert 
wurde.  Dadurch  haben  Sie  z.B.  die  Möglichkeit, 
einen  abgespeicherten  Bildschirminhalt  auch  dann 
wieder  in  den  Video-ROM  einzulesen,  wenn  Sie  den 
Video-ROM  verschoben  haben. 


Vfname>lSA,Sadr) 


FastTape  VERIFY 


Arbeitet  analog  zu  L,  vergleicht  aber  nur  den  Speicherinhalt  mit 
den  auf  Band  stehenden  Bytes. 
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Mfname") 


FastTape  MERGE 


Mit  diesem  Befehl  können  Sie  ein  FastTape -Programm  an  das  im 
Speicher  befindliche  anhängen. 


DS"name‘ 


DATASAVE 


Dieser  Befehl  speichert  alle  bis  dahin  definierten  Variablen,  Fel- 
der und  Strings  ab.  Mit  diesem  Befehl  werden  nur  die  im 
String-Speicher  stehenden  Strings  abgespeichert.  Wenn  in  Ihrem 
Programm  String-Zuweisungen  wie 

100  AS=,,TEST” 

existieren,  können  Sie  die  entsprechenden  Strings  nur  mit  dem 
gleichen  Programm  wieder  richtig  laden.  Abhilfe  können  Sie 
durch  eine  Verknüpfung  mit  einem  Leer-String  schaffen.  Hier 
gilt  das  gleiche,  wie  im  Unterkapitel  10.4.1  beschrieben. 


DL"Name" 


DATALOAD 


Mit  diesem  Befehl  laden  Sie  die  mit  DS  abgespeicherten  Vari- 
ablen, Felder  und  Strings.  Alle  bis  zu  diesem  Befehl  definierten 
Variablen,  Felder  und  Strings  werden  gelöscht. 

Achtung!!  DS  und  DL  muß  immer  in  Verbindung  mit  einem 
File-Namen  verwandt  werden.  Durch  diese  Befehle 
werden  die  Variablen,  Felder  und  Strings  in  drei 
Blöcken  abgespeichert  bzw.  geladen.  Der  File-Name 
dient  dem  Computer  zur  Identifizierung  des  jeweils 
ersten  Blocks. 
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Das  BASIC-RAM-Ende  muß  bei  DS  und  dem  ent- 
sprechenden DL  das  gleiche  sein.  Die  String-Tabelle 
wird  als  absoluter  Block  gespeichert  und  geladen. 
Wenn  Sie  das  Ende  des  BASIC-RAM  heruntersetzen, 
nachdem  Sie  DS  gegeben  haben,  und  dann  mit  DL 
Daten  laden,  kann  eventuell  ein  hinter  das  neue 
BASIC-RAM-Ende  geschriebene  Maschinenpro- 
gramm zerstört  werden.  Damit  Sie  sehen,  wie  kom- 
fortabel Sie  mit  diesen  Befehlen  Datenverarbeitung 
betreiben  können,  finden  Sie  im  nächsten  Unterka- 
pitel, ein  ausführlich  beschriebenes  Dateiverarbei- 
tungsprogramm. Durch  den  BASIC-Lader  FT64  wird 
das  Programm  im  C64  ab  der  Speicherstelle  SC000 
abgelegt. 


82  .PAG  61,5 
90  .OPT  P 
92  : 

94  ; FASTTAPE  FUER  C64 

95  : : 

98  : : 

100  *=  SCOOO 
110  COM PU  = S00 
120  PORT  = $1 
130  ABSFLG  = $2 
140  MOFLAG  = SCO 
150  BITC  = SA3 
153  BEFANZ  = 4 
155  CODE  = " " 

157  CHRGET  =”$73 

160  VECTOR  = $308  ; BEFEHLSADR.  HOLEN 
165  IRQFLG  = S2A0  ; IRQ  FLAG 
170  STATUS  = $90  ; STATUS- BYTE 
175  STARTV  = $C3  ; LADESTARTVEKTOR 
180  ENDVEC  = $AE  ; LADEENDVEKTOR 

185  PSUMME  = $D7  ; PRUEFSUMMEN-BYTE 

186  CASPUF  = $033C  ; STARTADR.  VOM  CASSETTENPUFFER 

187  :CIA1  = $DD00  ; C-64  = STARTADRESSE  DES  CIA1 

188  CIA2  = SDCOO  ; C-64  = STARTADRESSE  DES  C1A2 

189  : 

190  SAVING  = $F68F  ; GIBT  SAVING  'NAME1  AUS 
195  LOADING  = $F5D2  ; GIBT  LOADING  AUS 

200  STOP  = $A82C  ; TESTET  <STOP>-TASTE 
220  ENDEN  = $FC93  ; LADEN  BEENDEN 
230  BEFEND  = $E17A  ; RUECKSPRUNG  VOM  LADEN 
240  FOUND  = SF750  ; GIBT  FOUND  'NAME'  AUS 
260  STOEND  = $F5A9  ; ENDADR.  NACH  X/Y 
300  OLD  = $A7E7  ; BEFEHL  AUSWERTEN 
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310  INTER  = $A7AE  ; 
320  RPTASTE  = SF838 
330  PTASTE  = SF817  ; 
335  GABCOL  = SB526  ; 
340  UZEICH  = $E206  ; 
350  HFNAM  = $E257  ; 
360  HOLPAR  = $E200  ; 
365  CHRIN  = $E20E  ; 
370  SYNTAX  = $AF08  ; 
380  FRMNUM  - SAD8A  ; 
390  FACINT  = SB7F7  ; 
395  CLEAR  = SA660  ; 
400  FEHLAUS  = SA437 
410  BEENDEN  = SA677 
420  : 


INTERPRETERSCHLEIFE 
; WARTET  AUF  PLAY-TASTE 
WARTET  AUF  TASTE 
GARBAGE  COLLECTION 
WEITERE  ZEICHEN  PRINT 
FI  LE -NAMEN  HOLEN 
FILE-PARAMETER  HOLEN 
ZEICHEN  HOLEN 
SYNTAX  ERROR  AUSGEBEN 
TERM  AUSUERTEN 
IN  INTEGER  WANDELN 
CLR 

; FEHLER  AUSGEBEN 


430  HOLSTA  = SFFB7  ; STATUS  HOLEN 

440  SETNAM  = SFFBD  ; FILE-NAME-PARAMETER  SETZEN 

450  SETLFS  = SFFBA  ; FI  LE -PARAMETER  SETZEN 

460  GET  = SFFE4  ; EIN  ZEICHEN  EINLESEN 

500  : 

510  : 

520  ; PROGAMM  INITIALISIEREN 
530  : 

560  INIT  LDA  #<START 
570  STA  VECTOR 
580  LDA  #>START 
590  STA  VECTOR+1 
600  RTS 
602  : 

603  : 

604  ; PROGRAMMSTART 
606  : 

610  START  JSR  CHRGET  ; ZEICHEN  HOLEN 
620  BEQ  ENDE 

630  CMP  #CODE  ; MIT  FASTTAPECODE 

640  BEQ  FTAPE  ; VERGLEICHEN 

650  ENDE  JMP  OLD  ; UNGLEICH  =>  ALTE  ROUTINE 

654  : 


655  ; FASTTAPE  BEFEHL  AUSWERTEN 
657  : 


660  FTAPE  JSR  CHRGET 
670  JSR  SUCH 
680  JMP  INTER 
690  SUCH  LDX  #0 

700  SUCHL  CMP  TAB.X  ; MIT  BEFEHLSBUCHSTABEN 
710  BEQ  BEFEHL  ; AUS  TABELLE  VERGLEICHEN 
720  INX 

730  CPX  BEFANZ 
740  BNE  SUCHL 

750  JMP  SYNTAX  ; KEIN  FASTTAPE  BEFEHL 
755  : 

760  BEFEHL  TXA 

770  ASL  : TAX  ; BEFZAHL  * 2 
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780  LDA  BEFADR+1.X  ; BEFEHLSADRESSE  AUF 

790  PHA  ; STACK 

800  LDA  BEFADR.X  : PHA 

810  JMP  CHRGET  ; UND  BEFEHL  AUSFUEHREN 

815  : 

820  DATA  CMP  df'S"  ; DATEN  SPEICHERN 
830  BEQ  DS 

840  CMP  #,,L"  ; DATEN  LADEN 
850  BEQ  DL 
860  JMP  SYNTAX 
865  : 

870  DS  JSR  CHRGET  : JMP  DASAV1 
880  DL  JSR  CHRGET  : JMP  DATLOO 

885  : 

886  ; TABELLE  DER  BEFEHLSBUCHSTABEN 

887  : 

890  TAB  .ASC  "SLVMD" 

895  : 

896  ; TABELLE  DER  BEFEHLSADRESSEN 

897  : 

900  BEFADR  .WORD  SAVE-1  : .WORD  LOAD-1  : .WORD  VER1FY-1 
910  .WORD  MERGE1-1  : .WORD  DATA-1 
920  : 

1650  : 

1660  : 

1665  ;SAVE  ROUTINE 

1666  : 

1670  SAVE  LDX  #$05  ; ANZAL  DER  SYNCHR. 

1680  STX  SAB  ; WIEDERHOLUNGEN 

1682  LDX  #$00  ; FLAG  LOESCHEN 

1684  STX  ABSFLG 

1690  JSR  GETPARA  ; PARAMETER  HOLEN 
1692  LDA  ABSFLG 

1694  AND  #2  ; TEST  AUF  BIT  2 

1695  BNE  ABSOLUT  ; GESETZT  =>  ABSOLUT  LADEN 
1700  LDX  #$04 

1710  LOOP1  LDA  $2A,X  ; SPEICHERT  BASICSTART  UM 

1720  STA  $AB,X 

1725  STA  $A6,X 

1730  DEX 

1740  BNE  LOOP1 

1750  ABSOLUT  JSR  RPTASTE 

1760  JSR  SAVING  ; 'SAVING  NAME'  AUSGEBEN 

1770  JSR  MOTOR  ; MOTOR  EINSCHALTEN 

1774  : 

1775  ; VORSPANN  SCHREIBEN 

1776  : 

1780  JSR  SYNCH  ; S YBCHRON I SAT I ON  1 SCHREIBEN 
1790  LDA  $B9  ; SECUNDAERADR . INCREMENTIEREN 
1800  CLC 
1810  ADC  #$01 
1820  DEX 

1830  JSR  WBYTE  ; SCHREIBT  SA 
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1840  LDX  #$08+COMPU 

1850  LOOP2  LDA  $A7,Y  ; SCHREIBT  START-  UND  ENDADRESSE 

1860  JSR  UBYTE 

1870  LDX  #$06+COMPU 

1880  INY 

1890  CPY  #$05 

1900  NOP 

1910  BNE  LOOP2 

1920  LDY  #$00  .-SCHREIBT  FILE-NAMEN  UND  'SPACES' 

1930  LDX  #$04+C0MPU 
1940  LOOP3  LDA  ($BB),Y 
1950  CPY  $B7 
1960  BCC  TEXT 
1970  LDA  #$20 
1980  DEX 

1990  TEXT  JSR  WBYTE 
2000  LDX  #$05 
2010  INY 
2020  CPY  #$BB 
2030  BNE  L00P3 

2034  : 

2035  ; SYNCHRONISATION  2 SCHREIBEN 

2036  : 

2040  LDA  #$02 
2050  STA  SAB 

2060  JSR  SYNCH  ; SCHREIBT  SYNCHRONISATION 
2070  TYA 

2080  JSR  WBYTE  ; 0 BYTE  =>  ENDE  VORSPANN 
2090  STY  P SUMME  ; PRUEFSUMMEN-BYTE  LOESCHEN 
2100  LDX  #$07+COMPU 

2104  : 

2105  .-PROGRAMM  SCHREIBEN 

2106  : 

2110  NOP 

2120  PRGLOOP  LDA  ($AC),Y  ; PROGRAMM  AUF  BAND  SCHREIBEN 

2130  JSR  UBYTE 

2140  LDX  #$03+COMPU 

2150  INC  $AC  ; PROGRAMMZEIGER  ERHOEHEN 

2160  BNE  NOHI 

2170  INC  SAD 

2180  DEX 

2190  DEX 

2200  NOHI  LDA  $AC 

2210  CMP  ENDVEC  ; PROGRAMMENDE  EREICHT 

2220  LDA  SAD 

2230  SBC  ENDVEC+1 

2240  BCC  PRGLOOP  ; NEIN  =>  WEITER 

2250  NOP 

2260  LOOP4  LDA  PSUMME  ; PRUEFSUMME  SCHREIBEN 

2270  JSR  UBYTE 

2280  LDX  #$07+COMPU 

2290  DEY 

2300  BNE  LOOP4 
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2310  INY 

2320  STY  MOFLAG  ; MOTOR  AUSSCHALTEN  VORBEREITEN 

2330  CLI 

2340  CLC 

2350  LDA  #$00 

2360  STA  IRQFLG 

2370  JMP  ENDEN 

2372  : 

2373  ; MOTOR  STARTEN 

2374  : 

2375  MOTOR  JSR  STOP 
2380  LDY  #$00 

2390  STY  MOFLAG 

2400  LDA  $0011  ; BILDSCHIRM  AUS 
2410  AND  #$EF  ; 

2420  STA  $0011  ; 

2430  ANLOOP  DEX  ; WARTET  BIS  MOTOR  HOCH 

2440  BNE  ANLOOP  ; GELAUFEN  IST 

2450  DEY 

2460  BNE  AN LOOP 

2470  SEI 

2480  RTS 

2481  : 

2482  ; SYNCHRONISATION  GENERIEREN 
2484  : 

2490  SYNCH  LDY  #$00 

2500  LOOP5  LDA  #$02  ; START-BYTE  255-9  MAL  SCHREIBEN 
2510  JSR  WBYTE 

2520  LDX  #$07+COMPU  ; BYTE-WERT 

2530  DEY 

2540  CPY  #$09 

2550  BNE  LOOP5 

2560  LDX  #$05+C0MPU 

2570  DEC  $AB 

2580  BNE  LOOP 5 

2581  : 

2582  ; COUNTDOWN  SCHREIBEN 
2584  : 

2590  COUNTS  TYA  ; COUNTDOWN 

2600  JSR  WBYTE 

2610  LDX  #$07+COMPU 

2620  DEY 

2630  BNE  COUNTS 

2640  DEX 

2650  DEX 

2660  RTS 

2662  : 

2664  ;BYTE  AUF  BAND  SCHREIBEN 
2666  : 

2670  WBYTE  STA  $BD 
2680  EOR  PSUMME 
2690  STA  PSUMME 
2700  LDA  #$08 
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2710  STA  BITC 
2720  SHIFT  ASL  $BD 
2730  LOA  PORT 
2740  AND  #$F7 
2750  JSR  TI  LOOP 
2760  LDX  #$11+COMPU 
2770  NOP 
2780  ORA  #$08 
2790  JSR  TI LOOP 
2800  LDX  #$OE+COMPU 
2810  DEC  BITC 
2820  BNE  SHIFT 
2830  RTS 
2840  TI LOOP  DEX 
2850  BNE  T1LOOP 

2860  BCC  BI TO  ; WENN  CARRY  GESETZT, 

2870  LDX  #$OB  ; DANN  ZEITSCHLEIFE 
2880  T2LOOP  DEX  ; VERLAENGERN 
2890  BNE  T2LOOP 
2900  BI TO  STA  PORT 

2902  RTS 

2903  : 

2904  : 

2905  ;MERGE 

2906  : 

2909  ;MERGE 

2910  HERGEI  LDA  $2D 

2911  SEC 

2912  SBC  #2  : TAY  : LDA  $2E  :SBC  #0 

2913  LDX  #0 

2914  BEQ  MERGE2 

2915  : 

2916  : 

2917  ; LADEN 

2918  : 

2919  : 

2920  LOAD  LDX  #$00 
2925  .BYTE  $2C 
2930  VERIFY  LDX  #$01 

2940  LDY  $2B  ; BASICSTARTVECTOREN  IN 

2950  LDA  $2C  ; STARTSPEICHERSTELLEN 

2960  MERGE2  STX  $0A  ; LOAD  FLAG  (0=LOAD/1=VERIFY) 

2970  STX  $93  ; SETZEN 

2975  LDX  #0 

2980  STX  ABSFLG  ; ABSOLUT FAG  LOESCHEN 

2985  STY  STARTV 

2990  STA  STARTV+1 

3000  JSR  GETPARA 

3010  JSR  LOADR  ; LOAD  UND  VERIFY 

3020  JHP  BEFEND 

3022  : 

3024  ; LADEROUT INE 
3026  : 
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3040  LOADR  JSR  SSYNCH 
3050  LDA  SAB 

3060  CMP  #$02  ; IST  PRG  ABS.  GESPEICHERT 
3070  BEQ  ABSOL  ; =>  ABSOLUT  LADEN 
3080  CMP  #$01  ; BYTE  NICHT  1 =>  WEITERSUCHEN 
3090  BNE  LOADR 

3100  LDA  $B9  ; SEKUNDAERADRESSE  = 0 
3110  BEQ  RELLOD  ; =>  VERSCHIEBLICH  LADEN 

3112  ABSOL  LDA  #2  ; ABSOLUT -FLAG  SETZEN 

3113  ORA  ABSFLG 

3114  STA  ABSFLG 

3120  LDA  CASPUF  ; STARTADRESSE  AUS  PUFFER 
3130  STA  STARTV  ; IN  STARTVECTOR 
3140  LDA  CASPUF+1 
3150  STA  STARTV+1 

3155  RELLOD  JSR  ADTEST 

3156  LDA  ABSFLG  ; TEST  AUF  'WARTEN' 

3157  AND  #4 

3158  BNE  NOWAIT 

3160  JSR  FOUND  ; FOUND  'NAME'  AUSGEBEN 
3170  WAIT  JSR  GET  ; 

3180  BEQ  WAIT  ; 

3190  NOWAIT  JSR  STOP 

3200  LDY  $B7  ; F ILE- NAMEN -LAENGE 

3210  BEQ  NONAME 

3220  TESTNA  DEY  ; FILE-NAMEN  TESTEN 

3230  LDA  ($BB),Y 

3240  CMP  CASPUF+5.Y 

3250  BNE  LOADR 

3260  TYA 

3270  BNE  TESTNA 

3280  NONAME  STY  STATUS  ; STATUS  LOESCHEN 
3290  JSR  LOADING 

3300  LDA  CASPUF+2  ; ENDADRESSE  BERECHNEN 

3310  SEC  ; AUS  DIFFERENZ  START-  + ENDADR. 

3320  SBC  CASPUF  ; AUS  DEM  HEADER 

3330  PHP  ; PLUS  BESTIMMTER 

3340  CLC  ; STARTADRESSE 

3350  ADC  STARTV 

3360  STA  ENDVEC 

3370  LDA  CASPUF+3 

3380  ADC  STARTV+1 

3390  PLP 

3400  SBC  CASPUF+1 
3410  STA  ENDVEC+1 
3420  JSR  PLOAD 
3430  LDA  $BD 

3440  EOR  PSUMME  ; PRUEFSUMME  TESTEN 

3450  ORA  STATUS 

3460  BEQ  OK 

3470  LDA  #$FF 

3475  STA  STATUS 

3480  OK  LDA  ABSFLG  ; FLAG  TESTEN 
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3484  BNE  ALTADR  ; WENN  GESETZT*»  ALTE  ENDVECTORE 

3486  JMP  STOEND  ; ERHALTEN 

3488  ALTADR  LDX  $20 

3490  LDY  $2E 

3492  RTS 

3500  SSYNCH  JSR  SCOUNT  ; SYNCHRONISATION  SUCHEN 
3510  CMP  #$00  ; SYNCHR.  VOR  HEADER  => 

3520  BEQ  SSYNCH  ; SYNCH  NACH  HEADER  SUCHEN 

3530  STA  SAB  ; SEKUNDAERADRESSE  + 1 

3540  SPSTART  JSR  HOLBYT  ; START  DES  PROGRAMMS 

3550  STA  ($B2),Y  ; SUCHEN 

3560  INY 

3570  CPY  #$C0 

3580  BNE  SPSTART 

3590  BEQ  GEFUN  ; ENDE  VORSPANN, PRG  LADEN 
3600  PLOAD  JSR  SCOUNT  ; PROGRAMM  LADEN 
3610  LLOOP  JSR  HOLBYT 
3620  CPY  $93 

3630  BNE  VERGL  ; BEI  VERIFY  NUR  VERGLEICHEN 

3640  STA  (STARTV), Y 

3650  VERGL  CMP  (STARTV), Y 

3660  BEQ  GLEICH 

3670  STX  STATUS 

3680  GLEICH  EOR  PSUMME  ; PRUEFSUMME  BERECHNEN 
3690  STA  PSUMME 

3700  INC  STARTV  ; ADRESSE  ERHOEHEN 

3710  BNE  NOTHI 

3720  INC  STARTV+1 

3730  NOTHI  LDA  STARTV 

3740  CMP  ENDVEC  ; ENDADRESSE  ERREICHT 

3750  LDA  STARTV+1 

3760  SBC  ENDVEC+1 

3770  BCC  LLOOP  ; NEIN  =>  WEITER 

3780  JSR  HOLBYT 

3790  JSR  MOTOR 

3800  INY 

3810  GEFUN  STY  MOFLAG 
3820  CLI 
3830  CLC 
3840  LDA  #$00 
3850  STA  IRQFLG 
3860  JMP  ENDEN 

3870  SCOUNT  JSR  PTASTE  ; COUNTDOWN  SUCHEN 
3880  JSR  MOTOR 
3890  STY  PSUMME 

3900  LDA  #$07  ; ($27)  WERT  FUER  TIMER  LO 
3910  STA  CIA1+6  ; (PORT+8)  IN  TIMER  LO 
3920  LDX  #$01  ; WERT  FUER  TIMER  HI 
3930  SSTART  JSR  HOLBIT  ; START  SUCHEN 
3940  ROL  $BD 
3950  LDA  $BD 

3960  CMP  #$02  ; START  GEFUNDEN 
3970  BNE  SSTART 
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3980  LDY  #$09  ; =>  COUNTDOWN  SUCHEN 
3990  ENDE2  JSR  HOLBYT  ; ENDE  DER  ’2*  - BYTES 
4000  CMP  #$02  ; SUCHEN 
4010  BEQ  ENDE2 

4020  COUNTL  CPY  $BD  ; TESTET  DEN  COUNTDOWN 

4030  BNE  SSTART 

4040  JSR  HOLBYT 

4050  DEY 

4060  BNE  COUNTL 

4070  RTS 

4072  : 

4075  ; BYTE  VON  BAND  HOLEN 

4076  : 

4080  HOLBYT  LDA  #$08  ; 8 BIT 

4090  STA  BITC 

4100  SH1FT7  JSR  HOLBIT 

4110  ROL  $BD  ; SCHIBT  CARRY  IN  EINGABEPUFFER 

4120  NOP 

4130  NOP 

4140  NOP 

4150  DEC  BITC 

4160  BNE  SHIFT7 

4170  LDA  $BD 

4180  RTS 

4182  : 

4184  ; BIT  VON  BAND  HOLEN  FUER  C-64 

4185  : 

4190  HOLBIT  LDA  #$10 

4200  WAITDA  BIT  CIA2+13  .-WARTET  AUF  SIGNAL  AN  'FLAG' 
4210  BEQ  WAITDA 

4220  LDA  CIA1+13  ; ICR  LADEN.  HAT  TB  0 ERREICHT 
4225  ; =>  BIT  1 IST  GESETZT 
4230  STX  CIA1+7  ; WERT  IN  TB  HI 
4240  PHA  ; ICR  RETTEN 

4250  LDA  #$19  ; TB  STARTEN,  EINMALIGES  ZAEHLEN 

4260  STA  CIA1+15 

4270  PLA  ; ICR  HOLEN 

4280  LSR  A ; BIT  1 INS  CARRY  SCHIEBEN 

4290  LSR  A 

4300  RTS 

4310  : 

4435  .-PARAMETER  HOLEN 

4436  : 

4450  GETPARA  LDA  #0 

4460  JSR  SETNAM 

4470  LDX  #1  ; DEFAULT  FUER  GA 

4480  LDY  #00  ; DEFAULT  FUER  SA 

4490  JSR  SETLFS 

4510  JSR  WZE ICH  ; WEITERE  ZEICHEN 

4520  JSR  HFNAM 

4540  JSR  WZE ICH 

4550  JSR  HOLPAR 

4560  TXA 
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4570  TAY 
4580  JSR  SETLFS 
4600  JSR  UZEICH 
4610  JSR  HOLUERT 
4620  STX  $AC 
4622  STX  SA7 
4624  STY  SA8 
4630  STY  SAD 

4632  LDX  #1  ; FLAG  FUER  AN  BESTIMMTE 

4634  STX  ABSFLG  ; ADRESSE  LADEN  UND  RETTEN 

4650  JSR  UZEICH 

4660  JSR  HOLUERT 

4670  STX  SAE 

4672  STX  SA9 

4674  STY  SAA 

4680  STY  SAF 

4685  LDA  ABSFLG 

4690  ORA  #2 

4695  STA  ABSFLG 

4700  RTS 

4710  HOLUERT  JSR  CHRIN  ; NAECHSTEN  UERT  HOLEN 

4720  JSR  FRMNUM  ; AUSDRUCK  AUSUERTEN 

4730  JSR  FACINT  ; IN  2BYTE  UERT  UMRECHNEN 

4740  LDX  $14 

4750  LDY  $15 

4760  RTS 

4770  ADTEST  LDA  ABSFLG  ; FLAG  LADEN 
4780  AND  #1 

4790  BEO  NORM  ; UNGLEICH  =>  NORMAL  LADEN 

4800  LDA  $AC 

4810  STA  ST ART V 

4820  LDA  SAD 

4830  STA  STARTV+1 

4840  NORM  RTS 

4940  : 

4945  : 

4950  ; DATASAVE 
4970  : 

5000  DASAV1  JSR  GABCOL 
5010  LDX  #5 
5020  STX  SAB 
5030  JSR  GETPARA 
5040  LDA  #1  ; SA=1 

5050  STA  SB9 
5060  LDX  #4 

5070  ULOOP  LDA  S2C.X  ; VARIABLEN  START-  UND 
5080  STA  SAB.X  ; ENDADRESSEN  UMSPEICHERN 
5085  STA  SA6.X 
5090  DEX 
5100  BNE  ULOOP 

5110  JSR  ABSOLUT  ; ABSPEICHERN 
5112  LDX  #0 

5114  STX  SB7  ; KEIN  FILE-NAME 
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5115  LDX  #5 
5117  STX  SAB 
5119  DEX 

5130  U2L00P  LDA  S2E,X  ; ARRAY  START-  UND 
5140  STA  $AB,X  ; ENDADRESSEN  UMSPEICHERN 
5145  STA  SA6,X  ; ENDADRESSEN  UMSPEICHERN 
5150  DEX 
5160  BNE  U2LOOP 

5170  JSR  ABSOLUT  ; ABSPEICHERN 
5175  LDX  #5 
5177  STX  SAB 

5190  LDA  S33  ; STRING  START-  UND 
5200  LDX  S34  ; 

5210  STA  SAC 
5215  STA  SA7 
5220  STX  SAD 
5225  STX  SA8 

5230  LDA  S37  ; ENDADRESSEN  UMSPEICHERN 
5240  LDX  S38  ; 

5250  STA  SAE 
5255  STA  SA9 
5260  STX  SAF 
5265  STX  SAA 

5270  JMP  ABSOLUT  ; ABSPEICHERN 
5300  : 

5305  : 

5310  ; DATALOAD 
5320  : 

5410  DATLOD  JSR  GETPARA 

5420  LDA  #1  ; AN  BESTIMMTE  ADRESSE  LADEN 

5430  STA  ABSFLG 

5440  LDA  S2D  ; VARIABLENSTARTADRESSE  ALS 

5450  LDX  S2E  ; STARTADRESSE 

5460  STA  SAC  ; UMSPEICHERN 

5470  STX  SAD 

5480  JSR  LOADR  ; LADEN 

5482  LDA  #4+1  ; NICHT  WARTEN,  AN  BESTIMMTE 

5486  STA  ABSFLG  ; ADRESSE  LADEN 

5490  LDA  #0 

5500  STA  SB7  ; KEIN  FILE-NAME 
5510  LDX  SAE  ; VARIBLENENDE 
5520  LDY  SAF 

5530  STX  S2F  ; IN  VEKTOR 
5540  STY  S30 

5550  STX  SAC  ; UND  LADESTARTVEKTOR 

5560  STY  SAD 

5570  JSR  LOADR  ; LADEN 

5580  LDX  SAE  ; ARRAYENDE 

5590  LDY  SAF 

5600  STX  $31  ; IN  VEKTOR 
5610  STY  S32 

5620  LDA  #4  ; VON  ADRESSE  VOM  HEADER 
5630  STA  ABSFLG  ; LADEN 
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5640  JSR  LOADR  ; LADEN 

5642  LDA  CASPUF  : STA  $33 

5644  LDA  CASPUF+1  : STA  $34 

5650  JSR  HOLSTA  ; STATUS  HOLEN 

5660  AND  $BF  ; EOF-BIT  LOESCHEN 

5670  BEQ  NOFEHL  ; KEIN  FEHLER 

5680  LDX  #$1D  ; OFFSET  FUER  'LOAD  ERROR1 

5690  JMP  FEHLAUS  ; FEHLER  AUSGEBEN 

5700  NOFEHL  LDX  #$19  ; STRING-DESCRIPTOR 

5710  STX  $16  ; INDEX  RUECKSETZEN 

5720  LDA  #00 

5730  STA  $3A  : STA  $10  ;CONT  SPERREN 
5740  RTS 
5750  .END 


1000  REM  LOADER  FT64 

1010  E=501 05 : A=491 52 : PS=0 

1020  FOR I =ATOE : RE ADX : POKE I , X : PS=PS+X : NEXT 

1030  I FPS<>120504THENPRINT"FEHLER  IN  DATAS" :END 

1040  SYSA 

10000  DATA169.1 1,141 ,8, 3, 169, 192, 141, 9,3, 96, 32, 115, 0,240,4, 201 ,95, 240, 3, 
76,231 

10010  DATA167, 32, 115, 0,32,32, 192,76, 174, 167, 162, 0,221, 84, 192, 240, 8,232, 2 
28,4 

10020  DATA208,246,76,8, 175, 138, 10, 170, 189,90, 192, 72, 189,89, 192, 72, 76, 115 

,0,201 

10030  DATA83, 240, 7,201, 76,240, 9,76,8, 175, 32, 115, 0,76, 17, 195, 32, 115, 0,76, 
97,195 

10040  DATA83, 76, 86, 77, 68, 98, 192, 11 1,193, 114, 193, 97, 193,60, 192, 162, 5, 134, 
171,162 

10050  DATAO, 134, 2, 32, 176, 194, 165, 2,41, 2, 208, 11, 162, 4, 181, 42, 149, 171, 149, 
166,202 

10060  DATA208,247,32, 56,248,32, 143, 246, 32, 252, 192, 32, 19, 193, 165, 185, 24,1 
05.1 

10070  DATA202.32, 51, 193, 162, 8, 185, 167,0, 32, 51, 193, 162, 6,200, 192, 5, 234, 20 
8,242 

10080  DATA160, 0,162, 4, 177, 187, 196, 183, 144, 3, 169,32, 202,32,51, 193, 162, 5, 2 
00,192 

10090  DATA187, 208, 237, 169,2, 133, 171, 32, 19, 193, 152, 32, 51, 193, 132, 215, 162, 
7,234 

10100  DATA177, 172, 32, 51, 193, 162,3, 230, 172, 208,4, 230, 173, 202, 202, 165, 172, 
197,174 

10110  DATA165, 173, 229, 175, 144, 231, 234, 165, 215, 32, 51, 193, 162, 7, 136, 208,24 

6,200 

10120  DATA132, 192, 88, 24, 169,0, 141, 160, 2, 76, 147, 252, 32,44, 168, 160,0, 132,1 
92,173 

10130  DATA17, 208,41, 239, 141, 17,208,202, 208,253, 136,208,250, 120, 96, 160,0, 
169,2 

10140  DATA32, 51, 193, 162, 7, 136,192, 9,208,244, 162, 5. 198, 171, 208,238, 152, 32 
,51,193 

10150  DATA162, 7, 136,208,247,202, 202, 96, 133, 189, 69, 215, 133, 215, 169,8, 133, 
163,6 
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10160  DATA189, 165, 1,41, 247,32, 85, 193, 162, 17, 234,9, 8, 32, 85, 193, 162, 14, 198 
.163 

10170  0414208,233,96,202,208,253,144,5,162,11,202,208,253,133,1,96,165,4 
5,56 

10180  DATA233, 2, 168, 165, 46,233, 0,162, 0,240, 9, 162, 0,44, 162, 1,164, 43, 165, 4 
4 134 

10190  DATA10, 134, 147, 162,0, 134, 2, 132, 195, 133, 196,32, 176, 194, 32. 142, 193, 7 

6,122 

10200  DATA225, 32, 10, 194, 165, 171, 201, 2,240,8,201, 1,208,243, 165, 185, 240, 16 
,169 

10210  0ATA2,5, 2, 133, 2, 173,60, 3, 133, 195, 173, 61, 3, 133, 196,32, 2, 195, 165, 2, 4 

1.4.208 

10220  0ATA8,32,80,247,32,228,255, 240,251, 32,44, 168, 164, 183,240, 11, 136, 17 
7,187 

10230  DATA217,65, 3, 208, 191, 152,208,245, 132, 144,32,210,245, 173,62,3,56,23 
7,60 

10240  DATA3,8,24, 101, 195, 133, 174, 173,63,3, 101, 196,40, 237,61, 3, 133, 175,32 
,31,194 

10250  0ATA165, 189,69,215, 5, 144, 240,4, 169,255, 133, 144, 165, 2, 208,3,76, 169, 
245,166 

10260  DATA45, 164,46, 96,32, 88, 194,201, 0,240, 249, 133, 171, 32, 134, 194, 145, 17 

8,200 

10270  DATA192, 192,208,246,240,45,32,88, 194,32, 134,194,196, 147,208,2,145, 

195.209 

10280  DATA195, 240, 2, 134, 144, 69, 215, 133, 215, 230, 195, 208,2, 230, 196, 165, 195 
.197 

10290  DATA174, 165, 196,229, 175, 144,221, 32, 134, 194,32, 252, 192, 200, 132, 192, 
88,24 

10300  DATA169.0, 141, 160, 2, 76, 147, 252,32,23,248,32, 252, 192, 132, 215, 169, 7, 

141.6 

10310  DATA221 , 162, 1 ,32,153,194,38, 189,165,189,201,2,208,245,160,9,32,134 
,194 

10320  DATA201, 2,240, 249, 196, 189,208,232,32, 134, 194, 136, 208, 246,96, 169,8, 
133,163 

10330  DATA32, 153, 194,38, 189.234,234, 234, 198, 163,208,244, 165, 189,96, 169,1 
6,44 

10340  DATA13, 220,240,251, 173, 13,221, 142, 7,221, 72, 169,25, 141, 15, 221, 104, 7 
4,74 

10350  DATA96, 169,0,32, 189,255, 162, 1,160, 0,32, 186,255, 32,6,226,32, 87,226, 

32.6 

10360  DATA226, 32, 0,226, 138, 168, 32, 186, 255 ,32,6, 226, 32, 244, 194, 134, 172, 13 
4,167 

10370  DATA132, 168, 132, 173, 162, 1 , 134,2,32,6,226,32,244,194,134,174,134,16 
9,132 

10380  0ATA170, 132, 175, 165, 2, 9,2, 133,2,96,32, 14, 226,32, 138, 173, 32,247, 183 
.166 

10390  DATA20, 164, 21, 96, 165, 2, 41, 1,240, 8, 165, 172, 133, 195, 165, 173, 133, 196, 
96,32 

10400  DATA38, 181, 162, 5, 134, 171, 32, 176, 194, 169, 1,133, 185, 162, 4, 181, 44, 149 
,171 

10410  DATA149, 166,202, 208,247,32,127,192, 162,0, 134,183, 162, 5, 134, 171, 202 
.181 


810 


Das  große  Commodore  64-Buch 


10420  0ATA46, 149, 171, 149, 166,202, 208,247,32,127, 192, 162,5, 134, 171, 165, 51 
,166 

10430  DATA52, 133, 172, 133, 167, 134, 173, 134, 168, 165,55, 166,56, 133, 174, 133,1 
69,134 

10440  DATA175, 134, 170,76, 127,192,32,176, 194, 169, 1,133, 2,165,45, 166,46, 13 
3,172 

10450  0ATA134,173, 32, 142,193, 169,5, 133,2, 169,0, 133, 183, 166, 174, 164, 175,1 
34  47 

10460  DATA132,48,134, 172,132,173,32, 142, 193,166, 174,164,175, 134, 49, 132,5 
0,169 

10470  DATA4, 133, 2, 32, 142,193,173,60,3, 133, 51, 173,61 ,3,133,52,32, 183, 255, 
37,191 

10480  DATA240,5, 162, 29,76,55, 164, 162, 25, 134, 22, 169,0,133,58, 133, 16,96 


10.10.1  Programmbeschreibung 

Für  interessierte  Leser,  die  zumindest  einige  Grundkenntnisse  in 
Assembler-Programmierung  haben,  möchte  ich  das  FastTape- 
Programm  näher  beschreiben.  Vielleicht  fallen  Ihnen  noch  einige 
Verbesserungen  ein,  die  Sie  in  das  Programm  einbringen  wollen. 

Prinzipielle  Arbeitsweise 

Einzelne  Bits  werden  durch  Rechteckpulse  auf  Band  geschrieben. 
Das  Byte  20  entspricht  Binär  %00010100  und  sieht  folgender- 
maßen aus: 

Wert  0 0 01010  0 
Bit-Nr.  7 6 5 4 3 2 10 

In  folgendem  Speicherformat  wird  ein  Programm  gespeichert: 

1 . Synchronisation  1 

5mal  (246mal  Byte  2).  Dadurch  wird  beim  Ladevorgang  auf 
den  Start  eines  Bytes  synchronisiert. 

Countdown-Bytes  9,  8,  7,  6,  5,  4,  3,  2,  1.  Hierdurch  wird 
das  Ende  der  Synchronisation  gekennzeichnet. 

2.  Vorspann,  bestehend  aus 

Sekundäradresse- 1 
Start-  und  Endadresse 
File-Namen 
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Der  Vorspann  wird  immer  auf  192  Zeichen  mit  <SPACE> 
aufgefüllt  und  beim  Laden  im  Kassettenpuffer  abgelegt.  So- 
mit ist  es  auch  hier  möglich,  mit  dem  File-Namen  Maschi- 
nenprogramme zu  übergeben,  wie  es  im  Unterkapitel  1 0.5.3 
beschrieben  wurde. 

3.  Synchronisation  - Wie  Synchronisation  1,  aber  nur  2mal. 

4.  Null-Byte-Kennzeichnung  dafür,  daß  jetzt  die  Daten  folgen. 

5.  Daten 

6.  Prüfsumme,  255mal 

Im  Unterprogramm  INIT  wird  der  Vektor  zur  Interpreter- 
Schleife  auf  das  FastTape-Programm  umgelenkt.  Dadurch  wird 
erreicht,  daß  jedesmal,  wenn  ein  Befehl  ausgewertet  werden  soll, 
FastTape  angesprungen  wird.  Im  Unterprogramm  START  wird 
nun  getestet,  ob  das  erste  Zeichen  der  FastTape-Code  (Pfeil 
nach  links)  ist.  Ist  das  Zeichen  kein  FastTape-Code,  wird  in  die 
Interpreter-Schleife  zurückgesprungen. 

Wird  der  FastTape-Code  gefunden,  wird  über  das  Unterpro- 
gramm SUCH  durch  Vergleich  mit  der  Buchstabentabelle  TAB 
die  entsprechende  Startadresse  bestimmt.  Wird  der  Buchstabe 
nicht  gefunden,  wird  ein  7SYNTAX  ERROR  ausgegeben. 

Sonst  wird  die  entsprechende  Befehlsstartadresse  auf  den 
STACK  geschoben.  Dadurch  verzweigt  das  Programm  nach  dem 
RTS  der  CHRGET- Routine  zu  der  entsprechenden  Adresse  plus 
eins  und  kehrt  nach  Ausführung  zu  der  Adresse  $C01D($701D) 
zurück.  Bevor  ich  die  einzelnen  Hauptprogramme  erkläre, 
möchte  ich  einige  häufig  benutzte  Unterprogramme  beschreiben. 

Byte  auf  Band  schreiben:  WBYTE  $C133 

Die  Übergabe  des  zu  schreibenden  Bytes  erfolgt  über  den  Ak- 
kumulator. Dieses  Byte  wird  in  die  Speicherstelle  $BD  geschrie- 
ben und  dann  mit  der  EXOR-Prüfsumme  durch  EXKLUSIV 
ODER  verknüpft. 

In  SCI 39  wird  8 (ein  Byte  = acht  Bit)  in  den  Bitcounter  ge- 
schrieben. Mit  SHIFT  beginnt  die  Schleife,  die  acht  Bit  auf 
Band  schreibt.  Zuerst  wird  das  höchstwertige  Bit  in  das  Carry- 
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Flag  geschoben.  Das  PORT-Byte  wird  nun  in  den  Akku  geladen 
und  das  Schreib-Byte  (Bit  drei)  gelöscht. 

Entsprechend  der  Zeitschleife  TI  LOOP  (bei  gesetzten  Carry- 
Flag  zusätzlich  T2LOOP)  ist  die  Schreibleitung  nun  "high".  Am 
Ende  der  Zeitschleife  wird  der  Akku-Inhalt  in  den  Port  übertra- 
gen mit  der  Folge,  daß  die  Schreibleitung  "low"  wird. 

In  SC  149  wird  dann  im  Akku  wieder  Bit  drei  gesetzt  und  erneut 
in  die  Zeitschleife  TI  LOOP  verzweigt.  Am  Ende  wird  dann 
durch  die  Übertragung  des  Akku-Inhalts  in  den  Port  die 
Schreibleitung  wieder  "high". 

In  $C  150  wird  der  Bitcounter  dekrementiert  und  getestet.  Wur- 
den alle  acht  Bits  übertragen,  wird  zurückgesprungen. 

Byte  vom  Band  lesen:  HOLBYT  $C286 

Zuerst  wird  ab  SC286  der  Bitcounter  auf  8 gesetzt.  Dann  werden 
acht  Bit  nacheinander  über  HOLBIT  eingeladen  und  über  das 
Carry-Flag  in  SBD  geschoben.  Am  Ende  (SC269)  wird  über  den 
Akku  das  eingelesene  Byte  übergeben. 

Bit  vom  Band  lesen:  HOLBIT  $C299 

Die  Schleife  SC299  - SC29E  wartet  bis  Bit  vier  im  ICR2  des 
CIA2  "high"  wird.  Dieses  Bit  wird  gesetzt,  wenn  an  der  READ 
Leitung  (D/4)  des  Kassetten-Ports  ein  Signal  anliegt.  Dann  wird 
das  ICR1  geladen  und  das  X-Register  als  High-Byte  in  den 
Zähler  B vom  CIA2  geschrieben  und  ICR1  auf  den  STACK  ge- 
rettet. 

In  SC2A9  werden  Bit  1,3  und  4 im  Kontroll-Register  B gesetzt, 
was  zur  Folge  hat,  daß  Zähler  B einmal  abwärts  zählt  und  ge- 
startet wird.  Danach  wird  der  gerettete  ICR1 -Inhalt  zurückgeholt 
und  durch  zweimaliges  Rechtsschiften  Bit  1 ins  Carry-Flag  ge- 
schoben. Dieses  Bit  wird  dann  "high",  wenn  der  Zähler  bis  auf  0 
gezählt  hat,  bevor  er  neu  gestartet  wurde. 
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Auf  diese  Weise  wird  festgestellt,  ob  es  lange  dauerte,  bis  die 
Leseleitung  wieder  "high"  war,  was  dem  gesetzten  Bit  entspricht. 

Parameter  holen:  GETPARA  $C2B0 

Diese  Routine  holt  die  mit  den  Befehlen  übergebenen  Parameter 
und  schreibt  sie  in  die  entsprechenden  Speicherstellen.  Weiterhin 
wird  entsprechend  der  Parameter  das  Flag  "ABSFLG"  gesetzt. 
Dieses  Flag  ist  ein  Binär-Flag  und  steuert  folgende  Funktionen: 


m 

Wert 

Wirkung 

D 

1 

1 = Hie  an  eine  beim  L-Befehl  übermittelte  Adresse  laden 

1 

2 

1 = Hie  absolut  laden  oder  speichern 

4 

1 = Beim  G-64  nicht  warten,  sondern  sofort  laden 

Synchronisation  schreiben:  SYNCH  $C113 

Dieses  Unterprogramm  schreibt  so  oft,  wie  in  $AB  angegeben 
ist,  246mal  das  Byte  2 auf  Band.  Zuletzt  wird  ein  Countdown 
aus  den  Bytes  9,  8,  7,  6,  5,  4,  3,  2,  1 auf  Band  geschrieben. 

Synchronisation  suchen:  SCOUNT  $C258 

Zuerst  wird  die  Rekordertaste  abgefragt.  Dann  wird  der  Motor 
gestartet,  Bildschirm  abgeschaltet  und  das  Prüfsummen-Byte  auf 
0 gesetzt.  Ab  $C260  wird  7 in  das  Low-Byte  geschrieben  und 
das  X-Register  mit  für  das  High-Byte  des  Timers  mit  1 geladen 

Ab  SSTART  werden  dann  so  lange  Bits  eingelesen,  bis  der  Byte- 
Wert  der  eingelesenen  Bits  genau  2 wird.  Dann  werden  alle  fol- 
genden Zweier-Bytes  der  Synchronisation  eingelesen  und  festge- 
stellt, ob  danach  ein  Countdown  ab  9 folgt.  Wird  ein  fehlerfreier 
Countdown  gefunden,  wird  zum  Hauptprogramm  zurückge- 
sprungen. 
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Vorspann  einiesen:  SSYNCH  $C20A 

Dieses  Unterprogramm  sucht  mit  SCOUNT  die  nächste  Synchro- 
nisation. Mit  Hilfe  des  letzten  von  SCOUNT  eingelesenen  Bytes 
stellt  es  fest,  ob  es  sich  um  Synchronisation  1 oder  2 handelt.  Ist 
die  gefundene  Synchronisation  nicht  Synchronisation  1,  wird 
weitergesucht.  Sonst  wird  das  letzte  Byte  als  Sekundäradresse  in 
$AB  gerettet.  Daraufhin  wird  der  Vorspann  eingelesen  und  im 
Kassettenpuffer  abgelegt.  Danach  wird  über  die  Betriebssystem- 
Routine  ab  $FC93  der  Motor  ausgeschaltet  und  der  Bildschirm 
wieder  eingeschaltet. 

Programm  laden:  PLOAD  $C21F 

Durch  dieses  Unterprogramm  wird  das  Programm  eingelesen. 
Zuerst  wird  mit  SCOUNT  die  Synchronisation  2 gesucht  und 
damit  auch  die  Leseroutine  auf  das  Band  synchronisiert. 

LLOOP  ist  die  eigentliche  Laderoutine.  Mit  HOLBYT  wird  ein 
Byte  eingelesen  und  über  den  Startvektor  "indirekt"  indiziert  in 
den  Speicher  geschrieben  und  verglichen.  Bei  V (VERIFY)  wird 
nur  verglichen.  Tritt  dabei  ein  Fehler  auf,  wird  das  Status-Byte 
gesetzt.  Danach  wird  die  EXOR-Prüfsumme  gebildet  und  der 
Startvektor  inkrementiert. 

Die  Schleife  LLOOP  wird  so  lange  durchlaufen,  bis  die  Diffe- 
renz zwischen  Start-  und  Endvejctor  gleich  null  ist.  Dann  wird 
noch  die  abgespeicherte  Prüfsumme  eingelesen,  der  Motor  aus- 
und  beim  C64  der  Bildschirm  angeschaltet.  Über  die  Betriebssy- 
stem-Routine $FC93  wird  zum  Hauptprogramm  zurückgesprun- 
gen. Als  letztes  möchte  ich  die  Hauptroutinen  etwas  näher  be- 
schreiben. 

SAVE  ROUTINE  SC063 

In  $AB  wird  zunächst  die  Wiederholungszahl  der  Synchronisation 
1 abgelegt  und  das  Flag  ABSFLG  gelöscht.  Danach  werden  über 
GETPARA  die  einzelnen  File-Parameter  eingelesen.  Entspre- 
chend ABSFLG  werden  dann  die  BASIC-Vektoren  in  die  Lade-, 
Start-  und  Endevektoren  übertragen. 
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Ab  $C07F  wird  die  Rekordertaste  abgefragt,  "SA VING  name" 
ausgegeben,  der  Motor  gestartet  und  der  Bildschirm  ausgeschal- 
tet. Über  das  Unterprogramm  SYNCH  wird  nun  die  Synchroni- 
sation auf  Band  geschrieben.  Danach  wird  die  um  eins  erhöhte 
Sekundäradresse  auf  Band  übertragen.  Darauf  folgend  wird  ab 
$C094  der  Vorspann,  bestehend  aus  Start-  und  Endadresse,  File- 
Name  und  Füll-Bytes  auf  Band  geschrieben.  Zum  Schluß  folgt 
die  Synchronisation  2,  die  zur  Kennzeichnung  mit  einem  Null- 
Byte  abgeschlossen  ist. 

Ab  SCOCB  (PRGLOOP)  folgt  die  eigentliche  Programmspei- 
cherroutine. Das  Programm  wird  über  den  Programmstartvektor 
$AC/$AD  indirekt  - indiziert  aus  dem  Speicher  gelesen  und  an 
die  Datasette  übertragen.  Danach  wird  der  Vektor  $AC/AD  in- 
krementiert  und  mit  dem  Programmendevektor  verglichen.  Diese 
Schleife  wird  so  lange  durchlaufen,  bis  der  Startvektor  gleich 
dem  Endvektor  ist.  Als  Abschluß  wird  dann  255  mal  die  EXOR- 
Prüfsumme  auf  Band  geschrieben.  Nun  wird  1 in  das  Motor- 
Flag  geschrieben,  um  das  Abschalten  des  Motors  vorzubereiten, 
und  das  Speichern  über  die  Betriebssystem-Routine  in  $FC93 
beendet. 

LADEROUTINE  SC18E 

Als  erstes  wird  eine  Synchronisation  durch  das  Unterprogramm 
SSYNCH  gesucht.  Ist  das  letzte  Byte  der  gefundenen  Synchroni- 
sation, das  in  $AB  geschrieben  wurde,  null,  handelt  es  sich  um 
eine  Synchronisation  2,  und  es  wird  wieder  zum  Start  dieser 
Routine  gesprungen.  Ist  $AB  ungleich  null,  wurde  eine  Synchro- 
nisation 1 gefunden,  und  der  Wert  in  $AB  ist  die  Sekun- 
däradresse. 

Ist  das  File  mit  der  Sekundäradresse  1 abgespeichert  oder  ist  die 
beim  Ladebefehl  übermittelte  Sekundäradresse  gleich  eins,  wird 
in  ABSFLG  Bit  1 gesetzt,  und  die  Startadresse  aus  dem  Kasset- 
tenpuffer wird  in  den  Ladestartvektor  geschrieben.  Danach  wird 
ab  RELLOD  FOUND  NAME  ausgegeben. 

Das  Unterprogramm  ADTEST  testet  nun  anhand  von  Bit  0 von 
ABSFLG,  ob  anstatt  der  im  Kassettenpuffer  stehenden  Start- 
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adresse  eine  andere  durch  den  L-Befehl  übermittelte  Adresse  als 
Ladestartvektor  benutzt  werden  soll.  Ist  Bit  null  von  ABSFLG 
gesetzt,  wird  die  mit  L übermittelte  Adresse,  die  in  $AC/$AD 
steht,  in  den  Startvektor  geschrieben. 

Entsprechend  Bit  zwei  von  ABSFLG  wartet  der  Computer  nun 
auf  einen  Tastendruck  von  Ihnen  oder  nicht.  Nach  dem  Test,  ob 
die  <Stop>-Taste  gedrückt  wurde,  wird  der  File-Name  des  ge- 
fundenen Files  mit  dem  des  gewünschten  verglichen,  falls  ein 
Name  übergeben  wurde.  Stimmen  die  Namen  überein,  kann  der 
Ladevorgang  beginnen,  und  das  Status-Byte  wird  gelöscht. 
Durch  die  Addition  der  Programmlänge,  gebildet  aus  der  Diffe- 
renz der  Start-  und  Endadresse  aus  dem  Vorspann,  und  dem 
Startvektor  wird  die  Endadresse  berechnet  und  in  den  Endvektor 
geschrieben.  Das  Unterprogramm  PLOAD  lädt  dann  das  Pro- 
gramm. 

Danach  werden  die  Prüfsummen  verglichen  und  ggf.  der  Status 
gesetzt.  Wenn  in  ABSFLG  kein  Bit  gesetzt  ist,  werden  über  die 
Betriebssytem-Routine  STOEND  die  BASIC-Vektoren  auf  das 
Programmende  gesetzt.  Die  Routine  MERGB,  LOAD  und  VE- 
RIFY  laufen  alle  über  die  LOAD-Routine. 

Bei  MERGE  wird  der  Startvektor  entsprechend  dem  BASIC- 
Programmendevektor  gesetzt.  Danach  wird  relativ  geladen.  Bei 
VERIFY  wird  das  VERIFY-Flag  über  das  X-Register  auf  eins, 
bei  LOAD  auf  null  gesetzt.  Vor  der  LOAD-Routine  werden 
über  GETPARA  noch  die  weiteren  Parameter  eingelesen  und  in 
ABSFLG  der  entsprechende  Wert  gesetzt. 

Datenspeicherung  und  Daten  lesen 

Die  Daten  werden  als  3 Blöcke  abgespeichert: 

1.  Block:  Variablen 

Bereich  zwischen  den  Zeigern  45,  46/47,  48. 
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2.  Block:  Felder 

Bereich  zwischen  den  Zeigern  47,  48/49,  50. 

3.  Block:  Strings 

Bereich  zwischen  den  Zeigern  51,  52/55,  56. 

Die  Länge  der  einzelnen  Blöcke  wird  im  Vorspann  durch  die 
Start-  und  Endadresse  übergeben. 

DATASAVE  SC311 

Ehe  die  Daten  abgespeichert  werden  können,  müssen  sie  auf  mi- 
nimalem Platz  komprimiert  werden.  Deshalb  wird  zu  Beginn  die 
Garbage- Collection  aufgerufen.  Mit  Hilfe  von  GETPARA  wird 
nun  der  File-Name  gesetzt.  Danach  wird  als  Sekundäradresse  1 
gegeben,  da  ein  bestimmter  Speicherbereich  abgespeichert  wer- 
den soll.  Durch  ULOOP  werden  die  Zeiger  auf  Anfangs-  bzw. 
Endadressse  des  Variablenbereichs  in  die  Start-  und  Endevekto- 
ren übertragen. 

Zuletzt  wird  dieser  Bereich  durch  das  Unterprogramm  ABSO- 
LUT absolut  abgespeichert.  Die  Felder  und  Strings  werden  da- 
nach analog  zu  den  Variablen  ohne  File-Namen  über  ABSOLUT 
abgespeichert. 

DATALOAD  $C361 

Zuerst  wird  über  GETPARA  der  File-Name  gesetzt.  Durch  Set- 
zen des  Bit  0 in  ABSFLG  wird  erreicht,  daß  der  Bereich  an  eine 
bestimmte  Adresse  geladen  wird  und  die  Adressen  im  Vorspann 
ignoriert  werden.  Als  Ladeadresse  wird  die  Variabien- 
Startadresse  in  den  Startvektor  übertragen.  Über  LOADR  wird 
nun  der  Variablenbereich  eingelesen.  Danach  wird  zusätzlich  Bit 
2 in  ABSFLG  gesetzt,  damit  der  Rechner  nach  dem  Finden  der 
nächsten  Synchronisation  1 nicht  auf  einen  Tastendruck  des  Be- 
dieners wartet.  Weiterhin  wird  kein  File-Name  gegeben.  Der  In- 
halt von  $AE,  $AF  setzt  den  Zeiger  auf  das  Ende  des  beschrie- 
benen Bereichs.  Dieser  Zeiger  wird  zugleich  als  Startvektor  für 
die  Felder  in  den  Ladestartvektor  übernommen,  damit  bei  er- 
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neutem  Aufruf  von  LOADR  die  Felder  eingelesen  werden.  Da- 
nach wird  $AE,  $AF  in  den  Zeiger  auf  das  Ende  der  Felder 
geschrieben. 

Da  die  String-Tabelle  vom  BASIC-RAM-Ende  nach  unten 
wächst,  wird  deren  Ende  nicht  durch  die  BASIC-Programmlänge 
beeinflußt.  Aus  diesem  Grunde  wird  dieser  Bereich  immer  wie- 
der dahin  geladen,  von  wo  er  abgespeichert  wurde.  Darum  wird 
Bit  0 in  ABSFLG  gelöscht.  Danach  wird  die  Tabelle  durch  die 
Routine  LOADR  geladen.  Der  Zeiger  auf  das  untere  Ende  der 
String-Tabelle  wird  dann  aus  dem  Kassettenpuffer  gelesen  und 
in  Sl,  52  gespeichert. 

Zu  guter  Letzt  wird  der  Status  getestet  und  ggf.  eine  Fehlermel- 
dung ausgegeben.  Ist  kein  Fehler  auf  getreten,  wird  der  String - 
Descriptor  zurückgesetzt  und  zum  Hauptprogramm  zurückge- 
sprungen 


10.11  Datenverarbeitung  mit  FastTape 

In  diesem  Unterkapitel  möchte  ich  Ihnen  zeigen,  daß  auch  mit 

einem  Kassettenrekorder  mit  der  geeigneten  Software  eine  effi- 
ziente Datenverarbeitung  möglich  ist. 

Das  in  diesem  Unterkapitel  abgedruckte  Datenverarbeitungspro- 
gramm hat  folgende  Spezifikationen: 

► Daten  speichern  und  laden  mit  FastTape.  Je  nach  Größe  der 
Datei  dauert  der  Speicher-  und  Ladevorgang  zwischen  20  Se- 
kunden und  1,5  Minuten. 

► Die  Wahl  der  Datensatzanzahl  ist  Ihnen  überlassen.  Das  Ma- 
ximum ist  von  der  freien  Speicherkapazität  des  Rechners  ab- 
hängig. 

► Ein  Datensatz  kann  in  beliebig  viele  Felder  unterteilt  werden. 

► Ein  Feld  darf  maximal  80  Zeichen  haben. 

► Die  Bezeichnung  der  einzelnen  Felder  ist  frei  wählbar  und 
kann  auch  nach  der  ersten  Festlegung  geändert  werden. 
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► Gesucht  werden  kann  in  einzelnen  oder  mehreren  Feldern. 
Dabei  können  Sie  wählen,  ob  ein  oder  alle  Suchkriterien  er- 
füllt werden  sollen. 

► Die  Suchgeschwindigkeit  ist  in  allen  Feldern  gleich. 

► Es  kann  nach  Übereinstimmung,  Ungleichheit,  größer  und 
kleiner  gesucht  werden. 

Falls  Sie  eine  Befehlserweiterung  mit  einem  INSTRING-Befehl 
besitzen,  kann  auch  nach  Teilbereichen  innerhalb  von  Feldern 
gesucht  werden. 

► Wenn  in  mehreren  Feldern  gesucht  wird,  kann  für  jedes  Feld 
eine  andere  Suchfunktion  bestimmt  werden. 

► Es  kann  jederzeit  eine  HELP-Seite  angezeigt  werden,  die  die 
einzelnen  Befehle  erklärt. 

► Sie  können  mit  gefundenen  Daten  Listen  erstellen,  die  Sie 
formatiert  ausgeben  können. 

► Sie  können  frei  bestimmen,  welche  Felder  ausgegeben  wer- 
den sollen. 

► Die  einzelnen  Felder  können  mit  oder  ohne  Feldbezeichnung 
ausgegeben  werden. 

► Listen  können  nach  einem  beliebigen  Feld  sortiert  werden. 

Damit  Sie  bei  Bedarf  das  Programm  an  Ihre  eigenen  Bedürfnisse 
anpassen  können,  finden  Sie  am  Ende  dieses  Unterkapitels  eine 
detaillierte  Programmbeschreibung. 

Doch  kommen  wir  nun  zur  Bedienung  des  Programms.  Es  ist 
möglich,  mit  diesem  Programm  eine  Datei  beliebiger  Art  einzu- 
richten und  zu  bearbeiten.  Sie  können  ein  Literatur-  oder  Re- 
zeptverzeichnis anlegen,  Ihre  Plattensammlung  erfassen  oder  die 
Adressen  Ihrer  Freunde  verwalten. 

Um  Ihnen  die  Funktion  und  Bedienung  dieses  Programms  dar- 
zulegen, ist  es  am  besten,  wenn  Sie,  geleitet  durch  diese  Bedie- 
nungsanleitung, eine  Übungsdatei  anlegen.  Da  ein  Rezeptver- 
zeichnis oder  ähnliches  zu  diesem  Zwecke  zu  umfangreich  ist, 
legen  Sie  am  besten  eine  Adreßdatei  an.  Ich  gebe  zu,  daß  dies 
schon  eine  äußerst  abgedroschene  Dateiart  ist,  doch  ist  es  mit 
einer  Adreßdatei  möglich,  mit  wenig  Schreibarbeit  eine  Datei 
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mit  mehreren  Datensätzen  zu  schreiben.  Nach  dem  Starten  mit 
RUN  erscheint  auf  Ihrem  Bildschirm  das  Menü. 


***HEHUE*** 

1 Datei  pflegen 

2 Blaettern 

3 Liste  ausgeben 

4 Liste  sortieren 

5 Datei  laden 

6 Daten  eingeben 

7 Daten  speichern 

8 Datei  einrichten 

9 Feldbez.  aendern 
E ENDE 


Da  Sie  noch  keine  Datei  angelegt  haben,  wählen  Sie  als  erstes 
Punkt  9 des  Menüs. 


Datei  einrichten 

In  diesem  Menüpunkt  müssen  Sie  die  Grundcharakteristika  Ihrer 
Datei  eingeben.  Sie  werden  gebeten,  die  Feldanzahl  und  die  ma- 
ximale Datensatzanzahl  einzugeben.  Diese  Werte  können  nicht 
mehr  geändert  werden.  Danach  werden  Sie  aufgefordert,  Feld- 
bezeichnungen für  die  einzelnen  Felder  einzugeben.  Für  unsere 
Übungsadreßdatei  geben  Sie  bitte  als  maximale  Datensatzanzahl 
10  oder  mehr  ein  und  als  Feldanzahl  7.  Die  einzelnen  Felder 
bezeichnen  Sie  am  besten  folgendermaßen: 

1.  Vorname 

2.  Name 

3.  Straße  und  Hausnummer 

4.  PLZ 

5.  Wohnort 

6.  Telefon 

7.  Hobby 

Wenn  Sie  diese  Eingaben  getätigt  haben,  kehren  Sie  wieder  zum 
Hauptmenü  zurück.  Ein  nochmaliges  Anwählen  dieses  Menü- 
punktes ist  nun  nicht  mehr  möglich. 
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Da  Sie  das  Programm  ja  noch  nicht  richtig  ausgetestet  haben,  es 
können  sich  immer  einmal  Fehler  beim  Abtippen  einschleichen, 
speichern  Sie  diese  Datei  vorsichtshalber  schon  mal  ohne  Daten 
ab.  Wählen  Sie  dafür  den  Punkt  7 "Datei  speichern"  an.  Als  er- 
stes werden  Sie  nach  dem  File-Namen  gefragt.  Geben  Sie 
"Adressen"  ein,  und  drücken  Sie  <Return>. 

Nun  werden  Sie  gebeten,  eine  Datenkassette  einzulegen.  Legen 
Sie  also  eine  Kassette  als  Datenkassette  in  Ihren  Rekorder.  Ach- 
ten Sie  dabei  darauf,  daß  Sie  die  Kassette  nicht  ganz  am  Anfang 
stehen  haben,  damit  die  Datei  auch  sicher  gespeichert  wird. 
Drücken  Sie  <Return>  und  folgen  der  Aufforderung  PRESS 
RECORD  & PLAY  ON  TAPE. 

Nachdem  alle  Variablen  gespeichert  wurden,  kehrt  der  Rechner 
zum  Menü  zurück.  Nun  wollen  wir  einige  Datensätze  eingeben. 

Daten  eingeben 

Wenn  Sie  diesen  Menüpunkt  angewählt  haben,  erscheint  folgen- 
des Bild: 


* DATEN  EINGEBEN  * 

es  existieren  0 Datensaetze 

Vorname: 

Name  : 

Strasse  u.  Hausnummer  : 

PLZ  : 

Wohnort  : 

Telefon  : 

Hobby  : 


Der  Cursor  steht  unter  der  Feldbezeichnung  "Vorname".  Sie  kön- 
nen nun  in  jedes  Feld  bis  zu  80  Zeichen  schreiben.  So  lange  Sie 
innerhalb  eines  Feldes  bleiben,  steht  Ihnen  der  volle  Commo- 
dore- Bildschirmeditor  zur  Verfügung.  Füllen  Sie  die  Felder  ein- 
mal folgendermaßen  aus: 
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* DATEN  EINGEBEN  * 

es  existieren  0 Datensaetze 

Vorname: 

Max 
Name  : 

Meier 

Strasse  u.  Hausnummer  : 
Oberst r.  3 
PLZ  : 

4000 

Wohnort  : 

Duesseldorf 
Telefon  : 

Hobby  : 

Computer 


Nachdem  Sie  die  Eingabe  im  letzten  Feld  mit  <Return>  abge- 
schlossen haben,  erscheint  "RETURN"  in  der  letzten  Bild- 
schirmzeile. Sie  haben  nun  folgende  Eingabemöglichkeiten: 

<Return>  Der  Datensatz  wird  in  die  Datei  übernommen,  und 
Sie  können  den  nächsten  Datensatz  eingeben. 

<Q>  Der  Datensatz  wird  nicht  übernommen,  und  das  Pro- 

gramm kehrt  zum  Menü  zurück. 

<K>  Der  Cursor  erscheint  wieder  im  ersten  Feld,  und  Sie 

können  die  Eingaben  korrigieren. 

Andere  Taste 

Der  Datensatz  wird  übernommen,  und  das  Programm 
kehrt  zum  Menü  zurück. 

Geben  Sie  also  bei  fehlerfreier  Eingabe  <Return>.  Im  Kopf  wird 
nun  angezeigt,  daß  ein  Datensatz  existiert,  und  der  Cursor  er- 
scheint wieder  im  ersten  Eingabefeld.  In  den  Feldern  steht  nun 
noch  die  letzte  Eingabe,  die  Sie  jetzt  ggf.  überschreiben  können. 
Falls  sich  einige  Felder  nicht  ändern,  können  Sie  durch  Drücken 
von  <Return>  diesen  Datensatz  übernehmen.  Geben  Sie  auf  die 
oben  beschriebene  Weise  einmal  vier  Adressen  ein. 

Falls  eine  Erweiterung  mit  INSTRING-Befehl  zur  Verfügung 
steht,  geben  Sie  auch  einmal  den  nächsten  Datensatz  ein: 
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* DATEN  EINGEBEN  • 

es  existieren  4 Datensaetze 

Vorname: 

Marlies 
Name  : 

Bange 

Strasse  u.  Hausnunaer  : 
Kaiserstr.  44 
PLZ  : 

4150 

Uohnort  : 

Krefeld 
Telefon  : 

344322 
Hobby  : 

Kochen/Computer 


Kehren  Sie  nun  durch  Drücken  einer  beliebigen  Taste  zum 
Menü  zurück. 


Blättern 

Wählen  Sie  nun  Menüpunkt  2.  In  diesem  Modus  können  Sie  sich 
die  Daten  in  der  Reihenfolge,  in  der  Sie  sie  eingegeben  haben, 
ansehen  und  ggf.  ändern.  Durch  Betätigen  der  <Return>-Taste 
können  Sie  jeweils  um  einen  Datensatz  weiterblättern.  Mit  der 
<->-Taste  können  Sie  zurückblättern.  Wenn  Sie  die  <K>-Taste 
drücken,  erscheint  der  Cursor  im  ersten  Feld,  und  Sie  können 
den  angezeigten  Datensatz  ändern.  Mit  der  <Q>-Taste  kommen 
Sie  wieder  in  das  Menü. 


* * BLAETTERN  * * 

Datensatz  Nr.  2 

Vorname: 

Peter 
Name  : 

Namenlos 

Strasse  u.  Hausnunmer  : 
Dorfstr.  123 
PLZ  : 

1234 
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Wohnort  : 
Nirgendwo 
Telefon  : 
123456 
Hobby  : 
Computer 


Daten  pflegen 

Unter  Menüpunkt  1 gelangen  Sie  in  diesen  Programmteil.  Sie 
können  hier  die  Daten  selektieren,  löschen,  ändern  und  Listen 
erstellen. 

Als  erstes  suchen  wir  im  Feld  "Name"  alle  Datensätze,  in  denen 
der  Name  mit  "M"  beginnt.  Geben  Sie  also  auf  die  Frage,  nach 
welchen  Feldern  gesucht  werden  soll,  eine  2 ein.  Daraufhin  er- 
scheint die  entsprechende  Feldbezeichnung  "invers"  auf  dem 
Bildschirm.  In  der  vorletzten  Bildschirmzeile  erscheint: 


1 :T/2:=/3:<>/4:>/5:< 


Das  sind  die  Auswahlmöglichkeiten,  die  Sie  haben: 

1.  Teil-String  (nur  mit  INSTRING-Befehl) 

Sie  suchen  nach  einer  Zeichenfolge,  die  an  beliebiger  Stelle  in- 
nerhalb des  Feldes  stehen  kann. 

2.  Gleich 

Sie  suchen  nach  einer  signifikanten  Zeichenfolge,  die  genau 
gleich  Ihrem  Such-String  ist.  Es  werden  dabei  immer  nur  so 
viele  Zeichen  verglichen,  wie  Sie  als  Such-String  eingeben.  Ge- 
ben Sie  z.B.  "Ma"  ein,  findet  das  Programm  Mann,  Maus,  Mama 
etc.  Dies  gilt  analog  auch  bei  den  folgenden  Möglichkeiten: 

3.  Ungleich 

Hier  werden  die  Strings  gefunden,  die  nicht  mit  dem  Such- 
String  übereinstimmen. 
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4.  Größer  oder  gleich 

Hier  findet  das  Programm  alle  Strings,  die  größer  oder  gleich 
sind.  Geben  Sie  z.B.  "M"  bei  dem  Namen  ein,  werden  alle  Na- 
men gefunden,  die  mit  M oder  einem  folgenden  Buchstaben  (N, 
O,  P,  Q...)  beginnen. 

5.  Kleiner  oder  gleich 

Geben  Sie  als  Such-String  "M"  ein,  werden  alle  Namen,  die  mit 
A - M beginnen,  gefunden. 

Drücken  Sie  "2",  und  Sie  erhalten  folgendes  Bild: 


SUCHEN  / AENDERN 

1 . Vorname 

2.  Name 

3.  Strasse  u.  Hausnummer 

4.  PLZ 

5.  Wohnort 

6.  Telefon 

7.  Hobby 

Nach  welchen  Feldern  soll  gesucht  werden 
= Name 


Wenn  Sie  innerhalb  weiterer  Felder  suchen  wollen,  müssen  Sie 
nur  die  entsprechende  Zahl  eingeben.  Wir  wollen  aber  jetzt  erst 
einmal  nur  nach  dem  Namen  suchen.  Durch  Drücken  der 
<Return>-Taste  schließen  Sie  die  Eingabe  ab  und  werden  nun 
gefragt,  ob  ein  Datensatz  bei  einer  oder  allen  Übereinstimmun- 
gen gefunden  werden  soll.  Da  Sie  ja  sowieso  nur  ein  Auswahl- 
kriterium eingegeben  haben,  geben  Sie  <Return>. 

Es  erscheinen  nun  die  bestimmte  Feldbezeichnung  und  der  Cur- 
sor. Da  wir  alle  Namen  suchen  wollen,  die  mit  "M"  beginnen, 
geben  Sie  "M"  ein  und  <Return>.  Daraufhin  erscheint  in  der 
letzten  Bildschirmzeile  wieder  RETURN.  Wenn  Sie  nun  "K" 
drücken,  können  Sie  die  Eingabe  korrigieren.  Drücken  Sie 
<Return>,  beginnt  der  Rechner  mit  der  Suche  und  zeigt  dann 
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die  Trefferzahl,  die  Datensatznummer  des  angezeigten  Daten- 
satzes und  den  Datensatz  selbst  an. 


SUCHEN  /AENDERN 

3 Treffer 
Datensatz  Nr.  0 

Vorname: 

Max 
Name  : 

Meier 

Strasse  u.  Hausnummer  : 
Oberstr.  3 
PLZ  : 

4000 

Wohnort  : 

Duesseldorf 
Telefon  : 

Hobby  : 

Computer 

« RETURN  » 


Sie  können  nun  wie  unter  "Blättern"  in  den  gefundenen  Daten- 
sätzen blättern.  Weiterhin  können  Sie  sie  durch  <K>  korrigieren 
und  durch  <L>  löschen.  Mit  <Q>  gelangen  Sie  wieder  in  das 
Menü. 

Machen  Sie  sich  jetzt  am  besten  etwas  mit  den  Menüpunkten  1 
und  2 vertraut,  damit  Sie  sehen,  wie  und  wie  schnell  die  ge- 
wünschten Datensätze  gesucht  und  korrigiert  werden  können. 
Suchen  Sie  dann  einmal  nach  einem  Kriterium,  das  auf  mehrere 
Datensätze  zutrifft. 

Wenn  Sie  so  eine  Liste  aus  mehrere^  Datensätzen  erstellt  haben, 
können  Sie  sie  über  Menüpunkt  4 nach  einem  beliebigen  Feld, 
z.B.  "Namen",  sortieren.  Über  den  Menüpunkt  3 können  Sie  die 
Liste  auf  dem  Bildschirm  oder  auf  einem  Drucker  ausgeben. 
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Liste  ausgeben 

In  diesem  Menüpunkt  werden  Sie  gefragt,  welche  Felder  ausge- 
druckt werden  sollen.  Durch  die  Eingabe  der  Feldindizes  können 
Sie  die  gewünschten  Felder  wählen  und  mit  <Return>  die  Ein- 
gabe beenden. 

Wenn  Sie  statt  dessen  "K"  eingeben,  werden  die  angezeigten  Fel- 
der gelöscht,  und  Sie  können  die  Eingabe  wiederholen.  Nachdem 
Sie  die  gewünschten  Felder  gewählt  haben,  drücken  Sie 
<Return>. 

Als  nächstes  werden  Sie  nach  einer  Überschrift  gefragt.  Diese 
wird  dann  oberhalb  Ihrer  Liste  ausgegeben.  Bei  der  Druckeraus- 
gabe wird  die  Überschrift  in  Breitschrift  ausgedruckt.  Danach 
können  Sie  wählen,  ob  die  Feldbezeichnungen  mit  ausgedruckt 
werden  sollen.  Als  letztes  wird  danach  gefragt,  ob  die  Ausgabe 
auf  den  Bildschirm  oder  über  einen  Drucker  erfolgen  soll. 


Das  Programm  ist  so  konzipiert,  daß  jedes  Feld  in  eine  eigene 
Zeile  geschrieben  wird.  Durch  Programmänderungen  in  den 
Zeilen  2.870-2.930  können  Sie  das  Ausdruckformat  entsprechend 
Ihren  Wünschen  ändern.  Wenn  Sie  die  Liste  auf  den  Bildschirm 
ausgeben,  können  Sie  die  Ausgabe  durch  Drücken  der  <Space>- 
Taste  anhalten  und  wieder  starten.  Ich  hoffe,  daß  Ihnen  die  Be- 
dienung dieses  Programms  nach  einigem  Üben  keine  Schwierig- 
keiten mehr  macht. 


PROGRAMM :DATEIVERW 
1 GOTO  1060 

90  REM  “<  4 SPACE>SUCH- ROUT  INE“ 

100  IF  (F  > FE)  OR  (N  > = AS)  THEN  RETURN 
110  A = SF(F) 

20  ON  A GOSUB  150,190,250,280,220 
130  F = F + 1:  GOTO  100 

140  : REM  "<  2 SPACE>TE I LBERE I CH 

150  T = RENAME  (U$(F),S$(F)) 

160  IF  T < > 0 THEN  N = N + 1 
170  RETURN 

180  : REM  ”<  2 SPACE>GANZ  '=' 

190  IF  S$(F)  = LEFT*  (U$(F),  LEN  <S$(F)))  THEN  N = N + 1 
200  RETURN 

210  : REM  "<  2 SPACE>GANZ  '<=' 

220  IF  SS(F)  > = LEFT$  (U$(F),  LEN  (S$(F)))  THEN  N = N ♦ 1 
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230  RETURN 

240  : REM  '•<  2 SPACE>GANZ  '<>> 

250  IF  S$(F)  < > LEFTS  (U$(F),  LEN  (S$(F»)  THEN  N = N + 1 
260  RETURN 

270  : REM  "<  2 SPACE>GANZ  '>=• 

280  IF  SS(F)  < = LEFTS  (U$(F),  LEN  (S$(F)>)  THEN  N = N + 1 
290  RETURN 

1000  REM  "UARTESCHLEIFE 

1010  POKE  198,0:  UAIT  198,1:  GET  AS:  A = ASC  (AS):  REM 

"UARTESCHLEIFE 

1020  IF  A = 133  THEN  GOSUB  3750 
1030  RETURN 

1050  REM  »<  2 SPACE>INITIALISIERUNG 
1060  DWS  = "<HOME><  25  CRSR  DOUN>» 

1070  SYS  65517:  SP  = PEEK  (781):  ZE  - PEEK  (782):  REM  11 

BILDSCHIRMDATEN  HOLEN 

1080  CI  = 53281:  C2  = 1:  IF  SP  = 22  THEN  CI  = 36879:  C2  = 8 
1090  DIM  Z$(4):  Z$(0)  = ■■  T":  ZS(1)  = " =":  ZS(2)  = »<>»:  ZS(3)  = 

">=":  Z$(4)  = "<=» 


1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

OFF>" 


REM  "<  6 SPACE>HAUPTPROGRAMM 

PRINT  CHRS  (14):  POKE  CI, 6 * C2 

GOSUB  3560:  PRINT  : PRINT  : TA  = INT  (SP  / 5)  - 2 

PRINT  TAB(  TA)"<WHT><RVS  ON>1<RVS  OFF>  DATEI  PFLEGEN" 

PRINT  TAB(  TA)"<RVS  ON>2<RVS  OFF>  BLAETTERN  " 

PRINT  TAB(  TA)"<RVS  ON>3<RVS  OFF>  LISTE  AUSGEBEN" 

PRINT  TAB(  TA)"<RVS  ON>4<RVS  OFF>  LISTE  SORTIEREN" 

PRINT  TAB(  TA)"<RVS  ON>5<RVS  OFF>  DATEN  EINGEBEN  " 

PRINT  TAB(  TA)"<RVS  0N>6<RVS  OFF>  DATEI  LADEN«  2 SPACE>" 

PRINT  TAB(  TA)"<RVS  ON>7<RVS  OFF>  DATEI  SPEICHERN" 

PRINT  TAB(  TA)"<RVS  ON>8<RVS  OFF>  DATEI  EINRICHTEN" 

PRINT  TAB(  TA)"<RVS  ON>9<RVS  OFF>  FELDBEZ.  AENDERN" 

PRINT  TAB(  TA)"<RVS  ON>E<RVS  OFF><  4 SPACExRVS  ON>ENDE<RVS 


1230  GOSUB  1010:  A = VAL  (AS):  IF  AS  = "E"  THEN  1270 

1240  IF  (A  < S)  AND  (FL  AND  4)  = 0 THEN  1110 

1250  ON  A GOSUB  2130,2000,2700,2990,1860,1570,1460,1700,1780 

1260  GOTO  1110 

1265  REM  "PROGRAMM  BEENDEN 

1270  I F( FL  AND  2)=2  OR  (FL  AND  4)=0  THEN  END 

1280  PRINT  "<CLR  HOMEx  20  CRSR  DOUN>«:  PRINT  TAB(  SP  / 2 - 

8)"<WHT>TR0TZDEM  ENDEN":  GOSUB  1310 

1290  IF  FL  < > 255  THEN  1110 

1300  END 

1305  REM  "<  9 SPACE>Fehter 

1310  POKE  CI, 5 * C2 

1320  PRINT  "<HOME>":  PRINT  "<  7 CRSR  DOWN>" 

1330  PRINT  : PRINT  TAB(  SP  / 2 - 3)"<REDxRVS  ON>Datei" 

1340  PRINT  : PRINT  TAB(  SP  / 2 - 6)"<RVS  ON>wurde  nicht" 

1350  PRINT  : PRINT  TAB(  SP  / 2 - 7)"<RVS  ON>abgespeichert» 

1360  FOR  I = 0 TO  15:  GET  AS:  IF  AS  < > "»  THEN  I = 15:  NEXT  : 

GOTO  1440 
1370  NEXT 

1380  PRINT  "<HOME>" : PRINT  "<  7 CRSR  DOWN>" 
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1390  PRINT  : PRINT  TAB(  SP  / 2 - 3),l<RED>0atei11 

1400  PRINT  : PRINT  TAB(  SP  / 2 - 6)"wurde  nicht" 

1410  PRINT  : PRINT  TAB(  SP  / 2 - 7) "abgespeichert 11 

1420  FOR  I * 0 TO  15:  GET  AS:  IF  AS  = ""  THEN  I = 15:  NEXT  : GOTO 

1310 

1430  NEXT 

1440  IF  AS  = "J"  THEN  FL  = 255 
1450  RETURN 

1460  REM  "<  8 SPACE>SPE  I CHERN 

1470  IF  (FL  AND  1)  - 0 THEN  RETURN 

1480  POKE  CI, 7 * C2:  PRINT  "<BLU>":  GOSUB  3590 

1490  PRINT  : PRINT  : PRINT  "<  2 SPACE>"FS"<CRSR  UP>":  INPUT  "FILE- 

NAME"; FS 

1500  PRINT  : PRINT  "DATENCASSETTE  EINLEGEN" 

1510  PRINT  : PRINT  : PRINT  "<  3 SPACE>«  Return<SHIFT  SPACE»>" 

1520  GOSUB  1010 

1530  IF  AS  > "K"  THEN  PRINT  "<HOME>":  GOTO  1490 

1540  IF  AS  - "Q"  THEN  RETURN 

1550  IF  A < >13  THEN  1520 

1560  «-DSFS:  FL  = FL  OR  2:  RETURN 

1570  REM  "<  9 SPACE>LADEN 

1580  IF  (FL  AND  6)  = 4 THEN  GOSUB  1680:  IF  FL  < >255  THEN  RETURN 

1590  POKE  CI, 7 * C2:  PRINT  "<BLU>":  GOSUB  3600 

1600  PRINT  : PRINT  : PRINT  "<  2 SPACE>"FS"<CRSR  UP>":  INPUT  "FILE- 

NAME";  FS 

1610  PRINT  : PRINT  "DATENCASSETTE  EINLEGEN" 

1620  PRINT  : PRINT  : PRINT  "<  3 SPACE>«  Return<SHIFT  SPACE»>« 

1630  GOSUB  1010 

1640  IF  AS  = "K"  THEN  PRINT  "<HOME>":  GOTO  1600 

1650  IF  AS  = "Q"  THEN  RETURN 

1660  IF  A < >13  THEN  1630 

1670  «-DLFS:  FL  = FL  AND  251:  RETURN 

1680  PRINT  "<CLR  HOMEx  20  CRSR  DOUN>":  PRINT  TAB(  SP  / 2 - 

8)"<WHT>TR0TZDEM  LADEN" 

1690  GOSUB  1310:  RETURN 

1700  REM  "<  5 SPACE>DATEI  ERSTELLEN 

1710  POKE  CI, 8 * C2:  IF  FL  THEN  RETURN 

1720  GOSUB  3550:  REM  " TITEL  SCHREIBEN 

1730  PRINT  : PRINT  : INPUT  "FELDANZAHL"; FA 

1740  PRINT  : INPUT  "<CRSR  DOUN>MAX  DATENSAETZE";RA 

1750  PRINT  : PRINT  »«  Return  » ":  GOSUB  1010:  IF  A < >13  THEN 

PRINT  "<HOME>":  GOTO  1730 

1760  DIM  M$(FA),ES(FA,RA),SF(FA),S$(FA),US(FA),GFX(RA) 

1770  FL  = 1:  REM  "<  2 SPACE>FLAG  SETZEN 

1775  REM  "<  4 SPACE> FELDBEZE I CHNUNGEN  EINGEBEN 

1780  IF  (FL  AND  1)  = 0 THEN  RETURN 

1790  GOSUB  3550:  REM  "UEBERSCHRIFT  SCHREIBEN 

1800  PRINT  : PRINT  »GEBEN  SIE  DIE  ";:  IF  SP  < 40  THEN  PRINT  : 

PRINT 

1810  PRINT  "FELDBEZEICHNUNGEN  EIN" 

1820  PRINT  : FOR  I = 0 TO  FA  - 1 : PRINT  : PRINT  "<RVS  ON>FELD  »I  + 

1"<RVS  OFF»" 

1830  PRINT  "<  2 SPACE>"MS( I )“<CRSR  UP>": 


INPUT  MS( I ) : NEXT 


830  Das  große  Commodore  64-Buch 


1840  PRINT  LEFTS  (DWS.ZE)"«  Return  »";:  GOSUB  1010:  IF  AS  = "K" 

THEN  PRINT  "<HOME>":  GOTO  1800 

1850  FL  = FL  OR  4:  RETURN 

1860  REM  "<  5 SPACE >DATEN  EINGEBEN 

1865  IF  FL  AND  1=0  THEN  RETURN 

1870  POKE  CI, 3 * C2:  PRINT  "<BLU>" 

1880  CLOSE  1:  OPEN  1,0 

1890  GOSUB  3580:  PRINT  : PRINT  "ES  EXISTIEREN"RT; : IF  SP  < 40  THEN 

PRINT 

1900  PRINT  "DATENSAETZE" 

1910  RI  = RT:  R2  = RT:  IF  (RT  > 0)  AND  (AS  < > "K")  THEN  RI  = RT  - 1 

1920  GOSUB  3650:  GOSUB  3670:  REM  "<  2 SPACE »FELDER  ANZEIGEN 

1930  PRINT  LEFTS  (DU$,ZE)"<GRN><  3 SPACE>«  Return<SHIFT  SPACE>» 

<WHT>"; : GOSUB  1010 

1940  IF  AS  = "Q"  THEN  RETURN 

1950  IF  AS  = "K"  THEN  189Ö 

1960  IF  A < >13  THEN  FL  = FL  OR  12:  RT  = RT  + 1:  RETURN 

1970  RT  = RT  + 1:  IF  RT  < RA  THEN  1890 

1980  GOSUB  3580:  PRINT  : PRINT  : PRINT  "MAXIMALE  SATZZAHL  ";:  IF 

SP  < 40  THEN  PRINT 

1990  PRINT  : PRINT  "ERREICHT":  GOSUB  1010:  RETURN 

2000  REM  "<  7 SPACE>BLAETTERN 
2005  IF  (FL  AND  8)  = 0 THEN  RETURN 
2010  POKE  CI, 6 * C2:  PRINT  "<WHT>" 

2020  RI  = 0 

2025  IF  RI  <0  THEN  RI  = RI  + RT 

2030  GOSUB  3610:  PRINT  : PRINT  "DATENSATZ  NR. "RI 

2040  GOSUB  3650 

2050  PRINT  LEFTS  (DW$,ZE)"<GRN><  3 SPACE>«  Return<SHIFT  SPACE»> 
<UHT>"; : GOSUB  1010 

2060  IF  AS  = THEN  RI  * RI  - 1:  GOTO  2025 

2070  IF  AS  = "Q"  THEN  RETURN 

2080  IF  AS  = "A"  THEN  GOSUB  2560:  GOTO  2060 

2090  IF  A < >13  THEN  2050 

2100  IF  RI  < RT  - 1 THEN  RI  = RI  + 1 : GOTO  2030 

2110  GOSUB  3610:  PRINT  "<  8 CRSR  DOWNxCRSR  RIGHTxRVS  ON>  KEINE 

WEITEREN  DATEN  " 

2120  RI  = 0:  GOTO  2050 

2130  REM  "<  5 SPACE »DATEI  PFLEGEN 
2135  IF  (FL  AND  8)  = 0 THEN  RETURN 
2140  POKE  CI, 4 * C2 

2150  FOR  I = 0 TO  FA  - 1:  SF(I)  = 0:  NEXT  : AS  = 0 

2160  GOSUB  3620:  FOR  I = 0 TO  FA  - 1 : PRINT  I + 1"<CRSR  LEFT>. 

»M$( I ) : NEXT 

2170  PRINT  : PRINT  "NACH  WELCHEN  FELDERN  ";:  IF  SP  < 40  THEN  PRINT 

: PRINT 

2180  PRINT  "SOLL  GESUCHT  WERDEN":  PRINT  : PRINT 

2190  GOSUB  1010:  IF  A = 13  THEN  2262 

2200  IF  AS  = "Q"  THEN  RETURN 

2210  IF  AS  = "K"  THEN  2150 

2220  I = VAL  (AS):  IF  I < 1 OR  I > FA  THEN  2190 

2230  IF  SF(I  - 1)  THEN  2190 

2240  D6  = PEEK  (214):  REM  " CURSOR-ZEILE  RETTEN 
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2250  SF(I  - 1)  = 1:  PRINT  TA8(  3>"<RVS  ON>"MS(I  - 1):  GOSUB  3710 

2260  PRINT  LEFT$  <DUS,D6  + 1)Z$(SF<I  - 1)  - 1 ):  AS  = AS  + 1 : GOTO 

2190 

2262  GOSUB  3620:  PRINT  : PRINT  "FINDEN  BEI" 

2264  PRINT  : PRINT  TAB(  4)"1  - EINER" 

2265  PRINT  : PRINT  TAB(  4)"0  = ALLEN" 

2266  PRINT  : INPUT  "UEBERE I NST I MHUNGEN" ; UE 

2267  IF  UE  THEN  AS  * UE 

2270  GOSUB  3620:  CLOSE  1:  OPEN  1,0 

2280  PRINT  : PRINT  "GEBEN  SIE  SUCHSTRINGS  IF  SP  < 40  THEN  PRINT 

: PRINT 

2290  PRINT  "EIN":  PRINT  : PRINT 

2300  FOR  F - 0 TO  FA  - 1:  IF  SF(F)  = 0 THEN  2330 

2310  PRINT  "<RVS  ON>"MS(F)"  : " 

2320  PRINT  SS(F)"<CRSR  UP>":  INPUT#  1,SS(F>:  PRINT 

2330  NEXT 

2340  PRINT  LEFTS  <DWS,ZE)"«  Return  »";:  GOSUB  1010:  IF  AS  = "K" 

THEN  PRINT  "<HOME>":  GOTO  2280 

2350  IF  AS  = "Q"  THEN  RETURN 

2360  IF  A < >13  GOTO  2340 

2370  REM  "<  9 SPACE>SUCHEN 

2372  FOR  F = 0 TO  FA  - 1:  IF  SF(F)  THEN  FB  = F:  F = FA 

2374  NEXT  : REM  "NIEDRIGSTES  UND  HOECHSTES 

2376  FOR  F = FA  - 1 TO  0 STEP  - 1:  IF  SF(F>  THEN  FE  = F:  F = 0 

2378  NEXT  : REM  "SUCHFELD  FESTSTELLEN 

2380  Z * 0:  FOR  R - 0 TO  RT  - 1 

2390  FOR  F = FB  TO  FE  - 1:  IF  SF(F)  THEN  US(F)  = ES(F,R) 

2400  NEXT  : REM  "UNTERSUCHSTRINGS  UMSPEICHERN 

2410  N = 0:  F = FB:  GOSUB  100:  IF  N > * AS  THEN  GFX(Z)  = R:  Z = Z + 

1 

2420  NEXT  : IF  Z = 0 THEN  2130 

2430  REM  "<  5 SPACE>DATENSAETZE  ANZEIGEN 

2440  I = 0 

2450  GOSUB  3620:  PRINT  : PRINT  Z"  TREFFER":  PRINT  "DATENSATZ 

NR."GFX(I) 

2460  RI  = GFX(I):  GOSUB  3650 

2470  PRINT  LEFTS  (DWS,ZE)"<GRN><  3 SPACE>«  Return<SHIFT  SPACE»> 
<WHT>"; : GOSUB  1010 

2480  IF  AS  = "-"  AND  I > 0 THEN  1=1-1:  GOTO  2450 

2490  IF  AS  = "0"  THEN  RETURN 

2500  IF  AS  = "A"  THEN  GOSUB  2560:  GOTO  2480 

2510  IF  AS  = "L"  THEN  2640 

2520  IF  A < >13  THEN  2470 

2530  IF  I < Z - 1 THEN  1=1+1:  GOTO  2450 

2540  GOSUB  3620:  PRINT  "<  8 CRSR  DOUN><  3 CRSR  RIGHTxRVS  ON>  KEINE 

WEITEREN  DATEN  " 

2550  PRINT  LEFTS  (DUS,ZE)"<GRN><  3 SPACE>«  Return<SHIFT  SPACE>» 

<WHT>“; : GOSUB  1010:  GOTO  2450 

2560  REM  "<  9 SPACE>AENDERN 

2570  CLOSE  1:  OPEN  1,0:  R2  = RI:  GOSUB  3670 

2580  PRINT  LEFTS  (DWS,ZE)"<GRN><  3 SPACE>«  Return<SHIFT  SPACE>» 

<WHT>"; : GOSUB  1010 

2600  IF  AS  = "K"  THEN  2570 
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2610  FL  - FL  OR  4:  FL  = FL  AND  253:  RETURN 

2620  RETURN 

2630  REM  "<  8 SPACE>LOESCHEN 

2640  FOR  II  = GF%( I ) + 1 TO  RT  - 1:  REM  11  DATEN 

2650  FOR  J = 0 TO  FA  - 1:  REM  "<  7 SPACE>UMSPEICHERN 

2660  ES(J,I1  - 1)  = ES( J, II ) 

2670  NEXT  J , I 1 

2680  Z=2  - 1:  RT  =RT  - 1:  FL=  FLOR4:  GOTO  2450 

2690  REM  5 SPACE>LISTE  AUSGEBEN 

2695  IF  Z = 0 THEN  RETURN 

2700  POKE  CI ,7  * C2:  PRINT  "<BLU>" 

2710  FOR  I = 0 TO  FA  - 1:  SF(I)  = 0:  NEXT 

2720  GOSUB  3630 

2725  FOR  I = 0 TO  FA  - 1:  PRINT  I + 1"<CRSR  LEFT>.  HM$(I):  NEXT 

2730  PRINT  : PRINT  "WELCHE  FELDER  SOLLEN  IF  SP  < 40  THEN  PRINT 

: PRINT 

2740  PRINT  “AUSGEDRUCKT  WERDEN":  PRINT  : PRINT 

2750  GOSUB  1010:  IF  A = 13  THEN  2810 

2760  IF  AS  = "Q"  THEN  RETURN 
2770  IF  A$  = "K"  THEN  2710 

2780  I = VAL  <A$):  IF  I < 1 OR  I > FA  THEN  2750 
2790  IF  SF(I  - 1)  THEN  2750 

2800  SF(I  - 1)  = 1:  PRINT  "<RVS  ON>"MS(-I  - 1):  PRINT  : GOTO  2750 

2810  PRINT  : INPUT  "UEBERSCHR I FT" ; UB$ 

2820  PRINT  : PRINT  "FELDBEZEICHNUNGEN":  PRINT  : INPUT  "AUSDRUCKEN 

<COMM  :>1/0<COMM  ;>";FM$ 

2830  FM  = VAL  (FMS) 

2840  PRINT  : INPUT  "DRUCKER=4/BILDS.=0";DV 

2850  IF  DV  THEN  OPEN  4,DV,7:  CMD  4 

2860  PRINT  CHRS  (14)UB$  CHR$  (15):  PRINT  : PRINT 

2870  FOR  R = 0 TO  Z - 1 

2880  FOR  F = 0 TO  FA  - 1:  IF  SF(F)  = 0 THEN  2910 

2890  IF  FM  THEN  PRINT  : PRINT  "<RVS  ON>»M$(F>"  : <RVS  OFF>" 

2900  PRINT  E$(F,GF%(R)) 

2910  NEXT  : IF  DV  THEN  2930 

2920  GET  A$:  IF  AS  < > ""  THEN  POKE  198,0:  WAIT  198,1:  GET  AS 

2930  PRINT  : PRINT  : NEXT 

2940  IF  DV  THEN  PRINT#  4:  CLOSE  4:  RETURN 

2950  PRINT  : PRINT  "<  4 SPACE>«  Return<SHIFT  SPACE»>" 

2960  GOSUB  1010:  IF  A < >13  THEN  2960 

2970  RETURN 

2980  REM  »<  8 SPACE>SORTIEREN 
2990  IF  Z = 0 THEN  RETURN 
3000  GOSUB  3640 

3010  FOR  I = 0 TO  FA  - 1:  PRINT  I + 1"<CRSR  LEFT>.  "MS(I):  NEXT 

3020  PRINT  "<CRSR  DOWN>NACH  WELCHEM  FELD  IF  SP  < 40  THEN  PRINT  : 
PRINT 

3030  INPUT  "SOLL  SORTIERT  WERDEN";SF:  SF  = SF  - 1 

3040  Fl  = 0:  FH  = 0:  FH  = PEEK  (49)  + PEEK  (50)  * 256:  REM 

"OBERGRENZE  RETTEN 

3050  Fl  = PEEK  (47)  + PEEK  (48)  * 256:  REM  " UNTERGRENZE  RETTEN 

3060  DIM  NS(Z),Z(Z  +1) 

3070  0 = 1:  FOR  I = 0 TO  Z - 1:  REM  "<  4 SPACE>SORT I ER  FELD 
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3080  N$(Q)  = E$(SF,GFX(I)):  REN  " UMSPEICHERN 

3090  Z(Q)  = 0:  0 = 0 + 1:  NEXT 

3100  GOSUB  3240:  REM  "<  9 SPACE>SORTIERROUTINE 

3110  FOR  X = 0 TO  FA  - 1 

3130  FOR  Y = 0 TO  Z - 1 

3140  N*(Y  + 1)  = E$(X,GFX(Y)) 

3160  NEXT 

3170  FOR  Y = 0 TO  Z - 1 
3180  ESCX.GFX(Y))  = N$(Z(Y  + 1)) 

3200  NEXT  Y,X 

3210  FOR  I = 0 TO  Z - 1:  N$(I)  = NEXT  : REM  "STRINGS  VON  N$() 

LOESCHEN 

3220  GOSUB  3520:  REM  "WIEDERHERSTELLUNG  DER  ALTEN  ZEIGER 

3230  RETURN 

3235  REM  "<  4 SPACE>SORTIERROUTINE 
3240  TIS  = "000000":  PRINT  "<CLR  HOME>" 

3250  L = INT  (Z  / 2)  + 1 

3260  R = Z:  PRINT  »<CLR  HOME>»R»<CRSR  LEFTx  3 SPACE>" 

3270  IF  L > 1 THEN  3340 
3280  IF  R < =1  THEN  3330 
3290  H2S  = N$(L):  Hl  = Z(L) 

3300  N$(L)  = N$(R):  Z(L)  = Z(R) 

3310  NS(R)  = H2S:  Z(R)  = Hl 

3320  R = R - 1 

3330  GOTO  3350 

3340  L = L - 1 

3350  J - L 

3360  I = 2 * J 

3370  H2S  = N$(J):  Hl  = Z(J) 

3380  IF  I > R THEN  3480 

3390  IF  I > - R THEN  3420 

3400  IF  N$( I ) > = N$( I + 1)  THEN  3420 

3410  1 = 1 + 1:  PRINT  "<CLR  HOME>"I"<CRSR  LEFTx  3 SPACE»" 

3420  IF  I > R THEN  3480 

3430  IF  H2S  > = NS(I)  THEN  3480 

3440  NS(J)  = N$( I ) : Z(J)  = Z(I) 

3450  J = I 

3460  I = 2 * J 

3470  GOTO  3390 

3480  N$(  J)  = H2S:  ZU)  = Hl 

3490  IF  R < >1  THEN  3270 

3500  PRINT  "<CLR  HOMEx  2 CRSR  DOUN>SORTIERZEIT";TIS 
3510  RETURN 

3515  REM  "POINTER  WIEDERHERSTELLEN 

3520  J = PEEK  (47)  + PEEK  (48)  * 256  + (FH  - Fl) 

3530  POtCE  49, J AND  255:  POKE  50,  INT  (J  / 256) 

3540  RETURN 

3545  REM  "<  4 SPACE>UEBERSCHR I FTEN 

3550  PRINT  "<CLR  HOME»";:  PRINT  TAB(  SP  / 2 - 10)"*  Datei<SHIFT 

SPACE>erstellen  *":  RETURN 

3560  PRINT  "<CLR  HOME»";:  PRINT  TAB(  SP  / 2 - 10)»<WHT>*  * * M<SHI FT 

SPACE»E<SHI FT  SPACE>N<SHIFT  SPACE>U<SHI FT  SPACE>E<SHIFT  SPACE>*<SHI FT 
SPACE»*  *“:  RETURN 
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3570  PRINT  "<CLR  HOME»"; 


PRINT  TAB(  SP  / 2 - 9)»*  Datei<SHIFT 


SPACE>pf legen  •«:  RETURN 

3580  PRINT  "<CLR  H0ME><BLU>"; : PRINT 

SPACE>eingeben  *":  RETURN 

3590  PRINT  "<CLR  HOHE»";:  PRINT  TAB( 

SPACE>spei ehern  *":  RETURN 

3600  PRINT  "<CLR  HOME»";:  PRINT  TAB( 

SPACE» laden  *":  RETURN 


3610  PRINT  "<CLR  HOME»" 


PRINT  TAB( 


SPACE»*  *":  RETURN 


TAB(  SP  / 2 - 10)"*  Daten<SHIFT 
SP  / 2 - 8)"*  Daten<SHIFT 
SP  / 2 - 6)"*  Daten<SHIFT 
SP  / 2 - 8)"*  * Blaettern<SHIFT 


3620  PRINT  "<CLR  HOME»" 
RETURN 

3630  PRINT  "<CLR  HOME»" 


PRINT  TAB(  SP  / 2 - 8)"Suchen  / Aendern": 
PRINT  TAB(  SP  / 2 - 7)"Liste«SHIFT 


SPACE »ausgeben":  RETURN 

3640  PRINT  "<CLR  HOME»" 


PRINT  TAB(  SP  / 2 - 7)"Liste<SHIFT 


SPACE»sort i eren" : RETURN 

3645  REM  "<  4 SPACE»FELDER  AUSGEBEN 

3650  PRINT  "<HOME><  5 CRSR  DOWN»":  FOR  F = 0 TO  FA  - 1:  PRINT  "<RVS 



3660  PRINT  E$(F,R1):  NEXT  : RETURN 

3670  PRINT  "<HOME><  5 CRSR  DOWN»":  FOR  F = 0 TO  FA  - 1 : PRINT  "<RVS 

ON»"M$(F)"  : " 

3680  PRINT  ES(F,R1)"<CRSR  UP»":  A = LEN  (E$(F,R1)) 

3690  IF  A > SP  THEN  FOR  X = 0 TO  A / SP:  PRINT  "<CRSR  UP»";:  NEXT 

3700  INPUT#  1,ES(FfR2):  PRINT  : NEXT  : RETURN 

3705  REM  "<  3 SPACE»SUCHFORM  WAEHLEN 

3710  PRINT  LEFTS  (DWS.ZE  - 1)"<RVS  ON>1 : «/2:  =/3:  <>/4:  >/5:  «RVS 


OFF»"; 

3720  GOSUB  1010:  J = VAL  (AS):  IF  J < 1 OR  J » 5 THEN  3720 

3730  SF(I  - 1)  = J 

3740  PRINT  LEFTS  (DWS.ZE  - 1)"<  20  SPACE»";:  RETURN 

3750  REM  "<  6 SPACE»IELPSEITE 

3760  PRINT  "<CLR  HOME»*  *****  HELP- SEITE  ****** 

3770  PRINT  : PRINT  "WENN<  2 SPACE»«  Return  »»  ERSCHEINT  HABEN  SIE" 

3780  PRINT  : PRINT  "OPTIONEN  : ":  PRINT  : PRINT 

3790  PRINT  "Return<  2 SPACE»=  WEITERMACHEN":  PRINT 

3800  PRINT  "K<  7 SPACE»=  LETZTE  EINGABE  WIEDERHOLEN":  PRINT 

3810  PRINT  "Q<  7 SPACE>=  PROGRAMMPUNKT  ABBRECHEN":  PRINT 

3820  PRINT  "-<  7 SPACE>=  EINEN  SATZ  ZURUECK":  PRINT 

3830  PRINT  "A<  7 SPACE>=  EINEN  SATZ  AENDERN":  PRINT 

3840  PRINT  "L<  7 SPACE»*  EINEN  SATZ  LOESCHEN":  PRINT 

3850  GET  AS:  IF  AS  = ""  THEN  3850 

3860  RETURN 

5000  «********************************** 

5010  "*<  2 SPACE»DATEI VERWALTUNG  MIT  FASTTAPE<  2 SPACE»* 

5020  "*<  6 SPACE»(C)  DIRK  PAULISSEN<  8 SPACE»* 

5030  "*<  32  SPACE»* 

5040  "*  VERWENDETE  VARIABLEN  : < 9 SPACE»* 

5050  "*  FA<  4 SPACE»*  FELDANZAHL«  13  SPACE»* 

5060  "*  RA<  4 SPACE»*  RECORDANZAHL(MAX)<  6 SPACE»* 

5070  "*  RT<  4 SPACE>=<  3 SPACE»-  " - (AKTUELL)«  5 SPACE»* 

5080  "*  F<  5 SPACE»*  AKTUELLES  FELD«  9 SPACE»* 

5090  "*  R<  5 SPACE»*  AKTUELLER  RECORD«  7 SPACE»* 
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5100  "*  SP<  4 SPACE>=  SPALTENANZAHL«  10  SPACE»* 

5110  •'*  ZE<  4 SPACE>=  ZEILENZAHL«  13  SPACE»* 

5120  »*  AS«  4 SPACE>=  FRAGESTRING«  12  SPACE>* 

5130  '•*  FL«  4 SPACE>=  FLAG«  19  SPACE>* 

5140  “*  ES(F,R)  = DATENSTRING«  10  SPACE»* 

5150  "*  SF(F)<  3 SPACE>=  SUCHFELD- FLAG«  9 SPACE»* 

5160  "*<  9 SPACE» 1 : TEILSTRING  SUCHEN«  2 SPACE»* 

5170  "*<  9 SPACE >2  : GANZ  '='<  11  SPACE»* 

5180  “*<  9 SPACE>3  : GANZ  '<>'<  10  SPACE»* 

5190  "*<  9 SPACE >4  : GANZ  '>='<  10  SPACE»* 

5200  "*<  9 SPACE>5  : GANZ  ■<=,<  10  SPACE»* 

5220  "*  SS(F)<  3 SPACE>=  SUCHSTRING«  11  SPACE»* 

5230  "*  U$(F)<  3 SPACE>=  UNTERSUCHSTRING«  6 SPACE»* 

5240  "*  GF%()<  3 SPACE>=  NUMMER  DER  GE FUNDE-«  2 SPACE»* 
5250  "*<  11  SPACE»NEN  DATENSAETZE«  6 SPACE»* 

5300  h********************************** 


10.11.1  Programmbeschreibung 

Der  Programmaufbau  ist  folgender: 


90  - 1030 
1050  - 1090 
1100  - 1260 
1270  - 3540 
3550  - 3640 
3650  - 3850 

5000  - Ende 


Schnelle  Unterprogramme 
Initialisierung 
Hauptprogranm  (Menü) 

Unterprogramme,  die  vom  Menü  auf gerufen  werden 
Überschriften 

Unterprogramme,  die  von  anderen  Unterprogrammen 
aufgerufen  werden 

Copyright -Vermerk  und  Aufzählung  der  benutzten  Variablen 


Arbeitsweise 

Das  Hauptprogramm  besteht  nur  aus  dem  Menü  und  der  Ver- 
zweigung in  das  gewählte  Unterprogramm.  Zur  Datensicherheit 
wurde  ein  Flag  "fl"  eingeführt,  welches  immer  am  Anfang  eines 
Unterprogramms  getestet  und  innerhalb  der  Unterprogramme 
gesetzt  wird.  Die  einzelnen  Bits  von  fl  haben  folgende  Bedeu- 
tung, wenn  sie  gesetzt  sind: 


Bit 

Wert 

Bedeutung 

0 

1 

Datei  eingerichtet 

1 

2 

Datei  gespeichert 

4 

Datei  verändert 

8 

Datei  enthält  Datensätze 
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Wird  versucht,  eine  neue  Datei  zu  laden  oder  das  Programm  zu 
beenden,  ehe  eine  geänderte  Datei  abgespeichert  wurde,  wird  in 
die  Fehlerroutine  1305  bis  1450  verzweigt.  Die  Programmteile 
"Laden"  und  "Speichern"  verstehen  sich  von  selbst. 

Datei  erstellen  (1700  - 1850) 

Nachdem  der  Titel  durch  Zeile  1720  geschrieben  wurde,  wird 
per  INPUT  die  Feldanzahl  (fa)  und  Datensatzanzahl  (ra)  einge- 
lesen. Durch  die  Abfrage  in  1750  wird  es  ermöglicht,  eine  feh- 
lerhafte Eingabe  zu  korrigieren.  Entsprechend  "fa"  und  "ra"  wer- 
den in  1760  die  Felder  dimensioniert  und  in  1770  Bit  0 in  "fl" 
gesetzt. 

In  Zeile  1780  wird  Bit  0 in  "fl"  getestet,  da  die  Routine  zur  Ein- 
gabe und  Änderung  der  Feldbezeichnungen  auch  vom  Menü  an- 
gesprungen werden  kann.  In  Zeile  1800  und  1810  wird  der  aus- 
zugebene String  entsprechend  der  Spaltenzahl  des  Computers  in 
einer  oder  zwei  Zeilen  ausgedruckt. 

Innerhalb  einer  Schleife  (Zeile  1820  - 1830)  werden  die  einzel- 
nen Feldbezeichnungen  in  m$(fa)  eingelesen.  Eventuell  vorhan- 
dene werden  auf  dem  Bildschirm  ausgegeben  und  können  durch 
<Return>  übernommen  werden.  Durch  die  Abfrage  in  Zeile  1840 
ist  wieder  eine  Korrektur  möglich. 

Daten  eingeben  (1860  • 1990) 

In  Zeile  1865  wird  "fl"  daraufhin  getestet,  ob  schon  eine  Datei 
erstellt  wurde.  In  der  Zeile  1880  wird  durch  OPEN  1,0  die  Ta- 
statur eröffnet.  Das  hat  zur  Folge,  daß  bei  einem  folgenden  IN- 
PUT#! kein  Fragezeichen  ausgegeben  wird.  Aus  Sicherheits- 
gründen wird  vor  jedem  OPEN-Befehl  die  entsprechende  Datei 
geschlossen. 

Über  die  Zeilen  1890-1900  wird  die  Überschrift  und,  entspre- 
chend der  Spaltenzahl,  ein  String  ausgegeben.  In  den  Unterpro- 
grammen, welche  die  einzelnen  Felder  eines  Satzes  anzeigen 
(3650-3660)  bzw.  neue  Felder  einiesen  (3670-3700),  wird  "rl" 
bzw.  "r2"  als  Satzzeiger  benutzt.  Aus  diesem  Grunde  wird  in 
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Zeile  1910  der  Zeiger  auf  den  einzugebenden  Satz  "rt"  in  "rl" 
und  "r2"  übertragen.  Wurde  schon  ein  Satz  eingegeben  (rt  größer 
null),  wird  "rl"  dekrementiert,  so  daß  die  Felder  des  zuletzt  ein- 
gegebenen Satzes  angezeigt  werden.  Ab  Zeile  1930  wird  abge- 
fragt, ob  abgebrochen  (a$  = "q"),  korrigiert  (a$  * "k"),  beendet  (a 
ungleich  13)  oder  weitergemacht  werden  soll.  Ist  a = 13,  wird  in 
Zeile  1970  getestet,  ob  die  maximale  Satzzahl  erreicht  wurde. 


Blättern  (2000) 

Mit  Hilfe  der  Laufvariablen  "rl"  werden  über  das  Unterpro- 
gramm "Felder  ausgeben"  die  einzelnen  Datensätze  angezeigt  und 
dann  die  Tastatur  über  die  "Warteschleife"  (1010)  abgefragt. 
Entsprechend  der  Eingabe  wird  weitergeblättert  (2100),  zum 
Menü  zurückgekehrt  (2070)  oder  in  das  Unterprogramm  "Än- 
dern" (2080)  verzweigt. 

Datei  pflegen  (2130) 

Nach  Abfrage  von  "fl"  und  Bildschirm-POKE  werden  die  Such- 
Flags  (sf(i))  auf  null  gesetzt  (2150).  Über  die  "Warteschleife" 
wird  ab  Zeile  2190  abgefragt,  ab  welchem  Feld  gesucht  werden 
soll.  Wurde  eine  gültige,  noch  nicht  gewählte  Feldnummer  ein- 
gegeben (der  Test  dafür  ist  in  Zeile  2220-2230),  wird  in  Zeile 
2240  die  aktuelle  Cursor-Zeile  in  "d6"  gerettet  und  in  Zeile  2250 
die  Feldbezeichnung  des  gewünschten  Feldes  ausgedruckt. 

Über  das  Unterprogramm  "Suchform  wählen"  ab  Zeile  3710  wird 
der  Index  der  gewünschten  Suchform  in  das  entsprechende 
Such-Flag  eingelesen.  Mit  Hilfe  der  geretteten  Cursor-Zeile  (d6) 
wird  dann  in  Zeile  2260  das  entsprechende  Suchformzeichen  vor 
die  Feldbezeichnung  gesetzt  und  zur  Abfrage  nach  weiteren 
Suchfeldern  zurückgesprungen. 

In  den  Zeilen  2262-2267  wird  die  gewünschte  Anzahl  der 
Übereinstimmungen  in  "ue"  geschrieben.  Über  die  Zeilen  2280  - 
2360  werden  die  Such-Strings  in  das  Feld  s$(f)  eingelesen.  Da 
die  eigentliche  Suchroutine  in  jedem  Datensatz  die  Felder  von 
einem  Startfeld  bis  zu  einem  Endfeld  untersucht,  wird  in  Zeile 
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2372-2378  der  niedrigste  und  höchste  Feldindex  festgestellt  und 
in  "fb",  "fe"  gerettet,  um  so  die  Suchzeit  zu  optimieren. 

Die  Hauptsuchschleife  über  die  einzelnen  Datensätze  beginnt  ab 
Zeile  2380.  In  Zeile  2390  werden  die  zu  untersuchenden  Strings 
in  das  Feld  "u$(i)"  übertragen.  In  der  Zeile  2410  wird  der  Index 
für  gefundene  Übereinstimmungen  "n"  auf  null  und  "f"  auf  das 
Startfeld  gesetzt,  bevor  in  die  eigentliche  Suchroutine  ab  Zeile 
100  gesprungen  wird. 

Die  Suchroutine  liegt  aus  Zeitgründen  am  Programmanfang,  da 
die  Zieladresse  nach  einem  Sprung  (GOTO,  GOSUB)  entweder 
hinter  der  aufrufenden  Zeile  oder  ab  Programmanfang  gesucht 
wird.  Würde  die  Routine  am  Programmende  liegen,  müßte  bei 
einem  Sprung  in  eine  vorherige  Zeile  immer  das  ganze  Pro- 
gramm nach  der  Zielzeilennummer  durchsucht  werden,  was  bei 
längeren  Dateien  die  Suchzeit  merklich  verlängern  würde.  Am 
Anfang  der  Suchroutine  wird  getestet,  ob  schon  alle  gewünsch- 
ten Felder  durchsucht  wurden  oder  ob  die  gewünschte  Anzahl 
der  Übereinstimmungen  gefunden  wurde.  Ist  das  nicht  der  Fall, 
wird  über  "sf(f)"  der  gewünschte  Vergleich  angesprungen. 

Ist  der  entsprechende  Vergleich  logisch  WAHR,  wird  der  Über- 
einstimmungszähler erhöht.  Nachdem  der  Feldindex  "P  erhöht 
wurde,  wird  zum  Start  zurückgesprungen.  Nach  dem  Rücksprung 
in  die  Zeile  2410  wird,  wenn  die  gewünschte  Übereinstim- 
mungszahl erreicht  wurde,  die  Datensatznummer  in  das  Feld 
"gf%0"  geschrieben  und  die  Trefferzahl  "z"  inkrementiert.  Nach 
Abschluß  des  Suchens  werden  die  Treffer  analog  zum  Unterpro- 
gramm "Blättern"  angezeigt  (2430-2550). 

Liste  ausgeben  (2690  - 2970) 

Diese  Routine  gibt  die  durch  das  Feld  "gf%(i)"  bestimmten  Da- 
tensätze entweder  auf  den  Bildschirm  oder  dem  Drucker  aus.  Die 
Abfrage  nach  den  auszudruckenden  Feldern  ist  analog  zu  der 
Feldbestimmung  im  Unterprogramm  "Suchen". 
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Sortieren  (2980  - 3510) 

Nach  der  Abfrage,  ob  eine  Liste  erstellt  wurde,  und  nach  der 
Ausgabe  der  Überschrift  auf  den  Bildschirm  (2990-3000)  wird 
das  Feld,  nach  dem  sortiert  werden  soll,  abgefragt,  und  der 
entsprechende  Index  in  "sP  geschrieben.  Für  die  folgende  Sor- 
tierroutine werden  einige  Hilfsfelder  benötigt,  deren  Größe  vom 
Listenumfang  abhängt.  Da  Felder  aber  normalerweise  nur  einmal 
dimensioniert  werden  dürfen,  hätte  ich  bei  der  Initialisierung  die 
Hilfsfelder  nn$(i)N  und  "(i)"  mit  der  maximalen  Datensatzanzahl 
dimensionieren  müssen.  Das  würde  einerseits  viel  Speicherplatz 
schlucken  und  andererseits  die  Lade-  und  Speicherzeit  vom  bzw. 
auf  Band  verlängern.  Mit  einem  Kunstgriff  ist  es  möglich,  Feh- 
ler selektiv  zu  löschen  und  somit  redimensionierbar  zu  machen. 

Dieser  Kunstgriff  besteht  darin,  vor  einer  neuen  Dimensionie- 
rung die  Ober-  und  Untergrenze  des  Bereichs,  in  dem  der  Com- 
puter die  Felder  ablegt  zu  retten.  Die  danach  dimensionierten 
Felder  können  dann  durch  Rücksetzen  der  Zeiger  auf  die  alte 
Länge  der  Feldertabelle  gelöscht  werden. 

Aus  diesem  Grunde  werden  in  den  Zeilen  3040  und  3050  die 
Zeiger  auf  den  Start  und  das  Ende  der  Feldertabelle  in  "fl"  und 
"fh"  gerettet.  In  der  Zeile  3060  werden  die  Hilfsfelder  entspre- 
chend des  Listenumfangs  dimensioniert.  Durch  die  Schleife  in 
den  Zeilen  3070  bis  3090  wird  das  entsprechende  Datensatzfeld 
eines  jeden  in  der  Liste  befindlichen  Datensatzes  in  "n$(i)" 
übertragen.  Dieses  Stringfeld  wird  später  sortiert.  Damit  danach 
die  entsprechenden  anderen  Felder  eines  Datensatzes  dem  sor- 
tierten Feld  zugeordnet  werden  können,  wird  in  "(i)M  ein  "Poin- 
ter" angelegt,  der  die  Position  des  entsprechenden  Datensatzes 
innerhalb  der  Liste  enthält. 

Die  Sortierroutine  verarbeitet  nur  Felder  mit  Indizes  ab  eins.  Im 
Datenfeld  "e$(f,r)"  sind  die  Datenfelder  aber  ab  Index  null  ab- 
gespeichert. Aus  diesem  Grund  müssen  die  Daten  und  der  Poin- 
ter jeweils  in  eine  Feldvariable  mit  einem  Index,  der  um  eins 
höher  ist  als  der  im  Datenfeld,  umgespeichert  werden.  Bei  der 
Umspeicherroutine  wird  der  erhöhte  Index  dreimal  benötigt  (In- 
dex von  "n$",  Index  von  "z",  Pointer  in  "(i)").  Damit  innerhalb 
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der  Umspeicherschleife  nicht  dreimal  Mi+1"  berechnet  werden 
muß,  habe  ich  aus  Zeitgründen  eine  Hilfsvariable  "q"  definiert, 
die  innerhalb  der  Schleife  nur  einmal  inkrementiert  werden 
muß. 

In  Zeile  3100  wird  in  die  Sortierroutine  (3240-3510)  verzweigt. 
Diese  Routine  sortiert  das  eindimensionale  Feld  "n$(i)"  durch 
entsprechendes  Vertauschen  der  Inhalte  von  "n$(i)M.  Bei  jedem 
Tauschvorgang  wird  auch  der  Inhalt  des  Pointers  vertauscht.  Am 
besten  wird  dies  durch  ein  Beispiel  klar.  Nehmen  wir  an,  fünf 
Namen  sollen  sortiert  werden,  die  in  folgender  Reihenfolge  in 
den  Feldern  stehen: 

n$(1)  = Max  (1)  = 1 
n$(2)  = Alfred  (2)  - 2 
n$(3)  = Peter  (3)  = 3 
n$(4)  = Di rk  (4)  = 4 

Nach  dem  Sortieren  erhalten  wir: 

n$(1)  = Alfred  (1)  = 2 
n$(2)  = Dirk  (2)  = 4 
n$(3)  = Max  (3)  = 1 
n$<4)  = Peter  (4)  = 3 

Der  Index  von  "z"  gibt  nun  die  auf  steigende  Reihenfolge  der 
sortierten  Strings  an  und  der  Inhalt  von  jedem  "z"  die  Datensatz- 
nummer, die  an  der  entsprechenden  Position  stehen  muß.  In  der 
Schleife  Zeile  3110-3200  werden  die  Datenfelder  entsprechend 
dem  Pointer  vertauscht. 

Die  äußere  Schleife  zählt  über  die  Felder.  In  der  ersten  inneren 
Schleife  wird  das  entsprechende  Feld  (durch  x bestimmt)  aller 
Datensätze  in  der  alten  Reihenfolge  in  "n$(i)H  übertragen. 

In  der  zweiten  inneren  Schleife  werden  dann  die  Inhalte  von 
Mn$(i)"  entsprechend  dem  Pointer  "z(i)"  in  das  Datenfeld  sortiert 
zurückgeschrieben.  Ab  Zeile  3210  werden  die  Hilfsfelder  wieder 
gelöscht.  Zuerst  werden  die  Strings  gelöscht,  um  den  String- 
Vektor  im  Merkheft  des  Rechners  zurückzusetzen.  Über  das 
Unterprogramm  in  den  Zeilen  3520  - 3540  wird  zu  dem  aktuel- 
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len  Start  der  Feldertabelle  die  gerettete  Länge  addiert  und  als 
Feldertabellenende  in  den  Vektor  49,  50  geschrieben. 

Ich  hoffe,  daß  Ihnen  nun  die  Arbeitsweise  dieses  Programms  ei- 
nigermaßen klar  geworden  ist  und  Sie  nun  wissen,  wo  und  wie 
Sie  dieses  Programm  Ihren  eigenen  Wünschen  noch  besser  an- 
passen können.  Ich  könnte  mir  z.B.  noch  folgende  Anpassungen 
denken: 

► Druckerausgabe  der  Datei  entsprechend  formatierter  Aus- 
gabe. 

► Help-Seite,  diese  Bildschirmausgabe  könnte  man  auf  einer 
separaten  Bildschirmseite  schreiben,  die  dann  mit  Hilfe  von 
POKE-Befehlen  mit  der  aktuellen  Bildschirmseite  ausge- 
tauscht wird.  Das  ist  eine  Anpassung,  die  besonders  interes- 
sant ist.  Hier  könnte  man  die  zusätzliche  Bildschirmseite  un- 
ter das  Betriebssystem-ROM  (ab  $A000)  schreiben,  so  daß 
kein  BASIC-Speicherplatz  verlorengeht. 


10.12  CC-lnhalt  und  Katalog  für  FastTape-Kassetten 

Weiter  vorne  habe  ich  Ihnen  ein  Programm  beschrieben,  das  ein 
Inhaltsverzeichnis  Ihrer  Kassetten  erstellt.  Solch  eine  Inhalts- 
übersicht möchten  Sie  sich  bestimmt  auch  für  Ihre  FastTape- 
Kassetten  anlegen.  Darum  finden  Sie  hier  ein  Listing  eines  Pro- 
gramms, welches  genauso  arbeitet. 


PROGRAMM :FASTT. INHALT 

95  REM  * * 

100  REM  * IMHALTSVERZEICHNIS  * 

101  REM  * * 

103  REM  * VON  FASTTAPE  CASSETTEN  * 

104  REM  * * 

105  REM  * (C)  DIRK  PAULISSEN  * 

106  REM  * * 

107  REM  ********************************* 

108  REM  V=.7:  KL=.54  : REM  KONSTANTEN  FUER  ZAEHLERBERECHNUNGEN  C60 

109  V = .5:  KL  = .482:  REM  KONSTANTEN  FUER  ZAEHLERBERECHNUNGEN  C90 

110  PA  = 828:  REM  STARTADRESSE  IM  CASSETTENPUFFER 

115  SA  * 171  : REM  SEKUNDAERADRESSE  +1 

116  PRINT  "<CLR  H0ME><  11  SPACE» INHALTSVERZEICHN IS" 
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117  PRINT  : PRINT  "<  10  SPACE>FUER  FASTTAPE  CASSETTEN" 

120  PRINT  "<  2 CRSR  DOWN »DRUCKEN  ? <COMM  :>J/N<COMM  ;><  2 SPACE>";DS 
130  GET  DS:  IF  D$  = 11,1  THEN  130 

136  TA$  = CHR$  (16) 

140  T1$  = TAS  + "OS":  T2S  = TA$  + "10":  T3S  = TAS  + "19":  T4S  = TAS  + 
"27":  T5S  ■ TA$  + "35" 

142  T6S  = TAS  + "43":  T7S  = TAS  + "61":  REM  TAB'S 

145  IF  D$  < > "J"  THEN  190 

150  OPEN  2,4  : REM  DRUCKER  OEFFNEN 

160  PRINT#  2,T1S"LFN";T2S»ZAEHLER";T3S"K-BYTE";T4$"  ANFANG"T5$"<  3 
SPACE>ENDE"; 

162  PRINT#  2,T6S"<  5 SPACE>NAME"T7S"SEKADR . " 

165  PRINT#  2 
190  SYS  49674 

200  AS  = »:  " + RIGHTS  ("<  5 SPACE>"  + STRS  ( PEEK  (PA)  + (256  * 

PEEK  (PA  + 1»  - 1),6) 

210  BS  = "C"  + RIGHTS  (»<  4 SPACE>"  ♦ STRS  ( PEEK  (PA  + 2)  + (256  * 
PEEK  (PA  + 3))  - 1),6) 

220  CS  = ":  ":  FOR  I = 5 TO  20:  CS  = CS  + CHRS  ( PEEK  (PA  +1)): 

NEXT  : CS  = CS  

230  T - VAL  ( RIGHTS  (BS,5))  - VAL  ( RIGHTS  (AS,5)):  KS  = STRS  ( INT 
(T  / 1024  * 1000  + .5)  / 1000) 

235  KS  = RIGHTS  (»<  7 SPACE>"  + STRS  ( INT  (T  / 1024  * 1000  + .5)  / 
1000), 6) 

240  SAS  = STRS  ( PEEK  (SA)  - 1) 

250  PRINT  Z;K$A$BS:  PRINT  CS:  PRINT 

252  FA  = 1 + 2 * <PI>  * (Z  / 4400):  REM  ABHAENGIGER  FAKTOR  ZUR 

ZAEHLERBERECHNUNG 

255  ZI  = Z:  Z = INT  (Z  + V * FA  + (T  / 1024)  * (KL  * FA)):  REM 

BANDZAEHLER  BERECHNEN 

256  PRINT  "NÄCHSTER  ZAEHLERSTAND  CA."Z 

260  N = N ♦ 1:  NS  = RIGHTS  ("<  6 SPACE >»  + STRS  (N),3) 

270  IF  DS  : "J"  THEN  PRINT# 

2, T IS; NS; T2S; ZI ; T3S; KS; T4S; AS; T5S; BS; T6S; CS; T7SSAS 
300  GOTO  190 


Das  in  Unterkapitel  10.8  beschriebene  Katalogprogramm  arbeitet 
nach  entsprechender  Änderung  ebenfalls  mit  FastTape.  Sie  müs- 
sen nur  die  normalen  LOAD-Befehle  gegen  FastTape -Befehle 
austauschen.  Da  die  Synchronisation  bei  FastTape -Programmen 
bedeutend  kürzer  ist  als  bei  normal  abgespeicherten  Program- 
men, empfiehlt  es  sich,  die  Programme  nicht  direkt  hintereinan- 
der abzuspeichern,  sondern  jeweils  ca.  5 sec  Zwischenraum  zu 
lassen. 
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10.13  Backup  von  CC  auf  Disk 

Dieses  Unterkapitel  ist  für  diejenigen  bestimmt,  die  sowohl  ein 
Diskettengerät  besitzen  als  auch  einen  Datenrekorder.  Eine  Da- 
tenkassette ist  bedeutend  robuster  und  weniger  störungsanfällig 
als  eine  Diskette.  Darum  lohnt  es  sich  auch  für  einen  Disketten- 
besitzer, wichtige  Programme  auf  Kassette  zu  speichern.  Auch 
gibt  es  viele,  die  selbst  nur  einen  Kassettenrekorder  haben,  aber 
einen  Freund  besitzen,  der  eine  Diskettenstation  hat.  Mit  den 
folgenden  Programmen  ist  es  nun  viel  einfacher,  Programme 
untereinander  auszutauschen. 


10.13.1  Backup  von  Kassette  auf  Disk 

Mit  diesem  Backup- Programm  haben  Sie  die  Möglichkeit,  meh- 
rere FastTape-Programme,  die  hintereinander  auf  einer  Kassette 
gespeichert  sind,  auf  eine  Diskette  umzuspeichern. 

Für  das  Programm  ist  es  unerheblich,  ob  es  sich  um  BASIC- 
oder  Maschinenspracheprogramme  handelt.  Die  Programme  wer- 
den alle  so  kopiert,  daß  sie  voll  lauffähig  sind,  egal,  von  wel- 
chem Speichermedium  Sie  es  wieder  einladen.  Wichtig  ist  nur, 
daß  alle  Programme,  die  Sie  kopieren  wollen,  einen  Namen  ha- 
ben, da  die  Diskettenstation  im  Gegensatz  zum  Datenrekorder 
namenlose  Files  nicht  akzeptiert.  Da  das  Backup-Programm  mit 
FastTape  arbeitet,  müssen  Sie  das  FastTape-Programm  laden, 
bevor  Sie  das  Backup-Programm  starten.  Die  Bedienung  ist 
denkbar  einfach. 

Geben  Sie  das  Programm  in  Ihren  Rechner  ein  und  speichern  Sie 
es  vor  dem  Starten  ab,  da  es  sich  selbst  nach  dem  Starten  löscht. 
Wenn  Sie  nun  das  Programm  starten,  wird  zuerst  das  Maschinen- 
programm in  den  Speicher  ab  $C3C0  hinter  das  FastTape-Pro- 
gramm geschrieben.  Dann  werden  Sie  nach  der  Anzahl  der  zu 
kopierenden  Programme  gefragt.  Dieser  Wert  wird  in  der  Spei- 
cherstelle 767  für  das  Maschinenprogramm  zwischengespeichert. 

Als  nächstes  müssen  Sie  eine  formatierte  Diskette  in  das  Disket- 
tenlaufwerk und  die  Kassette  mit  den  zu  kopierenden  Program- 
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men  in  den  Datenrekorder  legen.  Nach  Drücken  der  <Return>- 
Taste  verzweigt  das  BASIC- Programm  in  das  Maschinenpro- 
gramm. Dies  liest  nun  das  erste  Programm  in  den  BASIC-RAM 
(der  komplette  BASIC-RAM  wird  als  Puffer  benutzt).  Danach 
wird  das  Programm  aus  dem  Speicher  auf  Diskette  geschrieben. 
Dieser  Vorgang  wird  nun  der  Anzahl  der  Programme  entspre- 
chend wiederholt.  Am  Ende  kehrt  der  Rechner  wieder  in  den 
Direktmodus  zurück.  Wollen  Sie  nun  noch  weitere  Programme 
kopieren,  müssen  Sie  die  Programmanzahl  in  die  Speicherstelle 
767  poken  und  das  Maschinenprogramm  erneut  durch  SYS  50112 
starten. 


85  .PAG  61,5 

86  .TIT  "BACKUP  T=>D" 

90  .OPT  P 

100  *=  SC3C0 
110  : 

. ********************************** 

120  ; * * 

130  ; * BACKUP  VON  CC  AUF  DISKETTE  * 

135  ; * * 

140  ; * HIT  FASTTAPE  * 

145  ; * * 

150  : : 

160  : 

200  CR  - 13  ; 

205  ABSFLG  = 2 

210  STARTV  = $AC 

220  ENDVEC  = SAE 

230  CASPUF  * S33C 

240  ANZAHL  = $2FF 

245  CSTART  - $803  ; PUFFERSTART 

250  LOADR  = SC18E  ; FASTTAPE  LADEN 

260  NEU  = SA642  ; BASIC-BEF.  NEW 

270  ERROR  = $A437  ; BASIC-UARMSTART 

280  MSSG  = SF693  ; MELDUNG  AUSGEBEN 

290  : 

300  STATUS  = SFFB7 
310  SETLFS  = $FFBA 
320  SETNAM  = $FFBD 
325  OPEN  = $FFC0 
330  CLOSE  = SFFC3 
335  CHKOUT  = SFFC9 
340  CLRCH  = SFFCC 
350  BSOUT  = SFFD2 
950  : 

955  : 

960  ; HAUPTPROGRAMM 
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970  : 

1000  START  LOA  #$00 
1010  JSR  NEU 
1020  JSR  CLQAD 
1030  JSR  DSAVE 
1040  DEC  ANZAHL 
1050  BEQ  ENDE 
1060  JHP  START 
1070  ENDE  RTS 
1082  : 

1084  : 

1086  ; AUF  DISK  SPEICHERN 
1088  : 

1089  DSAVE  LDA  #$10 

1090  LDX  #$41  ; NAMENPARAHETER 

1092  LDY  #$03  ; SETZEN 

1093  JSR  SETNAM 

1095  JSR  MSSG  ; 1 SAVING  NAME  1 AUSGEBEN 
1100  LDA  #CR 

1110  JSR  BSOUT  ; NEUE  ZEILE 

1120  LDX  #$10 

1130  ELOOP  DEX 

1140  LDA  CASPUF+5, X 

1150  CMP  #$20 

1160  BNE  ENDNAM 

1170  CPX  #$00 

1180  BNE  ELOOP 

1190  ENDNAM  INX  ; ENDE  DES  FILE-NAMENS 
1200  LDA  #","  ; SUCHEN  UND  1 ,P,W  1 
1210  STA  CASPUF+5, X 
1220  INX  ; ANHAENGEN 
1230  LDA  #"P" 

1240  STA  CASPUF+5 ,X 
1250  INX 
1260  LDA  #"," 

1270  STA  CASPUF+5, X 
1280  INX 
1290  LDA  «“W“ 

1300  STA  CASPUF+5, X 
1310  INX 

1320  TXA  ; LAENGE  DES  FILE-NAMENS 
1330  LDX  #$41  ; STARTADR  DES  1 • 

1340  LDY  #$03 

1350  JSR  SETNAM 

1360  LDA  #$08  ; FILE-NUMMER 

1370  LDX  #$08  ; GERAETENUMMER 

1380  LDY  #$01  ; SECUNDAERADR . 

1390  JSR  SETLFS 
1400  JSR  OPEN 
1410  LDX  #$08 
1420  JSR  CHKOUT 
1430  LDA  #<CSTART 
1440  LDX  #>CSTART 
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1450  STA  STARTV 
1460  STX  STARTV+1 

1470  LDA  CASPUF+2  ; ENDADRESSE  BERECHNEN 
1480  SEC  ; AUS  DIFFERENZ  START-  + ENDADR. 

1490  SBC  CASPUF  ; AUS  DEM  HEADER  PLUS  BESTIMMTER 

1500  PHP  ; STARTADERSSE 

1510  CLC 

1520  ADC  STARTV 

1530  STA  ENDVEC 

1540  LDA  CASPUF+3 

1550  ADC  STARTV+1 

1560  PLP 

1570  SBC  CASPUF+1 
1580  STA  ENDVEC+1 

1590  LDA  CASPUF  ; PROGRAMMSTARTADR . 

1600  JSR  BSOUT  ; ZUR  DISK  SENDEN 
1610  LDA  CASPUF+1 
1620  JSR  BSOUT 
1622  : 

1623  ; SPEICHERSCHLEIFE 

1624  : 

1630  PSAVE  LDY  #$00 
1640  LDA  (STARTV), Y 
1650  JSR  BSOUT 

1660  INC  STARTV  ; ADRESSE  ERHOEHEN 

1670  BNE  NOTHI 

1680  INC  STARTV+1 

1690  NOTHI  LDA  STARTV 

1700  CMP  ENDVEC  ; ENDADRESSE  ERREICHT 

1710  LDA  STARTV+1 

1720  SBC  ENDVEC+1 

1730  BCC  PSAVE 

1740  JSR  CLRCH 

1750  LDA  #$08 

1760  JMP  CLOSE 

1762  : 

1764  : 

1766  ; VON  CC  LADEN 
1768  : 

1770  CLOAD  LDX  #$00 

1780  LDY  #<CSTART 

1790  LDA  #>CSTART 

1800  STX  $0A  ; LOAD/VERIFY  FLAG 

1810  STX  $93 

1820  STY  $AC 

1830  STA  SAD 

1840  LDA  #1+4  ; AN  BESTIMMTE  ADRESSE, 

1850  STA  ABSFLG  ; NICHT  WARTEN 

1860  LDA  #$00  ; KEINEN  FI  LE -NAME 

1870  JSR  SETNAM 

1880  LDX  #$01  ; GA 

1890  LDY  #$00  ; SA 

1900  JSR  SETLFS 
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1910  JSR  LOAOR 
1922  : 

1924  ; STATUS  TESTEN 
1926  : 

1930  HOLSTA  JSR  STATUS 

1940  AND  «BF 

1950  BEO  OK 

1960  LDX  «ID 

1970  JHP  ERROR 

1980  OK  RTS 

1990  .END 


PROGRAMM : BACKUP -CC-D I SK . B 
100  GOSUB  240 

110  PRINT  "<CLR  HOME ***************************************** <CRSR 
LEFTxCRSR  D0WN>*<CRSR  UP>*" 

120  PRINT  "*  B A C K U P<  3 SPACE>M  I T<  2 SPACE>F  ASTTAPE  **<  2 
CRSR  LEFTxCRSR  DOWN>*"; 

130  PRINT  "*<  8 SPACE > VON  CASSETTE  AUF  DISKETTE«  5 SPACE>**<  2 CRSR 
LEFTxCRSR  DOWN>*"; 

140  PRINT  "*<  11  SPACE>(C)  DIRK  PAULISSEN«  9 SPACE>**<  2 CRSR 
LEFTxCRSR  DOWN>*"; 

150  PRINT  M******** ******* *************************" 

160  PRINT  : PRINT  : PRINT  "WIEVIELE  PROGRAMME  WOLLEN  SIE" 

170  PRINT  : INPUT  "COPIEREN  ";AZ 

180  POKE  767, AZ 

190  PRINT  : PRINT  : PRINT  "LEGEN  SIE  DIE  OELLCASSETTE  EIN" 

200  PRINT  "<CRSR  DOUN>UNO  DRUECKEN  SIE  « RETURN  »" 

210  GET  AS:  IF  AS  < > CHRS  (13)  THEN  210 

220  SYS  50112 
230  END 

240  REM  LADEPROGRAMM  FASTCOPY  T-D  64 
250  E = 50333:  A = 50112:  PS  = 0 

260  FOR  I = A TO  E:  READ  X:  POKE  I,X:  PS  = PS  + X:  NEXT 

270  IF  PS  < > 27517  THEN  PRINT  "FEHLER  IN  DATAS":  END 

280  RETURN 

290  DATA  169,0,32,66,166,32,112,196,32,212,195,206,255,2,240,3,76,192, 
195,96 

300  DATA  169,16,162,65,160,3,32,189,255,32,147,246,169,13,32,210,255,1 
62,16 

310  DATA  202,189,65,3,201,32,208,4,224,0,208,244,232,169,44,157,65,3,2 
32,169 

320  DATA  80,157,65,3,232,169,44,157,65,3,232,169,87,157,65,3,232,138,1 
62,65 

330  DATA  160,3,32,189,255,169,8, 162,8, 160, 1 ,32, 186,255,32,192,255,162, 
8,32,201 

340  DATA  255,169,3,162,8,133,172,134,173,173,62,3,56,237,60,3,8,24,101 
,172,133 

350  DATA  174,173,63,3,101 , 173,40,237,61 ,3, 133,175,173,60,3,32,210,255, 
173,61 

360  DATA  3,32,210,255,160,0,177,172,32,210,255,230,172,208,2,230,173,1 
65,172 
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370  DATA  197, 174, 165, 173,229, 175, 144,233, 32, 204,255, 169,8, 76, 195, 255,1 
62,0,160 

380  DATA  3,169,8,134,10,134,147,132,172,133,173,169,5,133,2,169,0,32,1 
89,255 

390  DATA  162,1, 160,0,32, 186,255,32,142, 193,32, 183,255,41 , 191,240,5,162 
,29,76 

400  DATA  55,164,96 


10.13.2  Programmbeschreibung  Backup  CC-DISK 

Für  diejenigen  Leser,  die  zumindest  Grundkenntnisse  in  As- 
sembler-Programmierung haben,  möchte  ich  das  Assembler-Li- 
sting  etwas  näher  erklären.  Die  Hauptschleife  des  Programms 
steht  ab  SC30C0  bis  $C3D3.  Zuerst  werden  durch  den  NEW- 
Befehl  alle  BASIC- Vektoren  zurückgesetzt.  Dann  wird  zur  Kas- 
setten-Load-Routine  CLOAD  verzweigt;  nach  der  Ausführung 
dieses  Unterprogramms  wird  das  Programm  durch  DSAVE  auf 
Disk  gespeichert.  Nachdem  ANZAHL  dekrementiert  und  getestet 
wurde,  wird  zum  Start  zurückgesprungen. 

CLOAD  ($C469) 

Der  Pufferstart  CSTART  wird  in  die  Speicherstellen  $AC,  $AD 
übertragen.  Aus  diesen  Speicherstellen  holt  sich  FastTape  die 
erforderliche  Ladeadresse.  Weiterhin  werden  die  LOAD/ 
VERIFY-Flags  auf  0 = LOAD  gesetzt.  Durch  das  Setzen  von  Bit 
0 und  2 in  ABSFLG  wird  das  FastTape-Programm  veranlaßt,  an 
die  Adresse  zu  laden,  die  in  $AC  und  $AD  übergeben  wird,  und 
nach  dem  Finden  des  Programms  nicht  zu  stoppen.  Ab  $C47B 
werden  die  notwendigen  Vorbereitungsroutinen  des  Betriebs- 
systems SETNAM  und  SETLFS  aufgerufen.  Danach  wird  zum 
FastTape-Unterprogramm  LOADR  verzweigt.  Nach  dem  Lade- 
vorgang wird  der  STATUS  getestet  und  in  die  Hauptscl^leife 
zurückgesprungen. 

DSAVE 

Das  Speichern  auf  Diskette  ist  etwas  komplizierter.  Zuerst  wird 
über  Betriebssystem- Routinen  "SA VING  name"  ausgegeben.  Von 
SC3DE  bis  $C3EA  wird  das  Ende  des  File-Namens,  der  im 
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Kassettenpuffer  steht,  festgestellt,  indem  vom  Ende  her  so  lange 
auf  <SPACE>  getestet  wird,  bis  ein  anderes  Zeichen  gefunden 
wird. 

In  den  folgenden  Zeilen  bis  $C401  wird  ",P,W"  (Programm, 
Write)  an  den  File-Namen  angehängt.  Über  das  X-Register  wird 
die  Länge  des  kompletten  File-Namens  bestimmt.  Ab  $C465  be- 
ginnen die  notwendigen  Vorbereitungsroutinen  zur  Disketten- 
speicherung SETNAM,  SETLFS,  OPEN,  CHKOUT.  Danach  wird 
der  Startvektor  wieder  auf  den  Pufferstart  gesetzt.  Die  End- 
adresse des  eingeladenen  Programms  wird  aus  der  Differenz  von 
Start  und  Endadresse  aus  dem  Kassettenpuffer  plus  Startadresse 
des  Puffers  berechnet  ($C426  - SC43C).  Bei  der  Disketten- 
speicherung geben  die  ersten  beiden  Bytes  die  Adresse  an,  von 
der  es  abgespeichert  wurde.  Diese  Adresse  steht  als  Startadresse 
im  Kassettenpuffer.  Sie  wird  in  SCH3E  - $C447  an  die  Diskette 
übermittelt. 

Ab  PSA  VE  ($C44A)  beginnt  die  eigentliche  Programmspeiche- 
rung. In  das  Y-Register  wird  0 geladen,  und  die  Programm-By- 
tes werden  "indirekt"  indiziert  in  den  Akkumulator  geladen  und 
über  BASOUT  an  die  Diskettenstation  gesandt.  Danach  wird  der 
Startvektor  inkrementiert  und  mit  dem  Endvektor  verglichen. 
Sind  sie  nicht  gleich,  wird  wieder  nach  PSAVE  gesprungen.  Sind 
die  Vektoren  gleich,  wird  der  Diskettenausgabekanal  geschlossen 
und  zur  Hauptschleife  zurückgesprungen. 


10.13.3  Backup  von  Diskette  auf  Kassette 

Mit  diesem  Programm  haben  Sie  die  Möglichkeit,  sehr  komfor- 
tabel ein  oder  mehrere  Programme  von  einer  Diskette  auf  eine 
oder  mehrere  Kassetten  zu  Übertragen.  Die  Eingabe  erfolgt  über 
einen  BASIC-Lader,  den  Sie  am  Anschluß  an  die  Programmbe- 
schreibung finden.  Vergessen  Sie  auch  bei  diesem  BASIC-Lader 
nicht,  ihn  vor  dem  Starten  abzuspeichern.  Dieses  Programm  läuft 
ebenfalls  nur,  wenn  Sie  FastTape  schon  geladen  haben. 
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Bedienung  des  Programms 

Gestartet  wird  das  Programm  durch  SYS  50176.  Sofort  erscheint 
der  Titel  auf  dem  Bildschirm,  und  Sie  werden  gebeten,  die 
Quelldiskette  einzulegen  und  eine  Taste  zu  drücken. 

Nach  kurzer  Zeit  erscheint  der  Diskettentitel  und  der  erste  File- 
Eintrag  des  Disketteninhaltsverzeichnisses  mit  der  Frage  auf 
"Ja/Nein".  Wenn  Sie  das  Programm  kopieren  wollen,  drücken  Sie 
"J",  und  es  erscheint  JA  hinter  dem  File-Eintrag.  Dann  wird  der 
nächste  Eintrag  angezeigt.  Wollen  Sie  ein  Programm  nicht  ko- 
pieren, drücken  Sie  MNM,  und  der  Eintrag  wird  mit  NEIN  ge- 
kennzeichnet. Auf  diese  Weise  können  Sie  bis  zu  48  Programme 
mit  JA  kennzeichnen. 

Falls  Sie  sich  innerhalb  des  Programms  einmal  vertippen,  können 
Sie  durch  Drücken  der  <Run/Stop>-Taste  immer  das  Programm 
abbrechen  und  zur  Titelseite  zurückkehren.  Wenn  Sie  das  ganze 
Inhaltsverzeichnis  bearbeitet  haben,  werden  Sie  gefragt,  ob  Sie 
die  Programme  einzeln  oder  durchgehend  kopieren  wollen. 
Möchten  Sie  alle  Programme  auf  einer  Diskette  speichern,  geben 
sie  "1"  ein.  Wenn  Sie  eine  "2"  eingeben,  sagt  Ihnen  der  Computer 
immer,  welches  Programm  er  als  nächstes  einliest  und  wartet  auf 
einen  Tastendruck.  Damit  ist  es  möglich,  für  jedes  Programm 
eine  andere  Kassette  einzulegen.  Am  Ende  des  Kopiervorgangs 
kehrt  der  Rechner  wieder  zur  Titelseite  zurück.  Sie  haben  dann 
die  Möglichkeit,  eine  neue  Diskette  zu  kopieren  oder  durch 
Drücken  von  "E"  ins  BASIC  zurückzukehren. 


10.13.4  Programmbeschreibung  Backup  Disk-CC 

Für  Interessierte  und  der  Assembler-Sprache  Kundige  nun  noch 
eine  Beschreibung  des  nicht  gerade  kurzen  Programms. 

Vorbemerkung 

Dieses  Programm  arbeitet  mit  zwei  unterschiedlichen  Lade-  bzw. 
Speicherstartadressen.  Die  tatsächliche  Startadresse  ist  die 
Adresse  des  Puffers,  unter  der  das  Programm  zum  kopieren 
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zwischengespeichert  wird.  Die  eigentliche  Startadresse  ist  die, 
unter  der  das  Programm  noripalerweise  steht  und  arbeitet. 

Das  Programmprinzip  ist  folgendes 

Nach  der  Disketten-Initialisierung  werden  zuerst  die  File-Namen 
eingelesen  und  im  Kassettenpuffer  ab  $0340  zwischengespei- 
chert. Dann  wird  der  Anwender  gefragt,  ob  das  Programm  ko- 
piert werden  soll  oder  nicht.  Wird  die  Frage  mit  "J"  beantwortet, 
wird  getestet,  ob  die  maximale  Blocklänge  bzw.  die  File-Namen- 
Listenlänge  überschritten  wird  und  ggf.  eine  Fehlermeldung  aus- 
gegeben. Wird  keine  Überschreitung  festgestellt,  werden  der 
File-Name  und  seine  Länge  in  zwei  Tabellen  (NAMTAB, 
LNGTAB)  hinter  dem  Backup-Programm  übertragen.  Weiterhin 
testet  das  Programm  auch  auf  den  File-Typ  des  zu  kopierenden 
Files.  Handelt  es  sich  nicht  um  ein  Programm-File,  wird  eine 
Fehlermeldung  ausgelesen. 

Wurde  auf  diese  Weise  das  ganze  Inhaltsverzeichnis  bearbeitet, 
wird  in  die  eigentliche  Kopierroutine  gesprungen.  Nach  Ausgabe 
von  "READING  name"  wird  der  entsprechende  File-Name  wie- 
der in  den  Kassettenpuffer  übertragen  und  ",P,R"  angehängt. 
Mit  dem  so  erweiterten  File-Namen  wird  eine  Lesedatei  eröffnet 
und  das  entsprechende  Programm  nach  $0900,  der  tatsächlichen 
Programmlade -Adresse  (TLSADR),  geladen.  Wenn  beim  Lesen 
kein  Fehler  auf getreten  ist,  wird  der  FastTape-Speicherroutine 
die  Programmstart-  und  endeadresse,  die  in  den  Programm-Hea- 
der geschrieben  werden  soll,  und  die  tatsächliche  Programm- 
start- und  endeadresse,  unter  der  das  Programm  zur  Zeit  abge- 
speichert wurde,  übergeben.  Danach  wird  zur  FastTape-Routine 
"ABSOLUT"  verzweigt.  Anschließend  wird  wieder  zum  Start 
zurückgesprungen,  falls  noch  weitere  Files  kopiert  werden  sollen. 

60  .opt  p 

95  • *********************************** 


96  ;* 

* 

100  ;* 

BACKUP 

* 

110  ;* 

* 

115  ;* 

VON  DISKETTE  AUF  CASSETTE 

* 

117  ;* 

* 

120  ;* 

MIT  FASTTAPE 

* 
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122  ;*  * 

125  • ********************************** 

130  ; 

132  ; START  MIT  SYS  50176 
140  ; 

142  *=  S7400  ; 

145  s START  = * 

150  CLSCRN  = SE55F;  BILDSCHIRM  LOESCHEN 
152  NUMOUT  = SDOCD  ; POS.  INEGERZAHL  AUSGEB. 

154  MOTAUS  = SFD08  ; MOTOR  AUSSCHALTEN 
156  PT ASTE  = SF8B7  ; RECORDERTASTE  ABFRAGEN 
158  SFINUM  - SF3CF  ; SUCHT  FI  LE -NUMMER 
160  STROUT  = SCB1E  ; STRING  AUSGEBEN 
162  SETPAR  - SF3DF  ; ZT  FILE-PARAMETER 
164  ABSOLUT  = S707F  ; EINSPRUNG  IN  FASTTAPE 

169  : : 

170  GETBYT  - SFFE4  ;BYT  VOM  EINGABEGERAET  HOHLEN 
180  SETLFS  = SFFBA  ;FILE-PARAMETER  SETZEN 

190  SETNAM  = $FFBD  ;FILE-NAME-PARAMETER  SETZEN 
200  OPEN  3 $FFC0 
210  CLOSE  3 SFFC3 
220  TALK  3 $FFB4 

230  SETALK  3 $FF96  ;SECUNDAERADR.  NACH  TALK 
240  IECIN  = SFFA5  ;BYTE  VOM  IEC-BUS  HOLEN 
250  CLALL  = SFFE7 

260  UNTALK  = SFFAB  ; UNTALK  AUSGEBEN 
280  STOP  = SFFE1  ;<STOP>-TASTE  ABFRAGEN 
290  BASOUT  = SFFD2  ;BYT  AUSGEBEN 
300  : : 

320  GA  = $BA  ;GERAETE ADRESSE 

330  SA  3 $89  ; SEKUNDAERADRESSE 

340  MAXBLK  3 $5D  ;MAX.  LADBARE  BLOECKE 

350  CR  = SOD  ;CARRIDGE  RETURN 

360  COPANZ  3 $3  .-AKTUELLE  LISTENLAENGE 

370  TEMP  = $4  ;HILFSPUFFER 

380  FLAG  = S5  ;EINZEL-FLAG 

390  LISTPT  3 $41  ; POINTER  AUF  NAMENLISTE 

400  FILPUF  3 $340  ;FILE-PUFFER 

410  LNGTAB  = START+S640  ;TAB.  DER  NAMENLAENGEN 

420  NAMTAB  = START+S700  ;TAB.  DER  FI  LE -NAMEN 

430  LSTMAX  = $30  .-MAXIMALE  LISTENLAENGE 

440  TLSADR  = $13  ; HI -BYTE  DER  LADEADRESSE 

450  TEMP2  3 $22  ,-HILFSPOINTER 

460  TPGSTA  3 $AC  ;PTR  ZUM  TATS.  PRGSTART 

470  TPGEND  3 $AE  ;PTR  ZUM  TATS.  PRGENDE 

480  PRGSTA  3 $A7  ;PTR  ZUR  EIGENTL.  PRGSTART 

490  PRGEND  = $A9  ;PTR  ZUM  EIGENTL.  PRGENDE 

495  MOFLAG  3 $C0  ; MOTOR-FLAG 

520  ; 

530  ; 

560  LDA  #25 
570  STA  $900 F 
580  ;STA  $0021 
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590  LDA  #6 
600  STA  $286 
610  LDA  #<T1TEL 
620  LDY  #>TITEL 
630  JSR  STROUT 

640  LDA  #<QUEINS  ;HQUELLDISK  EINSTECKEN  " 

650  LDY  «XXJEINS 

660  JSR  STROUT 

670  JSR  UAIT 

680  CMP  #"E"  ; PROGRAMM  BEENDEN 
690  BNE  OKCOPY 

700  RTS 

701  : 

702  ; INHALT  EINLESEN 

703  : 

710  OKCOPY  JSR  CARET 
720  JSR  CARET 

730  JSR  INIT  ;DISK  INITIALISIEREN 

740  LDA  #$08 

750  TAX 

760  LDY  #$00 

770  JSR  SETLFS 

780  LDA  #$01 

790  LDX  #<CATALO 

800  LDY  #>CATALO 

810  JSR  SETNAM 

820  JSR  OPEN 

830  LDA  #$08 

840  JSR  TALK 

850  LDA  #$00 

860  JSR  SETALK 

870  LDY  #$04 

880  L00P1  JSR  I EC I N ;DIE  ERSTEN  4 BYTES  EINLESEN 

890  DEY 

900  BNE  L00P1 

910  JSR  IECIN  ; BLOCKZAHL  EINLESEN 

920  STA  TEMP2 

930  JSR  IECIN 

940  LDX  TEMP2 

950  JSR  NUMOUT  ;UND  AUSGEBEN 

960  JSR  SPACE 

970  LOOP2  JSR  IECIN  ;DISKNAME  ETC  AUSGEBEN 

980  BEQ  NULL 

990  JSR  BASOUT 

1000  CLC 

1010  BCC  L00P2 

1020  NULL  JSR  CARET 

1030  JSR  CARET 

1040  JSR  IECIN 

1050  JSR  IECIN 

1060  LDY  #$00  ; ANZAHL  DER  ZU  COPIERENDEN 

1070  STY  COPANZ  ; FILES  AUF  NULL  SETZEN 

1071  : 
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1072  ; INHALT  AUSGEBEN  UND  FRAGEN 

1073  : 

1080  LSTART  JSR  IECIN 
1090  STA  TEMP 
1100  JSR  IECIN 
1110  STA  TEMP+1 
1120  LDX  TEMP 

1130  JSR  NUMOUT  ; BLOCKZAHL  AUSGEBENN 

1140  JSR  SPACE 

1150  LDY  «$00  ; FILE -NAMEN 

1160  WRFILE  JSR  IECIN  .-EINLESEN 

1170  PHA 

1180  JSR  AUSGAB  ; AUSGEBEN 
1190  PLA  ;UND  IN 

1200  STA  FILPUF.Y  ; PUFFER  SCHREIBEN 

1210  BEQ  NAMEND 

1220  INY 

1230  BNE  URFILE 

1240  NAMEND  JSR  IECIN 

1250  JSR  IECIN 

1260  LDA  $90  .-STATUS  ABFRAGEN 

1270  BEQ  FRAGEN 

1280  JMP  INHEND 

1290  FRAGEN  LDA  TEMP+1 

1300  BNE  TOLONG 

1310  LDA  TEMP 

1320  CMP  «MAXBLK  ;AUF  MAXIMALE  LAENGE 
1330  BCC  LNGEOK  .-TESTEN 
1340  TOLONG  LDA  #<SLONG  .-"ZU  LANG  ZUM 
1350  LDY  #>SLONG  ;ZUM  COPIEREN" 

1360  JSR  STROUT  ; AUSGEBEN 
1370  FINISH  JMP  NXFILE 
1380  LNGEOK  LDA  COPANZ 
1390  CMP  «LSTMAX 

1400  BCC  FANZOK 

1410  LDA  #<LILONG  ; "LISTE  ZU  LANGE" 

1420  LDY  #>LILONG 

1430  JSR  STROUT  .-AUSGEBEN 
1440  CLC 
1450  BCC  FINISH 

1460  FANZOK  LDA  #$00  .-"JA/NEIN"  AUSGEBEN 

1470  STA  $08 

1480  LDA  #$1F 

1490  STA  $D3 

1500  LDA  #< JANE IN 

1510  LDY  #> JANE  IN 

1520  JSR  STROUT 

1530  LOOP3  JSR  INPUT 

1540  CMP  #"N» 

1550  BEQ  NEIN 
1560  CMP  #"J" 

1570  BNE  LOOP3 

1580  LDA  #<STRJA  ;JA  AUSGEBEN 
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1590  LDY  #>STRJA 

1600  JSR  STROUT 
1610  LDA  COPANZ 
1620  JSR  SETPTR 
1630  LDX  #$00 

1640  LOOP4  INX  ;FILE-NAMEN-START  SUCHEN 

1650  LDA  FILPUF.X 

1660  CNP  #$22  ;1 .HOCHKOMHA  = START 

1670  BNE  LOOP4 

1680  STX  TEMP+1  ; START  RETTEN 

1690  INX 

1700  UMSETZ  LDA  FILPUF.X  ; NAMEN  IN  LISTE  SCHREIBEN 

1710  CMP  #$22  ;2.  HOCHKOMMA  = ENDE 

1720  BEQ  UMSEND 

1730  STA  (LISTPT).Y 

1740  INX 

1750  INY 

1760  BNE  UMSETZ 

1770  UMSEND  TXA  ; ENDPUNKT  IN  AKKU 
1780  LDY  COPANZ  .'INDEX  IN  Y-REG. 

1790  CLC 

1800  SBC  TEMP+1  ; LAENGA  BERECHNEN 
1810  STA  LNGTAB.Y  ;IN  TABELLE  SCHREIBEN 
1820  WETEST  LDA  FILPUF.X 
1830  BNE  TYPTST 

1840  ILL  LDA  #<STRILL  .-"ILLEGALER  FILE-TYP" 

1850  LDY  #>STRILL 

1860  JSR  STROUT  ; AUSGEBEN 
1870  JMP  NXFILE 

1880  TYPTST  CMP  #"S"  ; TESTET  AUF  PRG-FILE 
1890  BEQ  ILL 

1900  CMP  #"P" 

1910  BEO  TYPOK 

1920  INX 
1930  BNE  WETEST 

1940  TYPOK  INC  COPANZ  ;ANZ  DER  ZU  C0P1ERENDEN 
1950  CLC  ; FILES  ERHOEHEN 
1960  BCC  NXFILE 

1970  NEIN  LDA  #<STRNO  .-"NEIN"  AUSGEBEN 

1980  LDY  #>STRNO 

1990  JSR  STROUT 

2000  NXFILE  JSR  CARET 

2010  JMP  LSTART 

2020  INHEND  LDA  #$08  ;FILE  SCHL I ESSEN 
2030  JSR  CLOSE 

2040  LDA  COPANZ  .'SOLLEN  FILES  COPIERT 
2050  BNE  COPYST  ;UERDEN/NEIN=>  START 
2060  JMP  START 

2062  : : 

2064  ;COPIEREN  VORBEREITEN 
2066  : : 

2070  COPYST  LDA  #< FRAGE  ; "EINZELN  ODER 
2080  LDY  #>FRAGE  ; HINTEREINANDER» 
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2090  JSR  STROUT  ; AUSGEBEN 
2100  ABFRA2  JSR  INPUT 
2110  CMP  #»1" 

2120  BEO  EINZEL 

2130  CMP  #"2" 

2140  BNE  ABFRA2 

2150  LDA  #$00  ; FLAG  ENTSPRECHEND 

2160  .BYT  $2C 

2170  EINZEL  LDA  #$FF  ; SETZEN 

2180  STA  FLAG 

2190  LDA  #$0F  ; FEHLERKANAL  SCHLIESSEN 
2200  JSR  CLOSE 
2202  : : 

2204  ;COPIER  - ROUTINE 
2206  : : 

2208  .'EINLESEN  VON  DISK 

2209  ; VORBEREITEN 

2210  :LDX  #$00  ;TEMP  LOESCHEN 

2220  STX  TEMP  ;TEMP  =>  PRG-ZAELER 
2230  LOLOOP  LDA  #<SREAD  ; "READ ING" 

2240  LDY  #>SREAD 

2250  JSR  STROUT  ; AUSGEBEN 

2260  LDY  TEMP  ;POS.  IN  TABELLE 

2270  LDX  LNGTAB.Y  ;LAENGE  NACH  X-REG. 

2280  LDA  TEMP 
2290  JSR  SETPTR 

2300  URTNAM  LDA  (LISTPT).Y  ; FI  LE -NAME  AUSGEBEN 

2310  JSR  BASOUT 

2320  INY 

2330  DEX 

2340  BNE  URTNAM 

2350  LDA  #$02  ; FI  LE -NUMMER 

2360  LDX  #$08  ;GA 

2370  TAY  ;SA 

2380  JSR  SETLFS 

2390  LDX  TEMP 

2400  LDA  LNGTAB.X 

2410  STA  TEMP2 

2420  LDA  TEMP 

2430  JSR  SETPTR 

2440  LDX  #$00 

2450  LOOP6  LDA  (LISTPT).Y  ;FILE-NAME  IN  PUFFER 

2460  STA  FILPUF.X  ; SCHREI  BEN 

2470  INY 

2480  I NX 

2490  DEC  TEMP2 

2500  BNE  L00P6 

2510  LDY  #$00 

2520  LOOP7  LDA  PRGRE.Y  ; ",P,R  " ANHAENGEN 

2530  STA  FILPUF.X 

2540  INY 

2550  INX 

2560  CPY  #$04 
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2570 

BCC  LOOP7 

2580 

TXA 

2590 

LDX  #<FILPUF 

2600 

LDY  #>FILPUF 

2610 

JSR 

SETNAM 

2620 

JSR 

OPEN 

2630 

LDA  #TLSADR 

2640 

IDY 

#$00 

2650 

STY 

TEMP2 

2660 

STA 

TEMP2+1 

2670 

;LDA 

$0011 

2680 

;AND 

#$EF  .-BILDSCHIRM  AUS 

2690 

; STA  $0011 

2700 

LDA  #$0F  ; KANAL  15  OEFFNEN 

2710 

LDX  #$08 

2720 

TAY 

2730 

JSR  SETLFS 

2740 

LDA  #$03  ;"UI-"  DISKETTE 

2750 

LDX  #<UIMIN  ; SCHNELL  SCHALTEN 

2760 

LDY  #>UIMIN 

2770 

JSR  SETNAM 

2780 

JSR  OPEN 

2790 

LDX  #$02  ; LADEKANAL  OEFFNEN 

2800 

JSR 

SFINUM 

2810 

JSR 

SETPAR 

2820 

LDA 

GA 

2830 

JSR 

TALK 

2840 

LDA 

SA 

2850 

JSR 

SETALK 

2860 

LDY 

#$00 

2862 

: 

2864 

; PROGRAMM  IN  PUFFER  LADEN 

2866 

: 

2870 

LDLOOP  JSR  IECIN  ;PRG  LADEN 

2880 

JSR 

STOBYT 

2890 

LDX 

$90 

2900 

BEQ 

LDLOOP 

2910 

JSR 

FEHLER 

2920 

PHP 

2930 

LDA 

#$02 

2940 

JSR 

CLOSE 

2950 

;LDA 

$0011  ; BILDSCHIRM  AN 

2960 

;ORA 

#$10  ; 

2970 

;STA 

$0011  ; 

2980 

PLP 

2990 

BCC 

NOFEHL 

3000 

JSR 

FEMELD 

3002 

: 

3004 

;AUF 

CC  SPEICHERN  VORBEREITEN 

3006 

: 

3010 

NOFEHL  LDX  TEMP 

3020 

LDA  TEMP2 

3030 

STA  TPGEND 
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3040  LDA  TEHP2+1 
3050  STA  TPGEND+1 

3060  INX 
3070  LDA  TEMP 
3075  BNE  NOMELD 

3080  LDA  #<ZICASS  ;"CASSETTE  EINLEGEN  " 
3090  LDY  #>Z1CASS 
3100  JSR  STROUT 
3105  JSR  INPUT 

3110  JSR  TASTE  ; RECORDERTASTE  ABFRAGEN 

3115  NOMELD  LDA  #<URITI 

3120  LDY  #>WRITI 

3125  JSR  STROUT 

3130  LDY  TEMP 

3135  LDX  LNGTAB.Y 

3140  LDA  TEMP 

3145  JSR  SETPTR 

3150  WRNAM2  LDA  (LISTPT),Y 

3155  JSR  BASOUT 

3160  INY  : DEX 

3165  BNE  URNAM2 

3210  LDX  #$01  ;FILE-PARAMETER 

3220  LDA  #0  ;FUER  CASSETTENSPEI - 

3230  TAY  ;CHERUNG 

3240  JSR  SETLFS 

3250  LDX  TEMP 

3260  LDA  LNGTAB.X 

3270  STA  TEMP2 

3280  LDA  TEMP 

3290  JSR  SETPTR 

3300  LDX  #$00 

3310  ULOOP  LDA  (LISTPT).Y  ;FILE-NAMEN  IN 

3320  STA  FILPUF.X  ;CASSETTENPUFFER 

3330  INX  .'SCHREIBEN 

3340  INY 

3350  DEC  TEMP2 

3360  BNE  ULOOP 

3370  TXA  ;FILE-NAME-PARAMETER 

3380  LDX  #<FILPUF  ; SETZEN 

3390  LDY  #>FILPUF 

3400  JSR  SETNAM 

3410  LDY  #$00 

3420  LDA  #TLSADR 

3425  STY  TPGSTA 

3430  STA  TPGSTA+1 

3440  LDA  ( TPGSTA ),Y  ;PRGSTARTADR. 

3450  STA  PRGSTA  ;IN  PRGST ART VEKTOR 
3460  INY 

3470  LDA  (TPGSTA), Y 
3480  STA  PRGSTA+1 
3490  INY 
3500  STY  TPGSTA 

3520  LDA  TPGEND  ; END ADRESSE  BERECHNEN 
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3530  SEC 
3540  SBC  TPGSTA 
3550  PHP 
3555  CLC 

3560  ADC  PRGSTA 
3570  STA  PRGENO 
3580  LDA  TPGEND+1 
3590  ADC  PRGSTA+1 
3600  PLP 
3610  SBC  TPGSTA+1 
3620  STA  PRGEND+1 
3622  : 

3624  ;PRG  AUF  CC  SPEICHERN 
3626  : 

3630  LDX  #5  ; SYNCHRON I SAT  IONS 

3640  STX  SAB  ; WIEDERHOLUNG 

3650  JSR  ABSOLUT  ; FASTTAPE  SPEICHERN 

3690  JSR  SCRON 

3700  INC  TEMP 

3710  LDX  TEMP 

3720  CPX  COPANZ 

3730  BCS  CENDEN 

3732  BIT  FLAG 

3733  BPL  EINZE2 
3740  JHP  NXTFIL 

3755  CENDEN  LDA  #<EOCOP  ;"ENDE  DES  COPIERENS" 

3760  LDY  #>EOCOP 

3770  JSR  STROUT  ; AUSGEBEN 

3780  JSR  INPUT 

3790  JMP  START 

3810  EINZE2  JSR  NNAMAU 

3820  LOA  #<ZICASS  ;"CASSETTE  EINLEGEN  « 

3830  LDY  #>ZICASS 

3840  JSR  STROUT  ; AUSGEBEN 

3845  JSR  INPUT  ;AUF  TASTE  WARTEN 

3850  JSR  TASTE 

3870  NXTFIL  JSR  CARET 

3880  JMP  LOLOOP  ;NAECHSTES  FILE  LADEN 

3882  :: 

3884  ; UNTERPROGRAMME 

3886  :: 

3887  .-BILDSCHIRM  ANSCHALTEN 

3888  : 

3890  ; SCRON  JSR  SEUIP 
3900  ; LDA  $0011 
3910  ; ORA  #$10 
3920  ; STA  $D011 
3930  ; RTS 
3932  : 

3934  ;LISTENCOPYER  (LISTPT)  AUF 

3935  ;AUF  ENTSPR.  FILE-NAMEN  SETZEN 

3936  : 

3940  SETPTR  LDY  #$00 
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3950  ASL  A 
3960  ASL  A 
3970  STY  LISTPT+1 
3980  ASL  A 
3990  ROL  LISTPT+1 
4000  ASL  A 
4010  ROL  LISTPT+1 
4020  STA  LISTPT 
4030  LDA  LISTPT+1 
4040  CLC 

4050  ADC  #>NAMTAB 

4060  STA  LISTPT+1 
4070  LDY  #$00 
4080  RTS 
4082  : 

4084  ;BYTE  IN  DEN  SPEICHER  SCHREIBEN 
4086  : 

4090  STOBYT  STA  (TEMP2),Y 

4100  INC  TENP2  ;ZAEHLER  ERHOEHEN 

4110  BNE  NOINC 

4120  INC  TEMP2+1 

4130  NOINC  CLI 

4140  RTS 

4142  : 

4144  ;ASCII-BYTE  HOLEN  UND  IN  HEXZAHL 

4145  ; UMUANDELN 

4146  : 

4150  ASCHEX  JSR  IECIN 
4160  AND  #$0F 
4170  ASL  A 
4180  ASL  A 
4190  ASL  A 
4200  ASL  A 
4210  STA  $57 
4220  JSR  IECIN 
4230  AND  #$0F 
4240  ORA  $57 
4250  RTS 
4252  : 

4254  ; HEXZAHL  IN  ASCII-BYTE  UMUANDELN 

4255  ; UND  AUSGEBEN 

4256  : 

4260  HEXASC  PHA 
4270  LSR  A 


4280 

LSR  A 

4290 

LSR  A 

4300 

LSR  A 

4310 

JSR 

HALBBT 

4320 

PLA 

4330 

HALBBT 

AND 

#$0F 

4340 

CLC 

4350  ADC  #$30 

4360  JMP  BASOUT  ; AUSGEBEN 
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4362  : 

4364  .'FEHLERMELDUNG  AUSGEBEN 
4366  : 

4370  ; FEMELD  LDA  $0011 
4380  ;ORA  #$10 
4390  ; STA  $0011 

4400  FEMELD  LDA  #<UMACH  ; "WEITER  MACHEN  ? 11 

4410  LDY  #>WKACH 

4420  JSR  STROUT  ; AUSGEBEN 

4430  FLOOP  JSR  INPUT  ;AUF  TASTE  WARTEN 

4440  CMP  #$59 

4450  BNE  NEIN2 

4460  RTS 

4470  NEIN2  CMP  #$4E 
4480  BNE  FLOOP 
4490  JMP  ENDE 
4492  : 

4494  .'FOLGENDES  FILE  AUSGEBEN 
4496  : 

4500  NNAMAU  LDA  #<SNFILE  .'"NAECHSTES  FILE  " 

4510  LDY  #>SNFILE 

4520  JSR  STROUT  .'AUSGEBEN 

4530  LDA  TEMP  ;POS  IN  TABELLE 

4540  ASL  A .-BERECHNEN 

4550  ASL  A 

4560  ASL  A 

4570  ASL  A 

4580  LDX  TEMP 

4590  LDY  LNGTAB.X 

4600  TAX 

4610  URNAM3  LDA  NAMTAB.X  ; FI  LE -NAMEN  AUSGEBEN 

4620  JSR  BASOUT 

4630  INX 

4640  DEY 

4650  BNE  WRNAM3 

4660  RTS 

4662  : 

4664  .'DISKETTE  AUF  'LANGSAM'  SCHALTEN 

4665  ; UND  BILDSCHIRM  ANSCHALTEN 

4666  .GOTO  4822 
4670  SEUIP  LDA  $D011 

4680  AND  #$EF  .'BILDSCHIRM  AN 

4690  STA  $D011 

4700  LDA  #$0F 

4710  JSR  CLOSE 

4720  LDA  #$0F 

4730  LDX  #$08 

4740  TAY 

4750  JSR  SETLFS 

4760  LDA  #$03 

4770  LDX  #<UIPLU 

4780  LDY  #>UIPLU 

4790  JSR  SETNAM 
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4800  JSR  OPEN 
4810  LDA  #$0F 
4820  JMP  CLOSE 
4822  : 

4824  ; UARTESCHLEI FE 
4826  : 

4830  UAIT  JSR  GETBYT 
4840  BEQ  UAIT 
4850  RTS 
4852  : 

4854  ;DISK  INITIALISIEREN 
4856  : 

4860  INIT  LDA  #$0F  ; KOMMANDOKANAL 

4870  LDX  #$08  ;OEFFNEN 

4880  TAY 

4890  JSR  SETLFS 

4900  LDA  #$01  ; 11 1" 

4910  LDX  #<STRI 

4920  LDY  #>STRI 

4930  JSR  SETNAM 
4940  JMP  OPEN 
4942  : 

4944  ; SPACE  BZW.  CARRIAGE  RETURN  SENDEN 
4946  : 

4950  SPACE  LDA  #$20  ; SPACE 
4960  .BYT  $2C 

4970  CARET  LDA  #CR  ;CARRIDGE  RETURN 
4980  JMP  BASOUT  ; SENDEN 
4982  : 

4984  ; AUSGABEROUT  I NE 
4986  : 

4990  AUSGAB  JSR  BASOUT 

5000  STASTE  TXA  ;A,X,Y  REGISTER  RETTEN 

5010  PHA 

5020  TYA 

5030  PHA 

5040  JSR  STOP  ;<STOP>-TASTE  ABFRAGEN 
5050  CLC 

5060  BNE  WEITER 

5070  SEC 

5080  WEITER  PLA  .-REGISTER  WIEDERHERSTELLEN 
5090  TAY 
5100  PLA 
5110  TAX 

5120  STOP2  BCS  ENDE 
5130  RETURN  RTS 
5132  : 

5134  ; ABBRECHEN 

5136  : 

5140  ENDE  LDX  #$F6 
5150  TXS 
5160  ; JSR  SCRON 
5170  LDA  #$0F 


Die  Datasette  VC  1530  - Tips  und  Tricks 


863 


5180  JSR  CLOSE 

5190  JSR  CLALL 

5200  JMP  START 

5202  : 

5204  ; E IMGABEROUT  IRE 
5206  : 

5210  INPUT  JSR  GETBYT 

5220  BNE  RETURN 

5230  JSR  STASTE 

5240  BCC  INPUT 

5250  FEHLER  LDX  #$0F  ; STATUS  ABFRAGEN 

5260  JSR  SFINUM 

5270  JSR  SETPAR 

5280  LDA  GA 

5290  JSR  TALK 

5300  LDA  SA 

5310  JSR  SETALK 

5320  JSR  ASCHEX 

5330  CUP  #$20 

5340  PHP 

5350  BCC  MELAUS  ;UND  BEI  FEHLER 

5360  PHA  ; AUSGEBEN 

5370  JSR  CARET 

5380  JSR  CARET 

5390  PLA 

5400  JSR  HEXASC 

5410  MELAUS  JSR  IECIN 

5420  CMP  #CR 

5430  BEQ  MELEND 

5440  PLP 

5450  PHP 

5460  BCC  MELAUS 

5470  JSR  BASOUT 

5480  BCC  MELAUS 

5490  MELEND  JSR  UNTALK 

5500  PLP  : RTS 

5502  TASTE  JSR  PTASTE  :JSR  STOP2  : BNE  TASTE 
5504  LDA  «7  :STA  MOFLAG 
5506  JMP  MOTAUS 

5511  : : 

5512  ; AUSGABE  STRINGS 

5513  : : 

5520  QUEINS  .BYT  13,13,13 
5530  .ASC  "QUELLDISK  EINLEGEN  I" 

5540  .BYT  0 

5550  ZICASS  .BYT  13,13 

5560  .ASC  "ZIELCASSETTE  EINLEGEN!" 

5570  .BYT  13,0 

5580  TITEL  .ASC  " BACKUP  VON  DISKETTE" 

5590  .BYT  13,13 

5600  .ASC  " AUF  CASSETTE" 

5602  .BYT  13,13 

5604  .ASC  "MIT  F A S T T A P E" 
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5606  .BYT  13, 

13,13 

5608  .ASC  " (C) 

DIRK  PAULISSEN" 

5610  .BYT  13, 

13,13 

5620  .ASC  " 

E 

= ENDE" 

5630 

.BYT 

0 

5640  SLONG 

.BYT 

13 

5650 

.ASC 

" ZU  LANGE  ZUM  COP  I EREN1 

5660 

.BYT 

0 

5670  LILONG 

.BYT 

13 

5680 

.ASC 

••  LISTE  IST  VOLL" 

5690 

.BYT 

0 

5700  JANE  IN 

.ASC 

» JA/NE IN" 

5710 

.BYT 

0 

5720  STRJA 

.ASC 

" JA" 

5730 

.BYT 

0 

5740  STRILL 

.BYT 

13 

5750 

.ASC 

••  ILLEGALER  FILE-TYP" 

5760 

■ BYT 

0 

5770  STRNO 

.ASC 

••  NEIN" 

5780 

.BYT 

0 

5790  FRAGE 

.BYT 

13,13,13 

5800  .ASC  ••WOLLEN 

SIE  DIE  " 

5802  .BYT  13 

5804  .ASC  "PROGRAMME" 

5810  .BYT  13, 

,13 

5820  .ASC 

II 

1 DURCHGEHEND" 

5830  .BYT  13, 

,13 

5840  .ASC 

II 

2 EINZELN" 

5850  .BYT  13, 

,13 

5860  .ASC  "COP I EREN  ?» 

5870 

.BYT  0 

5880  SREAD 

.BYT  13,13 

5890  .ASC  "READING  •• 

5900 

.BYT  0 

5910  PRGRE 

.ASC  ",P,R" 

5920 

.BYT  0 

5930  UIMIN 

.ASC  "UI-" 

5940 

.BYT  0 

5950  UIPLU 

.ASC  "UI+" 

5960 

.BYT  0 

5970  STRI 

.ASC  "I" 

5980 

.BYT  0 

5985  CATALO 

5986  .BYT  0 

.ASC  "$•' 

5990  URITI 

.BYT  13,13 

6000  .ASC  "SAVING  •• 
6010  .BYT  0 

6020  EOCOP 

.BYT  13,13 

6030  .ASC  "1 

ENDE  DES  COPIERENS" 

6040 

.BYT  0 

6045  UMACH 

.BYT  13 

6050 

.ASC  ••  WEITER  MACHEN 

6060 

■ BYT  0 
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6070  SNFILE  .BYT  13,13 
6080  .ASC  "NAECHSTES  FILE  : " 

6090  .BYT  13,0 
6100  .END 


Und  hier  der  BASIC-Lader: 


100  REM  BACKUP  DISKETTE  =>  CASSETTE  FUER  C-64 

110  E=51757:A=50176:PS=0 

120  FORI =ATOE : READX : POKE I ,X:PS=PS+X:NEXT 

130  I FPS<>171785THENPRINT"FEHLER  IN  DATAS":END 

140  SYSA:NEU 

150  DATA169, 1,141, 32, 208, 141, 33, 208, 169,6, 141, 134,2, 169,107, 160, 200,32,3 
0,171 

160  DATA169.52, 160, 200, 32, 30, 171 ,32, 153, 199,201, 69,208, 1,96,32, 182, 199,3 
2,182 

170  DATA199, 32, 159, 199, 169, 8, 170, 160, 0,32, 186,255, 169, 1,162, 225, 160, 201, 
32 

180  DATA189,255, 32, 192, 255, 169,8,32, 180, 255, 169,0,32, 150,255, 160, 4, 32, 16 
5,255 

190  DATA136,208,250, 32, 165, 255, 133, 34, 32, 165, 255, 166,34, 32,205, 189,32, 17 
9,199 

200  DATA32, 165, 255, 240, 6,32, 210, 255, 24, 144, 245,32, 182, 199,32, 182, 199,32, 
165 

210  DATA255.32, 165, 255, 160, 0,132, 251, 32, 165, 255, 133, 252, 32, 165, 255, 133, 2 
53 

220  DATA166.252, 32, 205, 189,32, 179, 199, 160,0,32, 165, 255, 72, 32, 187, 199, 104 
.153 

230  DATA64, 3,240, 3, 200, 208,240,32, 165, 255, 32. 165, 255, 165, 144, 240, 3. 76, 71 
.197 

240  DATA165, 253, 208,6, 165, 252,201, 152, 144, 10, 169,252, 160, 200, 32, 30, 171, 7 

6.65 

250  DATA197, 165, 251, 201 ,48, 144, 10, 169, 27, 160, 201 ,32, 30, 171, 24, 144, 237, 16 

9.0 

260  DATA133.8, 169,31, 133, 21 1,169,51, 160, 201, 32,30, 171, 32, 225, 199,201, 78, 
240 

270  DATA82, 201, 74, 208,245, 169,69, 160, 201, 32,30, 171, 165, 251, 32, 241, 198, 16 

2.0 

280  DATA232, 189,64, 3, 201, 34, 208,248, 134, 253,232, 189,64,3,201, 34, 240,6, 14 

5.65 

290  DATA232, 200, 208,243, 138, 164, 251, 24, 229,253, 153, 64, 202, 189,64, 3, 208,1 
0,169 

300  DATA81, 160,201, 32, 30, 171, 76,65, 197,201, 83, 240,242,201, 80,240, 3, 232, 2 
08 

310  DATA230, 230,251, 24, 144, 7, 169, 107, 160, 201, 32, 30, 171, 32, 182, 199, 76, 125 
,196 

320  DATA169,8,32, 195, 255, 165, 251, 208,3, 76,0, 196, 169, 119, 160,201, 32, 30, 17 
1.32 

330  DATA225, 199,201, 49,240,7,201, 50,208,245, 169, 0,44, 169, 255, 133, 254, 169 
.15 

340  DATA32, 195, 255, 162, 0,134, 252, 169, 199, 160, 201 ,32,30, 171, 164,252, 190,6 
4,202 
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350  0*1*165,252,32,241,198,177,65,32,210,255,200,202,208,247,169,2,162,8 
,168 

360  DATA32, 186,255, 166,252, 189,64,202, 133, 34, 165, 252, 32,241, 198, 162, 0,17 
7.65 

370  0ATA157,64,3,200, 232, 198,34,208, 245, 160, 0,185, 210,201, 157,64, 3, 200, 2 
32 

380  DATA192.4, 144, 244, 138, 162,64,160,3,32, 189,255, 32, 192,255, 169,9, 160,0 
,132 

390  DATA34.133, 35, 173,17,208,41, 239,141, 17,208, 169, 15, 162, 8, 168,32, 186, 2 
55 

400  DATA169.3, 162,215, 160,201, 32, 189,255,32, 192,255, 162, 2,32, 15, 243, 32, 3 
1,243 

410  DATA165, 186.32, 180,255, 165, 185, 32, 150,255, 160,0,32, 165, 255, 32, 9, 199, 
166 

420  DATA144,240,246,32,235, 199,8,169,2, 32,195, 255, 173, 17,208,9, 16,141, 17 
,208 

430  DATA40, 144,3,32,55, 199, 166,252, 165,34,133,174, 165,35,133,175,232, 165 
,252 

440  DATA208, 13, 169,78, 160, 200,32,30, 171, 32, 225, 199, 32,37,200, 169,227, 160 

,201 

450  DATA32, 30, 171, 164, 252, 190,64, 202, 165, 252, 32, 241, 198, 177,65, 32, 210, 25 
5,200 

460  DAT *202 ,208,247, 162, 1 , 169,0,168,32, 186,255,166,252,189,64,202,133,34 
,165 

470  DATA252,32,241, 198, 162,0, 177,65, 157,64, 3, 232, 200, 198,34, 208,245, 138, 
162 

480  DATA64, 160,3,32,189,255,160,0, 169,9, 132,172,133,173,177,172,133,167, 
200 

490  DATA177, 172, 133, 168,200, 132,172, 165,174,56,229,172,8,24,101 , 167,133, 
169 

500  DATA165, 175, 101, 168,40, 229, 173, 133, 170, 162,5, 134, 171, 32, 133, 192, 32, 2 
29 

510  DATA198.230, 252, 166,252,228,251, 176,7,36,254, 16, 16,76,223, 198, 169,23 
7,160 

520  DATA201, 32,30, 171, 32,225, 199,76,0, 196,32, 85, 199, 169,78, 160, 200,32, 30 
.171 

530  DATA32.225, 199,32,37,200,32, 182,199,76, 117, 197,32,1 15,199,173,17,208 
.9 

540  DATA16, 141, 17,208,96, 160, 0,10, 10, 132, 66, 10, 38, 66, 10, 38, 66, 133, 65, 165 

.66 

550  DATA24, 105,203, 133,66, 160,0,96, 145,34,230,34,208,2,230,35,88,96,32,1 
65 

560  DATA255.41, 15, 10, 10, 10, 10, 133,87,32, 165, 255,41, 15, 5, 87, 96,72, 74, 74, 7 
4,74 

570  DATA32.47, 199, 104, 41, 15, 24, 105,48,76,210, 255, 173, 17,208,9, 16, 141, 17, 
208 

580  DATA169.7, 160,202,32,30, 171, 32, 225, 199,201, 89,208, 1,96,201, 78,208,24 
4,76 

590  DATA208, 199, 169, 26, 160, 202, 32, 30, 171, 165, 252, 10, 10, 10, 10, 166,252, 188 
.64 

600  DATA202, 170, 189,0,203,32, 210, 255, 232, 136,208,246,96, 173, 17,208,41, 23 
9,141 


Die  Datasette  VC  1530  - Tips  und  Tricks 


867 


610  0*1*17,208,169,15,32,195,255,169,15,162,8,168,32,186,255,169,3,162,2 
19 

620  DATA160, 201, 32, 189,255, 32, 192,255, 169, 15, 76, 195, 255,32, 228,255, 240,2 
51 

630  DATA96, 169, 15, 162,8, 168,32, 186,255,169, 1 , 162,223, 160,201,32, 189,255, 
76 

640  DATA192,255, 169, 32, 44, 169, 13, 76,210,255, 32,210,255, 138, 72, 152,72,32, 
225 

650  DATA255, 24,208, 1,56, 104, 168, 104, 170, 176, 1,96, 162,246, 154,32, 229, 198, 
169 

660  DATA15,32, 195,255,32,231,255,76,0,196,32,228,255,208,233,32,190,199, 
144 

670  DATA246, 162,15,32,15,243,32,31,243, 165,186,32, 180,255,165,185,32,150 
,255 

680  0ATA32, 19, 199,201, 32, 8, 144, 11, 72,32, 182, 199,32, 182, 199, 104, 32, 38, 199 
.32 

690  DATA165, 255, 201, 13,240,9,40,8, 144, 245,32,210,255, 144,240,32, 171, 255, 
40 

700  DATA96,32,56,248,32,205, 199,208,248, 169,7, 133, 192,76,202,252, 13, 13,1 
3,18 

710  DATA81, 85, 69,76, 76,68,73, 83, 75, 146,32,69,73, 78,76,69,71, 69,78,32,33, 
0,13 

720  0ATA13, 18,90,73,69,76,67,65,83,83,69,84,84,69, 146,32,69,73,78,76,69, 
71 

730  DATA69, 78, 32, 33, 13, 0,147, 17,28, 32, 32, 32, 32, 32, 32, 32, 66,65, 67,75, 85, 8 
0,32 

740  DATA86, 79,78,32, 68,73,83,75,69, 84, 84,69,32, 65, 85, 70, 13, 13, 31, 32,32,3 
2,32 

750  0ATA32, 32,32,32, 32,32,32,32,32,32,67,65, 83, 83, 69,84, 84,69, 13, 13,32,3 

2.32 

760  DATA32, 32,32,32, 32,77, 73, 84, 32, 18, 129,70,32,65, 32,83, 32,84, 32, 84,32, 
65 

770  DAT A32, 80, 32, 69, 32, 146, 13,13,13,32,32,32,40,67,41 ,32,32,32,32,68,73, 
82 

780  DATA75, 32, 80, 65, 85, 76,73, 83, 83, 69,78,32,32, 13, 13, 13,30,32,32,32,32, 3 

2.32 

790  DATA32,32,32,32,32,69,32,61 ,32,69,78,68,69,31,0, 13,28, 18,33,33, 18,32 
.90 

800  DATA85, 32, 76,65, 78, 71, 69,32, 90, 85. 77,32, 67,79, 80, 73, 69, 82, 69, 78,32, 3 

1.0 

810  DATA13, 28, 18,33, 33, 18,32, 76,73, 83, 84, 69,32, 73, 83, 84, 32, 86, 79, 76,76,3 

2.31 

820  DATAO, 18, 74, 65, 47,78. 69,73, 78. 157, 157, 157, 157, 157, 157, 157, 146, 31, 0,1 
8,30 

830  DATA32.32, 74, 65, 32,32, 146,32,31, 0,13, 28, 18,33,33. 18,32, 73,76,76,69,7 
1.65 

840  DATA76,69,82,32, 70. 73,76,69,84,89,80,31, 0,28, 18,32,78,69,73,78,32, 14 

6.32 

850  DATA31, 0,13, 13, 13,87,79,76,76, 69,78,32,83,73, 69,32, 68,73, 69,32,80, 82 
.79 

860  DATA71, 82, 65, 77,77,69, 13, 13, 32,32,32,32,49,32,32, 32, 32,68,85, 82, 67,7 
2,71 
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870  0*1*69.72,69,78,68,13,13,32,32,32,32,50,32,32,32,32,69,73,78,90,69,7 

6.78 

880  DATA13, 13,67,79,80,73,69,82,69,78,32,63,0, 13, 13,82,69,65,68,73,78,71 
.32 

890  DATA0,44,80,44,82, 0,85, 73, 45, 0,85, 73,43,0,73,0,36,0, 13, 13,83, 65. 86, 7 

3.78 

900  DATA71, 32,0, 13, 13,28, 18,69,78,68, 69,32, 68,69,83, 32, 67, 79,80, 73, 69,82 
.69 

910  DATA78,83,32, 146,31, 0,13, 32,87,69,73,84,69,82,32.77.65,67,72, 69,78,3 
2,63 

920  DATA32.0, 13, 13,78,65,69,67,72,83,84,69,83,32,70,73,76,69,32,58,32,0 


10.14  Tips  und  Tricks  zur  Datasette 

Die  Datasette  ist  das  wohl  preiswerteste  Speichergerät  für  den 
C64.  Obwohl  die  Floppy  bei  den  meisten  Anwendern  schon  die 
Datasette  vertrieben  hat,  möchte  ich  Ihnen  dennoch  ein  paar 
Datasetten-Tips  und  -Tricks  verraten,  die  Sie  dann  recht  einfach 
auch  in  Ihre  Programme  einbauen  können. 


10.14.1  Steuern  der  Datasette  von  BASIC  aus 

Vielleicht  ist  Ihnen  schon  einmal  die  lästige  Eigenschaft  der 
Datasette  auf  gef  allen,  immer  nach  einem  Lade-  oder  Speicher- 
vorgang selbsttätig  zu  stoppen.  Um  nun  wieder  ein  Programm  zu 
laden,  muß  zuerst  die  <Stop>-Taste  und  dann  die  <Play>-Taste 
gedrückt  werden.  Was  stoppt  denn  eigentlich  den  Motor  der  Da- 
tasette? Nun,  nichts  anderes  als  der  Computer.  Das  können  wir 
nun  ausnutzen  und  die  Datasette  vom  Computer  aus  steuern! 

Um  dies  zu  demonstrieren,  drücken  Sie  bitte  einmal  die  <Play>- 
Taste  und  geben  Sie  im  Direktmodus  folgende  zwei  Befehle  ein: 

POKE  192,1 

POKE  1.PEEK  (1)  OR  32 

Und  siehe  da,  die  Datasette  stoppt,  als  hätten  Sie  von  Hand  die 
<Stop>-Taste  betätigt.  Nun,  wie  funktioniert  der  Trick:  Soll  der 
Motor  der  Datasette  eingeschaltet  werden,  so  muß  in  der  Spei- 
cherstelle 192  ein  Wert  ungleich  Null  stehen.  Deshalb  wird  der 
Wert  1 in  diese  Speicherstelle  geschrieben.  Weiterhin  muß  das  5. 
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Bit  der  Speicherstelle  1 gesetzt  werden,  was  mit  dem  Befehl 
POKE  1,PEEK  (1)  OR  32  geschieht.  Ist  in  der  Speicherstelle  das 
Bit  S gesetzt,  so  wird  der  Motor  der  Datasette  abgeschaltet. 

Es  ist  aber  genauso  möglich,  den  Motor  starten  zu  lassen.  Geben 
Sie  dazu  bitte  folgende  Befehle  ein: 

POKE  192,0 

Es  wird  hier  wieder  in  die  Speicherstelle  192  der  Wert  0 ge- 
schrieben. Mit  den  folgenden  Befehlen  läßt  sich  abf ragen,  ob 
eine  Taste  der  Datasette  gedrückt  wurde  oder  nicht: 

IF  PEEK  (1)  = 55  THEN  PRINT  "KEINE  TASTE  GEDRÜCKT" 

IF  PEEK  (1)  = 7 THEN  PRINT  »TASTE  GEDRÜCKT" 

Wollen  Sie  einmal  in  einem  Programm  so  lange  warten,  bis  der 
Benutzer  die  <Stop>-Taste  gedrückt  hat,  dann  können  Sie  dies 
durch  den  Befehl 

UAIT  1,16 

erfahren.  Dadurch  wird  der  Computer  nämlich  veranlaßt,  so 
lange  zu  warten,  bis  in  Speicherzelle  1 das  4.  Bit  gesetzt  ist,  was 
nur  dann  der  Fall  ist,  wenn  die  <Stop>-Taste  der  Datasette  ge- 
drückt wurde.  Im  folgenden  habe  ich  Ihnen  noch  einmal  alle 
Möglichkeiten  zum  Steuern  der  Datasette  aufgelistet: 

Motor  aus:  POKE  192,1 

POKE  1.PEEK  (1)  OR  32 
Motor  an:  POKE  192,0 

POKE  1 ,PEEK  (1)  AND  39 
Warten  auf  <Stop>-Taste:  UAIT  1,16 
Warten  auf  <Play>-Taste:  IF  PEEK  (1)  = 55  THEN  ... 


10.14.2  Ein  Kopierschutz  für  die  Datasette 

Wer  hat  nicht  schon  einmal  ein  Programm  geschrieben,  das  er 
vor  unerlaubtem  Kopieren  sichern  wollte.  Mit  der  Datasette  ist 
es  sehr  einfach,  einen  Kopierschutz  zu  programmieren.  Wird  ein 
Programm  auf  Datasette  abgesaved,  so  kann  man  einen  Pro- 
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grammnamen  von  bis  zu  172  Buchstaben  Länge  angeben.  Beim 
Laden  dieses  Programms  werden  lediglich  höchstens  16  Zeichen 
angegeben.  "Doch  was  nützt  uns  das  jetzt?"  werden  Sie  sich  si- 
cher fragen.  Nun,  beim  Laden  eines  Programms  werden  die 
restlichen  160  Buchstaben  des  Namens  in  den  sogenannten  Kas- 
settenpuffer geladen.  Kopiert  sich  nun  jemand  Ihr  Programm, 
ohne  daß  Sie  es  wollen,  so  kennt  er  natürlich  nicht  den  Rest  des 
Namens.  Beim  Abspeichern  gibt  er  deshalb  nur  einen  höchstens 
16  Zeichen  langen  Namen  ein,  denn  woher  soll  er  ahnen,  daß 
das  Programm  einen  17  Zeichen  langen  Namen  hat?  Das  können 
Sie  sich  zunutzen  machen. 

Ich  habe  hier  nun  für  Sie  ein  kleines  Programm  geschrieben, 
welches  das  17.  Zeichen  des  Namens  abfragt: 

100  IF  PEEK  (849)  = ASCC'A")  THEN  SYS64738 

110  PRINT  "ES  HANDELT  SICH  HIER  UM  EIN  ORG I NALPROGRAMM ! 11 

120  PRINT  "VIEL  SPAß  BEI  DESSEN  BENUTZUNG!" 

Ab  der  Speicherstelle  849  befinden  sich  160  Bytes,  in  denen  der 
restliche  Name  des  Programms  steht.  Dieser  Teil  des  Namens 
läßt  sich  durch  den  PEEK-Befehl  auslesen.  Voraussetzung  dafür 
ist  jedoch,  daß  der  Programmname  16  Zeichen  zusätzlich  der 
restlichen  Zeichen  lang  ist.  Ein  Beispiel  für  einen  solchen  Na- 
men ist 

1 234567890 1 23456A 

Die  ersten  16  Zeichen  werden  beim  Ladevorgang  angezeigt,  das 
siebzehnte  Zeichen  jedoch  nicht.  Es  steht  im  Speicher  an  der 
Adresse  849.  Durch  die  Befehlsreihe  in  Zeile  100  wird  ein  RE- 
SET ausgelöst,  falls  in  der  Speicherstelle  849  ein  anderer  Wert 
als  der  Code  für  das  Zeichen  A steht.  Ansonsten  fährt  das  Pro- 
gramm mit  Zeile  110  fort.  Sie  sollten  diese  Zeilen  immer  vor 
den  Programmanfang  stellen.  Sie  können  statt  des  Codes  für  das 
Zeichen  A natürlich  auch  einen  anderen  Code  abfragen.  Dafür 
müssen  Sie  nur  Zeile  100  abändern. 
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10.14.3  Beschleunigung  des  Ladevorgangs 

Programme,  die  auf  Datasette  gespeichert  werden,  sind  - um 
eventuellen  Ladefehlern  vorzubeugen  - doppelt  abgespeichert.  Es 
ist  jedoch  Unsinn,  ein  Programm  zweimal  zu  laden,  da  dies  fast 
doppelt  so  lange  dauert.  Die  Ladezeit  läßt  sich  durch  folgende 
Programmzeilen,  die  Sie  an  den  Anfang  des  zu  ladenden  Pro- 
gramms stellen  sollten,  verkürzen. 

POKE  45.PEEK  (831) 

POKE  46.PEEK  (832) 

CLR 

Sie  können  nun  nach  dem  ersten  Ladevorgang  die  <Stop>-Taste 
drücken,  damit  das  Programm  nicht  unnützerweise  zweimal  ge- 
laden wird.  Durch  die  drei  Zeilen  wird  bewirkt,  daß  die  Zeiger 
auf  das  BASIC-Ende  richtig  gesetzt,  und  dann  alle  Variablen 
gelöscht  werden.  Würde  dies  nicht  gemacht,  so  kann  es  leicht 
Vorkommen,  daß  während  des  Programmablaufs  einfach  Fehler 
auftreten,  die  sonst  nicht  vorhanden  sind. 

Eine  zweite  Möglichkeit,  den  Ladevorgang  zu  beschleunigen,  ist 
das  Abbrechen  der  Wartepause,  nachdem  der  Computer  die  Mel- 
dung ausgegeben  hat,  daß  er  das  Programm  gefunden  hat.  Dazu 
drücken  Sie  entweder  die  <Ctrl>-,  die  <Space>-,  oder  die 
<Commodore>-Taste.  Ein  Drücken  des  Feuerknopfes  des  Joy- 
sticks, der  sich  in  Port  1 befindet,  bewirkt  das  gleiche. 

Manche  Maschinenprogrammierer  legen  kleine  Programmrouti- 
nen im  Kassettenpuffer  ab.  Auch  wenn  man  viel  Speicherplatz 
für  Sprite-Daten  braucht,  ist  es  sinnvoll,  diese  im  Kassetten- 
puffer abzulegen.  Viele  Leute  sind  der  Meinung,  daß  es  dann 
nicht  mehr  möglich  ist,  Programme  von  der  Datasette  zu  laden, 
da  sonst  die  Maschinensprache-Routine  überschrieben  würde. 
Daß  es  dennoch  möglich  ist,  von  der  Datasette  zu  laden,  ohne 
Programme,  die  im  Kassettenpuffer  abgelegt  sind,  zu  über- 
schreiben, zeigen  folgende  zwei  Befehle,  die  im  Direktmodus 
eingegeben  werden  müssen: 

POKE  178,0 

POKE  179,4 
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Diese  beiden  POKEs  bewirken,  daß  die  Zeiger,  die  auf  den 
Anfang  des  Kassettenpuffers  zeigen,  nun  "umgebogen"  werden 
und  auf  die  Bildschirmspeicher  zeigen.  Dadurch  werden  die  Da- 
ten, die  sich  im  Kassettenpuffer  befinden,  nicht  zerstört.  Sie 
können  natürlich  auch  andere  Speicherbereiche  als  den  Bild- 
schirmspeicher angeben.  Dazu  müssen  Sie  nur  die  Parameter  der 
POKE-Befehle  abändern  (siehe  Anhang). 


10.14.4  Retten  eines  Programms  nach  LOAD-ERROR 

Die  Datasette  ist  dafür  bekannt,  daß  sie  ein  unsicheres  Speicher- 
gerät ist.  Es  kommt  manchmal  vor,  daß  ein  schlichter  LOAD- 
ERROR  nach  einem  versuchten  Ladevorgang  auftaucht.  Doch 
noch  müssen  Sie  nicht  verzagen.  Die  Datasette  speichert  - wie 
schon  erwähnt  - jedes  Programm  doppelt  ab.  Beim  Laden  wird 
dann  der  erste  Teil  ganz  normal  geladen  und  mit  dem  zweiten 
Teil  verglichen.  Stimmen  manche  Teile  nicht  überein,  so  kommt 
es  zu  dem  gefürchteten  LOAD-ERROR.  In  Wirklichkeit  ist  der 
LOAD-ERROR  also  gar  kein  richtiger  Ladefehler,  sondern  es 
sind  lediglich  die  beiden  Programmteile  unterschiedlich. 

Sollte  einmal  bei  Ihnen  ein  LOAD-ERROR  auftreten,  so  versu- 
chen Sie  das  Programm  zu  listen.  Wenn  dies  noch  einigermaßen 
funktioniert,  so  ist  Ihr  Programm  nicht  verloren.  Sie  müssen  nur 
noch  den  Zeiger  auf  das  BASIC-Ende  richtig  setzen,  da  die  Da- 
tasette diese  erst  dem  Computer  übergibt,  wenn  der  Ladevorgang 
funktioniert  hat,  was  bei  einem  LOAD-ERROR  nicht  der  Fall 
ist.  Die  Werte  für  den  Zeiger  auf  das  BASIC-Ende  finden  Sie  im 
Kassettenpuffer,  und  zwar  bei  Adresse  831/832.  Diese  Werte 
müssen  lediglich  dem  Computer  mitgeteilt  werden,  was  durch 
folgende  Befehle  geschieht: 

POKE  46.PEEK  (832) 

POKE  47.PEEK  (831) 

POKE  48.PEEK  (832) 

POKE  49.PEEK  (831) 

POKE  50.PEEK  (832) 

Nun  läßt  sich  Ihr  Programm  wie  gewöhnlich  durch  RUN  starten 
und  durch  SAVE"PRG.Name",l  abspeichern.  Da  auch  dieser 
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Trick  nicht  immer  funktioniert,  ist  das  sicherste  Mittel  gegen 
defekte  Datenträger  immer  noch  das  Anfertigen  einer  Sicher- 
heitskopie! 


10.14.5  Sound  aus  der  Datasette 

Die  Datasette  arbeitet  genauso  wie  ein  ganz  normaler  Kassetten- 
rekorder. Deshalb  sollte  es  möglich  sein,  ihr  auch  einmal  den 
neuesten  Disco-Sound  oder  "Beethovens  Neunte"  zu  entlocken. 
Daß  dies  möglich  ist,  zeigt  - wie  so  oft  - dieser  POKE: 

POKE  54296,15 

Laden  Sie  nun  ein  Programm  von  Datasette,  so  werden  Sie  ein 
Gepiepse  hören,  was  nichts  anderes  als  die  Daten  ist,  die  mo- 
mentan in  den  Rechner  geladen  werden.  Der  Trick  funktioniert 
recht  einfach:  Genauso  wie  beim  Fernseher,  kann  man  auch 
beim  SID  (dies  ist  der  Chip,  der  für  den  Sound  zuständig  ist)  die 
Lautstärke  regulieren.  Dies  geschieht  im  Register  Nummer  25 
des  SID’s.  Dabei  steht  der  Wert  15  für  die  höchste,  und  der  Wert 
0 für  die  niedrigste  Lautstärke.  Oben  genannter  POKE  stellt  also 
die  Lautstärke  auf  "maximal"  ein,  wodurch  die  Töne  der  Data- 
sette zu  hören  sind. 

Es  ist  natürlich  auch  möglich,  hier  kleinere  Werte  einzugeben, 
was  zur  Folge  hat,  daß  die  Töne  immer  leiser  werden.  Sie  sollten 
allerdings  von  der  musikalischen  Qualität  der  Datasette  nicht  viel 
erwarten,  da  sie  nicht  dafür  gedacht  ist,  Musik  wiederzugeben. 
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Anhang 

Anhang  A:  BASIC-Referenz 

Dieser  Anhang  enthält  neben  einer  Liste  der  BASIC-Fehlermel- 
dungen  eine  komplette  Übersicht  über  die  BASIC-2.0-Schlüssel- 
worte.  Wenn  Ihnen  die  Bedeutung  einer  bestimmten  BASIC-An- 
weisung nicht  mehr  ganz  klar  ist  oder  eine  Fehlermeldung  Ihnen 
Kopfzerbrechen  bereitet,  dann  sollten  Sie  hier  nachschlagen. 

Alle  Erklärungen  sind  jedoch  - nicht  zuletzt  der  besseren  Über- 
sichtlichkeit wegen  - möglichst  knapp  gehalten. 


Anhang  A.1:  Schlüsselworte 

In  der  Kopfzeile  steht  jeweils  der  Name  des  Schlüsselwortes, 
seine  Abkürzung  (in  geschweiften  Klammern)  sowie  sein  Typ 
(Befehl,  Funktion,  Operator  oder  reservierte  Variable).  Darunter 
folgt  die  Syntax.  Optionale  Parameter  sind  dabei  in  eckigen 
Klammern  angegeben. 

Die  Syntax  von  Funktionen  wird  durch  die  Zuweisung  an  eine 
Variable  verdeutlicht.  In  der  Regel  dürfen  die  Funktionen  aber 
in  beliebigen  Ausdrücken  verwendet  werden.  Sie  sollten  nur 
darauf  achten,  daß  Sie  eine  numerische  Funktion  nicht  in  einem 
String-Ausdruck  verwenden  und  umgekehrt. 

Die  Angabe  "numerischer  Ausdruck"  in  der  Parameterliste  be- 
sagt, daß  an  dieser  Stelle  ein  beliebiger  Ausdruck  stehen  darf, 
der  einen  numerischen  Wert  als  Ergebnis  liefert,  beispielsweise 
2*A/5  oder  SIN(X+Y);  die  Angabe  "String-Ausdruck"  besagt, 
daß  hier  ein  beliebiger  Zeichenkettenausdruck  stehen  darf,  bei- 
spielsweise "COMMODORE'V  64"  oder  LEFT$(ZE$+WZ$,7). 
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ABS  {A<Shift>  +B} 


Funktion 


A = ABS  (numerischer  Ausdruck) 

ABS  berechnet  den  Absolutwert  (Betrag)  eines  in  Klammern  an- 
gegebenen numerischen  Ausdrucks.  Der  Betrag  einer  Zahl  ist 
immer  positiv.  ABS  empfiehlt  sich  daher  immer  dann,  wenn  man 
sicher  gehen  möchte,  daß  ein  Ausdruck  nicht  negativ  wird  (etwa 
bei  POKE). 


AND  {A<Shift>  +N} 


Operator 


A = logischer/numerischer  Ausdruck  AND  log./num.  Ausdruck 

AND  verknüpft  zwei  Ausdrücke  bitweise  durch  ein  logisches 
UND.  Jeder  Ausdruck  wird  dazu  intern  in  eine  16-Bit-Zahl  um- 
gerechnet. AND  eignet  sich  vor  allem  zum  gezielten  Löschen 
einzelner  Bits,  etwa  der  eines  Registers. 


ASC  {A<Shift>  +S} 


Funktion 


A = ASC  (String-Ausdruck) 

ASC  wandelt  das  erste  Zeichen  des  angegebenen  String-Aus- 
drucks in  seinen  ASCII- Wert  um  (siehe  auch  Anhang  C.10).  Die 
Umkehrfunktion  zu  ASC  ist  -♦  CHR$. 


ATN  {A<Shift>  +T} 


Funktion 


A = ATN  (numerischer  Ausdruck) 

ATN  berechnet  den  Arcustangens  des  angegebenen  numerischen 
Ausdrucks.  Der  Arcustangens  ist  derjenige  Winkel,  dessen  Tan- 
genswert gleich  dem  Wert  des  numerischen  Ausdrucks  ist.  ATN 
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wird  im  Normalfall  kaum  benötigt,  kann  aber  bei  speziellen 
mathematischen  Berechnungen  sehr  nützlich  sein. 


CHR$  {C<Shift>  +H} 


Funktion 


A$  = CHR$(nuneri scher  Ausdruck) 

CHR$  weist  A$  das  dem  Wert  des  numerischen  Ausdrucks  (0  bis 
255)  entsprechende  ASCII-Zeichen  zu  (siehe  auch  Anhang  C.10). 
CHR$  ist  vor  allem  bei  der  Arbeit  mit  speziellen  Tasten  (z.B. 
<Return>  oder  den  Funktionstasten)  oder  mit  Grafikzeichen  sehr 
hilfreich.  Die  Umkehrfunktion  zu  CHR$  ist  -+  ASC. 


CLOSE  {CL<Shift>  +0} 


Befehl 


CLOSE  logische  File-Nummer 

CLOSE  schließt  eine  zuvor  mittels  -*  OPEN  geöffnete  logische 
Datei.  Dazu  muß  die  logische  File-Nummer  der  Datei  (0  bis  255) 
angegeben  werden.  CLOSE  sollte  den  Abschluß  jedes  Dateizu- 
griffs bilden.  Das  Vergessen  der  CLOSE-Anweisung  kann  zu  ei- 
nem Datenverlust  führen! 


CLR  {C<Shift>  +L} 


Befehl 


CLR 

CLR  löscht  sämtliche  momentan  im  BASIC-Speicher  vorhan- 
denen Variablen  und  setzt  diverse  Zeiger  zurück.  Das  momentan 
im  Rechner  befindliche  Programm  bleibt  aber  unverändert.  Um 
auch  dieses  zu  löschen,  müssen  Sie  -*•  NEW  eingeben. 
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CMD  {C<Shift>  +M} 


Befehl 


CMD  logische  File-Nummer  [,  beliebiger  Ausdruck] 

CMD  leitet  die  Bildschirmausgabe  auf  die  durch  ihre  logische 
File-Nummer  bezeichnete  Datei  um.  Hinter  der  File-Nummer 
kann  ein  beliebiger  Ausdruck  stehen,  der  in  die  Datei  geschrie- 
ben werden  soll.  Alle  nachfolgenden  PRINT-  oder  LIST- An- 
weisungen werden  ebenfalls  in  die  Datei  geschrieben.  Ein 
"PRINT#log.  File-Nr."  beendet  die  Umlenkung.  Die  Ausgabe 
erfolgt  nun  wieder  auf  den  Bildschirm.  (Bitte  vergessen  Sie 
nicht,  die  Datei  mit  CLOSE  zu  schließen).  CMD  wird  in  den 
meisten  Fällen  im  Zusammenhang  mit  dem  Drucker  eingesetzt. 

"OPEN  4,4:CMD  4:LIST:PRINT#4:CLOSE  4"  zum  Beispiel  gibt 
das  momentan  im  Speicher  befindliche  BASIC-Programm  auf 
dem  Drucker  aus. 


CONT  {C<Shift>  +0} 


Befehl 


CONT 

CONT  setzt  die  Ausführung  eines  BASIC-Programms,  das  durch 
die  <Stop>-Taste  oder  eine  STOP-Anweisung  im  Programm  un- 
terbrochen wurde,  wieder  fort.  Voraussetzung  dafür  ist  aller- 
dings, daß  Sie  am  Programm  in  der  Zwischenzeit  keine  Verän- 
derungen vorgenommen  haben.  Sonst  bekommen  Sie  einen 
CAN’T  CONTINUE  ERROR. 


DATA  {D<Shift>  +A} 


Befehl 


DATA  Uert1,Uert2, 

DATA  dient  zur  Speicherung  numerischer  Daten  oder  String- 
Daten  innerhalb  eines  Programms.  Diese  können  dann  bei  Bedarf 
mit  -*  READ  gelesen  werden.  Die  einzelnen  Daten  müssen  durch 
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Kommas  voneinander  getrennt  werden.  Die  Anzahl  der  DATA- 
Zeilen  ist  nur  durch  den  verfügbaren  BASIC-Speicher  begrenzt. 
Die  DATA-Zeilen  dürfen  sich  außerdem  an  beliebiger  Stelle  in- 
nerhalb eines  Programms  befinden. 


DEF  {D<Shift>  +E} 


Befehl 


DEF  FN  Name(X)  - numerischer  Ausdruck 

DEF  dient  zur  Definition  einer  numerischen  Funktion,  die  dann 
durch  FN  aufgerufen  werden  kann.  Für  den  Funktionsnamen 
gilt  dasselbe  wie  für  Variablennamen,  d.h.,  er  darf  maximal 
zweistellig  sein  und  muß  mit  einem  Buchstaben  beginnen.  Zu 
beachten  ist,  daß  die  DEF-Definition  vor  dem  ersten  FN-Aufruf 
abgearbeitet  sein  muß.  Die  Definition  sollte  daher  am  Anfang 
eines  Programms  stehen  oder  in  einem  Unterprogramm,  das  dann 
zu  Beginn  aufgerufen  wird. 

DEF  bietet  sich  vor  allem  bei  sehr  häufig  benötigten  Berechnun- 
gen an.  Die  Berechnungsformel  wird  dazu  einmal  definiert  (z.  B. 
DEF  FN  MW(X)  = X*0.14)  und  dann  jeweils  mit  dem  zu  be- 
rechnenden Wert  aufgerufen  (z.  B.  "PRINT  FN  MW(100)"  ergibt 
"14").  Das  erhöht  nicht  nur  die  Übersichtlichkeit  im  Programm, 
sondern  läßt  sich  auch  wesentlich  leichter  warten. 


DIM  {D<Shift>  +1} 


Befehl 


DIM  Feldname1),  Feldname2, 

Größere  Variablenfelder  müssen  vor  ihrer  ersten  Verwendung 
mit  DIM  vordimensioniert  werden.  Dies  gilt  für  alle  Felder,  die 
mehr  als  11  Elemente  enthalten  sollen.  Die  Dimensionierung  er- 
folgt durch  Angabe  des  höchsten  Feldelements.  "DIM  A(100)" 
beispielsweise  definiert  ein  101  Elemente  umfassendes  Feld,  wo- 
bei der  Index  von  A(0)  bis  A(100)  läuft.  Hinter  einer  DIM- An- 
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Weisung  dürfen  so  viele  Dimensionierungen  stehen,  wie  in  eine 
Programmzeile  passen,  jeweils  getrennt  durch  ein  Komma. 

Taucht  eine  Feldvariable  in  einem  Programm  auf,  ohne  vorher 
dimensioniert  worden  zu  sein,  so  wird  die  Feldgröße  auf  11 
Elemente  festgelegt.  Eine  nachträgliche  Änderung  der  Dimensio- 
nierung ist  nicht  möglich!  Daher  muß  man  sich  von  vornherein 
genau  überlegen,  wie  groß  das  Feld  eventuell  werden  könnte. 


END  {E<Shift>  +N} 


Befehl 


END 

END  bildet  den  logischen  Abschluß  eines  BASIC-Programms. 
END  ist  im  Normalfall  nicht  unbedingt  erforderlich  (Der  BA- 
SIC-Interpreter verzweigt  nach  Abarbeitung  der  letzten  Pro- 
grammzeile auch  von  selbst  in  den  Direktmodus.),  sollte  aber  der 
Ordnung  halber  nicht  weggelassen  werden.  Insbesondere  dann, 
wenn  Sie  in  Ihrem  Programm  Unterprogramme  verwenden,  die 
ganz  am  Ende  stehen.  Ein  RETURN  WITHOUT  GOSUB 
ERROR  ist  die  häufige  Folge  eines  vergessenen  END,  wenn  der 
Interpreter  am  Programmende  im  ersten  Unterprogramm  auf  ein 
RETURN  trifft,  ohne  daß  zuvor  ein  GOSUB- Aufruf  erfolgte. 
Nach  END  stehen  das  Programm  und  sämtliche  Variablen  wei- 
terhin zur  Verfügung. 


EXP  {E<Shift>  +X} 


Funktion 


A = EXP(Potenz) 

EXP  berechnet  die  Exponentialfunktion  mit  der  Eulerschen  Zahl 
e (=2.718...)  als  Basis.  Die  Potenz  darf  Werte  von  etwa  -88  (eA- 
88)  bis  +88  (eA+88)  annehmen.  Die  Umkehrfunktion  zu  EXP  ist 
LOG. 


Anhang 


881 


FOR  {F<Shift>  +0} 


Befehl 


FOR  SC  = Startwert  TO  Endwert  [STEP  Schrittweite] 

(beliebige  Anweisungen) 

NEXT  SC 

Mit  FOR  lassen  sich  Programmschleifen  realisieren.  Die  zwi- 
schen FOR  und  NEXT  stehenden  Anweisungen  werden  so  oft 
wiederholt,  bis  der  Wert  der  Variablen  SC  den  hinter  TO  ste- 
henden Endwert  übersteigt.  Normalerweise  wird  SC  durch 
NEXT  jeweils  um  eins  erhöht.  Durch  STEP  kann  jedoch  eine 
beliebige,  auch  negative  Schrittweite  definiert  werden. 

Es  ist  auch  möglich,  FOR  ...  NEXT- Anweisungen  zu  schachteln, 
allerdings  nur  bis  zu  einer  Verschachtelungstiefe  von  etwa  drei 
bis  fünf,  je  nachdem,  ob  innerhalb  der  Schleifen  auch  noch 
Unterprogrammaufrufe  enthalten  sind.  Ein  OUT  OF  MEMORY 
ERROR  deutet  in  diesem  Zusammenhang  darauf  hin,  daß  die 
Schleifen  zu  tief  verschachtelt  wurden. 


FRE  {F<Shift>  +R} 


Funktion 


A = FRE(O) 

FRE  berechnet  den  momentan  noch  freien  (d.h.  von  Programm 
und  Variablen  nicht  genutzten)  BASIC-Speicherplatz.  Maximal 
stehen  etwa  39.000  Bytes  für  BASIC  zur  Verfügung.  Die  Zahl  in 
Klammern  hinter  FRE  ist  ohne  Bedeutung,  muß  aber  angegeben 
werden.  In  der  Regel  verwendet  man  eine  Null. 

FRE  hat  die  unangenehme  Eigenschaft,  daß  es  bei  einem  freien 
Speicher  von  mehr  als  32.767  Bytes  einen  negativen  Wert  liefert 
zu  dem  man  65.536  addieren  muß,  um  den  korrekten  Wert  zu 
erhalten.  Hier  kann  man  sich  aber  durch  einen  kleinen  Trick  be- 
helfen: Mit  "FRE(0)-(FRE(0)<0)*65536"  erhält  man  immer  die 
wahre  Speichergröße. 
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GET  {G  < Sh’rft > + E} 


Befehl 


GET  EG/EG$  [.weitere  Variablen] 

GET  liest  ein  einzelnes  Zeichen  von  der  Tastatur  ein  und  weist 
es  der  Variablen  EG  bzw  EG$  zu.  Im  Gegensatz  zu  INPUT 
wartet  GET  nicht  auf  eine  Eingabe.  Erfolgt  zum  Zeitpunkt  der 
Abfrage  keine  Eingabe,  so  wird  EG  der  Wert  Null  bzw.  EG$ 
eine  leere  Zeichenkette  zugewiesen. 


GET#  {G<Shift>  +E#} 


Befehl 


GET#  logische  Fi le-Nummer,EG/EG$  [.weitere  Variablen] 

GET#  liest  ein  einzelnes  Zeichen  aus  einer  durch  ihre  logische 
File-Nummer  bezeichneten  Datei  und  weist  es  EG  bzw.  EG$  zu. 
Im  Gegensatz  zu  INPUT#  lassen  sich  mit  GET#  jede  Art  von 
Zeichen  einiesen,  also  auch  RETURN,  Doppelpunkte  oder  An- 
führungszeichen. 


GOSUB  {GO<Shift>  +S} 


Befehl 


GOSUB  Zei lermuromer 

Nach  einem  GOSUB  unterbricht  der  BASIC-Interpreter  die  lau- 
fende Programmabarbeitung,  springt  zu  der  angegebenen  Pro- 
grammzeile und  arbeitet  das  dort  stehende  Unterprogramm  ab. 
Nach  RETURN,  am  Ende  des  Unterprogramms,  fährt  der  Inter- 
preter hinter  der  GOSUB-Anweisung  mit  der  Programmabar- 
beitung fort.  Unterprogrammaufrufe  dürfen  auch  verschachtelt 
werden,  d.h.,  aus  einem  Unterprogramm  heraus  kann  ein  wei- 
teres Unterprogramm  aufgerufen  werden.  Bei  einer  zu  hohen 
Verschachtelungstiefe  (maximal  etwa  fünf)  erhält  man  aber 
einen  OUT  OF  MEMORY  ERROR. 
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GOTO  {G<Shift>  +0} 


Befehl 


GOTO  Zeilennummer 

GOTO  springt  zu  der  durch  ihre  Nummer  bezeichneten  BASIC- 
Zeile.  Die  Zeilennummer  muß  dazu  konkret  in  Ziffern  angege- 
ben werden.  Die  Verwendung  von  Variablen  oder  numerischen 
Ausdrücken  ist  nicht  erlaubt. 

GOTO  ist  eine  Anweisung,  die  man  nur  äußerst  sparsam  ver- 
wenden sollte,  da  sie  sehr  schnell  zu  sog.  "Spaghetti-Code"  führt. 

Damit  meint  man  an  sich  unbegründete  Sprünge  in  einem  BA- 
SlC-Programm,  die,  würde  man  Sprungstelle  und  Sprungziel 
durch  eine  Linie  verbinden,  an  einen  Teller  "Spaghetti"  erinnern. 


IF  {-} 


Befehl 


IF  Bedingung  THEN  Zei lemuimer 
IF  Bedingung  GOTO  Zei lennuimer 
IF  Bedingung  THEN  (beliebige  Anweisungen) 

IF  erlaubt  die  bedingte  Verzweigung  zu  einer  durch  ihre  Num- 
mer bezeichneten  BASIC-Zeile  bzw.  die  bedingte  Abarbeitung 
der  hinter  THEN  stehenden  Anweisungen. 

Ist  die  zwischen  IF  und  THEN  bzw.  GOTO  stehende  Bedingung 
logisch  "WAHR"  (z.  B.  "A<10",  wobei  A=2),  so  wird  die  angege- 
bene Progammzeile  angesprungen  bzw.  die  hinter  THEN  stehen- 
den Anweisungen  ausgeführt. 

Ist  die  Bedingung  logisch  "FALSCH"  (z.B.  "A>10",  wobei  A=2), 
so  ignoriert  der  Interpreter  den  Rest  der  Programmzeile  und 
fährt  in  der  nächsten  mit  der  Programmabarbeitung  fort. 
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INPUT  {-} 


Befehl 


INPUT  [Hinweistext,]  Eingabevariable,  

INPUT  dient  zur  Eingabe  beliebiger  numerischer  oder  alphanu- 
merischer Daten.  Die  Eingabe  wird  an  eine  oder  mehrere  hinter 
INPUT  stehende  Variablen  zugewiesen.  Die  Daten  werden  je- 
weils zunächst  am  Bildschirm  ausgegeben,  so  daß  sich  Fehlein- 
gaben leicht  korrigieren  lassen.  Erst  durch  Drücken  der 
<Return>-Taste  werden  die  Daten  in  die  Variable  übernommen 
und  das  Programm  fortgesetzt.  Wahlweise  kann  hinter  INPUT 
ein  Hinweistext  angegeben  werden,  der  dem  Anwender  sagt, 
welche  Daten  von  ihm  gefordert  werden  (beispielsweise  "Bitte 
Namen  eingeben:"). 


INPUT#  {l<Shift>  +N} 


Befehl 


INPUT#  logische  File-Nr.,  Eingabevariable,  

INPUT#  liest  aus  einer  durch  ihre  logische  File-Nummer  be- 
zeichneten  Datei  beliebige  Daten,  die  durch  RETURNs 
(CHR$(13);  wird  von  PRINT#  automatisch  erzeugt),  Kommas 
oder  Doppelpunkte  voneinander  getrennt  sein  müssen,  in  die  an- 
gegebenen Variablen  ein.  INPUT#  ist  allerdings  nur  in  der  Lage, 
String-Daten  mit  einer  Länge  bis  zu  88  Zeichen  einzulesen.  Län- 
gere Zeichenketten  verursachen  einen  STRING  TOO  LONG 
ERROR.  In  diesem  Fall  muß  man  sich  mit  GET#  behelfen  und 
die  Daten  byteweise  einiesen. 


INT  {-} 


Funktion 


A = INT  (numerischer  Ausdruck) 

INT  berechnet  den  Integer-Wert,  d.h.  den  ganzzahligen  Anteil, 
des  angegebenen  numerischen  Ausdrucks.  INT(2.8)  zum  Beispiel 
ergibt  2,  INT(-4.1)  dagegen  ist  -5.  INT  rundet  also  immer  auf 
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die  nächst  kleinere  Ganzzahl  ab.  Um  eine  "echte"  (kaufmänni- 
sche) Rundung  zu  erreichen,  addiert  man  zu  der  zu  rundenden 
Zahl  einfach  0.5.  INT(A+0.5)  beispielsweise  rundet  die  in  A ge- 
speicherte Zahl  immer  korrekt. 


LEFT$  {LE<Shift>  + F} 


Funktion 


A$  - LEFTS  (String-Ausdruck, Länge) 

LEFTS  ergibt  einen  Teil-String,  der  einen  linken  Teil  des  ange- 
gebenen String-Ausdrucks  enthält,  wobei  Länge  die  Anzahl  der 
"abzuschneidenden"  Zeichen  angibt.  "A$  = LEFTS  ("BEI- 
SPIEL",3)"  zum  Beispiel  weist  A$  den  Teil-String  "BEI"  zu.  Der 
String-Ausdruck  selbst  bleibt  durch  die  Operation  unverändert. 


LEN  {-} 


Funktion 


A = LEN  (String-Ausdruck) 

LEN  ermittelt  die  Länge  des  angegebenen  String-Ausdrucks.  Die 
Länge  eines  Strings  liegt  immer  im  Bereich  zwischen  0 und  255. 


LET  {L<Shift>  +E} 


Befehl 


LET  A = numerischer  Ausdruck 
LET  AS  = St ring- Ausdruck 

LET  weist  einer  Variablen  den  hinter  dem  Gleichheitszeichen 
angegebenen  Ausdruck  zu.  LET  ist  ein  Befehl,  den  man  an  sich 
überhaupt  nicht  benötigt,  da  Wertezuweisungen  an  Variablen 
vom  BASIC-Interpreter  auch  ohne  vorangestelltes  LET  ange- 
nommen werden. 
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LIST  {L<Shift>  + 1} 


Befehl 


LIST  [Zei lennummer-]  C-Zei lennummer] 

LIST  gibt  das  ganze  oder  einen  Teil  des  momentan  im  Speicher 
befindlichen  BASIC-Programms  auf  dem  aktuellen  Ausgabegerät 
(in  der  Regel  der  Bildschirm;  durch  CMD  kann  die  Ausgabe  je- 
doch umgeleitet  werden)  aus.  Sollen  nur  Teile  eines  Programms 
gelistet  werden,  so  müssen  die  Nummern  der  gewünschten  Zei- 
len hinter  LIST  angegeben  werden.  LIST  100-200  beispielsweise 
gibt  die  Programmzeilen  100  bis  200  aus,  LIST  -100  listet  alle 
Programmzeilen  vom  Programmstart  bis  einschließlich  Zeile  100, 
LIST  200-  gibt  alle  Programmzeilen  ab  Zeile  200  bis  zum  Pro- 
grammende aus. 


LOAD  {L<Shift>  +0}  Befehl 


LOAD  Name, Geräteadresse, Sekundäradresse 

LOAD  lädt  die  mit  ihrem  Namen  bezeichnete  Datei  (in  den 
meisten  Fällen  ein  BASIC-Programm)  von  Kassette  oder  Dis- 
kette. Um  von  Kassette  zu  laden,  geben  Sie  als  Geräteadresse 
eine  1 an.  Die  Geräteadresse  der  Floppy  ist  in  der  Regel  8.  Falls 
Sie  mit  mehreren  Floppies  arbeiten,  kann  es  aber  auch  ein  Wert 
zwischen  9 und  15  sein.  Die  Sekundäradresse  ist  entweder  0 
(falls  Sie  ein  BASIC-Programm  laden  wollen)  oder  1 (falls  die 
Datei  andere  Daten  enthält,  etwa  eine  Grafik  oder  ein 
Maschinenprogramm). 


MID$  {M<Shift>  +1} 


Funktion 


A$  = MID$  (String-Ausdruck,  Startstelle,  Länge) 

MID$  "schneidet"  aus  dem  angegebenen  String-Ausdruck  einen 
Teil-String  aus,  wobei  "Startstelle"  die  Position  des  ersten  Zei- 
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chens  und  "Länge"  die  Anzahl  der  zu  entnehmenden  Zeichen  an- 
gibt. "MID$  ("BEISPIEL",4,3)"  zum  Beispiel  ergibt  "SPI".  Der 
String -Ausdruck  selbst  bleibt  durch  die  Operation  unverändert. 


NEXT  {N<Shüt>  +E} 

Befehl 

-*■  FOR. 

NOT  {N<ShHt>  +0} 

Operator 

A = NOT  logischer/nuneri scher  Ausdruck 

NOT  ermittelt  das  logische  NICHT  eines  Ausdrucks.  Logisch 
"FALSCHE"  Ausdrücke  werden  daher  "WAHR"  und  umgekehrt. 
Numerische  Ausdrücke  werden  zunächst  in  eine  16-Bit-Zahl 
umgerechnet  und  dann  jedes  einzelne  Bit  "umgedreht"  (falls  es  0 
war,  wird  es  1 und  umgekehrt). 

ON  {-} 

Befehl 

ON  Verteilerwert  GOTO  Zei lennummer, 

ON  Verteilerwert  GOSUB  Zeilennummer, 

ON  erlaubt  - ähnlich  wie  IF  - die  bedingte  Verzweigung  in  eine 
der  hinter  GOTO  bzw.  GOSUB  angegebenen  Zeilennummern.  Im 
Gegensatz  zu  IF  hat  man  aber  die  Möglichkeit  mehrere  Sprung- 
ziele in  einer  Anweisung  zusammenzufassen.  Verzweigt  wird  je- 
weils in  Abhängigkeit  vom  Verteilerwert.  Eine  1 hat  zur  Folge, 
daß  in  die  erste  Zeilennummer  hinter  GOTO  bzw.  GOSUB  ge- 
sprungen wird,  bei  einer  2 wird  in  die  zweite  Zeilennummer 
verzweigt  usw...  Bei  ungültigen  Werten  wird  das  Programm  mit 
der  hinter  ON  folgenden  Anweisung  fortgesetzt. 
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OPEN  {0<Shift>  +P} 


Befehl 


OPEN  logische  Fi le-Nr. .Geräteadr. .Sekundäradr. .Kommandotext 

OPEN  öffnet  eine  logische  Datei  zum  Lesen  und/oder  Schreiben 
von  Daten  von  einem  Peripheriegerät.  Dazu  muß  die  Adresse  des 
Geräts  (Floppy  z.  B.  8)  sowie  im  Kommandotext  der  Name  der 
Datei  angegeben  werden. 

Der  Kommandotext  kann  zusätzlich  noch  andere  Parameter  ent- 
halten, etwa  den  Programmtyp  bei  einer  Floppy-Datei.  Die  lo- 
gische File-Nummer  und  die  Sekundäradresse  (beide  dürfen 
Werte  zwischen  0 und  255  annehmen)  dienen  der  Unterschei- 
dung der  einzelnen  geöffneten  Dateien  (bis  zu  zehn  Dateien  dür- 
fen gleichzeitig  geöffnet  sein). 

Bei  allen  späteren  Zugriffen  auf  die  Datei  (durch  INPUT#, 
PRINT#  usw.)  muß  jeweils  die  logische  File-Nummer  zur  Iden- 
tifikation angegeben  werden.  Insbesondere  bei  Floppy-Dateien 
ist  es  sehr  wichtig,  daß  die  einzelnen  Dateien  auch  verschiedene 
Sekundäradressen  haben,  da  die  Floppy  diese  zur  internen  Ver- 
waltung der  Datenkanäle  benötigt. 

Am  einfachsten  ist  es,  wenn  man  für  die  logische  File-Nummer 
und  die  Sekundäradresse  jeweils  die  gleichen  Werte  nimmt. 
"OPEN  2,8,2, "TEST,S,W""  z.B.  öffnet  eine  sequentielle  Datei  na- 
mens TEST  zum  Schreiben  von  Daten. 


OR  {-} 


Operator 


A = logischer/numerischer  Ausdruck  OR  log./num.  Ausdruck 

OR  verknüpft  zwei  Ausdrücke  bitweise  durch  logisches  ODER. 
Jeder  Ausdruck  wird  dazu  intern  in  eine  16-Bit-Zahl  umgerech- 
net. AND  eignet  sich  vor  allem  zum  gezielten  Setzen  einzelner 
Bits,  etwa  der  eines  Registers. 


Anhang 


889 


PEEK  {P<Shift>  +E} 


Funktion 


A = PEEK(Speicheradresse) 

PEEK  dient  zum  Auslesen  des  Inhalts  von  Speicherstellen.  Dazu 
muß  die  Adresse  der  Speicherstelle  angegeben  werden.  Werte 
von  0 bis  65535  sind  erlaubt.  PEEK  bildet  das  Gegenstück  zu 
POKE. 


POKE  {P<Shift>  +0} 


Befehl 


POKE  Speicheradresse,  Wert 

POKE  schreibt  den  angegebenen  Wert  (0  bis  255)  in  die  durch 
ihre  Adresse  (0  bis  65535)  bezeichnete  Speicherstelle.  Das  Ge- 
genstück zu  POKE  bildet  die  Funktion  PEEK.  POKE  und  PEEK 
(in  Verbindung  mit  SYS)  eignen  sich  sehr  gut  zur  Kommunika- 
tion mit  Maschinenprogrammen. 


POS  {-} 


Funktion 


A = POS  (0) 

POS  übergibt  die  aktuelle  Spaltenposition  des  Cursors  am  Bild- 
schirm und  kann  daher  bei  der  Programmierung  von  Bild- 
schirmmasken recht  hilfreich  sein. 


PRINT  {?} 


Befehl 


PRINT  beliebiger  Ausdruck 

PRINT  dient  zur  Ausgabe  von  Zahlen  und  Zeichenketten  jegli- 
cher Art  und  ist  neben  INPUT  der  wohl  am  häufigsten  benötigte 
Befehl.  Mit  Hilfe  spezieller  Steuerzeichen,  etwa  CHR$(147)  zum 
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Löschen  des  Bildschirms  (siehe  auch  die  ASCII-Tabelle  im  An- 
hang), läßt  sich  über  PRINT  auch  das  Erscheinungsbild  der 
Bildschirmausgaben  verändern.  Die  auszugebenden  Ausdrücke 
müssen  jeweils  durch  ein  Komma  oder  ein  Semikolon  voneinan- 
der getrennt  werden.  Zum  Beispiel  löscht  PRINT 
CHR$(147);"HALLO"  zunächst  den  Bildschirm  und  schreibt  dann 
den  Text  "HALLO"  in  die  oberste  Bildschirmzeile. 


PRINT#  {P<Shift>  + R} 


Befehl 


PRINT#  logische  Fi le-Numner, beliebiger  Ausdruck 

PRINT#  hat  dieselbe  Funktion  wie  PRINT,  nur  daß  die  Ausgabe 
nicht  auf  den  Bildschirm,  sondern  in  eine  durch  ihre  logische 
File-Nummer  bezeichnete  Datei  erfolgt.  Der  Aufbau  des  auszu- 
gebenden Ausdrucks  ist  analog  zu  PRINT,  allerdings  haben  die 
Steuerzeichen  bei  PRINT#  keine  unmittelbare  Wirkung  (mit 
Ausnahme  von  RETURN  (CHR$(13)),  das  zur  Trennung  zweier 
Datensätze  dient),  werden  aber  trotzdem  (in  Form  ihrer  ASCII- 
Werte)  geschrieben. 


READ  {R<Shift>  +E} 


Befehl 


READ  Einlesevariable, 

READ  liest  in  DATA-Anweisungen  abgelegte,  numerische  oder 
alphanumerische  Daten  in  eine  oder  mehrere  Variablen  ein. 
Nach  jeder  READ-Anweisung  wird  der  Zeiger  auf  die  Daten 
automatisch  um  ein  Element  weitergesetzt.  Nach  Erreichen  des 
letzten  im  Programm  vorhandenen  DATA-Elements  erscheint  ein 
OUT  OF  DATA  ERROR.  Mittels  RESTORE  läßt  sich  der 
DATA-Zeiger  auf  das  erste  im  Programm  vorhandene  DATA- 
Element  zurücksetzen. 
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REM  {-} 


Befehl 


REM  Kommentar 

REM  dient  zur  Markierung  von  Kommentaren  in  einem  Pro- 
gramm. Hinter  REM  dürfen  beliebige  Texte  stehen.  Der  Rest 
der  Programmzeile  hinter  REM  wird  vom  BASIC-Interpreter 
überlesen.  BASIC-Befehle,  die  hinter  REM  stehen  (auch  solche, 
die  durch  einen  Doppelpunkt  abgetrennt  sind)  werden  daher 
grundsätzlich  nicht  abgearbeitet. 


RESTORE  {RE<Shift>  +S} 


Befehl 


RESTORE  setzt  den  DATA-Zeiger  auf  das  erste  im  Programm 
vorkommende  DATA-Element.  Eine  nachfolgende  READ-An- 
weisung  liest  dann  dieses  Element  in  eine  Variable  ein. 

RESTORE  ist  insbesondere  dann  erforderlich,  wenn  in  DATA- 
Anweisungen  abgelegte  Daten  während  des  Programmablaufs 
mehrfach  gelesen  werden  sollen. 


RETURN  {RE  < Shift>  +T} 


Befehl 


RETURN  bildet  den  logischen  Abschluß  eines  durch  GOSUB 
aufgerufenen  Unterprogramms. 

Nach  RETURN  fährt  der  BASIC-Interpreter  hinter  der  zuletzt 
abgearbeiteten  GOSUB-Anweisung  mit  der  Programmabarbei- 
tung fort. 
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RIGHT$  {R<Shift>  +1} 


Funktion 


A$  = RIGHTS  (String-Ausdruck, Länge) 

RIGHTS  ergibt  einen  Teil-String,  der  einen  rechten  Teil  des  an- 
gegebenen String-Ausdrucks  enthält,  wobei  "Länge"  die  Anzahl 
der  "abzuschneidenden"  Zeichen  angibt.  "A$  = RIGHTS  ("BEI- 
SPIEL",5)"  zum  Beispiel  weist  AS  den  Teil-String  "SPIEL"  zu. 
Der  String-Ausdruck  bleibt  durch  die  Operation  unverändert. 


RND  {R<Shift>  +N} 


Funktion 


A = RNO  (numerischer  Ausdruck) 

RND  erzeugt  eine  Zufallszahl  im  Bereich  zwischen  0 und  1.  Mit 
Hilfe  einer  einfachen  Formel  lassen  sich  daraus  Zufallszahlen 
innerhalb  eines  beliebigen  Bereichs  erzeugen:  UG+RND(l)*(OG- 
UG).  UG  steht  für  die  untere,  OG  für  die  obere  Grenze  des 
Bereichs.  1+RND(1)*9  beispielsweise  liefert  Zufallszahlen  im 
Bereich  zwischen  1 und  10. 

Das  Vorzeichen  des  numerischen  Ausdrucks  hinter  RND  legt 
fest,  welcher  Startwert  zur  Berechnung  der  Zufallszahlen  ge- 
nommen wird.  Ein  positiver  Wert  hat  zur  Folge,  daß  ein  intern 
im  ROM  des  Rechners  gespeicherter  Wert  als  Basis  genommen 
wird. 

Der  Wert  "Null"  sorgt  dafür,  daß  der  Basiswert  aus  einem  CIA- 
Register  geholt  wird,  wodurch  sich  wirklich  "zufällige"  Zahlen 
erzeugen  lassen. 

Bei  einem  negativen  Wert  schließlich  wird  in  Abhängigkeit  vom 
Wert  des  numerischen  Ausdrucks  selbst  ein  Basiswert  generiert. 
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RUN  {R<Shift>  +U} 


Befehl 


RUN  [Zeilennummer] 

RUN  startet  ein  im  Speicher  befindliches  BASIC-Programm. 
Ohne  Angabe  einer  Zeilennummer  hinter  RUN  wird  das  Pro- 
gramm von  Anfang  an  abgearbeitet;  andernfalls  wird  ab  der  an- 
gegebenen Zeile  begonnen.  Zuvor  werden  in  jedem  Fall  sämtli- 
che evtl,  aus  früheren  Programmläufen  noch  vorhandenen  Vari- 
ableninhalte gelöscht. 


SAVE  {S<Shift>  +A> 


Befehl 


SAVE  Name,  Geräteadresse  [.Sekundäradresse] 

SAVE  speichert  das  momentan  im  Speicher  befindliche  BASIC- 
Programm  auf  Kassette  (Geräteadresse  1)  oder  Diskette  (Gerä- 
teadresse 8).  Die  Sekundäradresse  hat  nur  beim  Speichern  auf 
Kassette  eine  Bedeutung.  Durch  Angabe  einer  2 oder  3 erreichen 
Sie,  daß  am  Ende  des  Speichervorgangs  zusätzlich  eine  Band- 
ende-Markierung geschrieben  wird. 


SGN  {S<Sh(ft>+G} 


Funktion 


A = SGN  (numerischer  Ausdruck) 

SGN  bestimmt  das  Vorzeichen  des  angegebenen  numerischen 
Ausdrucks.  Bei  positiven  Werten  wird  dabei  eine  1,  bei  negati- 
ven Werten  eine  -1  und  bei  einer  Null  eine  0 übergeben. 
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SIN  {S<Shift>  +l> 


Funktion 


A = SIN  (numerischer  Ausdruck) 

SIN  berechnet  den  Sinus  eines  im  Bogenmaß  angegebenen  nu- 
merischen Ausdrucks.  Die  auch  übliche  Angabe  in  Grad  läßt 
sich  durch  Multiplikation  mit  PI/ 180  ins  Bogenmaß  umrechnen. 


SPC  {S<Shrft>  +P} 


Funktion 


PRINT  SPC(Anzahl) 

SPC  in  Verbindung  mit  PRINT  verschiebt  den  Cursor  um  die 
angegebene  Anzahl  Spaltenpositionen  (0  bis  255)  nach  rechts. 
SPC  kann  beim  Aufbau  von  Bildschirmmasken  sehr  hilfreich 
sein. 


SQR  {S<Shift>  +Q} 


Funktion 


A = SQR  (numerischer  Ausdruck) 

SQR  berechnet  die  sog.  Quadratwurzel  des  angegebenen  nume- 
rischen Ausdrucks,  der  größer  oder  gleich  Null  sein  muß. 


ST  {-} 


Reservierte  Variable 


ST  ist  eine  reservierte  Variable,  die  nach  jeder  Ein-/Ausgabe- 
operation  den  aktuellen  Status  anzeigt,  etwa  "Dateiende  erreicht" 
oder  "Schreibfehler". 
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STEP  {ST<Shift>  + E} 


Befehl 


-►  FOR 


STOP  {S<Shift>  +T} 


Befehl 


STOP 

STOP  unterbricht  - ähnlich  der  <Stop>-Taste  - das  laufende 
Programm  und  kehrt  in  den  Direktmodus  zurück.  Sofern  Sie  das 
Programm  nicht  verändern,  können  Sie  es  anschließend  durch 
Eingabe  von  CONT  hinter  der  Unterbrechungsstelle  fortsetzen 
lassen.  STOP  kann  beim  Austesten  von  Programmen  sehr  hilf- 
reich sein,  etwa,  indem  man  sich  nach  STOP  bestimmte  Variab- 
leninhalte ausgeben  läßt. 


STR$  {ST<Shift>  +R} 


Funktion 


A$  = STR*  (numerischer  Ausdruck) 

STR$  wandelt  eine  Zahl  in  eine  Zeichenkette  um,  beispielsweise 
um  diese  anschließend  besser  formatieren  zu  können.  STR$  bil- 
det das  Gegenstück  zu  der  Funktion  VAL. 


SYS  {S<Shift>  +Y} 


Befehl 


SYS  Speicheradresse 

SYS  ruft  das  ab  der  angegebenen  Speicheradresse  (theoretisch  0 
bis  65.535)  beginnende  Maschinenprogramm  auf.  Nach  Abar- 
beitung des  Maschinenprogramms  wird  das  BASIC- Programm 
hinter  der  SYS-Anweisung  fortgesetzt.  Ergänzend  zu  SYS  gibt  es 
die  Funktion  USR,  mit  der  sich  Maschinenprogramme  in  BASIC 
als  Funktion  eingliedern  lassen. 
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TAB  {T<Shift>  +A} 


Funktion 


PRINT  TAB(Position) 

TAB  in  Verbindung  mit  PRINT  setzt  den  Cursor  auf  die  ange- 
gebene Spaltenposition  (0  bis  255).  Dazu  wird  der  Cursor  von 
seiner  momentanen  Position  aus  um  eine  entsprechende  Anzahl 
Schritte  nach  rechts  verschoben.  Als  Ergänzung  zu  TAB  gibt  es 
die  Funktion  SPC.  Beide  können  beim  Aufbau  von  Bildschirm- 
masken oder  Tabellen  sehr  hilfreich  sein. 


TAN  {-} 


Funktion 


A = TAN  (numerischer  Ausdruck) 

TAN  berechnet  den  Tangens  eines  im  Bogenmaß  angegebenen 
numerischen  Ausdrucks.  Die  auch  übliche  Angabe  in  Grad  läßt 
sich  durch  Multiplikation  mit  PI/ 180  ins  Bogenmaß  umrechnen. 


THEN  {T < Shrft>  +H}  Befehl 


-*•  IF 


Tl/Tl$  {-}  Reservierte  Variable 


TI  und  TIS  sind  zwei  reservierte  Variablen,  die  zum  Stellen  bzw. 
Lesen  der  internen  Uhr  des  C64  dienen.  Diese  Uhr  ist  allerdings 
rein  software-mäßig  realisiert  (sie  wird  über  den  Interrupt  wei- 
tergestellt) und  daher  in  der  Regel  sehr  ungenau.  Zum  Stellen 
der  Uhr  muß  TI$  ein  sechs  Zeichen  langer  String  übergeben 
werden:  TI$="HHMMSS".  "HH"  steht  für  die  Stunden,  "MM"  für 
die  Minuten,  "SS"  für  die  Sekunden.  "153020"  beispielsweise  stellt 
die  Uhr  auf  15  Uhr  30  Minuten  und  20  Sekunden.  Zum  Lesen 
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der  Uhr  können  Sie  TI$  oder  TI  verwenden.  TI$  enthält  die  ak- 
tuelle Uhrzeit  in  demselben  Format,  wie  beim  Stellen  der  Uhr, 
also  "HHMMSS".  TI  dagegen  enthält  die  Uhrzeit  in  1/60  Sekun- 
den und  eignet  sich  daher  zum  Messen  sehr  kurzer  Zeitabstände. 


USR  {U < Shlft>  +S} 


Funktion 


A = USR  (nuneri scher  Ausdruck) 

USR  erlaubt  den  Aufruf  eines  Maschinenprogramms  als  BASIC- 
Funktion.  Die  Adresse  des  Maschinenprogramms  muß  dazu  in 
den  Speicherzellen  785  und  786  abgelegt  werden.  Anschließend 
kann  USR  wie  jede  andere  BASIC-Funktion  verwendet  werden. 
Der  Wert  des  hinter  USR  angegebenen  numerischen  Ausdrucks 
wird  jeweils  an  das  Maschinenprogramm  übergeben,  von  diesem 
verarbeitet  und  schließlich  ein  Ergebniswert  an  BASIC  zurück- 
gegeben.  Danach  wird  das  BASIC- Programm  fortgesetzt. 


VAL  {V<Shift>  +A} 


Funktion 


A - VAL  (String-Ausdruck) 

VAL  wandelt  eine  in  einer  Zeichenkette  (in  Form  einer  Zei- 
chenfolge) enthaltene  Zahl  in  eine  "numerische"  Zahl  um,  um 
diese  beispielsweise  für  Berechnungen  heranziehen  zu  können. 
VAL  bildet  das  Gegenstück  zu  der  Funktion  STR$. 


VERIFY  {V<Shift>  +E} 


Befehl 


VERIFY  Name, Geräteadresse 

Falls  Sie  nach  einer  SAVE- Anweisung  nicht  ganz  sicher  sind,  ob 
das  Programm  korrekt  gespeichert  wurde,  können  Sie  dies  mit 
VERIFY  überprüfen  lassen.  VERIFY  vergleicht  das  momentan 
im  Rechner  befindliche  Programm  mit  dem  unter  dem  angege- 
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benen  Namen  auf  Kassette  oder  Diskette  gespeicherten.  Stimmen 
die  beiden  Programme  nicht  überein,  so  erscheint  die  Meldung 
VERIFY  ERROR,  ansonsten  OK. 


WAIT  {W<Shift>  +A} 


Befehl 


WAIT  Speicheradresse,  num.  Ausdruck  [,num.  Ausdruck] 

WAIT  verknüpft  den  Inhalt  der  angegebenen  Speicherzelle  (0  bis 
65.535)  mit  dem  dritten  Parameter  (falls  vorhanden)  durch  ein 
logisches  EXCLUSIV-ODER  und  anschließend  mit  dem  zweiten 
Parameter  durch  ein  logisches  UND.  Solange  sich  bei  diesen 
Verknüpfungen  der  Wert  "Null"  ergibt,  werden  sie  wiederholt, 
d.h.,  die  Programmausführung  wird  so  lange  angehalten,  bis  sich 
der  Inhalt  der  angesprochenen  Speicherzelle  verändert.  WAIT  ist 
eine  Anweisung,  die  man  nur  äußerst  selten  benötigt. 
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Anhang  A.2:  Fehlermeldungen 

Nachfolgend  finden  Sie  eine  vollständige  Liste  der  BASIC-2.0- 
Fehlermeldungen,  jeweils  mit  einer  Beschreibung  der  Fehlerur- 
sachen und  Tips  zur  Behebung  des  Fehlers. 

BAD  SUBSCRIPT  ERROR 

Der  Indexwert  einer  Feldvariablen  ist  größer  als  in  der  DIM- 
Anweisung  vereinbart,  oder  die  Anzahl  der  verwendeten  Indizes 
(bei  mehrdimensionalen  Feldern)  ist  falsch. 

BREAK  ERROR 

Während  eines  Lade-  oder  Speichervorgangs  (mittels  LOAD  bzw. 
SAVE)  wurde  die  <Stop>-Taste  gedrückt. 

CAN’T  CONTINUE  ERROR 

Sie  haben  versucht,  ein  zuvor  unterbrochenes  BASIC-Programm 
mittels  CONT  fortzusetzen.  Falls  Sie  vor  CONT  irgendwelche 
Veränderungen  am  Programm  vorgenommen  haben,  beispiels- 
weise durch  Eingabe  einer  neuen  Programmzeile,  so  bekommen 
Sie  diese  Fehlermeldung. 

DEVICE  NOT  PRESENT  ERROR 

Das  durch  einen  Ein-/Ausgabebefehl  (INPUT#,  PRINT#  usw.) 
angesprochene  Peripheriegerät  (Datasette,  Floppy,  Drucker,  usw.) 
ist  nicht  betriebsbereit.  Vielleicht  haben  Sie  auch  die  Gerä- 
teadresse verwechselt  (z.B.  für  die  Floppy  eine  "9"  statt  einer  "8" 
geschrieben).  Ein  Tippfehler,  der  einem  häufig  passiert! 

DIVISION  BY  ZERO  ERROR 

Es  wurde  versucht,  durch  "Null"  zu  dividieren,  was  mathema- 
tisch nicht  erlaubt  ist.  Dieser  Fehler  tritt  vor  allem  bei  komple- 
xeren Ausdrücken,  wie  etwa  A/(B*C*D*E),  auf.  Bei  diesem 
Ausdruck  genügt  es,  wenn  eine  der  Variablen  B,  C,  D oder  E 
"null"  wird.  Oft  wurde  auch  einfach  vergessen,  der  betreffenden 
Variablen  einen  Wert  zuzuweisen. 
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EXTRA  IGNORED  ERROR 

Sie  haben  bei  einer  INPUT- Abfrage  mehr  Eingaben  getätigt  als 
Variablen  hinter  dem  INPUT-Befehl  stehen.  Die  überzähligen 
Eingaben  werden  ignoriert,  das  Programm  jedoch  fortgesetzt! 
Dieser  Fehler  wird  häufig  durch  Texteingaben  verursacht,  die 
ein  Komma  oder  einen  Doppelpunkt  enthalten.  Diese  beiden 
Zeichen  werden  von  BASIC  nämlich  als  Trennzeichen  interpre- 
tiert. "BEISPIEL:  C64"  zum  Beispiel  wertet  der  Rechner  als 
"BEISPIEL"  und  "C64".  Durch  ein  vorangestelltes  Anführungs- 
zeichen (im  Beispiel:  ""BEISPIEL:  C64")  läßt  sich  dieses  Problem 
umgehen. 

FILE  DATA  ERROR 

Es  wurde  versucht,  aus  einer  Datei  Zeichenketten  in  eine  nume- 
rische Variable  einzulesen. 

FILE  NOT  FOUND  ERROR 

Die  in  einem  Floppy-Befehl  (z.B.  OPEN)  angegebene  Datei  exi- 
stiert auf  der  momentan  eingelegten  Diskette  nicht.  Oft  wurde 
einfach  der  Name  falsch  geschrieben. 

FILE  NOT  OPEN  ERROR 

Eine  durch  einen  Ein-/ Ausgabebefehl  angesprochene  Datei 
wurde  noch  nicht  (mittels  OPEN)  geöffnet  (oder  durch  CLOSE 
bereits  wieder  geschlossen). 

FILE  OPEN  ERROR 

Es  wurde  versucht,  eine  Datei  mit  OPEN  zu  öffnen,  die  bereits 
geöffnet  war. 

FORMULA  TOO  COMPLEX  ERROR 

Dieser  Fehler  wird  durch  zu  komplexe  String-Ausdrücke  verur- 
sacht, wie  zum  Beispiel  ""A"^'^^-^^’^^^)".  Ein  Zeichen- 
kettenausdruck darf  nicht  mehr  als  zwei  Teilausdrücke  in 
Klammern  enthalten. 
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ILLEGAL  DEVICE  NUMBER  ERROR 

Diese  Fehlermeldung  zeigt  an,  daß  ein  Befehl  an  ein  unzulässiges 
Gerät  gesendet  wurde,  beispielsweise  SAVE  oder  LOAD  zur  Ta- 
statur (Geräteadresse  0).  Wahrscheinlich  haben  Sie  sich  bei  der 
Geräteadresse  vertippt. 

ILLEGAL  DIRECT  ERROR 

Es  wurde  versucht,  einen  im  Direktmodus  unzulässigen  Befehl 
(unter  anderem  INPUT  und  GET)  dort  zu  verwenden. 

ILLEGAL  QUANTITY  ERROR 

Ein  mathematischer  Ausdruck  hat  einen  Wert  außerhalb  des  er- 
laubten Bereichs  ergeben.  Diese  Fehlermeldung  kann  sehr  viele 
Ursachen  haben,  etwa  ein  negativer  Wert  bei  einem  POKE-Be- 
fehl,  eine  Integer-Zahl  kleiner  als  -32.768  oder  eine  logische 
File-Nummer  größer  als  255. 

LOAD  ERROR 

Beim  Laden  eines  Programms  von  Datasette  oder  Floppy  trat  ein 
Fehler  auf. 

MISSING  FILENAME  ERROR 

Beim  LOAD-  oder  SAVE-Befehl  wurde  vergessen,  einen  Da- 
teinamen anzugeben. 

NEXT  WITHOUT  FOR  ERROR 

Der  BASIC-Interpreter  traf  auf  ein  NEXT,  ohne  zuvor  eine 
entsprechende  FOR-Anweisung  abgearbeitet  zu  haben.  Dieser 
Fehler  tritt  häufig  in  (evtl,  zu  stark)  verschachtelten  Schleifen 
auf. 

NOT  INPUT  FILE  ERROR 

Es  wurde  versucht,  aus  einer  nur  zum  Schreiben  geöffneten  Da- 
tei Daten  zu  lesen. 
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NOT  OUTPUT  FILE  ERROR 

Es  wurde  versucht,  in  eine  nur  zum  Lesen  geöffnete  Datei  Daten 
zu  schreiben. 

OUT  OF  DATA  ERROR 

In  einem  Programm  wurde  ein  READ-Befehl  angetroffen,  ohne 
daß  noch  DATA-Werte  vorhanden  sind.  Häufige  Ursachen:  Es 
wurde  vergessen,  den  Datazeiger  mittels  RESTORE  zurückzu- 
stellen. Zwischen  zwei  DATA-Werten  fehlt  das  trennende 
Komma. 

OUT  OF  MEMORY  ERROR 

Diese  Fehlermeldung  zeigt  an,  daß  nicht  mehr  genügend  BASIC- 
oder  Stack-Speicherplatz  vorhanden  ist.  In  den  meisten  Fällen 
wurden  entweder  Variablenfelder  zu  groß  dimensioniert  oder 
Schleifen  und  Unterprogrammaufrufe  zu  tief  verschachtelt.  Der 
Fehler  kann  allerdings  auch  beim  Nachladen  von  Maschinenpro- 
grammen auftreten.  In  allen  Fällen  empfiehlt  sich  die  Eingabe 
von  NEW,  um  schlimmeres  (wie  etwa  einen  Rechnerabsturz)  zu 
vermeiden. 

OVERFLOW  ERROR 

Bei  einer  Fließkomma-Berechnung  liegt  das  Endergebnis  oder 
ein  Zwischenergebnis  außerhalb  des  zulässigen  Wertebereichs. 


REDIM’D  ARRAY  ERROR 

Es  wurde  versucht,  ein  bereits  existierendes  Variablenfeld  noch 
einmal  zu  dimensionieren.  Innerhalb  eii|es  Programms  darf  ein 
Feld  nur  einmal  (mit  DIM)  dimensioniert  werden!  Zu  beachten 
ist  dabei  auch,  daß  Felder  beim  ersten  4uftauchen  eines  Felde- 
lementes innerhalb  des  Programms  automatisch  auf  11  Elemente 
vordimensioniert  werden,  sofern  sie  nicht  bereits  dimensioniert 
wurden. 
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REDO  FROM  START  ERROR 

Bei  einer  INPUT-Abfrage  wurde  statt  einer  Zahl  eine  Zeichen- 
kette eingegeben.  Die  INPUT-Abfrage  wird  deshalb  wiederholt, 
das  Programm  also  nicht  abgebrochen! 

RETURN  WITHOUT  GOSUB  ERROR 

Der  BASIC-Interpreter  traf  auf  ein  RETURN,  ohne  zuvor  eine 
GOSUB -Anweisung  abgearbeitet  zu  haben.  Häufige  Ursache: 
Am  Ende  des  Hauptprogramms  (vor  den  Unterprogrammen) 
wurde  vergessen,  eine  END-Anweisung  einzufügen. 

STRING  TOO  LONG  ERROR 

Es  wurde  versucht,  einer  String-Variablen  mehr  als  die  erlaubten 
255  Zeichen  (bzw.  beim  INPUT#-BefehI  mehr  als  88  Zeichen) 
zuzuweisen. 

SYNTAX  ERROR 

Diese  Fehlermeldung  zeigt  ganz  allgemein  an,  daß  eine  Anwei- 
sung von  BASIC  nicht  richtig  interpretiert  werden  konnte.  Die 
häufigste  Ursache  dafür  dürften  Tippfehler  sein.  Erscheint  die 
Meldung  nach  NEW  oder  RUN,  so  ist  das  erste  Byte  des  BASIC- 
Speichers  ungleich  Null.  "POKE  (PEEK(43)+PEEK(44)*256),0" 
sorgt  in  diesem  Fall  für  Abhilfe. 

TOO  MANY  FILES  ERROR 

Es  wurde  versucht,  mittels  OPEN  mehr  als  die  erlaubten  zehn 
logischen  Dateien  gleichzeitig  zu  öffnen. 

TYPE  MISMATCH  ERROR 

Es  wurde  versucht,  einer  numerischen  Variablen  einen  String- 
Ausdruck  zuzuweisen  oder  umgekehrt. 
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UNDEF’D  FUNCTION  ERROR 

In  einem  numerischen  Ausdruck  wurde  eine  Funktion  ange- 
sprochen, ohne  zuvor  mit  DEF  FN  definiert  zu  werden.  Viel- 
leicht wurde  nur  der  Name  der  Funktion  falsch  geschrieben. 

UNDEF’D  STATEMENT  ERROR 

Über  RUN,  GOTO  oder  GOSUB  wurde  versucht,  eine  im  Pro- 
gramm nicht  existierende  Programmzeile  anzuspringen. 

VERIFY  ERROR 

Diese  Fehlermeldung  zeigt  an,  daß  das  im  Rechnerspeicher  be- 
findliche Programm  mit  dem  bei  VERIFY  angegebenen  (und  auf 
Disk  oder  Kasette  gespeicherten)  Programm  nicht  identisch  ist, 
der  Speichervorgang  also  fehlerhaft  verlief.  Das  Programm  sollte 
auf  einer  anderen  Diskette  oder  Kasette  gespeichert  werden. 
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Anhang  B:  Assembler-Referenz 

Dieser  Anhang  enthält  eine  komplette  Übersicht  über  den  As- 
sembler-Befehlssatz des  Commodore  64.  Die  Sachgruppen-Kurz- 
übersicht  dient  zum  schnellen  Ermitteln  eines  bestimmten  Be- 
fehls. Ausführlichere  Informationen  zu  allen  Befehlen  finden  Sie 
dann  in  der  alphabetischen  Übersicht. 

Neben  der  Wirkung  des  Befehls  und  aller  möglichen  Adressie- 
rungsarten erfahren  Sie  dort  den  Code  und  die  Länge  des  Be- 
fehls, welche  Prozessor- Flags  er  beeinflußt  sowie  die  zu  seiner 
Abarbeitung  erforderlichen  Taktzyklen. 


Anhang  B.1:  Sachgruppen-Kurzübersicht 

Vergleichsbefehle 

CMP  Vergleicht  Speicherzelle  mit  Akku. 

CPX  Vergleicht  Speicherzelle  mit  X-Register. 

CPY  Vergleicht  Speicherzelle  mit  Y-Register. 

Sprungbefehle 

BCC  Verzweigt,  falls  das  Carry-Flag  gelöscht  ist. 

BCS  Verzweigt,  falls  das  Carry-Flag  gesetzt  ist. 

BEQ  Verzweigt,  falls  das  Zero-Flag  gelöscht  ist. 

BNE  Verzweigt,  falls  das  Zero-Flag  gesetzt  ist. 

BMI  Verzweigt,  falls  das  Negativ-Flag  gesetzt  ist. 

BPL  Verzweigt,  falls  das  Negativ-Flag  gelöscht  ist. 

B Verzweigt,  falls  das  Overflow-Flag  gelöscht  ist. 

BVS  Verzweigt,  falls  das  Overflow-Flag  gesetzt  ist. 

JMP  Verzweigt  zur  angegebenen  Adresse. 

JSR  Verzweigt  zur  angegebenen  Adresse  (Unterprogrammauf- 
ruf). 

NOP  Keine  Operation. 

RTS  Rücksprung  aus  Unterprogramm. 
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Unterbrechungsbefehle 

BRK  Programmunterbrechung. 

CLI  Interrupt-Flag  löschen. 

RTI  ROcksprung  aus  Interrupt. 

SEI  Interrupt-Flag  setzen. 

Transferbefehle 

LDA  Lädt  Akku  mit  angegebenem  Wert. 

LDX  Lädt  X-Register  mit  angegebenem  Wert. 

LDY  Lädt  Y-Register  mit  angegebenem  Wert. 

PHA  Bringt  Akku-Inhalt  auf  Stack. 

PHP  Bringt  Status -Register  auf  Stack. 

PLA  Lädt  Akku  mit  oberstem  Stack- Element. 

PLP  Lädt  Status-Register  mit  oberstem  Stack-Element. 
STA  Schreibt  Akku-Inhalt  in  angegebene  Speicherzelle. 
STX  Schreibt  X-Register  in  angegebene  Speicherzelle. 
STY  Schreibt  Y-Register  in  angegebene  Speicherzelle. 
TAX  Schreibt  Akku-Inhalt  ins  X-Register. 

TAY  Schreibt  Akku-Inhaltrins  Y-Register. 

TXA  Schreibt  X-Register-Inhalt  in  den  Akku. 

TYA  Schreibt  Y-Register-Inhalt  in  den  Akku. 

TSX  Schreibt  Stackpointer-Inhalt  ins  X-Register. 

TXS  Schreibt  X-Register-Inhalt  in  den  Stackpointer. 


In-/Dekrementierbefehle 

DEC  Dekrementiert  den  Inhalt  der  angegebenen  Speicherzelle. 
DEX  Dekrementiert  den  Inhalt  des  X-Registers. 

DEY  Dekrementiert  den  Inhalt  des  Y-Registers. 

INC  Inkrementiert  den  Inhalt  der  angegebenen  Speicherzelle. 
INX  Inkrementiert  den  Inhalt  des  X-Registers. 

INY  Inkrementiert  den  Inhalt  des  Y-Registers. 

Arithmetikbefehle 

ADC  Addiert  Operand  + Carry-Flag  zum  Akku-Inhalt. 

CLC  Carry-Flag  löschen. 

CLD  Dezimal-Flag  löschen. 

CLV  Overflow-Flag  löschen. 
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SBC  Subtrahiert  Operand  + Carry-Flag  vom  Akku-Inhalt. 

SEC  Carry-Flag  setzen. 

SED  Dezimal-Flag  setzen. 

Logische  Befehle 

AND  Verknüpft  Akku-Inhalt  mit  Operand  durch  logisches 

UND. 

BIT  Verknüpft  Akku-Inhalt  mit  Operand  durch  logisches 

UND  und  setzt  die  entsprechenden  Flags  des  Status-Re- 
gisters. 

EOR  Verknüpft  Akku-Inhalt  mit  Operand  durch  logisches 

EXCLUSIV-ODER. 

ORA  Verknüpft  Akku-Inhalt  mit  Operand  durch  logisches 

ODER. 

Schiebe-  und  Rotierbefehle 

ASL  Verschiebt  die  Bits  des  Operanden  um  eine  Stelle  nach 
links. 

LSR  Verschiebt  die  Bits  des  Operanden  um  eine  Stelle  nach 
rechts. 

ROL  Rotiert  die  Bits  des  Operanden  um  eine  Stelle  nach  links. 

ROR  Rotiert  die  Bits  des  Operanden  um  eine  Stelle  nach 
rechts. 
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Anhang  B.2:  Alphabetische  Übersicht 


ADC 

Add  with  carry 

Addiert  Operand  + Carry-Flag  zum  Akku- 

-Inhalt. 

Beeinflußte  Flags:  N V B 

D I 

Z C 

X X 

X X 

Adressierungsart  Schreibweise  Code 

Länge 

Taktzyklen 

Unmittelbar  ADC  #0p 

$69 

2 

2 

Absolut  ADC  Op 

$60 

3 

4 

Zeropage  ADC  Op 

$65 

2 

3 

Abs.-X-Indiziert  ADC  Op,X 

$7D 

3 

4 

Abs.-Y-Indiziert  ADC  Op,Y 

$79 

3 

4 

Zerop.-X- Indiziert  ADC  Op,X 

$75 

2 

4 

Indi rekt-X- Indi ziert  ADC  (Op,X) 

$61 

2 

6 

Indirekt-Y- Indiziert  ADC  (Op),Y 

$71 

2 

5 

AND 

AND  Accu 

Verknüpft  Akku-Inhalt  mit  Operand  durch  logisches  UND. 

Beeinflußte  Flags:  N V B 

D I 

Z C 

X 

X 

Adressierungsart  Schreibweise 

Code  Länge  Taktzyklen 

Unmittelbar  AND  #0p 

$29 

2 

2 

Absolut  AND  Op 

$2D 

3 

4 

Zeropage  AND  Op 

$25 

2 

3 

Abs. -X- Indi ziert  AND  Op,X 

$3D 

3 

4 

Abs.-Y-Indiziert  AND  Op,Y 

$39 

3 

4 

Zerop.-X- Indiz.  AND  Op,X 

$35 

2 

4 

Indirekt-X-Ind.  AND  (Op,X) 

$21 

2 

6 

Indirekt-Y-Ind.  AND  (Op),Y 

$31 

2 

5 

ASL 

Arithmetic  shift  left 

Verschiebt  die  Bits  des  Operanden  um  eine  Stelle  nach  links. 

Beeinflußte  Flags:  N V B D I Z C 

x xx 
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Adressierungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Akku 

ASL 

$0A 

1 

2 

Absolut 

ASL  Op 

$0E 

3 

6 

Zeropage 

ASL  Op 

$06 

2 

5 

Abs.-X-Indiziert 

ASL  Op,X 

$1E 

3 

7 

Zerop.-X- Indiz. 

ASL  Op,X 

$16 

2 

6 

BCC 

Branch  if  carry  clear 

Verzweigt,  falls  das  Carry-Flag  gelöscht  ist. 

BeeinfluBte  Flags:  N V B 

(Keine) 

D I Z 

c 

Adressierungsart  Schreibweise 

Code  Länge 

Taktzyklen 

Relativ  BCC  Op 

$90  2 

2 

BCS 

Branch  if  carry  set 

Verzweigt,  falls  das  Carry-Flag  gesetzt  ist. 

Beeinflußte  Flags:  N V B D I Z C 

(Keine) 

Adressierungsart  Schreibweise  Code  Länge  Taktzyklen 
Relativ  BCS  Op  $80  2 2 


BEQ  Branch  if  equal  to  zero 


Verzweigt,  falls  das  Zero-Flag  gelöscht  ist. 

Beeinflußte  Flags:  N V B D 1 Z C 

(Keine) 

Adressierungsart  Schreibweise  Code  Länge  Taktzyklen 
Relativ  BEQ  Op  $F0  2 2 
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BIT 


Test  bits 


Verknüpft  Akku-Inhalt  mit  Operand  durch  logisches  UND  und 
setzt  die  entsprechenden  Flags  des  Status-Registers. 

Beeinflußte  Flags:  N V B D I Z C 

xx  x 

Adressierungsart  Schreibweise  Code  Lange  Taktzyklen 

Absolut  BIT  Op  $2C  3 4 

Zeropage  BIT  Op  $24  2 3 


BNE 


Branch  if  not  equal  to  zero 


Verzweigt,  falls  das  Zero-Flag  gesetzt  ist. 

Beeinflußte  Flags:  N V B D I Z C 

(Keine) 

Adressierungsart  Schreibweise  Code  Länge  Taktzyklen 
Relativ  BNE  Op  $00  2 2 


BMI 


Branch  if  minus 


Verzweigt,  falls  das  Negativ-Flag  gesetzt  ist. 

Beeinflußte  Flags:  N V B D I Z C 

(Keine) 

Adressierungsart  Schreibweise  Code  Länge  Taktzyklen 
Relativ  BMI  Op  $30  2 2 


BPL 


Branch  if  plus 


Verzweigt,  falls  das  Negativ-Flag  gelöscht  ist. 

Beeinflußte  Flags:  N V B D I Z C 

(Keine) 

Adressierungsart  Schreibweise  Code  Länge  Taktzyklen 
Relativ  BPL  Op  $10  2 2 
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BRK 


Break 


Programmunterbrechung. 

Beeinf luBte  Flags:  N V B D I Z C 

x 

Adressierungsart  Schreibweise  Code  Länge  Taktzyklen 
Inplizit  BRK  $00  1 7 


B 


Branch  if  overflow  clear 


Verzweigt,  falls  das  Overflow-Flag  gelöscht  ist. 

Beeinflußte  Flags:  N V B D I Z C 

(Keine) 

Adressierungsart  Schreibweise  Code  Länge  Taktzyklen 
Relativ  BOp  $50  2 2 


BVS 


Branch  if  overflow  sei 


Verzweigt,  falls  das  Overflow-Flag  gesetzt  ist. 

Beeinflußte  Flags:  N V B D I Z C 

(Keine) 

Adressierungsart  Schreibweise  Code  Länge  Taktzyklen 
Relativ  BVS  Op  $70  2 2 


CLC 


Clear  carry 


Carry- Flag  löschen. 

Beeinflußte  Flags:  N V B D I Z C 

x 

Adressierungsart  Schreibweise  Code  Länge  Taktzyklen 
Implizit  CLC  $18  1 2 
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CLD 

Clear  decimal  mode 

Dezimal-Flag  löschen. 

Beeinflußte  Flags:  N V B 

D 

I Z 

c 

Adressierungsart  Schreibweise 

Code 

Länge 

Taktzyklen 

Implizit  CLD 

$08 

1 

2 

CLI 

Clear  Interrupt  flag 

Interrupt-Flag  löschen. 

Beeinflußte  Flags:  N V B 

D 

I Z 

c 

Adressierungsart  Schreibweise 

Code 

Länge 

Takt zyklen 

Implizit  CLI 

$58 

1 

2 

CLV 

Clear  overflow  flag 

Overflow-Flag  löschen. 

Beeinflußte  Flags:  N V B 

D 

I Z 

c 

Adressierungsart  Schreibweise 

Code 

Länge 

Takt zyklen 

Implizit  CLV 

$B8 

1 

2 

CMP 

Compare  with  accu 

Vergleicht  Speicherzelle  mit  Akku. 

Beeinflußte  Flags:  N V B 

D 

I Z 

c 

X 

X 

X 

Adressierungsart  Schreibweise 

Code 

Länge 

Taktzyklen 

Unmittelbar  CMP  JHOp 

$C9 

2 

2 

Absolut  CMP  Op 

$CD 

3 

4 

Zeropage  CMP  Op 

$C5 

2 

3 
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Abs.-X-Indiziert 

CMP  Op.X 

$0D 

3 

4 

Abs.-Y-Indiziert 

CMP  Op, Y 

$09 

3 

4 

Zerop.-X- Indiz. 

CMP  Op.X 

$05 

Z 

4 

Indirekt-X-Ind. 

CMP  (Op.X) 

$C1 

2 

6 

Indirekt-Y-Ind. 

CMP  (Op), Y 

$01 

2 

5 

CPX 

Compare  with  x-register 

Vergleicht  Speicherzelle  mit  X-Register. 

Beeinflußte  Flags:  N V B 

0 

I Z 

c 

X 

X 

X 

Adressierungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Unmittelbar 

CPX  «Op 

$E0 

2 

2 

Absolut 

CPX  Op 

$EC 

3 

4 

Zeropage 

CPX  Op 

$E4 

2 

3 

CPY 

Compare  with  y-register 

Vergleicht  Speicherzelle  mit  Y-Register. 


Beeinflußte  Flags:  N V B 

X 

D 

I Z 

X 

C 

X 

Adressierungsart  Schreibweise 

Code 

Länge 

Taktzyklen 

Unmittelbar 

CPY  «Op 

SCO 

2 

2 

Absolut 

CPY  Op 

$CC 

3 

4 

Zeropage 

CPY  Op 

$C4 

2 

3 

DEC  Decrement  memory 


Dekrementiert  den  Inhalt  der  angegebenen  Speicherzelle. 


Beeinflußte  Flags 

N V B 

D 

I Z 

C 

Adress i erungsart 

X 

Schreibweise 

Code 

X 

Länge 

Taktzyklen 

Absolut 

DEC  Op 

$CE 

3 

6 

Zeropage 

DEC  Op 

SC6 

2 

5 

Abs.-X-Indiziert 

DEC  Op.X 

$DE 

3 

7 

Zerop.-X- Indiz. 

DEC  Op.X 

$D6 

2 

6 
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DEX  Decrement  x-register 


Dekrementiert  den  Inhalt  des  X-Registers. 

Beeinflußte  Flags:  N V B D I Z C 

x x 

Adressierungsart  Schreibweise  Code  Länge  Taktzyklen 
Implizit  DEX  $CA  1 2 


DEY  Decrement  y-register 


Dekrementiert  den  Inhalt  des  Y-Registers. 

Beeinflußte  Flags:  N V B D I Z C 

x x 

Adressierungsart  Schreibweise  Code  Länge  Taktzyklen 
Implizit  DEY  $88  1 2 


EOR  exclusive-or  accu 


Verknüpft  Akku-Inhalt  mit  Operand  durch  logisches  EXCLU- 
SIV-ODER. 


Beeinflußte  Flags 

N V B 

D 

I Z 

C 

Adressierungsart 

X 

Schreibweise 

Code 

X 

Länge 

Taktzyklen 

Unmittelbar 

EOR  «Op 

$49 

2 

2 

Absolut 

EOR  Op 

$4D 

3 

4 

Zeropage 

EOR  Op 

$45 

2 

3 

Abs.-X-Indiziert 

EOR  Op,X 

$5D 

3 

4 

Abs.-Y-Indiziert 

EOR  Op,Y 

$59 

3 

4 

Zerop.-X- Indiz. 

EOR  Op,X 

$55 

2 

4 

Indirekt-X-Ind. 

EOR  (Op,X) 

$41 

2 

6 

Indi rekt-Y-Ind. 

EOR  <Op),Y 

$51 

2 

5 

Anhang 


915 


INC 

Increment  memory 

Inkrementiert  den  Inhalt  der  angegebenen  Speicherzelle. 

Beeinflußte  Flags:  N V B 

D 

I Z C 

X 

X 

Adressierungsart  Schreibweise 

Code 

Länge  Taktzyklen 

Absolut  INC  Op 

$EE 

3 

6 

Zeropage  INC  Op 

$E6 

2 

5 

Abs.-X-Indiziert  INC  Op,X 

$FE 

3 

7 

Zerop.-X-Indiz.  INC  Op,X 

$F6 

2 

6 

INX 

Increment  x-register 

Inkrementiert  den  Inhalt  des  X-Registers. 

Beeinflußte  Flags:  N V B 

D 

I Z C 

X 

X 

Adressierungsart  Schreibweise 

Code 

Lange  Taktzyklen 

Implizit  INX 

$E8 

1 

2 

INY 

Increment  y-register 

Inkrementiert  den  Inhalt  des  Y-Registers. 

Beeinflußte  Flags:  N V B 

D 

I Z C 

X 

X 

Adressierungsart  Schreibweise 

Code 

Länge  Taktzyklen 

Implizit  INY 

$C8 

1 

2 

JMP 

Jump 

Verzweigt  zur  angegebenen  Adresse. 

Beeinflußte  Flags:  N V B D I Z C 

(Keine) 
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Adress i erungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Indirekt 

JHP  (Op) 

S6C 

3 

5 

Absolut 

JHP  Op 

S4C 

3 

3 

JSR 

Jump  to  subroutine 

Verzweigt  zur  angegebenen  Adresse  (Unterprogrammaufruf). 

Beeinflußte  Flags 

N V B 
(Keine) 

D 

I Z 

c 

Adressierungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Absolut 

JSR  Op 

S20 

3 

6 

LDA 

Load  accu 

Lädt  Akku  mit  angegebenem  Wert. 

Beeinflußte  Flags 

N V B 

D 

I z 

c 

X 

X 

Adress i erungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Unmittelbar 

LDA  #0p 

$A9 

2 

2 

Absolut 

LDA  Op 

SAD 

3 

4 

Zeropage 

LDA  Op 

SA5 

2 

3 

Abs.-X-Indiziert 

LDA  Op,X 

SBD 

3 

4 

Abs.-Y-Indiziert 

LDA  Op,Y 

SB9 

3 

4 

Zerop.-X-Indiz. 

LDA  Op,X 

SB5 

2 

4 

Indirekt-X-Ind. 

LDA  (Op,X) 

SA1 

2 

6 

Indirekt-Y-Ind. 

LDA  (Op),Y 

SB1 

2 

5 

LDX 

Load  x-register 

Lädt  X-Register  mit  angegebenem  Wert. 

Beeinflußte  Flags:  N V B D I Z C 

x x 
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Adressierungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Unmittelbar 

LDX  #0p 

$A2 

2 

2 

Absolut 

LDX  Op 

SAE 

3 

4 

Zeropage 

LOX  Op 

$A6 

2 

3 

Abs.-Y-Indiziert 

LDX  Op,Y 

$BE 

3 

4 

Zerop.-Y-Indiz. 

LDX  Op,Y 

$86 

2 

4 

LDY 

Load  y-register 

Lädt  Y-Register  mit  angegebenem  Wert. 

Beeinflußte  Flags:  N V B 

D 

I Z 

C 

X 

X 

f 

Adressierungsart  Schreibweise 

Code 

Länge 

Taktzyklen 

Unmittelbar  LDY  #Op 

SAO 

2 

2 

Absolut  LDY  Op 

$AC 

3 

4 

Zeropage  LDY  Op 

SA4 

2 

3 

Abs.-X-Indiziert  LDY  Op,X 

SBC 

3 

4 

Zerop.-X-Indiz.  LDY  Op,X 

SB4 

4 

2 

LSR 

Logical  shift  right 

Verschiebt  die  Bits  des  Operanden  um 

eine  Stelle  nach  rechts. 

Beeinflußte  Flags:  N V B 

D 

l Z 

C 

X 

X 

X 

Adressierungsart  Schreibweise 

Code 

Länge 

Taktzyklen 

Akku  LSR 

S4A 

1 

2 

Absolut  LSR  Op 

S4E 

3 

6 

Zeropage  LSR  Op 

$46 

2 

5 

Abs.-X-Indiziert  LSR  Op,X 

S5E 

3 

7 

Zerop.-X-Indiz.  LSR  Op,X 

$56 

2 

6 

NOP 

No  Operation 

Keine  Operation. 

Beeinflußte  Flags:  N V B D I Z C 

(Keine) 
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Adressierungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Implizit 

NOP 

$EA 

1 

2 

ORA 

OR  accu 

Verknüpft  Akku-Inhalt  mit  Operand  durch  logisches  ODER. 

Beeinflußte  Flags 

N V B 

D 

I Z 

C 

X 

X 

Adressierungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Unmittelbar 

ORA  #Op 

$09 

2 

2 

Absolut 

ORA  Op 

$0D 

3 

4 

Zeropage 

ORA  Op 

$05 

2 

3 

Abs.-X-Indiziert 

ORA  Op,X 

$1D 

3 

4 

Abs. -Y- Indiziert 

ORA  Op,Y 

$19 

3 

4 

Zerop.-X- Indiz. 

ORA  Op,X 

$15 

2 

4 

Indirekt-X-Ind. 

ORA  (Op,X) 

$01 

2 

6 

Indirekt-Y-Ind. 

ORA  (Op),Y 

$11 

2 

5 

PHA 

Push  accu 

Bringt  Akku-Inhalt  auf  Stack. 

Beeinflußte  Flags 

N V 8 

D 

I Z 

C 

(Keine) 

Adressierungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Implizit 

PHA 

$48 

1 

3 

PHP 

Push  processor-status 

Bringt  Status-Register  auf  Stack. 

Beeinflußte  Flags:  N V B D I Z C 

(Keine) 

Adressierungsart  Schreibweise  Code  Lange  Taktzyklen 
Implizit  PHP  $08  1 3 
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PLA 

Pull  accu 

Lädt  Akku  mit  oberstem  Stack- Element. 

Beeinflußte  Flags:  N V B D I Z 

c 

X X 

Adressierungsart  Schreibweise  Code  Länge 
Implizit  PLA  $68  1 

Taktzyklen 

3 

PLP 

Pull  processor-status 

Lädt  Status-Register  mit  oberstem  Stack-Element. 

Beeinflußte  Flags:  N V B D I Z 

c 

X X X X X X 

Adressierungsart  Schreibweise  Code  Länge 
Implizit  PLP  $28  1 

X 

Taktzyklen 

4 

ROL 

Rotate  left 

Rotiert  die  Bits  des  Operanden  um  eine  Stelle  nach  links. 


Beeinflußte  Flags 

: N V B 

D 

I Z 

C 

X 

X 

X 

Adressierungsart 

Schreibweise 

Code 

Lange 

Taktzyklen 

Akku 

ROL 

$2A 

1 

2 

Absolut 

ROL  Op 

$2E 

3 

6 

Zeropage 

ROL  Op 

$26 

2 

5 

Abs.-X-Indiziert 

ROL  Op,X 

$3E 

3 

7 

Zerop.-X- Indiz. 

ROL  Op,X 

$36 

2 

6 

ROR 

Rotate  right 

Rotiert  die  Bits  des  Operanden  um  eine  Stelle  nach  rechts. 

Beeinflußte  Flags:  N V B D I Z C 

x xx 
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Adressierungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Akku 

ROR 

$6A 

1 

2 

Absolut 

ROR  Op 

$6E 

3 

6 

Zeropage 

ROR  Op 

$66 

2 

5 

Abs.-X-Indiziert 

ROR  Op,X 

$7E 

3 

7 

Zerop.-X- Indiz. 

ROR  Op,X 

$76 

2 

6 

RTI 

Return  from  interrupt 

Rücksprung  aus  Interrupt. 

Beeinflußte  Flags:  N V B 

D 

I Z 

c 

XXX 

X 

X X 

X 

Adressierungsart  Schreibweise 

Code 

Lange 

Taktzyklen 

Implizit  RTI 

$40 

1 

6 

RTS 

Return  from  subroutine 

Rücksprung  aus  Unterprogramm. 

Beeinflußte  Flags:  N V B 

D 

I Z 

c 

(Keine) 

Adressierungsart  Schreibweise 

Code 

Länge 

Taktzyklen 

Implizit  RTS 

$60 

1 

6 

SBC 

Substract  with  carry 

Subtrahiert  Operand  + Carry-Flag  vom  Akku-Inhalt. 

Beeinflußte  Flags:  N V B 

D 

I Z 

c 

X X 

X 

X 

Adressierungsart  Schreibweise 

Code 

Länge 

Takt zyklen 

Unmittelbar  SBC  #0p 

$E9 

2 

2 

Absolut  SBC  Op 

SED 

3 

4 

Zeropage  SBC  Op 

$E5 

2 

3 

Abs.-X-Indiziert  SBC  Op,X 

$FD 

3 

4 

Abs. -Y- Indiziert  SBC  Op,Y 

$F9 

3 

4 

Zerop.-X- Indiz.  SBC  Op,X 

$F5 

2 

4 

Indirekt-X-Ind.  SBC  (Op,X) 

SEI 

2 

6 

Indirekt-Y-Ind.  SBC  (Op),Y 

$F1 

2 

5 
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SEC 

Set  carry 

Carry-Flag  setzen. 
Beeinflußte  Flags:  N V B 

Adressierungsart  Schreibweise 
Implizit  SEC 

D 

Code 

*38 

I Z 

Länge 

1 

C 

X 

Takt zyklen 
2 

SED 

Set  decimal  mode 

Dezimal-Flag  setzen. 

Beeinflußte  Flags: 

N V B 

D 

I Z 

C 

Adressi  erungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Implizit 

SED 

SF8 

1 

2 

SEI 

Set  Interrupt 

Interrupt-Flag  setzen. 

Beeinflußte  Flags: 

N V B 

D 

I Z 

C 

Adress i erungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Implizit 

SEI 

$78 

1 

2 

STA 

Store  accu 

Schreibt  Akku-Inhalt  in  angegebene  Speicherzelle. 

Beeinflußte  Flags: 

N V B 

D 

I Z 

C 

(Keine) 

Adressierungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Absolut 

STA  Op 

S8D 

3 

4 

Zeropage 

STA  Op 

*85 

2 

3 

Abs.-X-Indiziert 

STA  Op,X 

*9D 

3 

5 

Abs.-Y-Indiziert 

STA  Op, Y 

*99 

3 

5 

Zerop.-X-Indiz. 

STA  Op,X 

*95 

2 

4 

Indirekt-X-Ind. 

STA  (Op,X) 

*81 

2 

6 

Indirekt-Y-Ind. 

STA  (Op),Y 

*91 

2 

6 
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STX 


Store  x-register 


Schreibt  X-Register  in  angegebene  Speicherzelle. 


Beeinflußte  Flags: 

N V B 
(Keine) 

D 

I Z 

C 

Adressierungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Absolut 

STX  Op 

$8E 

3 

4 

Zeropage 

STX  Op 

$86 

2 

3 

Zerop.-Y-Indiz. 

STX  Op,Y 

$96 

2 

4 

STY 


Store  y-register 


Schreibt  Y-Register  in  angegebene  Speicherzelle. 


Beeinflußte  Flags: 

N V B 
(Keine) 

D 

I Z 

C 

Adress i erungsart 

Schreibweise 

Code 

Länge 

Taktzyklen 

Absolut 

STY  Op 

$BC 

3 

4 

Zeropage 

STY  Op 

$84 

2 

3 

Zerop.-X- Indiz. 

STY  Op,X 

$94 

4 

2 

TAX 


Transfer  accu  to  x-register 


Schreibt  Akku-Inhalt  ins  X-Register. 

Beeinflußte  Flags:  N V B D I Z C 

x x 

Adressierungsart  Schreibweise  Code  Länge  Taktzyklen 
Implizit  TAX  $AA  1 2 


TAY 


Transfer  accu  to  y-register 


Schreibt  Akku-Inhalt  ins  Y-Register. 

Beeinflußte  Flags:  N V B D I Z C 

x x 
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Adressierungsart  Schreibweise  Code  Länge  Taktzyklen 
Implizit  TAY  $A8  1 2 


TXA 

Transfer  x-register  to  accu 

Schreibt  X-Register-Inhalt  in  den  Akku. 

Beeinflußte  Flags:  N V B 

X 

Adressierungsart  Schreibweise 
Implizit  TXA 

D I Z C 

X 

Code  Länge  Taktzyklen 
$8A  1 2 

TYA 

Transfer  y-register  to  accu 

Schreibt  Y-Register-Inhalt  in  den  Akku. 

Beeinflußte  Flags:  N V B 

X 

Adressierungsart  Schreibweise 
Implizit  TYA 

D I Z C 
X 

Code  Länge  Taktzyklen 
$98  1 2 

TSX 

Transfer  Stackregister  to  x-register 

Schreibt  Stackpointer-Inhalt  ins  X-Register. 

Beeinflußte  Flags:  N V B 

X 

Adressierungsart  Schreibweise 
Implizit  TSX 

D l Z C 
X 

Code  Länge  Taktzyklen 
$BA  1 2 

TXS 

Transfer  x-register  to  Stackregister 

Schreibt  X-Register-Inhalt  in  den  Stackpointer. 

Beeinflußte  Flags:  N V B D I Z C 

(Keine) 

Adressierungsart  Schreibweise  Code  Länge  Taktzyklen 
Implizit  TXS  S9A  1 2 
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Anhang  C:  Die  GEOS-Sprungtabelle 

Viellecht  kennen  Sie  ja  bereits  die  Sprungtabelle  die  Ihr  C64  be- 
nutzt. Siehe  im  Anhang  "Alphabetisches  Verzeichnis  aller  ROM- 
Routinen". 

Eine  solche  Sprungtabelle  gibt  es  auch  in  GEOS.  Sie  liegt  im 
Speicher  ab  $C100.  Über  diese  Tabelle  können  alle  wichtigen 
Aktionen  des  GEOS-Kernal  benutzt  werden.  Zusätzlich  besteht 
eine  große  Wahrscheinlichkeit,  daß  bei  neuen  Versionen  des 
GEOS-Kernal  die  Routinen  der  Sprungtabelle  problemlos  wei- 
terbenutzt werden  können.  So  haben  sich  beispielsweise  von 
GEOS  Vl.l  über  VI. 2 zu  GEOS  VI. 3 viele  Routinen  geändert 
oder  liegen  an  anderen  Adressen.  Die  Tabelleneinträge  zeigen 
aber  immer  noch  auf  die  gleichen  Routinen. 

Auf  den  folgenden  Seiten  finden  Sie  nicht  nur  die  Sprungtabelle 
abgedruckt,  sondern  auch  die  Funktion  und  Übergabeparameter 
der  Routinen.  Wenn  Sie  sich  einen  disassemblierten  Ausdruck 
des  GEOS-Kernal  erstellen,  können  Sie  sich  diese  Routinen  ge- 
nau anschauen  und  damit  problemlos  arbeiten.  Halten  Sie  sich 
bei  eigenen  Programmen  unbedingt  an  die  Sprungtabelle,  damit 
Ihr  Programm  auch  bei  neueren  Versionen  von  GEOS  voll  funk- 
tionstüchtig bleibt. 


C100 


InterruptMain 


Hier  steht  ein  Sprung  zum  GEOS-IRQ.  Normalerweise  erledigt 
GEOS  die  IRQ-Abarbeitung  von  selbst.  Ein  solcher  IRQ  findet 
alle  1/50  Sekunde  statt  (Rasterzeilen-Interrupt).  Dabei  werden 
die  folgenden  Arbeiten  erledigt: 

1.  Maus  bewegen  und  deren  Bereich  testen. 

2.  Timergruppe  A dekrementieren  (Multi-Tasking-Jobs). 

3.  Timergruppe  B dekrementieren  (Delay- Jobs). 

4.  Cursor  bedienen,  falls  das  7.  Bit  in  $84B4  gesetzt  ist  ("Alpha- 
Flag"). 
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5.  In  $850 A (Low)  und  $850B  (High)  eine  Zufallszahl  erzeugen. 
Diese  Werte  können  durch  JSR  GetRandom  ausgelesen  wer- 
den (GetRandom=$C  187). 


C103 


InitProcesses 


Jobs  vom  Typ  A (s.  InterruptMain)  in  Job-Puffer  1 schreiben. 

Akku  Anzahl  der  Jobs  (maximal  20!) 

$02, $03  Adresse  der  Tabelle 


Diese  Tabelle  muß  folgenden  Aufbau  haben: 


Job- Adresse  (Job  1)  Low 
Job- Adresse  High 
Timer-Wert  Low 
Timer-Wert  High 
Job-Adresse  (Job  2)  Low 
Job- Adresse  High 
Timer-Wert  Low 
Timer-Wert  High 


und  so  weiter.  In  diese  Tabelle  trägt  man  Jobs  ein,  die  immer 
wieder  ausgeführt  werden  sollen.  Der  zugehörige  Timer-Wert 
entscheidet  über  die  Häufigkeit  der  Ausführung.  Dazu  wird  vom 
GEOS-Kernal  jedem  Job  ein  Status-Byte  zugeordnet,  mit  dem 
Jobs  aktiviert  und  inaktiviert  werden  können.  Der  IRQ  zählt  die 
zugehörigen  Timer-Werte  (sie  bilden  die  Timer-Gruppe  "A", 
siehe  $C100)  auf  "0"  herunter  und  gibt  den  Job  dann  zur  Abar- 
beitung durch  die  GEOS-Main-Loop  (siehe  $C1C3)  frei.  Somit 
können  rein  rechnerisch  Timer- Werte  zwischen  1/50  Sekunde 
(Timer- Wert=$0001)  und  ca.  21  Stunden,  50  Minuten  (Timer- 
Wert=$FFFF)  programmiert  werden.  Die  einzelnen  Bits  im  Sta- 
tus-Byte haben  folgende  Bedeutung: 

Bit  5 Wenn  dieses  Bit  gesetzt  ist,  zählt  der  IRQ  den  zu- 

gehörigen Timer  nicht  weiter  herunter.  Der  Job 
ist  damit  auf  dem  augenblicklichen  Stand  einge- 
froren (FREEZE). 
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Bit  6 Verhindert,  daß  der  Job  ausgeführt  wird,  auch 

wenn  der  Timer- Wert  abgelaufen  ist  (BLOCK). 

Bit  7 Wird  vom  IRQ  als  Zeichen  dafür  gesetzt,  daß  der 

zugehörige  Timer  abgelaufen  ist.  Dadurch  kann 
der  Job  von  der  Hauptschleife  abgearbeitet  wer- 
den. Diese  setzt  sofort  Bit  7 zurück  (Disable)  und 
startet  den  zugehörigen  Prozeß.  Durch  das  Zu- 
rücksetzen wird  eine  erneute  Abarbeitung  verhin- 
dert (siehe  auch  $C109=EnableProcess). 

Durch  InitProcesses  werden  die  Jobs  nur  eingetragen.  Da  aber 
hierbei  Bit  5 (FREEZE)  gesetzt  wird,  werden  vom  IRQ  noch 
nicht  die  Timer  gezählt.  Dazu  muß  jeder  Job  erst  zur  Bearbei- 
tung freigegeben  werden  (RestartProcess=$C106).  Wichtig  ist, 
daß  man  diese  Jobs  alle  auf  einmal  eintragen  muß.  Ein  nach- 
trägliches Zufügen  von  Jobs  ist  nicht  vorgesehen.  Damit  wird 
diese  Routine  immer  zu  dem  Initialisierungsteil  eines  Programms 
gehören. 


C106 


RestartProcess 


Löscht  Bit  5 und  Bit  6 im  Status-Byte  und  trägt  die  Timer- 
Werte  ein.  Dadurch  wird  jede  Blockierung  aufgehoben  (UN- 
FREEZE  und  UNBLOCK).  Die  zugehörige  Job-Nummer  wird 
im  X-Register  übergeben. 


C109 


EnableProcess 


Obwohl  die  Jobs  normalerweise  durch  heruntergezählte  Timer 
gestartet  werden,  kann  jeder  Job  durch  EnableProcess  auch  "von 
Hand"  gestartet  werden.  Der  Timer- Wert  des  durch  das  X-Regi- 
ster bezeichneten  Jobs  wird  sofort  auf  Null  gesetzt.  Beim  näch- 
sten Durchlauf  der  Hauptschleife  wird  dann  dieser  Job  ausge- 
führt. 
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C10C 


BlockProcess 


Setzt  Bit  6 im  Status- Byte  des  im  X-Register  übergebenen  Jobs. 
Dadurch  werden  zwar  die  Timer-Werte  weiter  dekrementiert, 
dieser  Job  aber  bei  "0"  dennoch  nicht  ausgeführt. 


C10F 


UnblockProcess 


Gegenstücke  zu  BlockProcess.  Job-Blockierung  durch  Löschen 
von  Bit  6 im  Status-Byte  aufheben.  Die  Job-Nummer  muß  im 
X-Register  übergeben  werden.  Mit  der  Länge  des  blockierten 
Zeitraumes  wächst  die  Wahrscheinlichkeit,  daß  inzwischen  die 
Timer-Werte  vom  IRQ  heruntergezählt  worden  sind.  In  diesem 
Fall  wird  der  Job  beim  nächsten  Durchlauf  der  MainLoop  ab- 
gearbeitet. 


C112 


FreezeProcess 


Durch  das  Setzen  des  Bit  5 wird  der  Prozeß  mit  seinem  aktuellen 
Timer-Stand  eingefroren.  Das  X-Register  muß  die  Job-Nummer 
enthalten. 


C115 


UnfreezeProzess 


Löscht  Bit  S im  Status-Byte  des  im  X-Register  übergebenen 
Jobs.  Dadurch  werden  die  vorher  gestoppten  Timer-Werte  wei- 
tergezählt. Auch  beim  Aufruf  dieser  Routine  muß  das  X-Regi- 
ster die  Job-Nummer  enthalten. 
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Grafikbibliothek 

Bei  der  Benutzung  der  Grafikroutinen  hat  das  Byte  $2F  ent- 
scheidend Einfluß  darauf,  wohin  Informationen  geschrieben  oder 
von  wo  sie  geholt  werden.  Abhängig  von  $2F  werden  nämlich 
die  Zeiger  auf  die  einzelnen  Bildschirme  gesetzt.  Folgende  Werte 
für  $2F  sind  vorgesehen: 

$80  Ausgabe  nur  auf  sichtbaren  Bildschirm  ($A000) 

$40  Ausgabe  nur  auf  unsichtbaren  Bildschirm  ($6000) 

$C0  Ausgabe  auf  beide  Bildschirme  ($C0=$80  OR  $40) 


C118 

HorizontalLine 

Zieht  eine  waagerechte  Linie  auf  dem  hochauflösenden  Grafik- 
bildschirm (vorher  in  $2F  den  Bildschirm  auswählen!). 

Parameter 

Akku 

$08,$09 

$0A,$0B 

$18 

X-Werte 

Y-Wert 

Die  Bits  bestimmen  direkt  das  Strichmuster 
Linke  Grenze  (Low,High) 

Rechte  Grenze  (Low.High) 

Y-Position  der  Linie 
(0-319) 

(0-199) 

C11B 

InvertLine 

Invertiert  eine  waagerechte  Linie  auf  dem  Grafikbildschirm 
(vorher  in  $2F  den  Bildschirm  auswählen!). 

Parameter 

$08,$09  Linke  Grenze  (Low,High) 

$0A,$0B  Rechte  Grenze  (Low,High) 

$18  Y-Position  der  Linie 
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X-Wert  (0-319) 
Y-Wert  (0-199) 


C11E 

RecoverUne 

Holt  eine  Linie  aus  dem  zweiten  Bildschirm  (ab  $6000)  auf  den 
sichtbaren  Bildschirm  zurück.  Wird  beispielsweise  benutzt,  um 
beim  Abbau  von  Menüs  den  ursprünglichen  Bildschirm  wieder- 
herzustellen. 

$08,$09 

$0A,$0B 

$18 

Linke  Grenze  (Low,High) 
Rechte  Grenze  (Low,High) 
Y-Position  der  Linie 

C121 

VerticalUne 

Zieht  eine 
wählen!). 

senkrechte  Linie  (vorher  in  $2F  den  Bildschirm  aus- 

Akku 

$08 

$09 

$0A 

$0B 

Muster  der  Linie 
O+berere  Grenze 
Untere  Grenze 
Position  Low 
X-Position  High 

C124 

Rectangle 

Füllt  ein  Rechteck  mit  einem  Muster  (vorher  in  $2F  den  Bild- 
schirm auswählen!). 

$06  Obere  Grenze 

$07  Untere  Grenze 
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$08  ,$09  Linke  Grenze  (Low.High) 

$0A,$0B  Rechte  Grenze  (Low.High) 

$22,23  Zeiger  auf  das  Muster 

Das  Muster  muß  aus  8 Bytes  bestehen  und  somit  eine  8x8- 
Punkte-Matrix  ergeben.  Durch  vorherigen  Aufruf  der  Routine 
"SetPattern"  ($C139)  kann  auf  einfache  Art  eins  der  34  fertigen 
Muster  des  Kernal  vorgegeben  werden.  Dazu  muß  SetPattern  im 
Akku  die  Nummer  des  gewünschten  Musters  (0-33)  übergeben 
werden. 


C127 


FrameRectangle 


Malt  einen  rechteckigen  Rahmen  (vorher  in  $2F  den  Bildschirm 
auswählen!). 

Akku  Die  Bits  des  Akkus  ergeben  das  Muster. 

$06  Obere  Grenze 

$07  Untere  Grenze 

$08  ,$09  Linke  Grenze  (Low,High) 

$0A,$0B  Rechte  Grenze  (Low,High) 


C12A 


InvertRectangle 


Invertiert  ein  Rechteck  (vorher  in  $2F  Bildschirm  auswählen!). 

$06  Obere  Grenze 

$07  Untere  Grenze 

$08  ,$09  Linke  Grenze  (Low,High) 

$0A,$0B  Rechte  Grenze  (Low,High) 


Anhang 


931 


C12D 


RecoverRectangle 


Holt  ein  Rechteck  aus  dem  zweiten  Bildschirm  zurück.  Wird 
beispielsweise  benutzt,  um  beim  Abbau  von  Fenstern  den  ur- 
sprünglichen Bildschirminhalt  wiederherzustellen. 

$06  Obere  Grenze 

$07  Untere  Grenze 

$08,$09  Linke  Grenze  (Low,High) 

$0A,$0B  Rechte  Grenze  (Low, High) 


CI  30 


DrawLine 


Diese  Routine  zieht  eine  beliebig  orientierbare  Linie.  Sie  ist  da- 
her wesentlich  flexibler  als  "HorizontalLine"  oder  "VerticalLine", 
aber  auch  erheblich  langsamer.  Vor  ihrem  Aufruf  muß  in  $2F 
der  Bildschirm  ausgewählt  werden. 


$08  X-Position  Punkt  1 Low 

$09  X-Position  Punkt  1 High 

$0A  X-Position  Punkt  2 Low 

$0B  X-Position  Punkt  2 High 

$18  Y-Position  Punkt  1 

$19  Y-Position  Punkt  2 


Zusätzlich  bestimmen  folgende  Status-Bits  beim  Einsprung  die 
Ausführung  dieser  Funktion: 

Bit  T (Negativ-Flag) = 1 

Dann  ist  Bit  0 (Carry-Flag)  ohne  Bedeutung.  In  diesem  Fall  wird 
die  Linie  vom  zweiten,  unsichtbaren  Bildschirm  auf  den  sicht- 
baren Bildschirm  kopiert. 

Mit  dieser  Funktion  kann  GEOPAINT  ein  UNDO  realisieren. 
Die  aktuelle  Aktion  erfolgt  nur  auf  dem  sichtbaren  Bildschirm. 
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Soll  sie  widerrufen  werden,  wird  dieselbe  Funktion  noch  einmal 
in  diesem  Modus  (Bit  7=1)  auf  gerufen.  Dadurch  wird  genau  der 
veränderte  Teil  des  Bildschirms  vom  zweiten  Bildschirm  geholt 
und  in  den  sichtbaren  kopiert. 

Bit  7 (Negativ-Flag) = 0 

In  diesem  Fall  entscheidet  das  Carry- Flag  folgendermaßen: 

Carry-Flag=1  zieht  eine  Linie 
Carry- Flag=0  löscht  eine  Linie 

Bei  diesem  Modus  muß  wieder  der  gewünschte  Bildschirm  in 
$2F  eingetragen  werden. 


C133 


DrawPoint 


Diese  Routine  zeichnet  einen  Punkt  oder  kopiert  ihn  vom  Hin- 
tergrundbildschirm auf  den  sichtbaren  Bildschirm.  Es  gelten  die 
gleichen  Bedingungen  wie  bei  "DrawLine"  (Status-Bits,  $2F). 


$08 

X- Position  Punkt  Low 

$09 

X-Position  Punkt  High 

$18 

Y-Position  Punkt  Low 

$19 

Y-Position  Punkt  High 

C136 

GraphicsString 

Führt  vorher  definierte  Grafik-Jobs  aus  einer  Tabelle  aus.  In 
$02,$03  wird  ein  Zeiger  auf  eine  Tabelle  übergeben,  die  die  ge- 
wünschten Job-Nummern  enthält. 

Hinter  der  Job-Nummer  folgen  jeweils  direkt  die  nötigen  Daten 
für  den  Job.  Das  Ende  der  Tabelle  muß  durch  die  Job-Nummer 
0 gekennzeichnet  werden. 


Anhang 


933 


Job-Nummer  0 = RTS  = Ende 
Job-Nummer  1 = GetStartPoint 

Funktion:  3 Bytes  holen  und  diese  dann  nach  $87D4  (X- 

Low),$87D5(X-High),$87D6  (Y)  schreiben.  Diese 
Koordinaten  werden  bei  den  folgenden  Jobs  als 
Ausgangspunkt  benutzt.  Beispielsweise  muß  bei 
der  folgenden  Routine  Job-Nummer  2 zuerst  Job 
(1)  auf gerufen  werden,  dann  kann  DrawLineTo- 
Point  benutzt  werden. 

Job-Nummer  2 = DrawLineToPoint 

Funktion:  Die  vorher  von  Job  1 eingetragenen  Koordinaten 

nach  $08,  $09,  $18  übernehmen  und  Job  1 aus- 
führen, um  noch  die  Koordinaten  eines  weiteren 
Punktes  zu  holen  (drei  Bytes).  Dann  diese  neuen  3 
Bytes  nach  $0A,  $0B,  $19  schreiben.  An- 

schließend wird  DrawLine  mit  gesetztem  Carry- 
und  gelöschtem  V-Flag  auf  gerufen  (siehe  $C130). 

Job-Nummer  3 = Rectangle 

Funktion:  Holt  eine  zweite  Koordinate  (3  Bytes).  Berechnet 

aus  den  beiden  Punkten  ein  Rechteck  und  füllt 
dieses  mit  dem  derzeit  aktuellen  Muster. 

Voraussetzung  für  den  Aufruf  von  Job  3:  Mit  Job  1 die  Koordi- 
naten des  ersten  Eckpunktes  festlegen  und  mit  Job  5 das  ge- 
wünschte Muster  auswählen.  Dann  kann  FillArea  auf  gerufen 
werden.  Beispiel  für  eine  Tabelle,  die  mit  Job  3 ein  Rechteck 
von  PI  zu  P2  mit  einem  Muster  füllt: 

$03,02  = Zeiger  auf  Tabelle  = $1000 


Anschließend:  JSR  GraphicsString 


Daten  in  der  Tabelle: 

$1000  - $01  GetStartPoint  (PI) 
$1001  - $0A  X-Loh  von  PI 
$1002  - $00  X-High  von  PI 
$1003  - $10  Y von  PI 
$1004  - $05  SetPattern 
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$1005  - $01 
$1006  - $03 
$1007  - $50 
$1008  - $00 
$1009  - $60 
$100A  - $00 


Musternumner  (schwarz) 
FillArea 
X-Low  von  P2 
X-High  von  P2 
Y von  P2 
Tabellenende 


Job  4 = NOP 

Dieser  Job  bewirkt  nichts.  Danach  wird  die  Tabelle  einfach 
weiter  abgearbeitet. 


Job  5 = SetPattern 

Funktion:  Das  folgende  Byte  gibt  die  Nummer  des  ge- 

wünschten Musters  an  (0-33).  Über  das  Aussehen 
der  Muster  können  Sie  sich  bei  GEOPAINT  in 
der  Musterleiste  informieren. 

Job  6 = PutString 

Funktion:  Gibt  an  einer  bestimmten  Position  einen  Text  aus. 

Benötigt  werden  drei  Bytes  für  die  Position:  X- 
Low,  X-High,  Y und  ein  folgender  2-Byte-Zeiger 
auf  den  Text.  Der  Text  muß  mit  "0"  abgeschlossen 
sein. 

Job  7 = FrameRectangle 

Funktion:  Einen  rechteckigen  Rahmen  zeichnen.  Benötigt 

werden  wieder  die  drei  Bytes,  die  die  Position  des 
zweiten  Punktes  P2  angeben.  PI  muß  durch  Job- 
Nummer  1 gesetzt  sein. 

Job  8 = XOffset 

Funktion:  Erhöht  die  X-Koordinaten  von  PI  um  den  ange- 

gebenen Wert.  Benötigt  werden  die  zwei  Bytes  X- 
Low,  X-High. 

Job  9 = YOffset 

Funktion:  Erhöht  die  Y-Koordinaten  von  PI  um  den  ange- 

gebenen Wert.  Benötigt  wird  ein  Byte  (Y). 
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Job  10  = XYOffset 

Funktion:  Wie  Job  8 und  Job  9.  Benötigt  werden  drei  Bytes 

X-Low,  X-High,  Y. 


C139 


SetPattern 


Zeiger  auf  gewünschtes  Muster  setzen.  Die  Nummer  des  Musters 
wird  im  Akku  übergeben  (0-33).  Über  das  Aussehen  der  Muster 
können  Sie  sich  bei  GEOPAINT  in  der  Musterleiste  informieren. 


C13C 


GetScanLine 


Berechnet  die  Startadresse  der  Zeile,  deren  Nummer  (0-199)  im 
X-Register  übergeben  wird.  Das  Ergebnis  steht  in  $0C/$0D  für 
den  sichtbaren  und  in  $0E/$0F  für  den  unsichtbaren  Bildschirm 
(vorher  in  $2F  den  (die)  Bildschirm(e)  auswählen!). 


C13F 


TestPoint 


Testet  einen  Grafikpunkt. 

$08,$09  X-Position 

$18  Y-Position 

Ist  der  Punkt  gesetzt,  wird  das  Carry- Flag  gesetzt,  andernfalls 
gelöscht.  $2F  entscheidet,  auf  welcher  Bildschirmseite  getestet 
wird. 
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C142 


BitmapUp 


Zeichnet  ein  Bild  beliebiger  Größe.  Mit  dieser  Routine  werden 
beispielsweise  die  Icons  im  Desktop  gezeichnet.  Es  müssen  fol- 
gende Parameter  übergeben  werden: 


$02,$03 

Adresse  der  Daten  des  Bildes 

$04 

X-Position  (0-39) 

$05 

Y-Position  (0-199) 

$06 

Breite  des  Bildes  in  Bytes 

$07 

Höhe  des  Bildes  in  Zeilen 

Die  X-Position  kann  also  nur  in  8-Bit-Schritten  angegeben  wer- 
den und  wird  automatisch  mit  8 multipliziert.  Die  Grafikdaten 
müssen  in  einer  für  GEOS  spezifischen  Art  und  Weise  kompri- 
miert vorliegen.  Ein  typisches  Beispiel  hierfür  sind  die  Daten  ei- 
nes Icons  im  Info-Sektor  einer  Datei.  Hier  die  notwendigen  In- 
formationen zu  dem  benutzten  Format: 

Grafikdaten  werden  in  GEOS  nicht  linear  abgelegt,  da  dies  viel 
zu  viel  Speicher  in  Anspruch  nehmen  würde.  Statt  dessen  wird 
die  Tatsache  ausgenutzt,  daß  in  den  meisten  Grafiken  ganze 
Byte-Folgen  gleichartig  aufgebaut  sind.  Diese  Byte-Folgen  kön- 
nen nun  aber  zusammengefaßt  werden,  wodurch  man  je  nach 
Bildinhalt  einige  KByte  Speicher  einsparen  kann.  Dies  funktio- 
niert jedoch  nur  dann  rentabel,  wenn  man  sich  von  dem  durch 
die  Hardware  des  64er  festgelegten  Zusammenhang  zwischen 
Grafikdaten  und  Speicherstellen  löst  und  die  Daten  zeilenweise 
zusammenfaßt.  Die  Hardware  des  64er  faßt  nämlich  immer  8 im 
Speicher  aufeinanderfolgende  Bytes  zu  einem  auf  dem  Bild- 
schirm untereinanderliegenden  Grafikblock  zusammen.  Man 
kann  sich  nun  leicht  vorstellen,  daß  die  Grafikdaten  einer  waa- 
gerechten Grafikzeile  eher  ein  sich  wiederholendes  Muster  auf- 
weisen,  als  die  Daten  mehrerer  solcher  untereinanderliegender 
Achter-Blocks.  Um  Daten  komprimieren  zu  können,  benötigt 
man  bestimmte  Steuer-Bytes,  die  sich  mit  den  Grafikdaten  ab- 
wechseln. In  GEOS  werden  Grafikdaten  durch  ein  Steuer-Byte 
eingeleitet,  das  folgende  Werte  annehmen  kann: 
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0 

1-127 


128-220 


221-255 


Ende  der  Grafikdaten 

Der  angegebene  Wert  entscheidet  darüber,  wie  oft 
das  als  nächstes  angegebene  Byte  wiederholt  dar- 
gestellt werden  soll.  Im  Extremfall  kann  hiermit  also 
auch  wieder  eine  unkomprimierte  Grafik  abgelegt 
werden.  Dazu  muß  sich  das  Steuer-Byte  mit  dem 
Wert  "1"  immer  mit  einem  Byte  der  Grafikdaten  ab- 
wechseln. Dadurch  würde  sich  natürlich  der  benö- 
tigte Speicherplatz  genau  verdoppeln.  Tauchen  aber 
in  einer  Grafik  große,  ungemusterte  Flächen  auf, 
können  mit  diesem  Steuerzeichen  maximal  127  Bytes 
auf  nur  2 Bytes  komprimiert  werden  (also  auf  nur 
noch  ca.  1.6%  des  ursprünglichen  Speicherplatzbe- 
darfes!). 

Der  angegebene  Wert,  vermindert  um  128,  gibt  an, 
wie  viele  Daten  nun  folgen,  die  direkt  als  Grafikda- 
ten übernommen  werden  sollen.  Hierdurch  können 
komplizierte  Grafiken,  die  keine  sinnvolle  Daten- 
kompression erlauben,  abgespeichert  werden.  Der 
Speicherplatzverlust  durch  Steuerzeichen  wird  hier- 
durch auf  ein  akzeptables  Maß  begrenzt.  Schließlich 
wäre  es  ja  auch  möglich,  solche  Daten  mit  dem 
Steuerzeichen  "1"  zu  speichern  (s.o.). 

Solche  Steuerzeichen  sind  etwas  komplizierter  aufge- 
baut. In  GEOS  hat  man  es  geschafft,  sogar  Grafik- 
muster zu  komprimieren,  die  sich  nicht  auf  ein  Byte 
beschränken.  Um  dieses  Steuerzeichen  richtig  inter- 
pretieren zu  können,  muß  man  es  erst  einmal  um  220 
vermindern.  Der  Wert,  der  dabei  übrigbleibt,  gibt  an, 
wie  viele  Bytes  das  sich  wiederholende  Muster  ins- 
gesamt auf  weist.  Natürlich  fehlt  noch  die  Informa- 
tion darüber,  wie  oft  dieses  Muster  wiederholt  wer- 
den soll.  Aus  diesem  Grund  findet  man  im  nächsten 
Byte  noch  keine  Grafikdaten,  sondern  ein  weiteres 
Steuer-Byte.  Dieses  Steuer-Byte  gibt  nun  an,  wie  oft 
das  Muster  wiederholt  werden  soll.  Erst  jetzt  folgen 
die  Grafikdaten,  die  wiederum  (Ihnen  bleibt  aber 
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auch  nichts  erspart)  in  einem  der  ersten  beiden  For- 
mate vorliegen  müssen.  Somit  taucht  das  erste  Gra- 
fik-Byte erst  nach  drei  Steuerzeichen  auf. 


CI  45 


PutC  har 


Gibt  den  Wert  im  Akku  an  der  aktuellen  Position  als  ASCII- 
Zeichen  aus.  Zeichen  kleiner  als  dez.  32  ($20)  werden  als  Steu- 
erzeichen interpretiert  (siehe  ASCII-Tabelle  im  Anhang).  Ungül- 
tige Werte  führen  zum  Absturz  des  Rechners. 


C148 


PutString 


PutString  gibt  eine  Zeichenkette  mit  dem  aktuellen  Zeichensatz 
aus.  Die  Steuerzeichen  zur  Änderung  des  Zeichensatzes  (siehe 
ASCII-Tabelle  im  Anhang)  werden  ignoriert.  Alle  anderen 
Steuerzeichen  werden  jedoch  akzeptiert. 

Parameter 

$02/$03  Adresse  des  auszugebenden  Textes,  der  mit  Null  en- 
den muß. 

$05  Y-Position  für  die  Ausgabe 

$18/18  X-Position  für  die  Ausgabe 


C14B 


UseSystemFont 


Schaltet  auf  den  residenten  BSW-9-Point-Font  des  Betriebssy- 
stems um.  Es  werden  keine  Parameter  benötigt. 
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C14E 


StartMouseMode 


Initialisiert  die  Mausabfrage.  Ist  das  Carry-Flag  gesetzt  und  steht 
in  $18/$  19  ein  Wert  ungleich  "0",  so  werden  $18/$  19  als  neue 
Mausposition  (X)  und  der  Inhalt  des  Y-Registers  als  neue  Maus- 
position (Y)  übernommen.  Die  Mausgeschwindigkeit  wird  auf  0 
gesetzt.  Unabhängig  vom  Carry-Flag  wird  die  Menüabfrage  in- 
itialisiert. 


C151 


DoMenu 


Diese  Routine  erstellt  ein  komplettes  Pull-Down-Menü.  Norma- 
lerweise gehört  ein  Aufruf  von  DoMenu  zu  jeder  Initialisie- 
rungsroutine einer  Application  in  GEOS.  Dabei  müssen  die  fol- 
genden Parameter  übergeben  werden: 

$02,$03  Zeiger  auf  eine  Datentabelle 

Aufbau  der  Datentabelle  (Format  des  Menüs): 


Byte  0 

Y-Position  oben 

Byte  1 

Y-Position  unten 

Byte  2 

X-Position  links  Low 

Byte  3 

X-Position  links  High 

Byte  4 

X-Position  rechts  Low 

Byte  5 

X-Position  rechts  High 

Byte  6 

Status-Byte  (siehe  unten) 

Byte  7 

Zeiger  auf  Menübegriff  1 Low 

Byte  8 

Zeiger  auf  Menübegriff  1 High 

Byte  9 

Aufbau-Flag  (siehe  unten) 

Byte  10 

Pointer  für  Menüpunkt  1 Low  (siehe  unten) 

Byte  11 

Pointer  für  Menüpunkt  1 High 

Weiter  wie 

ab  Byte  7 für  alle  weiteren  Menüpunkte  (maximal 

15).  Das  Status-Byte  (Byte  6)  existiert  nur  für  das  Hauptmenü 
und  hat  den  folgenden  Aufbau: 
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Bit  0-4  Anzahl  der  Hauptmenüpunkte 

Bit  6 1,  Die  Maus  kann  die  Menügrenzen  nicht  verlassen. 

0,  Maus  ist  frei  beweglich. 

Bit  7 1,  Menüpunkte  stehen  untereinander,  sonst  ne- 

beneinander wie  im  Desktop,  GEOPAINT,  etc... 

Die  Bits  des  Aufbau-Flags  haben  die  folgende  Bedeutung: 

Bit  7 1,  dann  zeigt  der  Pointer  dieses  Menüpunktes  (also 

z.B.  Byte  10  und  11  für  den  1.  Hauptmenüpunkt)  auf 
die  Daten  eines  Submenü,  das  wiederum  eine  voll- 
ständige Menüstruktur  auf weisen  muß.  Auf  diese 
Weise  können  maximal  3 geschachtelte  Untermenüs 
mit  je  15  Einträgen  erstellt  werden. 

Bit  7 0 und  Bit  6 = 0,  der  Pointer  dieses  Menüpunktes 

zeigt  auf  die  Einsprungadresse  der  ausgewählten 
Routine. 

Wichtig! 

Nach  dem  Einsprung  in  die  eigene  Routine  baut  sich  das  Menü 
nicht  selbständig  wieder  ab.  Dem  Anwender  wird  so  in  seinem 
Programm  die  Möglichkeit  gegeben,  selbst  zu  entscheiden,  was 
mit  dem  derzeitigen  Menüstatus  geschehen  soll.  Im  einfachsten 
Fall  kann  man  durch  den  Aufruf  der  Funktion  GotoFirstMenu  = 
$C1BD  den  Abbau  aller  Untermenüs  veranlassen.  Soll  jedoch  das 
zuletzt  angewählte  Untermenü  noch  weitere  Auswahlmöglich- 
keiten zulassen,  kann  dies  durch  den  Aufruf  der  Funktion  Re- 
DoMenu  = $C193  erreicht  werden. 

Möchte  man  jedoch  die  Auswahl  eines  weiteren  Menüpunktes  im 
derzeit  übergeordneten  Menü  zulassen,  kann  dies  durch  den 
Aufruf  der  Funktion  DoPreviousMenu  = $C190  geschehen.  In 
jedem  Fall  muß  eine  dieser  Routinen  vor  dem  Ende  des  eigenen 
Programms  durch  RTS  aufgerufen  werden.  Nähere  Angaben  zu 
diesem  Thema  finden  Sie  auch  bei  der  Behandlung  der  einzelnen 
Routinen. 

Bit  7 0 und  Bit  6 = 1,  der  Pointer  des  Menüpunktes  zeigt 

auch  hier  auf  eine  Einsprungadresse.  Nachdem  die 
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ab  dort  beginnende  Routine  abgearbeitet  worden  ist 
und  mit  RTS  endet,  wird  ein  weiteres  Submenü  er- 
stellt. Der  Zeiger  auf  die  Daten  dieses  Submenüs 
muß  vor  dem  RTS  in  $02, $03  eingetragen  werden. 

Hierdurch  können  Jobs  ausgeführt  werden,  während  das  Menü 
aktiv  ist.  Damit  ist  der  Programmierer  nicht  gezwungen,  die 
komplette  Menüstruktur  bis  zum  letzten  Submenü  schon  von 
vornherein  festzulegen.  Der  Font-Editor  benutzt  diese  Funktion 
zum  Beispiel,  um  die  vorhandenen  Point-Höhen  für  den  ange- 
wählten Zeichensatz  zu  laden,  bevor  er  sie  im  Menü  anzeigt.  Die 
einzelnen  Menübegriffe  müssen  alle  mit  "0"  abgeschlossen  sein. 


C154 


RecoverMenu 


Sorgt  dafür,  daß  beim  Abbau  des  zuletzt  ausgeklappten  Menüs 
der  ursprüngliche  Bildschirmaufbau  wiederhergestellt  wird.  Im 
Normalfall  braucht  sich  der  Anwender  um  diese  Funktion  nicht 
zu  kümmern,  da  sie  Bestandteil  der  Routinen  ist,  die  ein  Menü 
abbauen  (DoPreviousMenu,  GotoFirstMenu).  Ist  der  Vektor 
$84B1/$84B2  gleich  Null,  dann  wird  beim  Abbau  eines  Menüs 
der  Hintergrund  einfach  weiß  eingefärbt  (nicht  sehr  sinnvoll). 
Andernfalls  muß  in  den  beiden  Speicherstellen  die  Adresse  einer 
Routine  stehen,  die  den  Hintergrund  wiederherstellt.  Bei  der 
normalen  Warmstart-Konfiguration  von  GEOS  steht  hier  ein 
Sprung  auf  die  Routine  RecoverRectangle  (siehe  auch  dort). 
Diese  holt  aus  dem  unsichtbaren  Bildschirm  die  original  Grafik- 
daten des  vom  Menü  überschriebenen  Bereiches  und  kopiert  sie 
in  den  sichtbaren  Bildschirm. 

Da  ein  Menü  nur  auf  dem  sichtbaren  Bildschirm  ausgegeben 
wird,  kann  das  Bild  auf  diese  Art  restauriert  werden.  Falls  aber 
nicht  genügend  Platz  für  eine  vollständige  Kopie  des  Bildschirms 
ab  $6000  vorhanden  ist  (wie  z.B.  bei  GEOPAINT),  kann  man 
den  Vektor  $84B1/$84B2  auch  auf  eine  eigene  Routine  umbie- 
gen. Diese  muß  dafür  sorgen,  daß  die  vom  Menü  überschriebe- 
nen Daten  vor  dem  Ausklappen  in  irgendeiner  Form  gerettet 
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und  beim  Abbau  wieder  auf  den  sichtbaren  Bildschirm  geschrie- 
ben werden.  Falls  möglich,  sollte  man  jedoch  mit  einem  Hinter- 
grundbildschirm arbeiten,  da  einem  in  diesem  Fall  die  Program- 
mierung der  Rettungsroutinen  erspart  bleibt. 


Ci  57  RecoverAIIMenus 


Baut  nacheinander  alle  heruntergeklappten  Untermenüs  ab.  Dazu 
wird  RecoverMenu  (s.o.)  als  Unterprogramm  benutzt. 

Parameter 

$84B1/$84B2  siehe  RecoverMenu 


C15A 


Dolcons 


Erstellt  anklickbare  Bilder  wie  beispielsweise  das  Diskettensym- 
bol im  DESKTOP.  Genauso  wie  DoMenu  wird  auch  Dolcons  in 
den  meisten  Fällen  Bestandteil  einer  Programm-Initialisierung 
sein.  Die  Icon-Funktion  ist  ebenso  wie  die  Menüverwaltung  in 
GEOS  "event  driven".  Der  Anwender  teilt  also  dem  Betriebssy- 
stem in  einer  Tabelle  mit,  welche  Routinen  beim  Anklicken  be- 
stimmter Icons  ausgeführt  werden  sollen.  Nach  dieser  Initiali- 
sierung muß  das  Programm  mit  einem  RTS  enden,  damit  die 
GEOS-Hauptschleife  die  Kontrolle  übernehmen  kann. 


Parameter 

$02, $03  Adresse  der  Tabelle  (Low/High) 


Aufbau  der  Tabelle: 


Byte  0 
Byte  1/2 
Byte  3 
Byte  4/5 


Anzahl  der  gewünschten  Klickfelder 
Gewünschte  X-Mausposition  (Low/High) 
Gewünschte  Y-Mausposition  für  jedes  Klickfeld 
Zeiger  auf  das  Muster  (Low/High) 
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Byte  6 X-Position  des  linken  Randes  des  Icons  (0-39) 

Byte  7 Y-Position  des  oberen  Randes  des  Icons  (0-199) 

Byte  8 Breite  des  Icons  in  Bytes 

Byte  9 Höhe  des  Icons  in  Zeilen 

Byte  10/11  Job- Adresse  bei  Klick  (Low/High) 

Ab  hier  wie  Byte  4- 1 1 für  alle  weiteren  Icons. 

Nach  dem  Zeichnen  der  Bilder  auf  dem  Bildschirm  werden  die 
Klickfelder  aktiviert  und  ständig  auf  Anklicken  getestet. 

Sollte  ein  bestimmtes  Icon  angeklickt  worden  sein,  so  ruft  die 
GEOS-Hauptschleife  das  in  den  entsprechenden  Stellen  eingetra- 
gene Unterprogramm  auf  (für  das  erste  Icon  muß  diese  Adresse 
also  in  Byte  10  und  1 1 der  Tabelle  stehen). 

Hier  wird  nun  der  gewünschte  Vorgang  ausgeführt  und  an- 
schließend mit  RTS  wieder  zur  Hauptschleife  zurückgekehrt. 

Innerhalb  der  Routine  können  aus  den  Speicherstellen  $02  und 
$03  die  folgenden  Informationen  ausgelesen  werden: 

$02  Nummer  des  angeklickten  Icons  (0  bis  N).  Dies  ist 

sehr  nützlich,  falls  alle  Icons  bis  auf  unterschiedliche 
Parameter  die  gleiche  Funktion  ausführen  sollen. 

In  einem  solchen  Fall  kann  man  nämlich  für  alle 
Icons  die  gleiche  Job-Adresse  eintragen  und  hier 
durch  Auswertung  der  Speicherstelle  $02  Icon-spezi- 
fische  Korrekturen  der  Parameter  vornehmen. 

$03  $FF,  dann  ist  das  Icon  zweimal  kurz  hintereinander 

angeklickt  worden  (Doppelklick). 

$03  $00,  dann  ist  das  Icon  nur  einmal  oder  mit  zu  gro- 

ßem zeitlichen  Abstand  zweimal  angeklickt  worden. 
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Ferner  kann  der  Anwender  durch  das  Einträgen  bestimmter 
Werte  in  die  Speicherstelle  $84B5  entscheiden,  ob,  und  wenn  ja, 
wie  das  Anklicken  eines  Icons  dem  Benutzer  mitgeteilt  werden 
soll: 

Bit  6 = 0 und  Bit  7 = 0: 

In  diesem  Fall  wird  einfach  nur  die  angegebene 
Routine  angesprungen.  Am  Aussehen  des  Icons  än- 
dert sich  also  beim  Anklicken  nichts. 

Bit  6 = 0/1  und  Bit  7 = 1: 

Dann  wird  das  Icon  für  einen  kurzen  Augenblick  in- 
vertiert und  anschließend  zurückinvertiert. 

Dieses  Verfahren  findet  zum  Beispiel  bei  den  OK- 
oder  CANCEL-Icons  Verwendung. 

Bit  6 = 1 und  Bit  7 = 0: 

Bei  dieser  Einstellung  wird  das  angeklickte  Icon  in- 
vertiert. Beispiel:  File-Icons  im  DESKTOP. 


C15D 


DShiftLeft 


Das  X-Register  muß  auf  eine  2-Byte-Adresse  auf  der  Zeropage 
zeigen,  deren  Inhalt  so  oft  um  ein  Byte  nach  links  geschoben 
wird,  wie  es  der  Inhalt  des  Y-Registers  angibt  (jedesmal  * 2). 


C160 


BBMult 


Multipliziert  2 einzelne  Bytes  auf  der  Zeropage.  Als  Zeiger  auf 
diese  Bytes  dienen  das  X-  und  das  Y- Register. 

Das  Low-Byte  des  Ergebnisses  steht  anschließend  in  der  durch 
das  X-Register  bezeichneten  Speicherstelle,  das  High-Byte  be- 
findet sich  direkt  dahinter. 
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C163 


BMult 


Multipliziert  2-Byte-Wert  (Wort)  mit  einem  Byte. 

Parameter 

X-Register  Zeigt  auf  Zeropage-Adresse,  die  das  Wort  enthält. 

Y-Register  Zeigt  auf  Zeropage-Adresse,  die  das  Byte  enthält. 

Das  16-Bit-Ergebnis  steht  anschließend  in  den  durch  das  X-Re- 
gister bezeichneten  Speicherstellen  (Low/High). 


C166 


DMult 


Multipliziert  einen  2-Byte-Wert  (Wort)  mit  2-Byte-Wert  (Wort). 
Parameter 

X-Register  Zeigt  auf  Zeropage-Adresse,  die  Wort  1 enthält 

Y-Register  Zeigt  auf  Zeropage-Adresse,  die  Wort  2 enthält. 

Das  16-Bit-Ergebnis  steht  anschließend  in  den  durch  das  X-Re- 
gister bezeichneten  Speicherstellen  (Low/High). 


CI  69 


DDiv 


Dividiert  einen  2-Byte-Wert  (Wort)  durch  2-Byte-Wert  (Wort). 
Parameter 

X-Register  Zeigt  auf  Zeropage-Adresse,  die  Wort  1 enthält. 

Y-Register  Zeigt  auf  Zeropage-Adresse,  die  Wort  2 enthält. 
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Das  16-Bit-Ergebnis  steht  anschließend  in  den  durch  das  X-Re- 
gister  bezeichneten  Speicherstellen  (Low/High). 

Falls  bei  der  Division  ein  Rest  auftritt,  wird  dieser  in  $12/13 
(Low/High)  abgelegt.  Damit  ist  in  GEOS  auch  eine  Modulo- 
Funktion  verfügbar. 


C16C 


DSdiv 


Diese  Funktion  unterscheidet  sich  von  DDiv  nur  darin,  daß  die 
beiden  Argumente  als  vorzeichenbehaftet  (signed)  angesehen 
werden. 

Damit  kann  ein  16-Bit-Wort  Werte  zwischen  -32768  und  +32767 
annehmen,  während  ein  "normales"  16-Bit-Wort  (unsigned)  zwi- 
schen 0 und  6S53S  liegt  (jeweils  einschließlich). 

Parameter 
Siehe  DDiv. 


C16F 


Dabs 


Berechnet  aus  einer  vorzeichenbehafteten  16-Bit-Zahl  ihren 
Absolutwert. 

Parameter 

X-Register  Zeigt  auf  die  Zeropage-Adresse,  die  das  vorzei- 
chenbehaftete Wort  enthält. 

Das  16-Bit-Ergebnis  steht  anschließend  in  den  durch  das  X-Re- 
gister bezeichneten  Speicherstellen  (Low/High). 
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C172 


Dnegate 


Bewirkt  eine  Vorzeichenumkehr  bei  einem  vorzeichenbehafteten 
16-Bit-Wort. 

X-Register  Zeigt  auf  die  Zeropage-Adresse,  die  das  vorzei- 
chenbehaftete Wort  enthält. 

Das  16-Bit-Ergebnis  steht  anschließend  in  den  durch  das  X-Re- 
gister  bezeichneten  Speicherstellen  (Low/High). 


C175 


Ddec 


Vermindert  ein  nicht  vorzeichenbehaftetes  16-Bit-Wort  um  eins. 

X-Register  Zeigt  auf  die  Zeropage-Adresse,  die  das  vorzei- 
chenbehaftete Wort  enthält. 

Das  16-Bit-Ergebnis  steht  anschließend  in  den  durch  das  X-Re- 
gister bezeichneten  Speicherstellen  (Low/High). 


C178 


ClearRam 


Füllt  einen  Speicherbereich  mit  "0". 

Parameter 

$02,$03  Anzahl  Bytes,  die  gelöscht  werden  sollen 
$04,$05  Startadresse  des  zu  löschenden  Bereiches 
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C17B 

FillRam 

Füllt  einen 

Speicherbereich  mit  dem  Wert  aus  $06. 

Parameter 

$02, $03 

Anzahl  Bytes 

$04, $05 

Startadresse 

$06 

Schreibwert 

C17E 

MoveData 

Transportiert  einen  Speicherbereich  an  die  angegebene  Adresse. 

Parameter 

$02  ,$03 

Ursprungsadresse 

$04,$05 

Zieladresse 

$06,$07 

Anzahl  Bytes 

C181 

InitRam 

Kopiert  Speicherblöcke,  die  in  einer  Tabelle  näher  bezeichnet 
werden  müssen.  In  $02, $03  muß  der  Zeiger  auf  diese  Tabelle 
übergeben  werden.  Diese  Routine  ist  sehr  nützlich,  um  in  einer 
Initialisierungsroutine  bestimmte  Speicherstellen  mit  Startwerten 
vorzubelegen. 

Aufbau  der  Tabelle 

Byte  0/1  Zieladresse  (Low/High) 

Byte  2 Anzahl  der  Bytes  in  diesem  Block 
Byte  3 ab  hier  steht  der  Datenblock 
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Hinter  dem  Datenblock  geht  es  weiter  wie  bei  Byte  0 für  den 
nächsten  Block.  Das  Ende  der  Tabelle  muß  durch  die  Zieladresse 
$0000  gekennzeichnet  werden. 


CI  84 


PutDecimal 


Mit  Hilfe  dieser  Routine  kann  eine  16-Bit-Dezimalzahl  ausgege- 
ben werden  (vorher  in  $2F  den  Bildschirm  auswählen!). 

Parameter 

$02/$03  16-Bit-Zahl,  die  ausgegeben  werden  soll  (Low/High) 
$05  Y-Position,  an  der  die  Ausgabe  stattfinden  soll 

$18/$19  Dito  für  die  X-Position  (Low/High) 

Akku  Bit  7 = 1:  Dann  erfolgt  die  Ausgabe  linksbündig,  an- 
dernfalls rechtsbündig. 

Bit  6 = 1:  Um  führende  Nullen  zu  unterdrücken 
Bits  0-5:  Müssen  Angaben  über  die  Breite  des  ge- 
wünschten Ausgabefeldes  (0  bis  63)  enthalten,  falls 
die  Ausgabe  rechtsbündig  erfolgen  soll  (Bit  7 = 0). 


C187 


GetRandom 


Erzeugt  in  den  Speicherstellen  $850A/$850B  eine  Art  Zufalls- 
zahl, die  zwischen  0 und  65220  (incl.)  liegen  kann.  Der  Wert 
wird  durch  einen  einfachen  Algorithmus  erzeugt  und  kann  daher 
nicht  als  echte  Zufallszahl  angesehen  werden. 


C18A 


MouseUp 


Schaltet  die  Maus  nach  einem  MouseOff  wieder  ein.  Sämtliche 
Mausparameter  entsprechen  dem  Zustand  vor  dem  Aufruf  von 
MouseOff. 
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C18D 


MouseOff 


Schaltet  die  Mausfunktion  aus  und  löscht  den  Mauspfeil. 


C190 


DoPreviousMenu 


Baut  das  zuletzt  ausgeklappte  Untermenü  wieder  ab  und  erlaubt 
eine  erneute  Auswahlmöglichkeit  aus  dem  übergeordneten  Menü. 
Bevor  diese  Routine  auf  gerufen  wird,  muß  die  Mausposition  auf 
ein  Feld  innerhalb  des  übergeordneten  Menüs  gesetzt  werden. 
Andernfalls  befindet  sich  die  Maus  ja  außerhalb  der  Menüfel- 
der, was  nach  einem  Aufruf  von  DoPreviousMenu  zu  einem  so- 
fortigen Abbau  sämtlicher  Submenüs  führen  würde. 

Parameter 

$3A/$3B  Aktuelle  X-Position  der  Maus  (Low/High) 

$3C  Aktuelle  Y-Position  der  Maus 


C193 


ReDoMenu 


Baut  das  aktuelle  Untermenü  wieder  auf.  Dadurch  ist  es  mög- 
lich, aus  einem  Untermenü  mehrere  Punkte  auszuwählen. 


C196 


GetSerialNumber 


Holt  die  16-Bit-Seriennummer  des  GEOS-Kernals  in  die  Spei- 
cherstellen $02/$03.  Diese  Zahl  wird  nur  ein  einziges  Mal  (und 
zwar  beim  ersten  Booten  von  GEOS)  erzeugt  und  fest  in  das 
Kernal-File  auf  der  Diskette  eingetragen.  In  der  GEOS-Version 
1.3  findet  man  diese  Nummer  in  den  Speicherstellen  $9EA7  und 
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$9EA8.  Nach  der  ersten  Installation  wird  außerdem  die  Spei- 
cherstelle $9EA9  auf  $FF  gesetzt,  damit  der  Installationsteil  bei 
späteren  Boot-Vorgängen  übersprungen  wird. 

Sämtliche  käuflichen  Zusatzprogramme  (z.B.  GEODEX)  fragen 
bei  ihrer  ersten  Installation  mehr  oder  weniger  direkt  über  die 
Routine  GetSerialNumber  die  GEOS-Seriennummer  ab  und 
speichern  sie  fest  auf  der  Diskette  ab.  Damit  ist  es  nun  so  gut 
wie  ausgeschlossen,  daß  dieses  Zusatzprogramm  in  Verbindung 
mit  einer  anderen  GEOS-Systemdiskette  funktioniert.  Die 
Wahrscheinlichkeit,  auf  zwei  gleiche  Seriennummern  zu  treffen, 
beträgt  nämlich  genau  1 zu  65S3S  (Die  Seriennummer  $0000  gibt 
es  nicht!).  Da  jedes  Programm  zusätzlich  auch  noch  mit  einem 
Kopierschutz  versehen  ist,  genügt  es  auch  nicht,  eine  Kopie  der 
Diskette  vor  der  ersten  Installation  anzufertigen. 


C199 


Sleep 


Bewirkt  eine  Verzögerung  im  Programmablauf.  Die  Verzöge- 
rungszeit (in  1/SO  Sekunden)  wird  in  $02,$03  übergeben  und  die 
Routine  durch  JSR  Sleep  auf gerufen.  Nach  Ablauf  der  Wartezeit 
wird  das  Programm  automatisch  hinter  dem  JSR  fortgesetzt.  Der 
Vorteil  gegenüber  einer  einfachen  Warteschleife  besteht  darin, 
daß  die  Wartezeit  anderen  Jobs  der  Hauptschleife  zur  Verfügung 
gestellt  wird.  Damit  sieht  ein  typischer  Programmausschnitt  für 
eine  Verzögerung  in  GEOS  folgendermaßen  aus:  (Verzögerung: 
20  Sekunden  - 1000/50  Sekunden  ->  S03E8) 


LDX  #$E8 
LDY  #$03 
STX  $02 
STY  $03 
JSR  $C199 

...  (Fortsetzung  des  Programms  nach  20  Sekunden) 
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Man  sollte  jedoch  beachten,  daß  selbstverständlich  in  der  Zwi- 
schenzeit von  anderen  Routinen,  die  von  der  Hauptschleife  auf- 
gerufen  werden,  Manipulationen  an  Speicherinhalten  vorgenom- 
men werden  können. 


C19C 


ClearMouseMode 


Setzt  das  Maus-Flag  ($30)  auf  "0"  und  schaltet  das  Sprite  ab.  Da- 
durch reduziert  sich  die  Zeit,  in  der  der  Video-Chip  zur  Dar- 
stellung des  Sprites  auf  das  RAM  zugreifen  muß.  Die  Turbo- 
Disk-Routinen  schalten  bei  Lade-  und  Speichervorgängen  kurz- 
zeitig die  Maus  ab,  da  die  Datenübertragung  durch  den  dauern- 
den Zugriff  des  Video-Chips  auf  das  RAM  gestört  würde.  Nor- 
malerweise müßte  hierbei  sogar  der  gesamte  Video-Chip  ausge- 
stellt werden,  da  zur  Darstellung  der  Hires-Grafik  auch 
Speicherzugriffe  nötig  sind.  Die  Turbo-Disk-Routinen  nutzen 
jedoch  geschickt  die  Zeitintervalle  aus,  in  denen  mit  Sicherheit 
keine  solchen  Zugriffe  zu  erwarten  sind.  Das  Gegenstück  zu 
ClearMouseMode  ist  StartMouseMode  ($C14E). 


C19F 


iRectangle 


Im  Gegensatz  zur  Funktion  "Rectangle"  können  hier  die  Daten 
direkt  hinter  den  Befehl  "JSR  iRectangle"  gelegt  werden.  Das 
sieht  dann  folgendermaßen  aus: 

1000  JSR  $C19F 

1003  Byte  1 für  $06  (oben) 

1004  Byte  2 für  $07  (unten) 

1005  Byte  3 für  $08  (links) 

1006  Byte  4 für  $09  " 

1007  Byte  5 für  $0A  (rechts) 

1008  Byte  6 für  $0B  11 

1009  hier  wird  das  Programm  fortgesetzt. 
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Für  das  Füllmuster  gilt  das  unter  "Rectangle"  ($C124)  Gesagte. 
Die  Fortsetzung  des  Programms  erfolgt  anschließend  automatisch 
direkt  hinter  den  Daten. 


C1A2 


IFrameRectangle 


Funktion  wie  FrameRectangle  ($C127).  Die  Daten  müssen  jedoch 
direkt  hinter  dem  Unterprogramm- Aufruf  stehen. 


C1A5 


iRecoverRectangle 


Funktion  wie  RecoverRectangle  ($C12D).  Die  Daten  müssen  je- 
doch direkt  hinter  dem  Unterprogramm-Aufruf  stehen. 


C1A8 


iGraphicsString 


Funktion  wie  GraphicsString  ($C136).  Jobs  und  Daten  müssen 
jedoch  direkt  hinter  dem  Unterprogramm-Aufruf  stehen. 


C1AB 


iBitmapUp 


Funktion  wie  BitmapUp  (SCI  42).  Die  Daten  müssen  jedoch  di-  , 
rekt  hinter  dem  Unterprogramm-Aufruf  stehen. 


uuiui  iiauvienu 


Baut  die  gesamte  Menüstruktur  bis  zum  Hauptmenü  ab. 

Normalerweise  sollte  diese  Routine  zu  Beginn  jedes  Programms 
stehen,  das  vom  Menü  auf  gerufen  wird  (siehe  auch  DoMenu  = 
SC151). 


Schaltet  einen  neuen  Zeichensatz  ein.  Der  Zeichensatz  muß  sich 
schon  im  Speicher  befinden. 

Die  Startadresse  wird  in  $02,$03  übergeben. 
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C1AE 


iPutString 


Funktion  siehe  $C148;  die  Daten  hinter  dem  Unterprogramm- 
Aufruf  haben  das  folgende  Format: 

Byte  0/1  X-Position  (Low/High) 

Byte  2 Y Position 

Byte  3 und  folgende:  Text  für  die  Ausgabe.  Der  Text  muß 
__ mit  einer  "O"  abgeschlossen  werden.  
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C1C0 


InitText  Prompt 


Legt  die  Länge  des  Cursor-Strichs  abhängig  vom  geladenen 
Zeichensatz  fest.  Dazu  muß  im  Akku  die  Höhe  des  Zeichensatzes 


958 


Das  große  Commodore  64-Buch 


C1CF 


PosSprite 


Das  Sprite  wird  an  die  vorgegebene  Stelle  positioniert. 

$08  Nummer  der  Sprites 

$0A/$0B  X-Position  (0-319)  (Low/High) 

$0C  Y-Position  (0-199) 


C1D2 

EnableSprite 

Schaltet  das  Sprite,  dessen  Nummer  in  $08  steht, 

ein. 

C1D5 

DisableSprite 

Schaltet  das  Sprite,  dessen  Nummer  in  $08  steht, 

aus. 

C1D8 

CallRoutine 

Ersetzt  im  Befehlssatz  des  6502er  fehlenden  Befehl  JSR  ($xxxx). 
CallRoutine  ermöglicht  indirekten  Einsprung  in  ein  Unterpro- 
gramm. Die  Anfangsadresse  muß  im  Akku  (Low)  und  X-Regi- 
ster  (High)  übergeben  und  JSR  CallRoutine  aufgerufen  werden. 


C1DB 


CalcBlocksFree 


Berechnet  die  Anzahl  der  freien  Blöcke  aus  der  BAM.  Der  Zei- 
ger auf  die  BAM  muß  sich  in  $0C,$0D  befinden  (normalerweise 
liegt  die  BAM  in  GEOS  ab  $8200).  Ergebnis  in  $0A,$0B. 
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C1DE 


ChkDkGEOS 


Testet  die  BAM  auf  GEOS-Format.  Das  Ergebnis  wird  im  Akku 
und  in  $848B  übergeben.  Ist  der  Akku  = 0,  hat  die  Diskette  kein 
GEOS-Format,  bei  $FF  handelt  es  sich  um  eine  GEOS-Diskette. 
Die  aktuelle  BAM  befindet  sich  in  GEOS  normalerweise  ab 
$8200.  Die  Routine  ChkDkGEOS  erwartet  in  $0C/$0D  einen 
Zeiger  auf  die  BAM. 


C1E1  NewDisk 

Lädt  die  BAM  einer  neu  eingelegten  Diskette  nach  $8200. 

Parameter 

Keine 

Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 


C1E4 


GetBlock 


Liest  einen  vollständigen  Sektor  (256  Bytes)  von  der  Diskette. 
Parameter 

$04  Track  (1-35) 

$05  Sektor  (O-Maximal-Sektor,  siehe  Floppy- Bedienungs- 

anleitung) 

$0A,$0B  Zeiger  auf  einen  freien  Datenpuffer  (meist  $8000) 


Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 
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C20B 


FindFile 


Sucht  im  Directory  und  im  Border-Block  (das  ist  der  Sektor,  in 
dem  GEOS  die  File-Einträge  verwaltet,  deren  Icons  auf  dem 
Rand  abgelegt  sind)  nach  einem  File-Eintrag.  Dieser  wird  dann 
in  $8400  übergeben. 

$0E,$0F  Zeiger  auf  den  File-Namen  (max.  16  Stellen  plus 
eine  Abschluß-Null) 

Im  X-Register  wird  die  Fehlermeldung  übergeben.  (X  = 0:  kein 
Fehler  auf getreten,  X = 5:  File  not  Found,  weitere  Fehler:  siehe 
Anhang). 


C20E 


CRC 


Berechnet  eine  Prüfsumme  über  einen  definierten  Bereich  des 
Arbeitsspeichers.  Diese  Funktion  ist  zum  Beispiel  recht  nützlich, 
um  Kopierschutz-Routinen  vor  Manipulationen  zu  sichern. 

Parameter 

$02/$03  Zeiger  auf  die  Anfangsadresse  der  Daten 
$04/$05  Umfang  der  Daten  in  Bytes 

Das  Ergebnis  steht  anschließend  in  $06/$07. 


C211 


LdFile 


Dies  ist  eine  Laderoutine  für  GEOS-Files.  Ihr  muß  in  $14,$ IS 
ein  Zeiger  auf  den  kompletten  File-Eintrag  übergeben  werden 
(beispielsweise  durch  FindFile  $C20B  nach  $8400  holen). 
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LdFile  holt  die  notwendigen  Informationen  aus  dem  INFO-Sek- 
tor,  lädt  das  File  an  die  dort  eingetragene  Stelle  und  startet  ge- 
gebenenfalls das  Programm  (je  nach  File-Typ).  Eine  alternative 
Ladeadresse  kann  in  dieser  Low-Level-Ebene  nicht  mehr  ange- 
geben werden  (siehe  GetFile). 


C214 

EnterTurbo 

Schaltet  die  schnellen  Disk-Routinen  ein.  Falls  sich  die  Routinen 
noch  nicht  im  Floppy-RAM  befinden,  werden  sie  erst  dorthin 
kopiert. 

Parameter 

$8489 

Nummer  des  Laufwerks,  auf  das  sich  EnterTurbo 
bezieht  (8  oder  9).  Bei  nur  einem  angeschlossenen 
Laufwerk  steht  hier  automatisch  eine  Acht. 

C217 

LdDeskAcc 

Kompletter  Ladevorgang  für  ein  Accessory.  LdDeskAcc  wird 
beispielsweise  automatisch  aufgerufen,  wenn  man  den  File-Na- 
men eines  Accessories  an  GetFile  * $C208  übergibt.  Diese  Rou- 
tine erstellt  ein  Swap-File,  rettet  den  derzeitigen  Systemstatus 
(Menus,  Prozesse,  alle  Vektoren  von  $849B  bis  einschl.  $84C1, 
aktueller  Font,  Style,  Füllmuster),  lädt  und  startet  das  Accessory. 
Trägt  das  Accessory  den  Job  RstrAppl  = $C23E  in  den  Main- 
Vector  $849B/$849C  ein  und  führt  es  anschließend  einen  RTS 
aus,  so  wird  der  ursprüngliche  Zustand  der  Application  wieder- 
hergestellt (siehe  auch  GetFile  = $C208). 
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C24D 


NxtBlkAlloc 


Diese  Routine  unterscheidet  sich  von  BlkAlloc  = $C1FC  nur 
durch  eine  etwas  höhere  Einsprungadresse.  Dadurch  besteht  die 
Möglichkeit,  in  $08,$09  den  Track  und  Sektor  selbst  festzulegen, 
ab  dem  die  Suche  nach  freien  Blöcken  beginnen  soll.  Für  nor- 
male Anwendungen  ist  dieser  Befehl  jedoch  nicht  erforderlich. 


C250 


ImprintRectangle 


Routine  rettet  ein  Rechteck  auf  den  "unsichtbaren"  zweiten 
Bildschirm  (Gegenstück:  RecoverRectangle=  SC12D). 

$06  Obere  Grenze 

$07  Untere  Grenze 

$08, $09  Linke  Grenze  (Low,High) 

$0A,$0B  Rechte  Grenze  (Low,High) 


C253  ilmprintRectangle 


Wie  ImprintRectangle  = $C250.  Die  acht  Daten  müssen  jedoch 
direkt  hinter  dem  Unterprogramm-Aufruf  liegen. 


C256 


DoDlgBox 


Erzeugt  ein  Fenster  (Dialog  Box)  für  Ein-  und/oder  Ausgaben. 
Der  Routine  muß  hierzu  nur  in  $02/$03  ein  Pointer  auf  eine 
Datentabelle  übergeben  werden,  die  nähere  Informationen  über 
das  Fenster  enthält.  Solch  eine  Tabelle  ist  folgendermaßen  auf- 
gebaut: 
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1.  Byte 


2.  Byte 

3.  Byte 

4. /5.  Byte 
6./7.  Byte 


Dieses  Byte  enthält  im  7.  Bit  Informationen  über 
die  Größe  der  Dialogbox: 

Bit  7 = 1:  Fenstergröße  und  Position  wie  bei  den 
üblichen  DESK-TOP-Fenstern.  In  den  meisten 
Fällen  wird  man  diesen  Modus  wählen. 

Bit  7 = 0:  Die  sechs  folgenden  Bytes  der  Tabelle 
enthalten  Angaben  über  die  Größe  und  Position 
der  Dialogbox. 

Bits  0-4:  Hier  kann  die  Nummer  des  Musters  an- 
gegeben werden,  mit  dem  die  Dialogbox  hinterlegt 
werden  soll  (Schattenfenster).  Der  Wert  "0"  ergibt 
kein  Schattenfenster.  DESK-TOP-Dialogboxen 
tragen  hier  eine  Eins  ein  (schwarzer  Schatten). 
Position  des  oberen  Fensterrandes  (0-199Xnur, 
falls  im  1.  Byte  Bit  7 = 0 ist) 

Position  des  unteren  Fensterrandes  (0-199,  > 2. 
Byte)(nur,  falls  im  l.Byte  Bit  7 = 0 ist) 

Position  des  linken  Fensterrandes  (0-319)(nur, 
falls  im  1.  Byte  Bit  7 = 0 ist) 

Position  des  rechten  Fensterrandes  (0-319,  > 4. 
und  5.  Byte)(nur,  falls  im  l.Byte  Bit  7 = 0 ist) 


Die  weiteren  Bytes  der  Fenstertabelle  können  aus  den  nun  fol- 
genden Steuerzeichen  bestehen,  die  in  beliebiger  Reihenfolge 
auftreten  dürfen  und  vom  Betriebssystem  nacheinander  abgear- 
beitet werden: 


$00 


Funktion : Endekennzeichen  der  Tabelle. 

Parameter:  keine 

Kommentar:  Mit  diesem  Zeichen  muß  jede  Tabelle  enden.  Die 

Reaktion  des  Rechners  hängt  von  der  Art  der 
vorausgegangenen  Steuerzeichen  ab.  Durch  das 
Endekennzeichen  wird  kein  Abbau  der  Dialogbox 
veranlaßt.  Hierfür  existieren  eigene  Steuerzeichen. 
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$01 

Funktion: 

Parameter: 


Kommentar: 


$02 

Funktion: 

Parameter: 

Kommentar: 

$03 

Funktion: 

Parameter: 

Kommentar: 

$04 

Funktion: 

Parameter: 

Kommentar: 

$05 

Funktion: 

Parameter: 

Kommentar: 

$06 

Funktion: 

Parameter: 


Das  OK-Feld  soll  ausgegeben  werden. 

1.  Byte:  Abstand  vom  linken  Rand  der  Dialogbox 
in  ganzen  Bytes 

2.  Byte:  Abstand  vom  oberen  Rand  der  Dialogbox 
in  Zeilen 

Es  erscheint  an  der  angegebenen  Position  das  auch 
vom  DESKTOP  benutze  OK-Icon.  Das  Fenster 
wird  automatisch  abgebaut,  sobald  der  Anwender 
das  Feld  mit  der  Maus  anklickt.  DoDIgBox  kehrt 
anschließend  zum  auf  rufenden  Programm  zurück. 
Hier  kann  nun  aus  der  Speicherstelle  $02  die 
Nummer  des  Steuerzeichens  ausgelesen  werden, 
die  den  Abbau  des  Fensters  verursacht  hat  (in 
diesem  Fall  also  eine  $01). 


Das  CANCEL-Feld  (Abbruch)  soll  ausgegeben 
werden. 

Wie  bei  Steuerzeichen  $01. 

Wie  bei  Steuerzeichen  $01. 


Das  YES-Feld  soll  ausgegeben  werden. 
Wie  bei  Steuerzeichen  $01. 

Wie  bei  Steuerzeichen  $01. 


Das  NO-Feld  soll  ausgegeben  werden. 
Wie  bei  Steuerzeichen  $01. 

Wie  bei  Steuerzeichen  $01. 


Das  OPEN-Feld  (Öffnen)  soll  ausgegeben  werden. 
Wie  bei  Steuerzeichen  $01. 

Wie  bei  Steuerzeichen  $01. 


Das  DISK-Feld  soll  ausgegeben  werden. 
Wie  bei  Steuerzeichen  $01. 
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Kommentar : Wie  bei  Steuerzeichen  $01. 

$07-$0A 

Diese  Steuerzeichen  sind  in  GEOS  noch  nicht  implementiert. 

$0B 

Funktion:  Gibt  einen  vorhandenen  Text  in  dem  Fenster  aus. 

Parameter:  1.  Byte:  Abstand  des  Textes  vom  linken  Rand  der 

Dialogbox  in  Pixeln 

2.  Byte:  Abstand  des  Textes  vom  oberen  Rand  der 
Dialogbox  in  Zeilen 

3. /4.  Byte:  Adresse  des  Textes,  der  ausgegeben 
werden  soll. 

Kommentar : Der  Text  darf  alle  darstellbaren  ASCII-Zeichen 

und  Style -Kommandos  enthalten  (siehe  ASCII- 
Tabelle  im  Anhang).  Als  Endekennzeichen  dient 
eine  Null. 

$0C 

Funktion:  Gibt  einen  vorhandenen  Text  aus,  auf  den  über 

eine  Zeropage-Adresse  zugegriffen  wird. 
Parameter:  1.  Byte:  Abstand  des  Textes  vom  linken  Rand  der 

Dialogbox  in  Pixeln 

2.  Byte:  Abstand  des  Textes  vom  oberen  Rand  der 
Dialogbox  in  Zeilen 

3.  Byte:  Angabe  einer  Zeropage-Adresse,  die 
einen  Zeiger  auf  den  auszugebenden  Text  enthal- 
ten muß. 

Kommentar:  Der  Text  darf  alle  darstellbaren  ASCII-Zeichen 

und  Style- Kommandos  enthalten  (siehe  ASCII- 
Tabelle  im  Anhang).  Als  Endekennzeichen  dient 
eine  Null.  Erlaubter  Bereich  für  den  Pointer  in 
der  Zeropage:  $0C-$16  (incl.) 

$0D 

Funktion:  Gibt  einen  vorhandenen  Text  aus,  auf  den  über 

eine  Zeropage-Adresse  zugegriffen  wird,  und  er- 
laubt eine  Korrektur  des  Textes  mittels  Tastatur. 
Parameter:  1.  Byte:  Abstand  des  Textes  vom  linken  Rand  der 

Dialogbox  in  Pixeln 
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Kommentar : 


$0E 

Funktion : 

Parameter: 

$0F 

Funktion: 
Parameter : 


$10 

Funktion: 

Parameter: 


2.  Byte:  Abstand  des  Textes  vom  oberen  Rand  der 
Dialogbox  in  Zeilen 

3.  Byte:  Angabe  einer  Zeropage-Adresse,  die 
einen  Zeiger  auf  den  auszugebenden  Text  enthal- 
ten muß. 

4.  Byte:  Maximale  Anzahl  Zeichen,  die  bei  der 
Eingabe  akzeptiert  werden  sollen 

Der  auszugebende  Text  sollte  sinnvollerweise  nur 
aus  darstellbaren  ASCII-Zeichen  bestehen  (siehe 
ASCII-Tabelle  im  Anhang).  Als  Endekennzeichen 
dient  eine  Null.  Erlaubter  Bereich  für  den  Pointer 
in  der  Zeropage:  $0C-$16  (incl.) 


Das  Fenster  wird  abgebaut,  sobald  die  Maus  an 
einer  beliebigen  Position  geklickt  wird,  an  der 
sich  kein  anderes  Klick- Feld  befindet, 
keine 


Gibt  einen  Grafik-String  aus. 

1.  und  2.  Byte:  Zeiger  auf  eine  Tabelle,  die  Anga- 
ben über  den  Grafik-String  enthalten  muß.  Für 
den  Aufbau  einer  solchen  Tabelle  siehe  Gra- 
phicsString  = $C136. 


Ausgabe  eines  Verzeichnisses,  das  die  Dateinamen 
aller  Files  eines  bestimmten  File-Typs  der  aktu- 
ellen Diskette  enthält.  Eine  solche  Datei  kann  mit 
der  Maus  selektiert  werden. 

1.  Byte:  Abstand  des  Verzeichnisses  vom  linken 
Rand  der  Dialogbox  in  ganzen  Bytes 

2.  Byte:  Abstand  des  Verzeichnisses  vom  oberen 
Rand  der  Dialogbox  in  Zeilen 

In  $10:  Nummer  des  gesuchten  GEOS-File-Typs 
In  $16/$17:  Pointer  auf  den  CLASS-Namen  der 
gesuchten  Dateien.  Es  werden  nur  die  Dateinamen 
im  Verzeichnis  ausgegeben,  deren  Files  im  Info- 
Sektor  die  spezifizierte  Eintragung  besitzen.  Sollte 
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Kommentar: 

$11 

Funktion : 

Parameter : 
Kommentar: 


$12 

Funktion: 

Parameter: 


dies  nicht  erwünscht  sein,  muß  der  Vektor 
$16/$  17  auf  Null  gesetzt  werden. 

In  $0C/$0D:  Pointer  auf  einen  Puffer,  der  genü- 
gend Platz  für  den  selektierten  File-Eintrag  (17 
Bytes)  auf  weisen  muß.  In  diesen  Puffer  überträgt 
DoDlgBox  den  selektierten  File-Namen. 

Zusätzlich  zu  dem  Steuerzeichen  $10  sollten  in  der 
Tabelle  der  Dialogbox  noch  weitere  Steuerzeichen 
auf treten,  die  ein  Verlassen  des  Fensters  ermög- 
lichen (z.B.  OK,  CANCEL). 


Ermöglicht  den  Aufruf  eines  Unterprogramms  des 
Anwenders,  sobald  die  Maus  an  einer  beliebigen 
Stelle  außerhalb  eines  Fenster- Icons  angeklickt 
wird. 

l.und  2.  Byte:  Adresse  der  Routine  des  Anwen- 
ders, die  angesprungen  werden  soll  (Low/High). 
Nach  der  Ausführung  der  angegebenen  Routine 
kann  die  Dialogbox  durch  den  Aufruf  JMP 
RstrFrmDialog  = $C2BF  wieder  abgebaut  werden. 
Das  Programm  wird  anschließend  hinter  JSR 
DoDlgBox  fortgesetzt.  Wird  die  angegebene  Rou- 
tine jedoch  durch  ein  RTS  beendet,  erfolgt  eine 
weitere  Abarbeitung  der  in  der  Fenstertabelle 
enthaltenen  Steuerzeichen. 


Ermöglicht  die  Einbindung  selbst  definierter  Icons 
in  das  Fenster. 

1.  Byte:  Abstand  des  Icons  vom  linken  Rand  der 
Dialogbox  in  ganzen  Bytes 

2.  Byte:  Abstand  des  Icons  vom  oberen  Rand  der 
Dialogbox  in  Zeilen 

3. /4.  Byte:  Pointer  zu  den  Grafikdaten  des  selbst 
definierten  Icons  (Format:  s.  BitmapUp  = $C142). 
5./6.  Byte:  Null 

7.  Byte:  Breite  des  Icons  in  Bytes  (Standard:  $06) 

8.  Byte:  Höhe  des  Icons  in  Zeilen  (Standart:  $12) 


980  — 

Das  große  Commodore  64-Buch 

9./ 10.  Byte:  Pointer  auf  eine  Routine,  die  bei 
Anklicken  des  Icons  angesprungen  werden  soll. 

$13 

Funktion: 

Ermöglicht  die  Einbindung  einer  eigenen  Routine, 
die  in  jedem  Fall  beim  Aufbau  des  Fensters  auf- 
gerufen wird. 

Parameter: 

1.  und  2.  Byte:  Pointer  auf  eine  Routine,  die  in 
jedem  Fall  beim  Aufruf  von  DoDlgBox  abgear- 
beitet werden  soll. 

Kommentar: 

Der  Zeitpunkt  der  Abarbeitung  wird  direkt  durch 
die  Abfolge  der  Steuerzeichen  innerhalb  der  Fen- 
stertabelle bestimmt.  Folgt  also  zuerst  das  Steuer- 
zeichen $01  und  anschließend  das  Steuerzeichen 
$13,  so  wird  erst  das  OK-Icon  gezeichnet,  bevor 
die  angegebene  Routine  auf  gerufen  wird.  Erst 
wenn  diese  mit  einem  RTS  endet,  werden  alle 
weiteren  Steuerzeichen  abgearbeitet. 

C259 

RenameFile 

Ermöglicht  das  Umbenennen  einer  Datei  auf  Diskette. 

Parameter 

$02,$03  Zeiger  auf  den  derzeitigen  File-Namen 
$OC,$OD  Zeiger  auf  den  neuen  File-Namen 

Beide  File-Namen  müssen  jeweils  mit  einer  Null  enden. 

C25C  InitForlO 

Wird  vor  jeder  Aktion  mit  dem  schnellen  Datenbus  aufgerufen 
und  rettet  wichtige  Parameter  (IRQ,  NMI  etc.).  Für  Program- 
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mierer  ist  der  Befehl  nicht  sehr  interessant,  da  er  automatisch 
von  übergeordneten  Routinen  aufgerufen  wird. 


C25F 


DoneWithlO 


Gegenstück  zu  InitTurboBus  (SC25C).  Wird  von  übergeordneten 
Routinen,  die  auch  InitForlO  aufrufen,  selbständig  ausgeführt. 


C262 


DShiftRight 


Das  X-Register  muß  auf  eine  2-Byte-Adresse  auf  der  Zeropage 
zeigen,  die  Y-mal  nach  rechts  geschoben  wird  (gibt  jedesmal  / 
2).  Gehört  zur  Mathe- Bibliothek  (ab  $C15D). 


C265 


CopyFString 


Kopiert  einen  String  (abgeschlossen  durch  eine  Null)  in  einen 
beliebigen  Speicherbereich. 

X-Register  Zeigt  auf  Pointer  in  der  Zeropage,  der  auf  den 
String  zeigen  muß. 

Y-Register  Zeigt  auf  Pointer  in  der  Zeropage,  der  auf  die 
Zieladresse  zeigt. 

Maximal  können  256  Bytes  kopiert  werden. 


C268 


CopyString 


Funktion  und  Parameter  wie  CopyFString.  Es  können  jedoch 
mehrere  Texte,  die  hintereinander  liegen,  gleichzeitig  kopiert 
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werden.  Dazu  muß  im  Akku  die  Anzahl  der  Texte  übergeben 
werden.  (Jeder  Text  muß  mit  Null  abschließen!) 


C26B 


CmpFString 


Vergleicht  zwei  Strings  miteinander.  Parameter  wie  CopyFString. 
Falls  im  Akku  anschließend  $00  steht,  sind  beide  Strings  gleich. 
Ansonsten  steht  hier  der  Offset  auf  das  ungleiche  Element. 


C26E 


CmpString 


Wie  CmpFString.  Es  können  jedoch  mehrere  Texte,  die  direkt 
hintereinander  liegen,  verglichen  werden.  Dazu  muß  der  Routine 
im  Akku  noch  die  Anzahl  der  Texte  übergeben  werden. 

Ergebnis  wie  bei  CmpFString.  Das  X-Register  enthält  die  Num- 
mer des  Strings,  bei  der  Ungleichheiten  auf getreten  sind. 


C271 


Firstlnit 


Führt  einen  Warmstart  von  GEOS  durch  und  startet  eine  An- 
wendung, die  ab  der  Adresse  in  $10/$  11  liegen  muß. 


C274 


OpenRecordFile 


Eröffnet  eine  schon  existierende  VLIR-Datei,  die  sich  auf  der 
Diskette  befinden  muß. 
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Parameter 

$02,$03  Zeiger  auf  den  File-Namen  der  VLIR-Datei 
Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 


C277  CloseRecordFile 

Schließt  eine  VLIR-Datei.  Dabei  wird  der  Dir-Eintrag  aktuali- 
siert (Datum,  Uhrzeit).  Keine  Parameter  notwendig. 

Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 


C27A  NextRecord 

Positioniert  auf  den  nächsten  Record. 

Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 


C27D  PreviousRecord 

Positioniert  auf  den  vorherigen  Record. 

Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 


C280 


PointRecord 


Positioniert  auf  Record,  Akku  muß  dessen  Nummer  enthalten. 
Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 
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C283 


DeleteRecord 


Entfernt  den  aktuellen  Record  aus  der  Liste.  Die  Liste  wird 
dazu  aufgerückt,  und  die  durch  den  Eintrag  belegten  Blöcke 
werden  wieder  freigegeben.  Es  sind  keine  direkten  Parameter  zu 
übergeben. 

Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 


C286 


InsertRecord 


Fügt  einen  neuen  Record  vor  den  aktuellen  Record  ein.  Dieser 
neue  ist  anschließend  der  aktuelle  Record. 

Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 


C289 


AppendRecord 


Fügt  einen  neuen  Record  hinter  den  aktuellen  Record  ein.  Die- 
ser ist  anschließend  der  aktuelle  Record. 

Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 


C28C 


ReadRecord 


Liest  den  aktuellen  Record  ein.  In  $10,$  11  muß  die  gewünschte 
Ladeadresse  stehen.  In  $06,$07  muß  die  maximale  Anzahl  ge- 
wünschter Daten  enthalten  sein. 

Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 
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C28F 


WriteRecord 


Speichert  den  aktuellen  Record  ab. 

$06,$07  Anzahl  Bytes 
$10,$  11  Startadresse  der  Daten 

Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 


C292 


SetNextFree 


Sucht  den  nächsten  freien  Block  auf  der  Diskette  und  markiert 
ihn  in  der  BAM  als  belegt. 

Parameter 

$08,$09  Zeiger  auf  den  ersten  Block  (Track  und  Sektor),  ab 
dem  gesucht  werden  soll. 

Der  Track  18  (Directory!)  wird  automatisch  übersprungen,  falls 
nicht  ausdrücklich  in  $08  eine  18  eingetragen  wird. 


C295 


UpdateRecordFile 


Die  folgenden  Daten  eines  geöffneten  VLIR-Files  werden  auf 
der  Diskette  aktualisiert: 

1.  VLIR-Linker 

2.  Directory- Eintrag  (Datum,  Zeit) 

3.  BAM 
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C298 


GetPtrCurDkNm 


Setzt  einen  Zeiger  auf  den  Namen  der  aktuellen  Diskette.  Das 
X-Register  muß  dazu  auf  einen  Pointer  in  der  Zeropage  zeigen, 
der  anschließend  auf  den  Namen  zeigt. 


C29B 


PromptOn 


Schaltet  den  Cursor  an  der  aktuellen  Schreibposition  ein. 


C29E 


PromptOff 


Schaltet  den  Cursor  aus. 


C2A1 


OpenDisk 


Initialisiert  eine  neue  Diskette.  Diese  Routine  muß  nach  jedem 
Diskettenwechsel  aufgerufen  werden,  da  das  Betriebssystem 
einen  Diskettenwechsel  nicht  selbst  erkennt. 


C2A4 


DoInlineReturn 


Unterprogramm  aller  Inline-Routinen  (das  sind  die  Routinen  der 
Sprungtabelle,  die  mit  einem  "i"  beginnen,  z.B.  iRectangle). 
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C2A7 


GetNextChar 


Holt  ein  Zeichen  aus  dem  Tastaturpuffer  in  den  Akku.  Ist  der 
Puffer  leer,  wird  eine  Null  übergeben.  Diese  Routine  ist  als  Er- 
gänzung zu  dem  Event-Vektoj-  584A3  zu  verstehen,  dessen 
Adresse  jedesmal  angesprungen  wird,  sobald  eine  Taste  betätigt 
wird.  Die  dabei  aufgerufene  Routine  kann  sich  durch  GetNext- 
Char weitere  Zeichen  aus  dem  Tastaturpuffer  holen,  bis  ihr  im 
Akku  eine  Null  übergeben  wird. 


C2AA 


BitmapCIip 


BitmapClip  ermöglicht  es,  über  eine  im  nicht  sichtbaren  Bereich 
liegende  Grafik  eine  Maske  mit  einem  rechteckigen  Ausschnitt 
zu  legen  und  den  Teil  der  Grafik,  der  durch  die  Maske  nicht 
verdeckt  wird,  auf  dem  sichtbaren  Bildschirm  darzustellen. 
Hierdurch  können  Grafiken  beliebiger  Größe  ausschnittsweise 
auf  einem  Teil  des  Bildschirms  dargestellt  werden. 

Parameter: 

$02,$03  Zeiger  auf  den  Start  der  Grafikdaten 
$04  Linker  Rand  des  Ausgabefensters  (in  Bytes) 

$05  Oberer  Rand  des  Ausgabefensters  (in  Zeilen) 

$06  Breite  des  Ausgabefensters  in  Bytes 

$07  Höhe  des  Ausgabefensters  in  Zeilen 

Mit  diesen  Angaben  ist  die  Größe  der  ausmaskierten  Grafik  de- 
finiert. Es  fehlen  jetzt  jedoch  noch  die  Angaben,  mit  denen  man 
den  Bereich  der  Grafik  markieren  kann,  der  im  Ausgabefenster 
erscheinen  soll: 

$18  Angabe,  wie  viele  Bytes  (=  je  8 Pixel)  auf  der  linken 

Seite  der  Gesamtgrafik  übersprungen  werden  sollen, 
bis  die  Ausgabe  im  Fenster  beginnt.  Der  rechte  Rand 
ergibt  sich  automatisch  aus  den  Angaben  in  $06. 
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$19  Hier  muß  die  Anzahl  Bytes  der  Grafik  angegeben 

werden,  die  rechts  neben  dem  Ausgabefenster  aus- 
maskiert wird.  Durch  Addition  der  Werte  in  $06,  $18 
und  $19  kommt  man  damit  auf  die  Breite  der  Ge- 
samtgrafik in  Bytes. 

$1A,$1B  Angabe,  wie  viele  Zeilen  der  Gesamtgrafik  bis  zur 
Ausgabe  im  Fenster  übersprungen  werden  sollen.  Der 
untere  Rand  ergibt  sich  automatisch  aus  den  Anga- 
ben in  $07. 


C2AD 


FindBAMBit 


Testet,  ob  ein  bestimmter  Block  der  Diskette  in  der  BAM  schon 
als  belegt  gekennzeichnet  ist.  In  $0E,  $0F  müssen  dazu  der 
Track  und  Sektor  des  Blocks  enthalten  sein.  Ist  der  Akku  an- 
schließend gleich  Null,  so  ist  der  Block  bereits  belegt. 


C2B0 


SetDevice 


Freigabe  des  seriellen  IEC-Busses  für  ein  beliebiges  Gerät.  Im 
Akku  muß  die  gewünschte  Gerätenummer  enthalten  sein  (z.B. 
Nummer  4,  falls  der  Drucker  angesprochen  werden  soll).  Falls 
das  Original-Floppy-DOS  angesprochen  werden  soll,  muß  vorher 
noch  PurgeTurbo  * $C235  aufgerufen  werden.  Durch  InitForlO 
= $C25C  werden  anschließend  die  64er-Kernal-Routinen  bereit- 
gestellt. Nun  können  die  gewünschten  Bus-Aktionen  stattfinden. 
Im  Anschluß  daran  muß  das  GEOS-Kernal  durch  den  Aufruf 
von  DoneWithlO  = $C25F  wieder  eingeblendet  werden.  Der 
Floppy-Speeder  wird  bei  der  Benutzung  von  High-Level-Routi- 
nen  (z.B.  GetFile,  SaveFile)  automatisch  aktiviert.  Lediglich  bei 
den  Routinen  ReadBlock,  WriteBlock  und  VerWrBlock  muß  er 
durch  EnterTurbo  = $C214  "von  Hand"  wieder  gestartet  werden. 

Rückgabe:  Error-Status  im  X-Register  siehe  Anhang 


Anhang 


C2B3 


IsMselnRegion 


Mit  dieser  Routine  kann  getestet  werden,  ob  sich  die  Maus  der- 
zeit in  einem  bestimmten  Bildschirmbereich  befindet. 

Parameter: 

$06  Obere  Begrenzung  (0-199) 

$07  Untere  Begrenzung  (größer  als  in  $06,  max.  199) 

$08 ,$09  Linke  Begrenzung  (0-319) 

$10,$  11  Rechte  Begrenzung  (größer  als  in  $08/$09,  max.  199) 

Falls  sich  die  Maus  in  dem  angegebenen  Bereich  befindet,  wird 
im  Akku  $FF  übergeben,  andernfalls  $00. 


C2B6  Read  Byte 

Gehört  zu  den  VLIR-Routinen  (siehe  ab  $C274).  Holt  ein  Byte 
nach  dem  anderen  aus  aktuellem  VLIR-Record  in  den  Akku. 

Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 


C2B9  FreeBlock  (ab  GEOS  VI. 3) 


Gibt  einen  in  der  BAM  als  belegt  gekennzeichneten  Block  frei. 
Parameter 

$0E,$0F  Track  und  Sektor  des  freizugebenden  Blocks. 

In  der  GEOS- Version  1.2  ist  FreeBlock  noch  nicht  in  der 
Sprungtabelle  enthalten  (drei  NOP- Befehle).  Man  kann  aber  die 
Funktion  durch  einen  direkten  Einsprung  ins  Kernal  aufrufen. 
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Die  Adresse  hierfür  lautet  $9844.  Die  Parameterübergabe  ändert 
sich  gegenüber  VI. 3 nicht. 

Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 


C2BC 


ChangeDiskDevice 


Mit  dieser  Routine  kann  die  Gerätenummer  der  derzeit  aktuellen 
Floppy  softwaremäßig  auf  einen  anderen  Wert  gebracht  werden. 
Hierzu  muß  ChangeDiskDevive  die  Nummer  (8-11)  im  Akku 
übergeben  werden. 

Rückgabe:  Error-Status  im  X-Register  (siehe  Anhang) 


C2BF 


RstrFrmDialog 


Wird  beim  Anklicken  der  Icons  einer  Dialogbox  (z.B.  OK, 
CANCEL  etc.)  automatisch  aufgerufen.  Hierdurch  wird  das 
Fenster  abgebaut,  die  eingefrorenen  und  geretteten  Jobs  werden 
reaktiviert  (Pull-Down-Menüs,  Prozesse  etc.),  und  in  $02  die 
Nummer  des  angeklickten  Icons  übergeben.  Falls  das  Fenster  je- 
doch von  einer  durch  die  Dialogbox  auf  gerufenen  Unterroutine 
manuell  abgebaut  werden  muß  (siehe  DoDlgBox=  $C256),  kann 
vor  dem  Aufruf  von  RstrFrmDialog  in  $02  ein  beliebiger  Wert 
übergeben  werden,  der  zur  Auswertung  an  das  Hauptprogramm 
weitergegeben  wird. 


C2C2 


Panic 


Ausgabe  von  SYSTEM  ERROR  IN  $XXXX.  Die  Routine  zieht 
sich  die  Adresse  vom  Stack,  bei  der  der  Prozessor  in  ein  BRK 
gelaufen  ist,  und  wandelt  sie  in  eine  vierstellige  ASCII-Zahl  um. 
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Diese  Zahl  wird  in  einem  Fenster  als  Abschiedsmitteilung  ausge- 
geben. 


C2C5 


BitOtherClip 


BitOtherClip  besitzt  eine  ähnliche  Funktion  wie  BitmapClip  «* 
$C2AA,  bietet  jedoch  den  Vorteil,  daß  die  Grafikdaten  nicht 
direkt  im  Speicher  vorliegen  müssen.  Statt  dessen  wird  Bit- 
OtherClip die  Einsprungadresse  einer  Routine  mitgeteilt,  die  bei 
jedem  Aufruf  das  nächste  Byte  der  komprimierten  Grafik  (dazu 
siehe  BitmapUp  = $C142)  in  den  Akuu  holt.  Diese  Routine  wird 
in  den  meisten  Fällen  die  Grafikdaten  von  der  Floppy  holen 
(z.B.  mittels  ReadByte  = $C2B6).  Sie  darf  dabei  die  Speicher- 
stellen $02  bis  $1D  nicht  überschreiben.  Außer  den  schon  bei 
der  Beschreibung  von  BitmapClip  angegebenen  Positionsangaben 
erwartet  BitOtherClip  noch  die  folgenden  Informationen: 

Zeiger  auf  134  Bytes  umfassenden  Datenpuffer. 
Adresse  der  oben  beschriebenen  Routine 
Adresse  einer  Routine,  die  den  Zeiger  in  $02,$03 
wieder  auf  den  Anfang  des  Datenpuffers  setzt. 


$02,$03 

$1C,$1D 

$1E,$1F 
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Anhang  C.1:  Speicherbelegungsplan 

Die  folgende  Tabelle  zeigt  Ihnen  die  Belegung  des  Speichers  im 
Commodre  64.  Ein  besonderes  Augenmerk  bei  der  Durchsicht 
sollten  Sie  auf  die  durch  "unbenutzt"  gekennzeichneten  Bereiche 
richten. 

Diese  Speicherstellen  sind  vom  Betriebssystem  oder  vom  BASIC- 
Interpreter  nicht  belegt  und  stellen  daher  - nicht  nur  für  As- 
sembler-Programmierer - einen  idealen  Datenspeicher  dar. 


Die  Belegung  der  Zeropage 


Hexadresse 

Dezimal 

Belegung 

00 

0 

Datenrichtungs-Register  für  Prozessor-Port 
Bit  0 - 6;  0=  Eingang  1=  Ausgang 

01 

1 

Im  Prozessor-Port  kann  man  angeben,  welche 
Speicherbereiche  ein-  oder  ausgeschaltet  werden. 
Bit-Beschrei bung : 

Bit  01=  BASIC-R0M,  0=  RAM 
Bit  1 1 = Kernal-ROM,  0=  RAM 
Bit  2 1 = I/O  0-  Zeichensatz 

Bit  3 = Datenausgabe  von  Datasette 

Bit  4 0 = Taste  bei  Datasette  gedrückt 
1 = nicht  gedrückt 
Bit  5 1 = Motor  an,  0=  Motor  aus 
Die  Bits  6 und  7 sind  unbenutzt  und  immer  0 

02 

2 

Unbenutzt 

03-04 

■ 

Vektor  für  Umwandlung  von  FlieBkonma  nach  Fest 
Von  diesen  Adressen  aus  beginnt  der 
Interpreter,  eine  Gleitkomma-Zahl  in 
eine  ganze  Zahl  umzuwandeln.  Der 
Vektor  deutet  auf  die  Adresse  SB1AA. 

05-06 

5-6 

Vektor  für  Umwandlung  von  Fest  nach  Fließkomma 
Diese  Routine  verwandelt  eine  ganze 
Zahl  in  eine  Fließkomma-Zahl . Der 
Zeiger  steht  auf  $B391. 

07 

Suchzeichen 

Die  Speicherzelle  $07  wird  oft  von 
BASIC-Programmen  als  Suchzeiger  für 
Texteingaben  verwendet. 
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Hexadresse 

Dezimal 

Belegung 

08 

8 

Hochkomna-Flag 
Uärend  der  Umwandlung  von 
BASIC-Befehlen  in  "Tokens"  wird  die 
Speicherzelle  $08  als  Zwischenspeicher 
für  BASIC-Texteingaben  verwendet. 

09 

Speicher  für  Spalte  beim  TAB-Befehl 
Nach  der  Ausführung  von  TAB  oder  SPC 
wird  die  Cursor -Position  in  der 
Speicherzelle  9 zwischengespeichert. 

0A 

10 

0=  LOAD,  1=  Verify,  Flag  des  Interpreters 
Weil  die  Routine  von  LOAD  und  VERIFY 
identisch  ist,  wird  ein  Flag  benötigt, 
un  zu  unterscheiden,  ob  ein  LOAD-  oder 
ein  VERIFY- Vorgang  ausgeführt  worden  ist. 

OB 

11 

Zeiger  im  Eingabepuffer,  Anzahl  der  Dimensionen 
Die  Speicherzelle  $0B  wird  dazu 
verwendet,  die  Anzahl  der  Dimensionen 
zu  berechnen.  Außerdem  wird  noch  die 
Länge  der  "Token- Zeile"  hier  angegeben. 

OC 

12 

Flag  für  DIN 

Diese  Speicherzelle  wird  benutzt,  um 
festzustellen,  ob  die  Variable  ein  Array 
oder  schon  eine  dimensionierte  Variable  ist. 

00 

13 

Typ-Flag  $00=  nunerisch,  $FF=  String 

Das  Flag  zeigt  dem  BASIC-Interpreter  an,  ob  es 

sich  vxn  Zahlenwerte  oder  um  einen  String  handelt. 

OE 

14 

$80=  Integer,  $00=  Real 
Wenn  eine  Gleitkommazahl  auf tritt, 
steht  in  der  Speicherzelle  $00,  bei 
einer  ganzen  Zahl  eine  $80. 

OF 

15 

Hochkomma- Flag  bei  LIST 
Duch  diese  Speicherzelle  wird  beim 
LI ST -Befehl  duch  ein  Hochkonma 
erkannt,  ob  eine  Textkette  folgt. 

Zusätzlich  wird  in  dieser  Speicherzelle 
markiert,  ob  eine  "Garbage  Collection"  durch- 
geführt werden  muß  oder  nicht. 

10 

16 

Flag  für  FN 

Hier  wird  angezeigt,  ob  es  sich  um  eine 
Array-Variable  oder  um  eine  mit  DEF  FN 
definierte  Variable  handelt. 
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Hexadresse 

Dezimal 

Belegung 

11 

17 

$00=  INPUT,  $40=  GET,  $98=  READ 

Diese  Speicherzelle  gibt  an,  in  welche  Routine 

der  BASIC-Interpreter  verzweigen  soll. 

12 

18 

Vorzeichen  bei  ATN 
Die  Speicherzelle  $12  wird  von  den 
trigonometrischen  Funktionen  zur 
Bestimmung  des  Vorzeichens  verwendet. 
Zusätzlich  dient  die  Speicherzelle  $12 
als  Vergleichsoperator  für 
Vergleichsoperationen. 

13 

19 

Aktives  I/O-Gerät  $00=  Direkteingabe 
Die  Speicherzelle  $13  wird  als  Zeiger 
für  die  Peripheriegeräte,  wie  Tastatur, 
Datasette,  RS232,  User-Port,  Bildschirm, 
Drucker  und  Floppy  verwendet. 

14-15 

20-21 

Integer- Adresse  z.B.  Zei lennuimer 
In  dieser  Speicherzelle  werden  die 
Zei lennuimern  von  den  Befehlen,  wie 
ON. .GOTO,  GOTO,  GOSUB,  ON..GOSUB 
und  der  Zeilenausgabe  beim 
LIST-Befehl  gespeichert. 

16 

22 

Zeiger  auf  String-Stack 
Die  Speicherzelle  $16  zeigt  auf  den 
nächsten  freien  Speicherplatz  im 
String-Stack. 

17-18 

23-24 

Zeiger  auf  zuletzt  verwendeten  String 
Der  Inhalt  dieser  beiden  Bytes  zeigt 
auf  den  zuletzt  verwendeten 
Speicherplatz. 

19-21 

25-33 

String-Stack 

Die  Angaben  im  String-Stack  enthalten 
die  String-Länge  sowie  die  Anfangs- 
und Endadressen  des  vorherigen  Strings. 

22-25 

34-37 

Zeiger  für  diverse  Zwecke 

Diese  Speicherzellen  benutzt  der  Interpreter, 

un  verschiedene  Zwischenergebnisse  zu  speichern. 

26- 2A 

38-42 

Register  für  Funktionsauswertung  und  Arithmetik 
Diese  Speicherzellen  werden  vom 
BASIC-Interpreter  auch  zun  Speichern 
von  Zwischenergebnissen  bei  der 
Multiplikation  und  Division  benutzt. 
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Hexadresse 

Dezimal 

Belegung 

2B-2C 

43-44 

Zeiger  auf  BASIC-Progranmanfang 
Der  Anfangsbereich  des  BASIC  ist  in 
Low-  und  High-Byte  angegeben.  Man  kann 
durch  die  beiden  Bytes  den  BASIC-Start 
abf  ragen  oder  verändern. 

2D-2E 

45-46 

Zeiger  auf  BASIC-Progra— icnde 
Dieser  Zeiger  teilt  dem  Interpreter 
das  BASIC-Ende  mit,  damit  die 
Variablen  hinter  dem  Programm  abgelegt 
werden  können. 

2F-30 

47-48 

Zeiger  auf  Start  der  Arrays 
Das  Low-  und  High-Byte  der  Adressen 
geben  dem  BASIC-Interpreter  die 
Information,  ab  welcher  Speicherzelle 
die  Arrays  eines  BASIC-Progranms 
gespeichert  sind. 

31-32 

48-50 

Zeiger  auf  Ende  der  Datenfelder 
Diese  beiden  Speicherzellen  zeigen  auf 
das  Ende  der  Arrays.  Zu  beachten  ist, 
daß  die  Zeichenketten  rückwärts 
gespeichert  werden. 

33-34 

51-52 

Zeiger  auf  String-Grenze 
Der  Inhalt  dieser  Speicherzellen 
zeigt  auf  das  Ende  des  Textspei chers, 
der  aber  noch  zugleich  das  obere  Ende 
des  frei  verfügbaren  RAM-Bereichs  anzeigt. 

35-36 

53-54 

Hilfszeiger  für  Strings 

In  diesen  Zellen  wird  die  Adresse  der 

Zeichenkette  verzeichnet,  die  als 

letzte  von  Routinen  zur  String-Manipulation 

abgespeichert  worden  ist. 

37-38 

55-56 

i 

Zeiger  auf  BASIC-RAM-Ende 
Dieser  Zeiger  gibt  dem  Interpreter  an, 
welches  die  höchste  von  BASIC 
verwendbare  Speicheradresse  ist. 

39- 3A 

57-58 

Augenblickliche  BASIC-Zei  lermunmer 
In  diesen  Speicherzellen  wird  die 
Zei lermunmer  verzeichnet,  welche 
gerade  ausgeführt  wird. 
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Hexadresse 

Dezimal 

Belegung 

3B-3C 

59-60 

Zei lennunmer  für  CONT 
Falls  eine  Unterbrechung  des 
Programmablaufs  duch  den  Befehl  STOP 
oder  über  die  <Stop>-Taste  erfolgt, 
wird  in  den  Speicheradressen  S3B-S3C 
die  Zei lennunmer  gespeichert,  die 
gerade  abgearbeitet  wurde. 

3D-3E 

61-62 

Zeiger  auf  nächstes  Statement  für  CONT 
Sobald  eine  neue  BASIC-Zeile 
verarbeitet  wird,  holt  sich  das 
Betriebssystem  die  aktuelle 
Zeilemummer  und  speichert  diese  dann 
in  $3D-$3E  als  Low-  und  High-Byte  ab. 

3F-40 

63-64 

Augenblickliche  Zei lennunmer  für  DATA 
Diese  beiden  Speicherzellen  enthalten 
die  Zei lennunmer  einer  DATA-Zeile,  die 
gerade  vom  READ-Befehl  ausgelesen  wird. 

41-42 

65-66 

Zeiger  für  nächstes  DATA-Element 
Hier  ist  die  Adresse  aufgeführt,  ab 
welcher  der  READ-Befehl  nach  der 
nächsten  DATA-Zeile  sucht. 

43-44 

67-68 

! 

Zeiger  auf  Herkunft  der  Eingabe 
Der  Zeiger  zeigt  auf  die  jeweilige 
Adresse  in  diesem  Eingabepufferspeicher. 

45-46 

69-70 

Variablenname 

Falls  während  des  Ablaufs  eines 
Programms  eine  Variable  auftaucht,  wird 
deren  Name  hier  zwischengespeichert. 

47-48 

71-72 

Vari ablenadresse 

In  diesen  Speicherzellen  wird  der  Zeiger 
auf  den  Variablenwert  abgelegt. 

49-4A 

73-74 

Zeiger  auf  Variablenelement 
Die  Adresse  einer  Schleifenvariable 
wird  zunächst  hier  gespeichert, 
bevor  sie  in  den  Stack  gebracht  wird. 

4B-4C 

75-76 

Zwischenspeicher  für  Programmzeiger 
Diese  Speicherzellen  dienen  als 
Zwischenspeicher  für  mathematische 
Operationen.  Außerdem  werden  die 
Speicherzellen  auch  noch  vom  READ-Befehl 
als  Zwischenspeicher  verwendet. 
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Hexadresse 

Dezimal 

Belegung 

4D 

77 

Maske  für  Vergleichsoperationen 
Dieser  Zeiger  wird  von  mathematischen 
Routinen  als  Vergleichsoperator 
verwendet,  daß  heiBt,  um  festzustellen, 
ob  ein  Wert  kleiner,  gleich  oder 
größer  ist. 

4E-4F 

78-79 

Zeiger  für  FM 

In  $4E-$4F  ist  die  Adresse  angegeben,  wo  die 
Variablen  und  ihre  Werte  abgelegt  sind. 

50-53 

■ 

String-Descriptor 

In  diesen  Speicherzellen  wird  unter 
anderem  die  Schrittweite  für  "Garbage 
Collection"  und  andere  wichtige 
Informationen  für  den  Interpreter  festgelegt. 

54 

84 

Konstante  S4C  JMP  für  Funktionen 

Hier  ist  die  Konstante  für  JMP  ($4C)  festgelegt. 

55-56 

85-86 

Sprungvektor  für  Funktionen 
In  $55-$56  werden  die  Sprungvektoren 
für  die  Funktionen  angegeben. 

57-5B 

87-91 

Register  für  Arithmetik,  Akku  #3 
Die  Register  werden  für  die 
Zwischenspeicherung  von 
Polynomauswertungen  (TAN)  benötigt. 

5C-60 

92-96 

Register  für  Arithmetik,  Akku  #4, 
siehe  oben 

61-65 

97-101 

Fließkomma-Akku  #1,  FAC 

Diese  Register  werden  für  die  Berechnung 

von  Fl ießkomna- Zahlen  verwendet. 

66 

102 

Vorzeichen  von  FAC 

Der  Zeiger  gibt  an,  ob  der  Wert,  der  im  FAC 
steht,  positiv  oder  negativ  ist. 

67 

103 

Zähler  für  Polynomauswertung 
Diese  Speicherzelle  dient  als  Zähler 
für  die  Polynomauswertung. 

68 

104 

Rundungs-Byte  für  FAC 
Hier  wird  angegeben,  ob  der  Wert,  der 
im  FAC  steht,  auf-  oder  abgerundet 
werden  soll. 
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69-6D 

105-109 

FlieBkomma-Akku#2,  ARG 

Diese  Register  werden  für  die  Berechnung 

von  FlieBkomma-Zahlen  verwendet. 

6E 

110 

Vorzeichen  von  ARG 

Hier  wird  angegeben,  ob  der  Wert,  der 
im  ARG  steht,  positiv  oder  negativ  ist. 

6F 

111 

Vergleichs-Byte  der  Vorzeichen  von  FAC  und  ARG 
Diese  Speicherzelle  gibt  dem 
Interpreter  an,  ob  die  Vorzeichen  der 
beiden  Akkus  übereinstimmen. 

71-72 

113-114 

Zeiger  für  Polynomauswertung 

Hier  ist  in  Low-  und  High-Byte  angegeben, 

was  ausgewertet  werden  soll. 

73-8A 

115-138 

CHRGET-Routine 

Holt  ein  Zeichen  aus  dem  BASIC-Text. 

7A-7B 

122-123 

Programnzeiger 

In  diesen  Speicherzellen  wird  in  Low- 
und  High-Byte  die  Anfangsadresse  des 
als  nächstes  auszuführenden  Befehls 
im  BASIC-RAM  angegeben. 

7C-8A 

124-138 

Unbenutzt 

8B-8F 

139-143 

Letzter  RND-Wert 

In  diesen  Registern  wird  der  letzte 
RND-Wert  im  F l i eBkommaf ormat  abgelegt. 

90 

144 

Statuswort  ST 

In  dieser  Speicherzelle,  die  auch  mit 
der  BASIC-Variable  ST  identisch  ist, 
sind  die  Fehlermeldungen  der  Datasette 
und  der  Floppy  verzeichnet: 

Datasette: 

Bit  0 = Unbenutzt 
Bit  1 - Unbenutzt 
Bit  2 = kurzer  Block 
Bit  3 = Langer  Block 
Bit  4 = Lesefehler 
Bit  5 = Prüfsunmenfehler 
Bit  6 = File-Ende 
Bit  7 = Band-Ende 
Floppy: 

Bit  0 = Fehler  beim  Schreiben 
Bit  1 = Fehler  beim  Lesen 
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Bit  2 = Unbenutzt 

Bit  3 s Unbenutzt 

Bit  4 = Unbenutzt 

Bit  5 = Unbenutzt 

Bit  6 = Daten-Ende 

Bit  7 = DEVICE  NOT  PRESENT  ERROR 


91 


145 


Flag  für  <Stop>-Taste 
In  dieser  Speicherzelle  wird  vermerkt, 
ob  die  <Stop>-Taste  gedrückt  worden  ist 
oder  nicht. 


92 


146 


2eitkonstante  für  Band 
Dieses  Register  hat  die  Aufgabe,  kleine 
Unterschiede  bei  der  Aufnahme- 
geschwindigkeit auszugleichen. 


93 


147 


Flag  für  LOAD  $00,  oder  für  VERIFY  $01 
Dieses  Flag  dient  dem  Betriebssystem 
dazu,  um  zu  unterscheiden,  ob  eine 
LOAD-  oder  eine  VERIFY-Operation  erfolgt. 


94 


148 


Flag  bei  IEC-Ausgabe 

Diese  Adresse  setzt  bei  Floppy  und 

Drucker  den  "LISTEN*1  Zustand. 


95 

149 

Ausgabepuffer  für  IEC-Bus 
Hier  wird  das  Zeichen  abgelegt, 
welches  über  den  seriellen  Port  zur 
Floppy  oder  zimi  Drucker  geschickt 
werden  soll,  sobald  die  Adresse  $94 
Bereitschaft  zeigt. 

96 

150 

Flag  für  EOT  vom  Band  empfangen 
In  $96  werden  die  Daten 
zwischengespeichert,  die  vom  Band 
gelesen  werden. 

97 

151 

Zwischenspeicher  für  Register 
Beim  Lesen  von  Band  wird  hier  das 
X-Register  zwischengespeichert. 

98 

152 

Anzahl  der  offenen  Files 
ln  dieser  Speicherzelle  wird 
festgehalten,  wie  viele  Files  gleich- 
zeitig geöffnet  sind. 
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Hexadresse 

Dezimal 
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99 

153 

Aktives  Eingabegerät 
In  dieser  Speicherzelle  wird 
festgehalten,  welches  Gerät  zur 
Eingabe  verwendet  werden  soll. 
Die  Nuimern  sind  folgendermaßen 
festgelegt: 

0 = Tastatur 

1 = Datasette 

2 - RS232  und  User-Port 

3 - Bildschirm 

4-5  = Drucker 
8-11  = Laufwerke 

9A 

154 

Aktives  Ausgabegerät 
Diese  Speicherzelle  ist  mit  der 
vorherigen  zu  vergleichen,  nur  steht 
hier  die  Nummer  des  Geräts,  über  das 
die  Ausgabe  erfolgt. 

9B 

155 

Parität  für  Band 

über  diese  Speicherzelle  findet  eine 
Parity-Prüfung  (Quersummenbildung) 
statt.  Dies  dient  dazu,  um  Lese-  und 
Schreibfehler  zu  vermeiden. 

9C 

156 

Flag  für  Byte  empfangen 
Hier  wird  festgelegt,  ob  das  gelesene 
Byte  die  Quersuime  richtig  gebildet 
hat  oder  nicht. 

90 

157 

Flag  für  Direktmodus  $80,  Programm  $00 
In  dieser  Speicherzelle  wird 
angegeben,  welche  Fehlermeldungen 
zugelassen  werden  und  welche  nicht. 

$00  unterdrückt  alle  Fehlermeldungen, 
$80  komnt  dem  normalen  Eingabemodus 
gleich  und  $C0  läßt  alle  Fehler- 
meldungen zu.  Diese  Zustände  können 
alle  künstlich  erzeugt  werden. 

9E 

158 

Band- Pass  1 Checksumme 
Diese  Speicherzelle  wird  zur 
Überprüfung  von  Bytes  bei  Kassetten- 
operationen benutzt. 

9F 

159 

Band-Pass  2 Fehlerkorrektur 
Hier  werden  die  Fehler  korrrigiert, 
die  bei  Kassettenoperationen  auf- 
getreten sind. 
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A0-A2 

160-162 

Time 

In  diesen  Speicherzellen  wird  die  Uhrzeit 
über  die  Interruptroutine  erhöht. 

A3 

163 

Bit-Zähler  für  serielle  Ausgabe 

Dieses  Register  wird  als  Zwischenspeicher 

von  Ein- /Ausgaberout inen  benutzt. 

A4 

164 

Zähler  für  Band 
siehe  oben 

A5 

165 

Zähler  für  Band  schreiben 

Diese  Speicherzelle  wird  als  Zähler 

des  Synchron-Bits  verwendet. 

A6 

166 

Zeiger  in  Bandpuffer 
Dieses  Register  wird  als  Zähler 
benutzt,  welcher  angibt,  wie  viele 
Bytes  aus  dem  Bandpuffer  gelesen 
oder  in  den  Bandpuffer  geschrieben 
worden  sind. 

A7-AB 

167-171 

Arbeitsspeicher  für  Ein- /Ausgabe 
Diese  Register  werden  häufig  von 
Kassettenoperationen  und  der  RS-232 
Schnittstelle  als  Zwischenspeicher 
benutzt. 

AC-AD 

172-173 

i 

Zeiger  für  Bandpuffer  und  Scrolling 
Diese  Speicherzellen  dienen  in  erster 
Linie  als  Zeiger  auf  die  Adresse,  ab 
welcher  ein  Programm  geladen  oder 
gespeichert  werden  soll.  Zweitens 
dienen  sie  auch  als  Zwischenspeicher 
während  des  Scrollings  des  Video-RAM 
und  beim  Einfügen  zusätzlicher  Zeilen. 

AE-AF 

174-175 

Zeiger  auf  Programmende  bei  LOAD/SAVE 
Ähnlich  wie  SAC-SAD  funktionieren 
diese  beiden  Speicherzellen.  Sie 
Zeigen  inner  auf  das  Byte,  das  gerade 
gelesen  oder  gespeichert  wurde. 

B0-B1 

176-177 

Der  Wert  in  den  Speicherzellen  wird 
benutzt,  um  die  Zeitkonstante  beim 
Lesen  von  Band  einzustellen. 
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B2-B3 

178-179 

Zeiger  auf  Bandpuffer 

Diese  beiden  Speicherzellen  zeigen  auf 

den  Baiidpuffer  ($0330 

B4 

180 

Bit-Zähler  für  Band 

Hier  wird  die  Anzahl  der  übertragenden 

Bits  gezählt. 

B5 

181 

Nächstes  Bit  für  RS-232 
Diese  Speicherzelle  enthält  inner  das 
nächste  Bit,  das  bei  RS-232  Opera- 
tionen übertragen  werden  soll. 

B6 

182 

Puffer  für  auszugebendes  Byte 
Dieses  Register  wird  als  Ausgabe- 
Zwischenspeicher  benutzt. 

B7 

183 

Länge  des  File-Namens 
In  dieser  Speicherzelle  wird 
angegeben,  aus  wie  vielen  Zeichen  der 
File-Name  besteht. 

B8 

184 

Logische  File-Nummer 

ln  dieser  Speicherzelle  wird  die 

logische  File-Nunmer  verzeichnet. 

B9 

185 

Sekundäradresse 

Hier  steht  die  jeweilige  Sekundäradresse. 

BA 

186 

Gerätenunner 

Entsprechend  ist  auch  in  dieser  Speicherzelle 
die  Gerätenunner  zu  finden. 

BB-BC 

187-188 

Zeiger  auf  File-Namen 
In  diesen  Speicherzellen  steht  ein 
Zeiger,  der  in  Low-  und  High-Byte- 
Darstellung  auf  den  File-Namen  zeigt. 

BD 

189 

Arbeitsspeicher  serielle  Ein-/Ausgabe 
Hier  wird  von  den  RS-232-Routinen  ein 
Prüf -Byte  abgelegt  (Parity-Prüfung). 

BE 

190 

Paß -Zähl er  für  Band 
In  dieser  Speicherzelle  ist  angegeben, 
wie  viele  Blockteile  von  Band  gelesen 
oder  auf  Band  geschrieben  werden  sollen. 
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BF 

191 

Puffer  für  serielle  Ausgabe 
Beim  Laden  eines  Programms  von  Band 
wird  diese  Speicherzelle  dazu  benutzt, 
u»  die  einzelnen  Bits  zu  einem  Byte 
zusammenzusetzen. 

CO 

192 

Flag  für  Bandmotor 
Der  Motor  der  Datasette  kann  nur 
eingeschaltet  werden,  wenn  die 
Speicherzelle  ungleich  Mull  ist. 

C1-C2 

193-194 

Startadresse  für  Ein-/Ausgabe 
ln  diesen  Registern  ist  in  Low-  und 
High-Byte-Darstellung  angegeben,  ab 
welcher  Adresse  ein  Programm  geladen 
oder  gespeichert  wird. 

C3-C4 

195-196 

Endadresse  für  Ein- /Ausgabe 

Hier  steht  in  Low-  und  High-Byte  der 

Zeiger  auf  den  Tape-Header  im  Bandpuffer. 

C5 

197 

Nunner  der  gedrückten  Taste 

Hier  wird  die  Nunner  der  gedrückten 

Taste  gespeichert  (64*  keine  Taste). 

C6 

198 

Anzahl  der  gedrückten  Tasten 
Hier  steht  die  jeweilige  Anzahl  der 
Zeichen,  die  im  Tastaturpuffer 
gespeichert  sind. 

C7 

199 

Flag  für  RVS-Modus 
Diese  Speicherzelle  gibt  an,  ob  die 
auszugebenden  Zeichen  "revers"  oder 
"normal"  dargestellt  werden  sollen 
(0=  normal,  1*  revers). 

C8 

200 

Zeilenende  für  Eingabe 

Dieses  Register  enthält  die  Position 

des  letzen  Zeichens  in  einer  Zeile. 

C9 

201 

Cursor-Zeile  für  Eingabe 
Diese  Speicherzelle  dient  dazu,  um  die 
Zeile  des  letzten  eingegebenen  Zeichens 
festzustellen. 

CA 

202 

Cursor-Spalte  für  Eingabe 
Diese  Speicherzelle  dient  dazu,  um  die 
Spalte  des  letzten  eingegebenen 
Zeichens  festzustellen. 
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CB 

203 

Gedrückte  Taste 

Hier  steht  der  jeweilige  Code  der 
gedrückten  Taste  (64=  keine  Taste). 

CC 

204 

j 

Flag  für  Cursor 

Der  Cursor  wird  ausgeschaltet,  wenn 
in  dieser  Speicherzelle  ein  größerer 
Wert  als  Null  steht. 

CD 

205 

Zähler  für  Cursor  blinken 
Diese  Speicherzelle  dient  als  Zähler 
für  die  Cursor-Blinkphase.  Wenn  der 
Wert  20  in  dieser  Speicherzelle  abgezählt 
ist,  wird  der  Cursor  eingeschaltet. 

CE 

206 

Zeichen  unter  dem  Cursor 
Hier  ist  jeweils  der  Bildschirmcode 
eines  Zeichens  angegeben,  das  sich 
gerade  unter  dem  Cursor  befindet. 

CF 

207 

Flag  für  Cursor 

In  diesem  Register  wird  festgehalten, 
in  welcher  Blink-Phase  sich  der  Cursor 
gerade  befindet. 

DO 

208 

Flag  für  Eingabe  von  Tastatur  oder  Bildschirm 
Hier  wird  die  Länge  der  zu 
übertragenden  Zeichen  gespeichert. 

D1-D2 

209-210 

Zeiger  auf  Start  der  Bildschirmzeile 
In  diesen  Speicherzellen  wird  in  Low- 
und  High-Byte-Darstellung  angezeigt, 
wo  sich  im  Video-RAM  die  Zeile  be- 
findet, auf  der  der  Cursor  gerade 
steht. 

D3 

211 

Cursor-Spalte 
Cursor- Spa l tenpos i t i on 

D4 

212 

Flag  für  Hochkomna-Modus 
Falls  in  dieser  Speicherzelle  eine 
Null  steht,  dann  befindet  sich  der 
Computer  im  Hoch komme -Modus.  Andere 
Werte  bewirken  den  Normalmodus. 

D5 

213 

Länge  der  Bildschirmzeile 
Der  Inhalt  dieser  Speicherzelle 
entscheidet,  ob  eine  neue  Zeile 
angefangen  werden  muB  oder  nicht. 
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D6 

214 

Cursor-Zei  le 

Hier  wird  die  Zeilenposition  des 
Cursors  festgehalten. 

D7 

215 

Speicher  für  ASCII -Tastencode 
Bevor  ein  Zeichen  in  den 
Tastaturpuffer  gebracht  wird,  wird  es 
vorher  hier  zwischengespeichert. 

D8 

216 

Anzahl  der  Inserts 

Hier  wird  die  Anzahl  der  Inserts  festgelegt. 

D9-F2 

217-242 

MSB  der  Bildschirmzeilenanfänge 

Alle  25  Speicherzellen  enthalten  Informationen 

über  die  Zeilen  des  Bildschirms. 

F3-F4 

243-244 

Zeiger  in  Farb-RAM 
Diese  Speicherzellen  zeigen  auf  die 
Stelle  im  Farb-RAM,  an  der  der  Cursor 
auf  der  Zeile  steht. 

F5-F6 

245-246 

Zeiger  auf  Tastatur-Dekodiertabelle 
Diese  Speicherzellen  zeigen  auf  die 
Tastatur-Dekodiertabel le. 

F7-F8 

247-248 

Zeiger  auf  RS-232-Eingabepuffer 
Diese  Register  zeigen  auf  die 
Anfangsadresse  des  Eingabepuffers. 

F9-FA 

249-250 

Zeiger  auf  RS-232-Ausgabepuffer 
Diese  Register  zeigen  auf  die 
Anfangsadresse  des  Ausgabepuffers. 

00FF-010A 

255-266 

Puffer  für  Umwandlung  FlieBkomma  nach  ASCII 
Diese  Register  werden  für  die 
Zwischenspeichern^  von  Fließkomma- 
zahlen  benutzt. 

0100-013E 

256-318 

Speicher  für  Korrektur  bei  Bandeingabe 
Beim  Laden  von  Band  werden  hier  die 
Daten  zwischengespeichert,  aus  denen 
das  Betriebssystem  erkennen  kann, 
welche  Bytes  fehlerhaft  sind. 

013F-01FF 

256-511 

Prozessor- Stack 
Der  Stack  ist  generell  ein 
Zwischenspeicher,  in  dem  der  Pro- 
gramm'erer  Daten  ablegen  kann.  Außer- 
dem wird  er  vom  Prozessor  dazu 
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benutzt,  bei  einem  Interrupt  oder 
einem  Unterprogramm-Aufruf  die 
Adresse,  von  der  aus  verzweigt  wurde, 
zwischenzuspeichern.  Dies  geschieht  in 
der  Reihenfolge  High-  und  Low-Byte. 

Die  Daten  werden  im  Stack  von  der 
Adresse  S01FF  zur  Adresse  $0100  hin 
abgelegt.  Bei  einem  BREAK  wird  zusätzlich 
der  Prozessorstatus  im  Stack  abgelegt. 

0200-0258 

512-600 

BASIC-Eingabepuffer 
Nach  der  Eingabe  eines  Befehls  oder 
einer  Programmzeile  werden  diese 
Daten  in  diesen  Bereich  zwischen- 
gespeichert, um  dann  wieder  weiter- 
verarbeitet  zu  werden. 

0259-0262 

601-610 

Tabelle  der  logischen  File-Nummern 
In  dieser  Tabelle  werden  die  logischen 
File-Nummern  der  Reihe  nach,  von  1-10, 
eingetragen.  Beim  Schließen  einer  Datei 
werden  diese  Einträge  wieder  entfernt. 

0263-026C 

611-620 

Tabelle  der  Gerätenummern 
Diese  Tabelle  entspricht  S0259-S0262, 
nur  mit  dem  Unterschied,  daB  hier  die 
Geräteadressen  vermerkt  werden. 

0260-0276 

621-630 

Tabelle  der  Sekundäradressen 
Diese  Tabelle  entspricht  $0259-$0262, 
nur  mit  dem  Unterschied,  daß  hier  die 
Sekundäradressen  vermerkt  werden. 

0277-0280 

631-640 

Tastaturpuffer 

Hier  werden  die  Tastencodes  zwischengespeichert, 
die  nicht  sofort  vom  Betriebssystem  weiterverar- 
beitet werden  können. 

0281-0282 

641-642 

Start  des  BASIC-RAM 
Nach  einem  RESET  oder  einem  Kaltstart 
wird  dieser  Zeiger  auf  den  nächsten 
freien  Speicherplatz  gesetzt. 

0283-0284 

643-644 

Ende  des  BASIC-RAM 

Dieser  Zeiger  wird  nach  einem  RESET 

oder  einem  Kaltstart  auf  den  letzten 

verfügbaren  freien  RAM-Speicherplatz  gesetzt. 
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0285 

645 

Timeout-Flag  für  seriellen  IEC-Bus 
Alle  Zähler  in  dieser  Speicherzelle, 
die  gröBer  als  128  sind,  bedeuten,  daB 
ein  Gerät  angeschlossen  ist.  Kleinere 
Werte  bedeuten  das  Gegenteil. 

0286 

646 

Augenblickliche  Farbe 

Hier  wird  die  Zeichenfarbe  festgelegt: 

0 = schwarz  8 = orange 

1 = weiB  9 = braw 

2 ■ rot  10  = hellrot 

3 ■ lila  11  * dunkelgrau 

4 = purpur  12  = mittelgrau 

5 = grün  13  * hellgrün 

6 3 blau  14  = hellblau 

7 = gelb  15  = hellgrau 

0287 

647 

Farbe  unter  dem  Cursor 
In  dieser  Speicherzelle  merkt  sich  das 
Betriebssystem,  welche  Farbe  gerade 
unter  dem  Cursor  steht. 

0288 

648 

High-Byte  Video-RAM 

Dieses  High-Byte  gibt  dem  Betriebssystem  an, 
ab  welcher  Adresse  das  Video-RAM  zu  finden  ist. 

0289 

649 

Länge  des  Tastaturpuffers 
Dieses  Register  gibt  an,  wie  viele 
Speicherzellen  des  Tastaturpuffers 
belegt  werden  sollen. 

028A 

650 

Flag  für  Repeat- Funktion  für  alle  Tasten 
In  dieser  Speicherzelle  wird  dem 
Betriebssystem  angegeben,  welche  Tasten 
eine  Repeat -Funktion  haben  und  welche  nicht: 
0 * nur  Cursor-,  <Inst/Del>-  und 
Leertaste 
64  = keine  Taste 
128  = alle  Tasten 

0288 

651 

Zähler  für  Repeat -Geschwindigkeit 
Diese  Speicherzelle  dient  als  Zähler, 
die  die  Repeat-Geschwindigkeit  festlegt. 

028C 

652 

Zähler  für  Repeat-Verzögerung 
Hier  wird  angegeben,  wie  lange  eine 
Taste  gedrückt  sein  muß,  bis  die 
Repeat -Funktion  einsetzt. 
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Hexadresse  Dezimal  Belegung 

0280  653  Flag  für  <Shift>,  <Conmodore>  und  <Ctrl> 

In  diesem  Register  stehen  die 
Tastencodes  der  Steuertasten: 

1 = <Shift> 

2 = <Commodore> 

3 = <Shift>  und  <Commodore> 

4 = <Ctrl> 

5 = <Shift>  und  <Ctrl> 

6 = <Conmodore>  und  <Ctrl> 

7 = <Shift>,  <Conmodore>  und  <Ctrl> 

028E  654  <Shift>-Flag 

Hier  steht  die  zuletzt  gedrückte  Steuertaste. 

028F-0290  655-656  Zeiger  für  Tastatur-Dekodierung 

Hier  steht  ein  Zeiger,  der  auf  die 
Betriebssystem-Routine  für  die  Tastatur- 
Dekodierung  zeigt. 

0291  657  Flag  für  <Shift>/<Comnodore>  gesperrt 

Falls  in  der  Speicherzelle  eine  128 
steht,  wird  eine  Umschaltung  mit 
<Shift>/<Commodore>  verriegelt.  Bei  einer 
0 wird  die  Umschaltung  zugelassen. 

0292  658  Flag  für  Scrollen 

Wenn  in  dieser  Speicherzelle  eine  0 

steht,  setzt  der  Scroll -Vorgang  ein. 

Bei  einem  größeren  Wert  setzt  dieser 
Vorgang  nicht  ein. 

0293  659  RS-232  Kontrolluert 

Hier  wird  die  Übertragungsgeschwindigkeit 
der  RS-232  Schnittstelle  festgelegt: 

Bits  0-3  steuern  die  Übertragungs- 


geschwind:'  gkeit: 
Bit-Muster  Wert 

Baud-Rate 

0000 

0 

50 

Baud 

0001 

1 

50 

Baud 

0010 

2 

75 

Baud 

0011 

3 

110 

Baud 

0100 

4 

134.5 

Baud 

0101 

5 

150 

Baud 

0110 

6 

300 

Baud 

0111 

7 

600 

Baud 

1000 

8 

1200 

Baud 

1001 

9 

1800 

Baud 

1010 

10 

2400 

Baud 

Bit  4 nicht  belegt 
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Hexadresse 


Dezimal 


Belegung 


Die  Bits  5 und  6 steuern  die  Länge 
der  Übertragung: 


Bit-Muster 

Wert 

Länge 

00 

0 

8-Bit 

01 

32 

7-Bit 

10 

64 

6-Bit 

11 

96 

5-Bit 

Bit  7 gibt  die  Anzahl 

der  STOP-Bits  an 

Bitmuster 

Wert 

Anzah l 

0 

0 

1-STOP-Bit 

1 

128 

2-STOP-Bits 

0294 


660 


RS-232- Bef eh l swort 

Die  Bits  steuern  das  Handshake-Protokoll. 


0295-0296 


661-662 


Bit-Timing 

Die  Möglichkeit,  eine  frei  wählbare 
Übertragungsgeschwindigkeit  einzustellen, 
wurde  vorgesehen,  aber  nicht  eingebaut. 


0297 


663 


RS-232-Status 

Hier  werden  die  Fehlermeldungen  der 
RS-232- Schnittstelle  angezeigt: 


Bit 

Wert 

Bedeutung 

0 

1 

Fehler  bei  Parity-Prüfung 

1 

2 

Fehler  in  der  Bit-Folge 

2 

4 

Überlauf  des  Eingabepuffers 

3 

8 

Eingabepuffer  ist  leer 

4 

16 

Das  CTS-Signal  fehlt 

5 

32 

Nicht  belegt 

6 

64 

Das  DSR-Signal  fehlt 

7 

128 

Die  Übertragung  ist  unter- 
brochen 

0298 


664 


Anzahl  der  Daten-Bits  für  RS-232 
Diese  Speicherzelle  wird  verwendet, 
um  die  Uortlänge  festzustellen. 


0299- 029A 


665-666 


RS-232-Baud-Rate 

Die  Übertragungsrate  errechnet  sich 
aus  der  Systemfrequenz  (985.25)  KHz 
dividiert  durch  die  Baud-Rate. 

Dieser  Wert  steht  in  Low-  und 
High-Byte-Darstellung  in  den  beiden 
Speicherzellen.  Er  wird  vom  Betriebssystem 
abgerufen. 
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Hexadresse 

Dezimal 

Belegung 

029B 

667 

Zeiger  für  empfangenes  Byte  RS-232 
Wenn  man  den  Inhalt  der  Speicherzelle 
mit  dem  Wert  in  SF7-SF8  addiert, 
erhält  man  die  Adresse  des  zuletzt  im 
Eingabepuffer  eingegebenen  Bytes. 

029C 

668 

Zeiger  auf  Input  von  RS-232 
Wenn  man  den  Inhalt  der  Speicherzelle 
mit  dem  Wert  in  SF7-SF8  addiert, 
erhält  man  die  Adresse  des  ersten  im 
Eingabepuffer  eingegebenen  Bytes. 

0290 

669 

Zeiger  auf  zu  übertragendes  Byte  RS-232 
Wenn  man  den  Inhalt  der  Speicherzelle 
mit  dem  Wert  in  SF9-SFA  addiert, 
erhält  man  die  Adresse  des  ersten  im 
Ausgabepuffer  eingegebenen  Bytes. 

029E 

670 

Zeiger  auf  Ausgabe  auf  RS-232 
Wenn  man  den  Inhalt  der  Speicherzelle 
mit  dem  Wert  in  SF9-SFA  addiert, 
erhält  man  die  Adresse  des  zuletzt  im 
Ausgabepuffer  eingegebenen  Bytes. 

029F-02A0 

671-672 

Speicher  für  IRQ  während  Bandbetrieb 
Bei  Kassettenoperationen  wird  hier  in 
Low-  und  High-Byte-Darstellung  der 
Vektor  für  die  Interruptroutine  gespeichert. 

02  AI 

673 

CIA-2-NMI-Flag 

Diese  Speicherzelle  erhält  den  Wert 
des  Interrupt-Steuer-Registers,  das  die 
RS-232-Schnittstelle  steuert. 

02A2 

674 

CIA-1-Timer  A 

Bei  Bandroutinen  wird  hier  das 
High-Byte  von  Timer  A zwischengespeichert. 

02A3 

675 

CIA- 1- Interrupt- Flag 
Bei  Bandroutinen  wird  in  dieser 
Speicherzelle  festgelegt,  welche  IRQ 
freigegeben  sind  und  welche  nicht. 

02A4 

676 

CIA-1-Flag  für  Timer  A 
Hier  wird  bei  Bandroutinen  angegeben, 
ob  Timer  A läuft  oder  nicht.  Wenn  hier 
eine  $00  steht,  ist  der  Timer  freigegeben, 
andernfalls  ist  er  gesperrt. 
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Hexadresse 

Dezimal 

Belegung 

02A5 

677 

Bildschirmzeile 

02A6 

678 

Flag  für  PAL-(1)  oder  HTSC-Version  (0) 
Hier  steht  ein  Wert,  der  angibt,  ob  es 
sich  un  eine  PAL-  oder  eine  NTSC- 
Version  handelt. 

02C0-02FE 

704-766 

Sprite  11 

0300-0301 

768-769 

SE38B  Vektor  für  BASIC-Uarmstart 

0302-0303 

770-771 

SA483  Vektor  für  Eingabe  einer  Zeile 

0304-0305 

772-773 

SA57C  Vektor  für  Umwandlung  in  Interpretercode 

0306-0307 

774-775 

SA71A  Vektor  für  Umrand lung  in  Klartext  (LIST) 

0308-0309 

776-777 

SA7E4  Vektor  für  "BASIC-Befehlsadresse  holen" 

030A-030B 

778-779 

SAE86  Vektor  für  "Ausdruck  auswerten" 

030C 

780 

Akku  für  SYS-Befehl 

0300 

781 

X-REG  für  SYS-Befehl 

030E 

782 

Y-REG  für  SYS-Befehl 

0310 

783 

Status-Register  für  SYS-Befehl 

0311-0312 

785-786 

SB248  USR-Vektor 

0314-0315 

788-789 

SEA31  IRQ- Vektor 

0316-0317 

790-791 

SFE66  BRK-Vektor 

0318-0319 

1 

792-793 

SFE47  NMI -Vektor 

031A-031B 

794-795 

SF34A  OPEN-Vektor 

031C-0310 

796-797 

JF291  CLOSE-Vektor 

031E-031F 

798-799 

SF20E  CHKIN-Vektor 

0320-0321 

800-801 

SF250  CKOUT-Vektor 

0322-0323 

802-803 

SF333  CLRCH-Vektor 

0324-0325 

804-805 

SF157  INPUT -Vektor 
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Dezimal 

806-807 

808-809 

810-811 

812-813 

814-815 

816-817 

818-819 

828-1019 

832-894 

896-958 

960-1022 


Hexadresse 

0326-0327 

0328-0329 

032A-032B 

032B-032C 

032E-032F 

0330-0331 

0332-0333 

033C-03FB 

0340-037E 

0380-03BE 

03C0-03FE 


Belegung 

SF1CA  OUTPUT -Vektor 
SF6ED  STOP-Vektor 
SF13E  GET-Vektor 
SF32F  CLALL-Vektor 
SFE66  Warmstart -Vektor 
$F4A5  LOAD-Vektor 
SF5ED  SAVE -Vektor 
Bandpuffer 
Sprite  13 
Sprite  14 
Sprite  15 
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Anhang  C.2:  Die  Register  des  VIC-Chips 

Die  nachfolgende  Tabelle  enthält  eine  komplette  Übersicht  über 
die  Register  des  Video-Chips  VIC.  Die  Basisadresse  des  VIC  ist 
53.248  ($D000).  In  der  Tabelle  finden  Sie  jeweils  die  Register- 
Nummer.  Die  tatsächliche  Speicheradresse  der  einzelnen  Register 
errechnet  sich  leicht  wie  folgt: 

53.248  + Register-Nummer  ($0000  + Register-Nimmer) 


Register 

Bit7  Bit6  Bit5  Bit4  Bit3  Bit2  Bitl  BitO 

00/$00 

X-Position  Sprite  0 

01/$01 

Y-Position  Sprite  0 

02/S02 

X-Position  Sprite  1 

03/$03 

Y-Position  Sprite  1 

04/$04 

X-Position  Sprite  2 

05/S05 

Y-Position  Sprite  2 

06/S06 

X-Position  Sprite  3 

07/$07 

Y-Position  Sprite  3 

08/S08 

X-Position  Sprite  4 

09/S09 

Y-Position  Sprite  4 

10/$0A 

X-Position  Sprite  5 

11/S0B 

Y-Position  Sprite  5 

12/SOC 

X-Position  Sprite  6 

13/$00 

Y-Position  Sprite  6 

14/SOE 

X-Position  Sprite  7 

15/S0F 

Y-Position  Sprite  7 

16/S10 

Spr7  Spr6  Spr5  Spr4  Spr3  Spr2  Sprl  SprO 
High-Byte  X-Position 

17/S11 

High-  Schalt-Bits  Wert  der  Zeilen- 

Byte  Hin-  Hi-  Bild-  Zei-  Verschiebung  in 
ter-  res  sch  len  Y-Richtung 
| grund  irm  anz  Smooth  Scroll. 

18/S12 

Raster-Register  +High-Byte  in  Register  17,  Bit7 

19/$13 

Lichtgriffel  X-Position 

20/$14 

Lichtgriffel  Y-Position 

21/S15 

Spr7  Spr6  Spr5  Spr4  Spr3  Spr2  Sprl  SprO 
Ein-/Ausschalten  von  Sprites  (0=aus,  1=ein) 

22/S16 

nicht  RESET  Mehr-  Spal-  Wert  der  Spalten- 
benutzt Bit  färb-  ten-  Verschiebung  in 

modus  zahl  X-Richtung 

23/S17 

Spr7  Spr6  Spr5  Spr4  Spr3  Spr2  Sprl  SprO 
Sprite-Vergrößerung  Y-Richt.  0=normal  1=doppelt 

24/S18 

Startadr.  Textbildsch. 
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Register  Bit7  Bit6  Bit5  Bit4  Bit3  Bit2  Bitl  BitO 


25/S19  Interrupt-Flags  Licht  Spr  Hin-  Ras- 

grif-  Kolli-ter-  ter 

26/$1A  Interrupt-Masken  fei  sion  grund 

27/$1B  Spr7  Spr6  SprS  Spr4  Spr 3 Spr2  Sprl  SprO 

Sprite-Hintergrund-Prior.  0=Sprite  1=Hintergr. 
Spri te-Mehrfarbmodus  0=normal  1=«nehrfarbig 
SpritevergröBerung  X-Richt.  0=r»ormat  1=doppelt 
Sprite/Sprite-Kollision  0 = nein  1= ja 
Sprite/Hintergrund-Kollision  0=nein  1= ja 
nicht  benutzt  Bildschirmrahmenfarbe 
nicht  benutzt  Hintergrundfarbe  0 

nicht  benutzt  Hintergrundfarbe  1 

nicht  benutzt  Hintergrundfarbe  2 

nicht  benutzt  Hintergrundfarbe  3 

nicht  benutzt  Sprite-Mehrfarben  0 

nicht  benutzt  Sprite-Mehrfarben  1 

nicht  benutzt  Farbe  von  Sprite  0 

nicht  benutzt  Farbe  von  Sprite  1 

nicht  benutzt  Farbe  von  Sprite  2 

nicht  benutzt  Farbe  von  Sprite  3 

nicht  benutzt  Farbe  von  Sprite  4 

nicht  benutzt  Farbe  von  Sprite  5 

nicht  benutzt  Farbe  von  Sprite  6 

nicht  benutzt  Farbe  von  Sprite  7 
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Anhang  C.3:  Bildschirm-,  Hires-Grafik-  und  Sprite- 
Speicherbereiche 

Der  Speicher  des  Commodore  64  wird  vom  Video-Chip  VIC  in 
vier  16-KByte-Blöcke  unterteilt.  Da  der  VIC  nur  16  KByte 
adressieren  kann,  müssen  sich  alle  Grafikdaten  (Bildschirm-, 
Hires-Bitmap  usw.)  jeweils  zusammen  in  einem  der  vier  Blöcke 
befinden.  In  den  folgenden  vier  Tabellen  finden  Sie  die  mögli- 
chen Startadressen  der  einzelnen  Grafik-Datenbereiche.  Zur  Er- 
innerung: Ein  Bildschirmspeicher  umfaßt  ein  KByte;  ein  Sprite- 
Zeigerbereich  acht  Byte  und  eine  Hires-Bitmap  acht  KByte. 


Bi Idschirmspeicher  Sprite-Zeiger  Hires-Bitmap 
VIC-Block  0:  00000-16383  ($0000-$3FFF)  ****************** 


1024  ($0400) 
2048  ($0800) 
3072  ($0C00) 
8192  ($2000) 
9216  ($2400) 
10240  ($2800) 
11264  ($2C00) 
12288  ($3000) 
13312  ($3400) 
14336  ($3800) 
15360  ($3C00) 


2040  ($07F8) 
3064  ($0BF8) 
4088  ($0FF8) 
9208  ($23F8) 
10232  ($27F8) 
11256  ($2BF8) 
12280  ($2FF8) 
13304  ($33F8) 
14328  ($37F8) 
15352  ($3BF8) 
16376  ($3FF8) 


8192  ($2000) 
8192  ($2000) 
8192  ($2000) 


VIC-Block  1:  16384-32767  ($4000-$7FFF)  ****************** 


16384  ($4000) 
17408  ($4400) 
18432  ($4800) 
19456  ($4C00) 
20480  ($5000) 
21504  ($5400) 
22528  ($5800) 
23552  ($5C00) 
24576  ($6000) 
25600  ($6400) 


17400  ($43F8) 
18424  ($47F8) 
19448  ($4BF8) 
20472  ($4FF8) 
21496  ($53F8) 
22520  ($57F8) 
23544  ($5BF8) 
24568  ($5FF8) 
25592  ($63F8) 
26616  ($67F8) 


24576  ($6000) 
24576  ($6000) 
24576  ($6000) 
24576  ($6000) 
24576  ($6000) 
24576  ($6000) 
24576  ($6000) 
24576  ($6000) 
16384  ($4000) 
16384  ($4000) 
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Bi  lösch i rmspei eher 

Sprite-Zeiger 

Hi  res- Bitmap 

26624  ($6800) 
27648  ($6C00) 
28672  ($7000) 
29696  ($7400) 
30720  ($7800) 
31744  ($7C00) 

27640  ($6BF8) 
28664  ($6FF8) 
29688  ($73F8) 
30712  ($77F8) 
31736  ($7BF8) 
32760  ($7FF8) 

16384  ($4000) 
16384  ($4000) 
16384  ($4000) 
16384  ($4000) 
16384  ($4000) 
16384  ($4000) 

VIC-Block  2:  32768-49151  ($8000-$BFFF) 

| ****************** 

32768  ($8000) 
33792  ($8400) 
34816  ($8800) 
35840  ($8000) 

33784  ($83F8) 
34808  ($87F8) 
35832  ($8BF8) 
36856  ($8FF8) 

40960  ($A000) 
40960  ($A000) 
40960  ($A000) 
40960  ($A000) 
32768  ($8000) 

VIC-Block  3:  49152-65535  ($C000-$FFFF) 

| ****************** 

49152  ($C000) 
50176  ($C400) 
51200  ($C800) 
52224  ($CC00) 

50168  ($C3F8) 
51192  ($C7F8) 
52216  ($CBF8) 
53240  ($CFF8) 

57344  ($E0O0) 
57344  ($EOOO) 
57344  ($E000) 
57344  ($E000) 
49152  ($C000) 
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Anhang  C.4:  Die  Register  des  SID-Chips 

Die  Basisadresse  des  SID  ist  54.272  ($D400).  In  der  Tabelle  fin- 
den Sie  jeweils  die  Register-Nummer.  Die  tatsächliche  Spei- 
cheradresse der  einzelnen  Register  errechnet  sich  leicht  wie 
folgt: 

54.272  ♦ Register-Nunner  ($0400  + Register-Nunmer) 


Register 

Bit7 

Bit6  Bits 

Bit4 

Bit3  Bit2  Bitl 

Bi  tO 

1 

00/$00 

s 

F r e q u 

e n z 

(Low- Wert) 

■ 

01/S01 

t 

F r e q u 

e n z 

(High-Wert) 

1 

02/$02 

1 

P u l s w 

e i t 

e (Low- Wert) 

1 

03/103 

m 

-- 

-- 

Pulsweite  (high) 

■ 

04/S04 

m 

Rau 

Recht  Säge 

Drei 

Test  Ring  Syn 

Gate 

y 

e 

sehen 

eck  zahn 

eck 

mod.  chron 

H 

05/105 

A 

t t a c 

k 

0 e c a 

y 

Q 

06/106 

i 

S u 

s t a l 

n 

R e l e a s 

e 

r 

07/$07 

s 

F r e q u 

e n z 

(Low- Wert) 

i 

08/$08 

t 

F r e q u 

e n z 

(High-Wert) 

b 

09/109 

i 

P u l s w 

e i t 

e (Low-Wert) 

r 

10/10A 

m 

-- 

.. 

-- 

Pulsweite  (high) 

e 

1 1/$0B 

m 

Rau 

Recht  Säge 

Drei 

Test  Ring  Syn 

Gate 

9 

e 

sehen 

eck  zahn 

eck 

mod.  chron 

i 

1 2/$0C 

A 

t t a c 

k 

0 e c a 

y 

s 

13/100 

2 

S u 

s t a 

n 

R e l e a s 

e 

t 

14/10E 

s 

F r e q u 

e n z 

(Low-Wert) 

r 

15/10F 

t 

F r e q u 

e n z 

(High-Wert) 

16/110 

1 

P u l s w 

e i t 

e (Low-Wert) 

17/111 

m 

-- 

-- 

-- 

Pulsweite  (high) 

18/112 

m 

Rau 

Recht  Säge 

Drei 

Test  Ring  Syn 

Gate 

e 

sehen 

eck  zahn 

eck 

mod.  chron 

19/113 

A 

t t a c 

k 

0 e c a 

y 

20/114 

3 

S u 

s t a 

n 

R e l e a s 

e 

21/115 

F 

-- 

-- 

-- 

Grenz freq. 

(low) 

22/116 

i 

Grenz 

Frequenz  (high) 

23/117 

i 

R e 

s o n a 

n z 

F i l t e 

r 

24/118 

t 

Aus 

Hoch  Band 

Tief 

Lautstär 

k e 

• 

pass  pass 

pass 

25/119 

R 

Potent 

i o m 

e t e r X 

L 

26/11A 

e 

Potent 

i o m 

e t e r Y 

e 

27/11 B 

9 

0 s z i 1 1 

a t o 

r Stimme  3 

s 

28/11 C 

• 

H ü l l k u 

r v e 

Stimme  3 

e 
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Anhang  C.5:  Musiknoten  und  zugehörige  Frequenzen 

Die  folgende  Tabelle  enthält  sämtliche  auf  dem  Commodore  64 
spielbaren  Musiknoten  und  ihre  zugehörigen  Frequenzen  (in 
Hertz).  In  den  Spalten  stehen  jeweils  alle  Noten  einer  Oktave. 

Zwei  Beispiele:  Der  Note  "g#"  in  der  3.  Oktave  entspricht  die 
Frequenz  207.7  Hertz,  der  Note  "d"  in  der  7.  Oktave  die  Fre- 
quenz 2349.3  Hertz. 
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Anhang  C.6:  Adressen  wichtiger  BASIC-2.0-Routinen 

Im  folgenden  finden  Sie  eine  Auswahl  interessanter  Routinen 
des  BASIC-2.0-Interpreters. 

BASIC- Kaltstartvektor  ($E394) $AOOO 

BASIC-Warmstartvektor  ($E37B) $A002 

Blockverschieberoutine $A3B8 

Prüft  auf  Ratz  im  Stapelspeicher $A3FB 

Prüft  auf  Ratz  im  Speicher $A408 

Ausgabe  von  OUT  OF  MEMORY  ERROR $A435 

Fehlermeldung  ausgeben $A437 

Einsprung  für  BREAK $A469 

Einsprung  für  READY $A474 

Eingabe-Warteschleife $A480 

Löschen  und  Einfügen  von  Programmzeilen $A49C 

BASIC-Programmzeilen  neu  binden $A533 

Holt  eine  BASIC-Zeile  in  den  Eingabepuffer $A560 

Ausgabe  von  STRING  TOO  LONG  ERROR $A571 

Umwandlung  einer  Zeile  in  Interpretercode $A579 

Startadresse  einer  BASIC-Zeile  suchen $A613 

BASIC-Befehl  NEW $A642 

BASIC-Befehl  CLR $A65E 

Programmzeiger  auf  BASIC-Start  setzen $A68E 

BASIC-Befehl  LIST $A69C 

Token  in  Klartext  umwandeln $A717 

BASIC-Befehl  FOR $A742 

Zentrale  Interpreter-Schleife $A7AE 

BASIC-Befehl  ausführen $A7ED 

BASIC-Befehl  RESTORE $A81D 

Bricht  Programm  bei  gedrückter  < Stop  > -Taste  ab $A82C 

BASIC-Befehl  STOP $A82F 

BASIC-Befehl  END $A831 

BASIC-Befehl  CONT $A857 

BASIC-Befehl  RUN $A871 

BASIC-Befehl  GOSUB $A883 

BASIC-Befehl  GOTO $A8A0 

BASIC-Befehl  RETURN $A8D2 

BASIC-Befehl  DATA $A8F8 

Nächstes  Statement  suchen $A906 

Nächste  BASIC-Zeile  suchen $A909 

BASIC-Befehl  IF $A928 

BASIC-Befehl  REM $A93B 

BASIC-Befehl  ON $A94B 

Adresse  einer  BASIC-Zeile  suchen $A96B 

BASIC-Befehl  LET $A9A5 

BASIC-Befehl  PRINT# $AA80 

BASIC-Befehl  CMD $AA86 

BASIC-Befehl  PRINT $AAA0 

String  ausgeben $AB1  E 

Leerzeichen  bzw.  CURSOR  RIGHT  ausgeben $AB3E 

BASIC-Befehl  GET $AB7B 
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BASIC-Befehl  INPUT# $ABA5 

BASIC-Befehl  INPUT $ABBF 

BASIC-Befehl  READ $AC06 

BASIC-Befehl  NEXT $AD1D 

Holt  Ausdruck  und  prüft  ihn  auf  numerisch $AD8A 

Prüft  auf  "numerisch“ $AD8D 

Prüft  auf  "String" $AD8F 

Ausgabe  von  TYPE  MISMATCH  ERROR $AD99 

Holt  und  wertet  beliebigen  Ausdruck  aus $AD9E 

Arithmetischen  Ausdruck  holen $AE83 

BASIC-Befehl  NOT $AED4 

Holt  Ausdruck  In  Klammern $AEF1 

Prüft  auf  "Klammer  zu" $AEF7 

Prüft  auf  "Klammer  auf" $AEFA 

Prüft  auf  "Komma" $AEFD 

Prüft  auf  "Zeichen  im  Akku“ $AEFF 

Ausgabe  von  SYNTAX  ERROR $AF08 

Variable  holen $AF28 

BASIC-Befehl  OR $AFE6 

BASIC-Befehl  AND $AFE9 

BASIC-Befehl  DIM $B081 

Prüft  auf  "Buchstabe" $B1 13 

FAC  nach  integer  wandeln $B1AA 

Ausgabe  von  BAD  SUBSCRIPT  ERROR $B245 

Ausgabe  von  ILLEGAL  QUANTITY  ERROR $B248 

BASIC-Funktion  FRE $B37D 

BASIC-Funktion  POS $B39E 

Ausgabe  von  ILLEGAL  DIRECT  ERROR $B3AB 

Ausgabe  von  UNDEF’D  FUNCTION $B3AE 

BASIC-Befehl  DEF $B3B3 

BASIC-Funktion  FN $B3F4 

BASIC-Funktion  STR$ $B465 

BASIC-Funktion  CHR$ $B6EC 

BASIC-Funktion  LEFT$ $B700 

BASIC-Funktion  RIGHTS $B72C 

BASIC-Funktion  MID$ $B737 

BASIC-Funktion  LEN $B77C 

BASIC-Funktion  ASC $B78B 

Byte-Ausdruck  holen $B79B 

BASIC-Funktion  VAL $B7AD 

Adreß-  und  Byte-Wert  holen $B7EB 

BASIC-Funktion  PEEK $B80D 

BASIC-Befehl  POKE $B824 

BASIC-Befehl  WAIT $B82D 

Ausgabe  von  OVERFLOW  ERROR $B97E 

BASIC-Funktion  LOG $B9EA 

Ausgabe  von  DIVISION  BY  ZERO  ERROR $BB8A 

BASIC-Funktion  SGN $BC39 

BASIC-Funktion  ABS $BC58 

BASIC-Funktion  INT.. $BCCC 

ASCII  nach  Fließkomma  umwandeln $BCF3 

Ausgabe  der  Zeilennummer  bei  Fehlermeldung $BDC2 

FAC  nach  ASCII  wandeln $BDDD 
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BASIC-Funktion  SQR $BF71 

BASIC-Funktion  EXP $BFED 

BASIC-Funktion  RND $E097 

Ausgabe  von  BREAK  ERROR $E107 

Ein  Zeichen  ausgeben !!  $E10C 

Ein  Zeichen  empfangen $E112 

Ausgabegerät  festsetzen $E118 

Eingabegerät  festsetzen $E1 1 e 

Bn  Zeichen  holen $E124 

BASIC-Befehl  SYS ’ SEI  2A 

BASIC-Befehl  SAVE '"$£156 

BASIC-Befehl  VERIFY $£165 

BASIC-Befehl  LOAD $E168 

BASIC-Befehl  OPEN «EIBE 

BASIC-Befehl  CLOSE ".Z!"  $E1C7 

BASIC-Funktion  COS SE264 

BASIC-Funktion  SIN fPonR 

BASIC-Funktion  TAN $E2B4 

BASIC-Funktion  ATN $E30E 
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Anhang  C.7:  Adressen  wichtiger  Kernal-Routinen 

Im  folgenden  finden  Sie  eine  Auswahl  interessanter  Betriebssy- 
stem-Routinen. 

IRQ-Interrupt-Routine $EA31 

RESET-Routine $FCE2 

NMI-Interrupt-Routine $FE43 

Vkleo-RESET .....$FF81 

CIA  Initialisieren $FF84 

RAM  löschen  und  testen $FF87 

I/O  initialisieren $FF8A 

I/O-Vektoren  initialisieren ..$FF8D 

Status  setzen $FF90 

Sekundäradresse  nach  LISTEN  senden $FF93 

Sekundäradresse  nach  TALK  senden $FF96 

RAM-Ende  setzen  oder  holen $FF99 

RAM-Anfang  setzen  oder  holen $FF9C 

Tastatur  abfragen $FF9F 

Timeout-Rag  für  lEC-Bus  setzen $FFA2 

Eingabe  vom  lEC-Bus $FFA5 

Ausgabe  auf  lEC-Bus $FFA8 

UNTALK  senden $FFAB 

UNUSTEN  senden $FFAE 

LISTEN  senden $FFB1 

TALK  senden $FFB4 

Status  holen $FFB7 

Rle-Parameter  setzen $FFBA 

Rle-Namen-Parameter  setzen $FFBD 

OPEN-Routine $FFC0 

CLOSE-Routine $FFC3 

Eingabegerät  setzen $FFC6 

Ausgabegerät  setzen $FFC9 

Zeicheneingabe $FFCF 

Zeichenausgabe $FFD2 

LOAD- Routine $FFD5 

SAVE-Routine $FFD8 

Time  setzen $FFDB 

Time  holen $FFDE 

< Stop  > -Taste  abfragen $FFE1 

GET-Routine $FFE4 

CLALL-Routine $FFE7 

Time  erhöhen $FFEA 

Cursor  setzen/Cursor-Position  holen... $FFF0 
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Anhang  C.8:  Alphabetisches  Verzeichnis  der  ROM- 
Routinen 


Alphabetisches  Verzeichnis  der  ROM-Routinen 

Abfrage  auf  gedrückte  Bandtaste 

Adresse  eines  Array-Bements  berechnen 

Adressen  der  BASIC-Befehle  (minus  1) 

Adressen  der  BASIC-Funktionen 

Adressen  der  Fehlermeldungen 

AdreBzeiger  erhöhen 

Anfangswert  für  RND-Funktion 

Arbeitsspeicher  initialisieren 

Array-Bement  suchen 

Array-Variable  anlegen 

Ausgabe  der  Zeilennummer  bei  Fehlermeldung 

Ausgabe  eines  Fragezeichens 

Ausgabe  eines  Leerzeichens 

Ausgabe  in  RS  232  Puffer 

ARG  = Konstanate  (A/Y) 

ARG  nach  FAC  übertragen 

ASCII-Code  nach  Bildschirmcode  wandeln 

Band  für  Lesen  vorbereiten 

Band-Header  nach  Namen  suchen 

Bandpuffer  auf  Band  schreiben 

Bandpufferzeiger  erhöhen 

BASIC-CKOUT -Routine 

BAS  IC-Kaltstart 

BASIC-NMI-Einsprung 

BASiC-Befehl  CLOSE 

BASIC-Befehl  CLR 

BASIC-Befehl  CMD 

BASiC-Befehl  CONT 

BASiC-Befehl  DATA 

BASiC-Befehl  DEF 

BASiC-Befehl  DIM 

BASiC-Befehl  END 

BASiC-Befehl  FOR 

BASiC-Befehl  GET 

BASiC-Befehl  GOSUB 

BASiC-Befehl  GOTO 

BASiC-Befehl  IF 

BASiC-Befehl  INPUT 

BASiC-Befehl  INPUT# 

BASiC-Befehl  LET 

BASiC-Befehl  ÜST 

BASiC-Befehl  LOAD 

BASiC-Befehl  NEW 

BASiC-Befehl  NEXT 

BASiC-Befehl  ON 

BASiC-Befehl  ON 


•$F82E 
■$B30E 
$A00C 
•$A052 
.$A328 
$FCDB 
$E3BA 
.$FD50 
.$B2E9 
.$8261 
$BDC2 
.$AB45 
$AB3B 
•$F014 
$BA8C 
$BBFC 
•$E691 
•$FBE2 
•$F7EA 
. $F864 
4F80D 
$E4AD 
•$E394 
SE37B 
$E1C7 
$Aß5E 
■$AA86 
•$A857 
.$A8F8 
$B3B3 
■$B081 
. $A831 
. $A742 
SAB7B 
•$A883 
•$A8A0 
$A928 
$ABBF 
$ABA5 
.$A9A5 
$A69C 
.$E168 
. $A642 
$AD1D 
•$A94B 
,$A94B 
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BASIC- Befehl  OPEN 

BASIC-Befehl  POKE 

BASIC-Befehl  PRINT 

BASIC-Befehl  PRINT# 

BASIC-Befehl  READ 

BASIC-Befehl  REM 

BASIC-Befehl  RESTORE 

BASIC-Befehl  RETURN 

BASIC-Befehl  RUN 

BASIC-Befehl  SAVE 

BASIC-Befehl  STOP 

BASIC-Befehl  SYS 

BASIC-Befehl  VERIFY 

BASIC-Befehl  WAIT 

BASIC-Befehlsworte 

BASIC-Fehlermeldungen 

BASIC-Funktion  ABS 

BASIC-Funktion  ASC 

BASIC-Funktion  ATN 

BASIC-Funktion  CHR$ 

BASIC-Funktion  COS 

BASIC-Funktion  EXP 

BASIC-Funktion  FN 

BASIC-Funktion  FRE 

BASIC-Funktion  INT 

BASIC-Funktion  LEFT$ 

BASIC-Funktion  LEN 

BASIC-Funktion  LOG 

BASIC-Funktion  MID$ 

BASIC-Funktion  PEEK 

BASIC-Funktion  POS 

BASIC-Funktion  RIGHT$ 

BASIC-Funktion  RND 

BASIC-Funktion  SGN 

BASIC-Funktion  SIN 

BASIC-Funktion  SQR 

BASIC-Funktion  STR$ 

BASIC-Funktion  TAN 

BASIC-Funktion  VAL 

BASIC-Code  in  Klartext  wandeln 

BASIC-Operator  AND 

BASIC-Operator  NOT 

BASIC-Operator  OR 

BASIC-Routine  BASIN 

BASIC-Routine  BSOUT 

BASIC-Routine  CHKIN 

BASIC-Routine  CKOUT 

BASIC-Routine  GETIN 

BASIC-Statement  ausführen 

BASIC-Vektoren  laden 

Basisadresse  der  CIAs  holen 

Betriebssystem-Meldungen 

Bildschirm  löschen 


. $E1BE 
,.$B824 
..$AAA0 
,.$AA80 
. $AC06 
,.$A93B 
,.$A81D 
,.$A8D2 
,.$A871 
..$E156 
,.$A82F 
,.$E12A 
..$E165 
. $B82D 
..$A09E 
,.$A19E 
. $BC58 
. $B78B 
..$E30E 
,$B6EC 
..$E264 
,$BFED 
,.$B3F4 
. $B37D 
$BCCC 
,.$B700 
. $B77C 
. $B9EA 
,.$B737 
. $B80D 
,.$B39E 
. $B72C 
,.$E097 
. $BC39 
,.$E26B 
..$BF71 
,.$B465 
,.$E2B4 
. $B7AD 
..$A717 
,.$AFE9 
. $AED4 
,..$AFE6 
,.$E112 
. $E10C 
..$E11E 
...  $E1 18 
,..$E124 
,$A7ED 
,..$E453 
,..$E500 
,..$E45F 
...$E544 
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Bildschirm  scrollen $E8EA 

Bildschirm-RESET $E518 

Bildschirmformat  holen !!"!!!!!!"!!!!!  $E505 

Bildschirmzeile  löschen $E9FF 

Bit  auf  Band  schreiben ..$FBAß 

Bitweise  Multiplikation $BA59 

Bit-Zähler  für  serielle  Ausgabe  setzen $FB97 

Block  vom  Band  lesen $F841 

Blockverschiebe-Routine fA3R8 

Byte  auf  seriellen  Bus  ausgeben $ED40 

Byte  auf  seriellen  Bus  ausgeben $EDOD 

Byte  vom  seriellen  Bus  holen $EE13 

Byte  vom  Band  holen $F199 

Byte  von  RS  232  holen $F1B8 

Byte-Wärt  nach  X holen,  GETBYT $B79B 

BASIN-Routine $F157 

BSOUT-Routine $F1CA 

Cursor  setzen/holen $E50A 

Cursor  Home $E566 

Cursor-Position  berechnen $E56C 

CHKIN-Routine $F20E 

CKOUT-Routine $F2S0 

CLALL-Routine $F32F 

CLOSE-Routine $F291 

CLRCH- Routine $F333 

Daten-Bits  für  RS  232  berechnen $EF4A 

Dimensionierte  Variable  holen $B1D1 

Division  FAC  = ARG  / FAC $BB12 

Division  FAC  = Konstante  (A/Y)  / FAC $BB0F 

Einfügen  einer  Fortsetzungszeile $E965 

Eingabe  einer  Zeile $A560 

Eingabe-Warteschleife $A480 

Fehlerbehandlung  bei  Eingabe $AB4D 

Fehlermeldung  ausgeben $A437 

Fehlermeldung  des  Betriebssystems $F6FB 

Rle-Parameter  setzen $F31F 

Rag  für  Systemmeldungen  setzen $FE18 

Rießkommakonstante  -32768 $B1A5 

Rießkommakonstante  0.5 $BF11 

Rießkommakonstante  10 $BAF9 

FAC  = FAC  * 10 yaaco 

FAC  = FAC  + 0.5 $B849 

FAC  = FAC  / 10 (BAFE 

FAC  = Konstante  (A/Y) $BBA2 

FAC  nach  Akku#3  übertragen $BBCA 

FAC  nach  Akku#4  übertragen $BBC7 

FAC  nach  ARG  übertragen ,....$BC0C 

FAC  nach  ASCII  wandeln  und  nach  $100 $BDDD 

FAC  nach  Variable  übertragen $BBD0 

FN-Syntax  prüfen $B3E1 

FRESTR $B6A3 

FRMEVL  Auswerten  eines  beliebigen  Ausdrucks $AD9E 

FRMNUM  Ausdruck  holen  und  auf  numerisch  prüfen $AD8A 
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Garbage  Collection $B526 

GETADR  und  GETBYT,  16-  und  8-Bit-Wert  holen $B7EB 

GETADR,  FAC  In  positive  16-Blt-Zahl  wandeln $B7F7 

GETIN-Routlne $F13E 

Hardware  und  l/O-VOktoren  setzen/holen $FD15 

Header  auf  Band  schreiben $F76A 

Hierarchie-Codes  der  BASIC-Operatoren $A080 

Hilfsroutine  für  Array-Berechnung $B34C 

Hintergrundfarbe  setzen $E4DA 

Interpreter-Schleife $A7AE 

Interrupt-Routine $EA31 

Interrupt-Routine  für  Band  lesen $F92C 

Interrupt-Routine  für  Band  schreiben $FBCD,  $FC6A 

IRQ-Bnsprung $FF48 

IRQ-Vektor  setzen $FCB8 

IRQ-Vektoren $FD98 

Kernal-Sprungtabelle $FF81 

Konstante  Pi $AEAD 

Konstanten  für  ATN $E33E 

Konstanten  für  EXP $BFBF 

Konstanten  für  FlieBkomma  nach  ASCII $BF16 

Konstanten  für  HieBkomma  nach  ASCII $BDB3 

Konstanten  für  LOG $B9BC 

Konstanten  für  RND $E08D 

Konstanten  für  SIN  und  COS $E2E0 

Konstanten  für  Umwandlung  TI  nach  Tl$ $BF3A 

Kopie  der  CHRGET-Routine $E3A2 

Listen  senden $ED0C 

Logische  Rle-Nummer  suchen $F30F 

Löschen  und  Bnfügen  von  Programmzeilen $A49C 

LOAO-Routine $F49E 

Mantisse  von  FAC  invertieren $B947 

Meldungen  des  Betriebssystems $F0BD 

Meldungen  des  Betriebssystems  ausgeben $F12B 

Meldungen  des  Interpreters $A364 

Minus  FAC  = ARG  - FAC $B853 

Minus  FAC  « Konstante  (A/Y)  - FAC $B850 

Multiplikation  FAC  = ARG  * FAC $BA2B 

Multiplikation  FAC  = Konstante  (A/Y)  * FAC $BA28 

MSB  für  Zäilenanfänge  neu  berechnen $E6B6 

Nächste  ZOile  suchen $A909 

Nächstes  Bement  eines  Ausdrucks  holen $AE83 

Nächstes  Statement  suchen $A906 

NMI-Bnsprung $FE43 

NMI-Routine  für  RS  232 $FED6 

Obergrenze  RAM  setzen/holen $FE25 

OPEN-Routine $F34A 

Parameter  für  aktives  Rle  setzen $FEOO 

Parameter  für  Rle-Namen  setzen $FDF9 

Parameter  für  LOAD  und  SAVE  holen $E1  D4 

Parameter  für  OPEN  holen $E219 

Platz  für  String  reservieren $B4F4 

Plus  FAC  = ARG  + FAC $B86A 
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Plus  FAC  = Konstante  (A/Y)  + FAC $B867 

Polynomberechnung  1 $E043 

Polynomberechnung  2 $E059 

Positive  Integer-Zahl  in  A/X  ausgeben $BDCD 

Potenzierung  FAC  = ARG  hoch  FAC $BF7B 

Potenzierung  FAC  = ARG  hoch  Konstante  (A/Y) $BF78 

Programm  vom  Band  laden $F84A 

Programm-Header  vom  Band  lesen $F72C 

Programmzeiger  auf  BASIC- Start $A68E 

Programmzeile  einfügen $A4ED 

Programmzeile  löschen $A4A9 

Programmzeilen  neu  binden $A533 

Prüfung  auf  numerisch $AD6D 

Prüfung  auf  Auto-Start-ROM $FD02 

Prüfung  auf  Buchstabe $B113 

Prüfung  auf  Erreichen  der  Endadresse $FCD1 

Prüfung  auf  Klammer  auf $AEFA 

Prüfung  auf  Klammer  zu $AEF7 

Prüfung  auf  Komma $AEFD 

Prüfung  auf  Platz  im  Speicher $A3FB 

Prüfung  auf  <Shift>,  < Ctrl  > , <Commodore> $EB48 

Prüfung  auf  Steuerzeichen $EC44 

Prüfung  auf  <Stop>-Taste $A82C 

Prüfung  auf  String $AD8F 

Prüfung  auf  Systemvariable $AF14 

Prüfung  auf  Übereinstimmung  mit  laufendem  Zeichen $AEFD 

Rechtsverschieben  eines  Registers $B983 

Rekordermotor  ausschalten $FCCA 

RESET-Routine $FCE2 

RAM  für  BASIC  initialisieren $E3BF 

ROM- Modul-Identifizierung $FD1 0 

RS-232-Ausgabe $EEBB 

RS-232-Ausgabe $F206 

RS-232-CHKIN $P04D 

RS-232-GET $F086 

Schafft  Platz  im  Speicher $A408 

Sekundäradresse  nach  Listen  senden $EDB9 

Sekundäradresse  nach  Talk  senden $EDC7 

Stapelsuch-Routine $A38E 

Startadresse  des  Bandpuffers  holen $F7D0 

Startadresse  einer  Programmzeile  berechnen $A613 

Status  holen $FE07 

<Stop>-Taste  abfragen $F6ED 

String  ausgeben $AB1  E 

String  holen,  Zeiger  nach  A/Y $B487 

String  in  reservierten  Bereich  übertragen $B67A 

String-Parameter  holen $B782 

String-Parameter  vom  Stack  holen $B761 

String-Vergleich $B02E 

String-Verknüpfung $B63D 

String-Verwaltung,  FRESTR $B6A3 

String-Zeiger  berechnen $B475 

SAVE-Routine $F5DD 
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Tabelle  der  BASIC-Vektoren $E447 

Tabelle  der  Farb-Codes $E8DA 

Tabelle  der  Hardware-  und  I/O-Vektoren $FD30 

Tabelle  der  LSB  der  Bildschirmzeilen-Anfänge $ECF0 

Talk  senden $ED09 

Tastatur-Oekodiertabelle  1 $EB81 

Tastatur-Dekodiertabelle  2 $EBC2 

Tastatur-Dekodiertabelle  3 $EC03 

Tastatur-Dekodiertabelle  4 $EC78 

Tastaturabfrage $EA87 

Term  In  Klammem  holen $AEF1 

Test  auf  Direktmodus $B3Aß 

Test  auf  Hochkomma $E684 

Test  auf  <Stop>-Taste $F8D0 

Time  erhöhen $F69B 

Time  holen $F6DD 

Time  setzen $F6E4 

Timeout-Rag  für  seriellen  Bus  setzen $FE21 

Timerkonstanten  für  RS-232-Baud-Rate,  NTSC-Version  $FEC2 

Timerkonstanten  für  RS-232-Baud-Rate,  PAL-Version $E4EC 

Umwandlung  einer  Zeile  in  Interpreter-Code $A579 

Umwandlung  ASCII  nach  RleBkommaformat $BCF3 

Umwandlung  RieBkomma  nach  Integer $B1B2 

Umwandlung  RieBkomma  nach  Integer $BC9B 

Unlisten  senden $EDFE 

Untalk  senden $EDEF 

Untergrenze  RAM  setzen/holen $FE34 

Variable  anlegen $B1 1 D 

Variable  holen $AF28 

Variable  holen $B08B 

Vergleich $B016 

Vergleich  Konstante  (A/Y)  mit  FAC..... $BC5B 

Video-Controller  initialisieren $E5A0 

Vorzeichen  von  FAC  holen $BC2B 

Warten  auf  Bandtaste $FB17 

Warten  auf  Bandtaste  für  Schreiben $F838 

Warten  auf  < Commodore  > -Taste $E4E0 

Warteschleife  für  Tastatureingabe $E5CA 

Wertzuweisung  an  normalen  String $AA2C 

Wertzuweisung  INTEGER $A9C4 

Wertzuweisung  REAL $A9D6 

Wertzuweisung  String $A9D9 

Zeichen  auf  Bildschirm  ausgeben..... $E716 

Zeichen  auf  Ziffer  prüfen $AA1  D 

Zeichen  aus  Tastaturpuffer  holen $E5B4 

Zeichen  und  Farbe  auf  Bildschirm  setzen $EA1C 

Zeichen  vom  Bildschirm  holen $E632 

Zeiger  auf  erstes  Array-Element  berechnen $B194 

Zeiger  auf  Farb-RAM  berechnen.... $EA24 

Zeiger  auf  Tastatur-Dekodiertabellen $EB79 

Zeile  nach  oben  schieben $E9C8 

Zeilennummer  holen  und  in  Adreßformat  wandeln $A96B 

Zeit  holen $AF84 
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Anhang  C.9:  Commodore-64-ROM-Usting  A000-AFFF 


AOOO  94  E3 
A002  78  E3 

***************************** 
A004  43  42  4D  42  41  53  49  43 


AOOC  30  A8 

$80 

AOOE  41  A 7 

$81 

A010  ID  AD 

$82 

A012  F7  A8 

$83 

A014  A4  AB 

$84 

A016  BE  AB 

$85 

A018  80  BO 

$86 

A01A  05  AC 

$87 

A01C  A4  A9 

$88 

A01F  9F  A8 

$89 

A020  70  A8 

$8A 

A022  27  A9 

$88 

A024  IC  A8 

$8C 

A026  82  A8 

$80 

A028  Dl  A8 

S8E 

A02A  3A  A9 

$8F 

A02C  2E  A8 

$90 

A02F  4A  A9 

$91 

A030  2C  B8 

$92 

A032  67  El 

$93 

A034  55  El 

$94 

A036  64  El 

$95 

A038  B2  B3 

$96 

A03A  23  B8 

$97 

A03C  7F  AA 

$98 

A03E  9F  AA 

$99 

A040  56  A8 

$9A 

A042  9B  A6 

$9B 

A044  5D  A6 

$9C 

A046  85  AA 

$9D 

A048  29  El 

$9E 

A04A  BD  El 

$9F 

A04C  C6  El 

$A0 

A04E  7A  AB 

$A1 

A050  41  A6 

$A2 

*****************1 

A052  39  BC 

$84 

A054  CC  BC 

$B5 

A056  58  BC 

$86 

A058  10  03 

$B7 

A05A  7D  B3 

$B8 

Start-Vektor  SE394 
NMI -Vektor  SE37B 


■cbmbasic1 

Adressen  der  BAS IC- Befehle  -1 

Interpretercode  Adresse  Befehl 
SA831  END 
SA742  FOR 
SAD IE  NEXT 

SA8F8  DATA 
SABA5  INPUT# 

SABBF  INPUT 
SB081  DIM 
SAC06  READ 
SA9A5  LET 
SA8A0  GOTO 
SA871  RUN 
SA928  IF 
SA81D  RESTORE 
SA883  GOSUB 
SA8D2  RETURN 
SA93B  REN 
SA82F  STOP 
SÄ94B  ON 
SB82D  WAIT 
SEI 68  LOAD 

SE156  SAVE 
SE165  VERIFY 
SB3B3  DEF 
SB824  POKE 
SAA80  PRINT# 

SAAAO  PRINT 
SA857  CONT 
SA69C  LIST 
SA65E  CLR 
SAA86  CMD 
SE12A  SYS 
SE1BE  OPEN 
SE1C7  CLOSE 
SAB7B  GET 
SA642  NEU 

Adressen  der  BASIC-Funktionen 
SBC39  SGN 
SBCCC  INT 
SBC58  ABS 
$0310  USR 
SB37D  FRE 
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A05C 

9E 

B3 

$B9 

SB39E 

POS 

A05E 

71 

BF 

$BA 

SBF71 

SQR 

A060 

97 

EO 

$BB 

SE097 

RND 

A062 

EA 

B9 

SBC 

SB9EA 

LOG 

A064 

ED 

BF 

SBD 

SBFED 

EXP 

A066 

64 

E2 

SBE 

SE264 

COS 

A068 

6B 

E2 

SBF 

SE26B 

SIN 

A06A 

B4 

E2 

SCO 

SE2B4 

TAN 

A06C 

OE 

E3 

SCI 

SE30E 

ATN 

A06E 

OD 

B8 

SC2 

$6800 

PEEK 

A070 

7C 

B7 

SC3 

SB77C 

LEN 

A072 

65 

B4 

SC4 

$B465 

STR$ 

A074 

AD 

B7 

SC5 

SB7AD 

VAL 

A076 

8B 

B7 

SC6 

$B78B 

ASC 

A078 

EC 

B6 

SC7 

SB6EC 

CHRS 

A07A 

00 

B7 

SC8 

SB  700 

LEFTS 

A07C 

2C 

B7 

SC9 

SB72C 

RIGHTS 

A07E 

37 

B7 

SCA 

SB737 

HID$ 

***** 

t*** 

mmm 

r*** 

r**4 

r**4 

P **« 

******  Hierachiecodes  und 

Adresser 

i-1  der  Operatoren 

A080 

79 

69 

B8 

S79, 

SB86A 

Addition 

A083 

79 

52 

B8 

$79. 

SB853 

Subtraktion 

A086 

7B 

2A 

BA 

S7B, 

SBA2B 

Multiplikation 

A089 

7B 

11 

BB 

S7B, 

$8612 

Division 

A08C 

7F 

7A 

BF 

S7F, 

SBF7B 

Potenzierung 

A08F 

50 

E8 

AF 

S50, 

SAFE9 

AND 

A092 

46 

E5 

AF 

$46. 

SAFE6 

OR 

A095 

7D 

B3 

BF 

S7D, 

SBFB4 

Vorzei chenwechsel 

A098 

5A 

D3 

AE 

S5A, 

SAED4 

NOT 

A09B 

64 

15 

BO 

$64. 

$6016 

Vergleich 

*****************************  BASIC-Befehlsworte 

A09E 

45 

4E 

end 

AOAO 

C4 

46 

4F 

D2 

4E 

45 

58  D4 

for 

next 

A0A8 

44 

41 

54 

CI 

49  4E 

50  55 

data 

input# 

AOBO 

54 

A3 

49 

4E 

50 

55 

D4  44 

input  dim 

A0B8 

49 

CD 

52 

45 

41 

C4 

4C  45 

read 

let 

AOCO 

D4 

47 

4F 

54 

CF 

52 

55  CE 

goto 

run 

A0C8 

49 

C6 

52 

45 

53 

54 

4F  52 

if 

restore 

AODO 

C5 

47 

4F 

53 

55 

C2 

52  45 

gosub  return 

A0D8 

54 

55 

52 

CE 

52 

45 

CD  53 

rem 

stop 

AOEO 

54 

4F 

DO 

4F 

CE 

57 

41  49 

on 

wait 

A0E8 

D4 

4C 

4F 

41 

C4 

53 

41  56 

load 

save 

AOFO 

C5 

56 

45 

52 

49  46 

D9  44 

verify  def 

A0F8 

45 

C6 

50 

4F 

4B 

C5 

50  52 

poke 

print# 

AI  00 

49 

4E 

54 

A3 

50 

52 

49  4E 

print 

AI  08 

D4 

43 

4F 

4E 

D4 

4C 

49  53 

cont 

l i st 

A1 10 

D4 

43 

4C 

D2 

43  4D 

C4  53 

clr 

cmd  sys 

A118 

59 

D3 

4F 

50 

45 

CE 

43  4C 

open 

close 

A120 

4F 

53 

C5 

47 

45 

D4 

4E  45 

get 

neu 

A128 

D7 

54 

41 

42 

A8  54 

CF  46 

tab( 

to 

A130 

CE 

53 

50 

43 

A8 

54 

48  45 

spc( 

then 

Anhang 
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A138 

CE 

4E 

4F 

04 

53 

54 

45 

00 

not 

stop 

AHO 

AB 

AD 

AA 

AF 

DE 

41 

4E 

C4 

+ - 

* / * and 

AI  48 

4F 

02 

BE 

BO 

BC 

53 

47 

CE 

or 

<=>  sgn 

A1S0 

49 

4E 

04 

41 

42 

03 

55 

53 

Int 

abs  usr 

AI  58 

02 

46 

52 

C5 

50 

4F 

D3 

53 

fre 

pos  sqr 

A160 

51 

02 

52 

4E 

C4 

4C 

4F 

C7 

rnd 

1 log 

A168 

45 

58 

DO 

43 

4F 

03 

53 

49 

exp 

i cos  sin 

AI  70 

CE 

54 

41 

CE 

41 

54 

CE 

50 

tan 

i atn  peek 

A178 

45 

45 

CB 

4C 

45 

CE 

53 

54 

len 

i str$ 

A180 

52 

A4 

56 

41 

CC 

41 

53 

C3 

val 

asc 

A188 

43 

48 

52 

A4 

4C 

45 

46 

54 

chr$  leftS 

A190 

A4 

52 

49 

47 

48 

54 

A4 

40 

right$  aidS 

A198 

49 

44 

A4 

47 

CF 

00 

90 

****1 

7**1 

7**1 

7**1 

7**1 

7**1 

7**1 

7*** 

B AS I C - F eh l enae l düngen 

A19E 

54 

4F 

1 

too  many  files 

AlAO 

4F 

20 

40 

41 

4E 

59 

20 

46 

A1A8 

49 

4C 

45 

D3 

46 

49 

4C 

45 

2 

file  open 

AI  BO 

20 

4F 

50 

45 

CE 

46 

49 

4C 

3 

file  not  open 

A1B8 

45 

20 

4E 

4F 

54 

20 

4F 

50 

A1C0 

45 

CE 

46 

49 

4C 

45 

20 

4E 

4 

file  not  found 

A1C8 

4F 

54 

20 

46 

4F 

55 

4E 

C4 

5 

device  not  present 

A1D0 

44 

45 

56 

49 

43 

45 

20 

4E 

AI  08 

4F 

54 

20 

50 

52 

45 

53 

45 

A1E0 

4E 

04 

4E 

4F 

54 

20 

49 

4E 

6 

not  input  file 

A1E8 

50 

55 

54 

20 

46 

49 

4C 

C5 

A1F0 

4E 

4F 

54 

20 

4F 

55 

54 

50 

7 

not  output  file 

A1F6 

55 

54 

20 

46 

49 

4C 

C5 

40 

A200 

49 

53 

53 

49 

4E 

47 

20 

46 

8 

missing  File-Name 

A208 

49 

4C 

45 

20 

4E 

41 

40 

C5 

A210 

49 

4C 

4C 

45 

47 

41 

4C 

20 

9 

illegal  device  number 

A218 

44 

45 

56 

49 

43 

45 

20 

4E 

A220 

55 

40 

42 

45 

02 

4E 

45 

58 

10 

next  without  for 

A228 

54 

20 

57 

49 

54 

48 

4F 

55 

A230 

54 

20 

46 

4F 

D2 

53 

59 

4E 

11 

syntax 

A238 

54 

41 

08 

52 

45 

54 

55 

52 

12 

retum  without  gosub 

A240 

4E 

20 

57 

49 

54 

48 

4F 

55 

A248 

54 

20 

47 

4F 

53 

55 

C2 

4F 

13  out  of  data 

A2S0 

55 

54 

20 

4F 

46 

20 

44 

41 

A258 

54 

CI 

49 

4C 

4C 

45 

47 

41 

14 

illegal  quantity 

A260 

4C 

20 

51 

55 

41 

4E 

54 

49 

A268 

54 

D9 

4F 

56 

45 

52 

46 

4C 

15 

overflow 

A270 

4F 

07 

4F 

55 

54 

20 

4F 

46 

16  out  of  Memory 

A278 

20 

40 

45 

40 

4F 

52 

D9 

55 

17  undef'd  Statement 

A280 

4E 

44 

45 

46 

27 

44 

20 

53 

A288 

54 

41 

54 

45 

40 

45 

4E 

04 

A290 

42 

41 

44 

20 

53 

55 

42 

53 

18  bad  subscript 

A298 

43 

52 

49 

50 

04 

52 

45 

44 

19 

redim'd  array 

A2A0 

49 

40 

27 

44 

20 

41 

52 

52 

A2A8 

41 

09 

44 

49 

56 

49 

53 

49 

20  division  by  zero 

A2B0 

4F 

4E 

20 

42 

59 

20 

5A 

45 

A2B8 

52 

CF 

49 

4C 

4C 

45 

47 

41 

21 

illegal  direct 

A2C0 

4C 

20 

44 

49 

52 

45 

43 

04 

A2C8 

54 

59 

50 

45 

20 

40 

49 

53 

22 

type  mismatch 
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A2D0 

4D 

41 

54 

43 

C8 

53 

54 

52 

23 

String  too  long 

A2D8 

49 

4E 

47 

20 

54 

4F 

4F 

20 

A2E0 

4C 

4F 

4E 

C7 

46 

49 

4C 

45 

24 

file  data 

A2E8 

20 

44 

41 

54 

CI 

46 

4F 

52 

25 

formula  too  complex 

A2F0 

4D 

55 

4C 

41 

20 

54 

4F 

4F 

A2F8 

20 

43 

4F 

4D 

50 

4C 

45 

D8 

A300 

43 

41 

4E 

27 

54 

20 

43 

4F 

26 

can't  conti nue 

A308 

4E 

54 

49 

4E 

55 

C5 

55 

4E 

27 

untief' d function 

A310 

44 

45 

46 

27 

44 

20 

46 

55 

A318 

4E 

43 

54 

49 

4F 

CE 

56 

45 

28 

verify 

A320 

52 

49 

46 

D9 

4C 

4F 

41 

C4 

29 

load 

A328  9E  AI  AC  AI  B5  AI  C2  AI 
A330  DO  AI  E2  AI  FO  Al  FF  AI 
A338  10  A2  25  A2  35  A2  3B  A2 
A340  4F  A2  5A  A2  6A  A2  72  A2 
A348  7F  A2  90  A2  9D  A2  AA  A2 
A350  BA  A2  C8  A2  D5  A2  E4  A2 
A358  ED  A2  00  A3  OE  A3  IE  A3 
A360  24  A3  83  A3 


Adressen  der  Fehlermeldungen 


***************************** 
A364  00  4F  4B  OD 

A368  00  20  20  45  52  52  4F  52 

A3 70  00  20  49  4E  20  00  OD  OA 

A378  52  45  41  44  59  2E  OD  OA 

A380  00  OD  OA  42  52  45  41  4B 

A388  00  AO 

***************************** 


Meldungen  des  Interpreters 
OK 

ERROR 

IN 

READY. 

BREAK 


Stapel-Suchroutine  für 
FOR-NEXT-  und  GOSUB-Befehl 


Einsprung  von  $A8D8,  $A749,  XAD2B 


A38A 

BA 

TSX 

A38B 

E8 

INX 

A38C 

E8 

INX 

A38D 

E8 

INX 

A38E 

E8 

INX 

A38F 

BD 

01 

01 

LDA 

$0101, X 

A392 

C9 

81 

CMP 

#$81 

A394 

DO 

21 

BNE 

$A3B7 

A396 

A5 

4A 

LDA 

$4A 

A398 

DO 

OA 

BNE 

$A3A4 

A39A 

BD 

02 

01 

LDA 

$0102,X 

A3  90 

85 

49 

STA 

$49 

A39F 

BD 

03 

01 

LDA 

X 

ro 

o 

o 

«A 

A3A2 

85 

4A 

STA 

$4A 

A3A4 

DD 

03 

01 

CMP 

$0103, X 

A3A7 

DO 

07 

BNE 

$A3B0 

A3A9 

A5 

49 

LDA 

$49 

A3AB 

DD 

02 

01 

CMP 

$0102, X 

Stapelzeiger  in  X-Register 
4 mal  erhöhen 
(nächsten  zwei  Rücksprung- 
adressen, Interpreter  und 
Routine,  übergehen) 
nächstes  Byte  holen 
Ist  es  FOR-Code  ? 

Nein:  dam  RTS 
Variablenzeiger  holen 
keine  Variable  (NEXT):$A3A4 
Variablenzeiger  aus 
Stapel  nach  X49/4A 
(Variablenzeiger) 
holen 

Mit  Zeiger  im  Stapel  vergl. 
Ungleich:  nächste  Schleife 
Zeiger  wieder  holen 
Mit  Zeiger  im  Stapel  vergl. 
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A3AE 

FO  07 

BEQ  SA3B7 

A3B0 

8A 

TXA 

A3B1 

18 

CLC 

A3B2 

69  12 

ADC  #$12 

A3B4 

AA 

TAX 

A3B5 

DO  08 

BNE  SA38F 

A3B7 

60 

RTS 

***************************** 


Einsprung  von  $A749,  SB15D 


A3B8 

20  08  A4 

JSR  SA408 

A3BB 

85  31 

STA  $31 

A3BD 

84  32 

STY  $32 

Einsprung  von  SB628 

A3BF 

38 

SEC 

A3C0 

A5  5A 

LDA  $5A 

A3C2 

E5  5F 

SBC  $5F 

A3C4 

85  22 

STA  $22 

A3C6 

A8 

TAY 

A3C7 

A5  5B 

LDA  S5B 

A3C9 

E5  60 

SBC  $60 

A3CB 

AA 

TAX 

A3CC 

E8 

INX 

A3  CD 

98 

TYA 

A3CE 

F0  23 

BEQ  $A3F3 

A3D0 

A5  5A 

LDA  $5A 

A3D2 

38 

SEC 

A3D3 

E5  22 

SBC  $22 

A3D5 

85  5A 

STA  $5A 

A307 

B0  03 

BCS  SA3DC 

A3D9 

C6  5B 

DEC  $5B 

A30B 

38 

SEC 

A3DC 

A5  58 

LDA  $58 

A3DE 

E5  22 

SBC  $22 

A3E0 

85  58 

STA  $58 

A3E2 

B0  08 

BCS  $A3EC 

A3E4 

C6  59 

DEC  $59 

A3E6 

90  04 

BCC  $A3EC 

A3E8 

Bl  5A 

LDA  ($5A),Y 

A3EA 

91  58 

STA  ($58), Y 

A3EC 

88 

DEY 

A3ED 

DO  F9 

BNE  $A3E8 

A3EF 

Bl  5A 

LDA  ($5A),Y 

A3F1 

91  58 

STA  ($58), Y 

A3F3 

C6  5B 

DEC  $5B 

A3F5 

C6  59 

DEC  $59 

A3F7 

CA 

DEX 

Gleich:  Schleife  gefunden, RTS 
Suchzeiger  in  Akku 
Carry  für  Addition  löschen 
Suchzeiger  um  18  erhöhen 
und  wieder  zurück  ins  X-Rg. 
nächste  Schleife  prüfen 
Rücksprung 

B l ock-Versch i eberout i ne 


prüft  auf  Platz  im  Speicher 
Ende  des  Arraybereichs 
als  Beginn  für  freien  Platz 


Carry  löschen  (Subtraktion) 
Startadresse  von  Endad.  des 
Bereichs  abziehen  (Low) 
Ergebnis  (=Länge)  speichern 
Gleiches  System  für  High: 
Altes  Blockende  (High)  und 
davon  alter  Blockanfang  sub 
Länge  nach  X bringen 
Ist  ein  Rest  ( Länge  nicht 
256  Bytes)? 

Nein:  dann  nur  ganze  Blöcke 
Alte  Endadresse  (Low)  und 
davon  Länge  des  Restab- 
schnitts subtrahieren  ergibt 
Adresse  des 
Restabschnitts 
Berechnung  für  High  umgehen 
Dasselbe  System  für  High 
Carry  setzen  (Subtraktion) 
Alte  Endadresse  (High)  und 
davon  Länge  des  Rests  sub- 
trahieren ergibt  neue  Adresse 
Unbedingter  Sprung  zur 
Kopierroutine  für  ganze 
Blöcke 

Kopierroutine  für  Rest- 
abschni tt 
Zähler  vermindern 
Alles?  wenn  nicht:  weiter 
Kopierroutine  für  ganze 
Blöcke 

Adreßzähler  vermindern 
Adreßzähler  vermindern 
Zähler  vermindern 
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A3F8  DO  F2  BNE  SA3EC  Alles?  Wenn  nicht:  weiter 

A3FA  60  RTS  sonst  Rücksprung 

*****************************  Prüfung  auf  Platz  im  Stapel 


Einsprung  von  SA885  , SAD AE 


A3FB 

OA 

ASL 

Akku  muB  die  halbe  Zahl  an 

A3FC 

69  3E 

ADC  #$3E 

erforderlichem  Platz  haben 

A3FE 

BO  35 

BCS  SA435 

gibt  'OUT  OF  MEMORY1 

A4  00 

85  22 

STA  $22 

Wert  merken 

A402 

BA 

TSX 

Ist  Stapelzeiger  kleiner 

A403 

E4  22 

CPX  $22 

<2  * Akku  + 62)? 

A405 

90  2E 

BCC  SA435 

Wenn  ja,  dann  OUT  OF  MEMORY 

A407 

60 

RTS 

Rücksprung 

*****************************  schafft  Platz  im  Speicher 


Einsprung  von  SA3B8,  SB264,  SB2B9,  $E426 


A408 

C4  34 

CPY  $34 

für  Zeileneinfügung 

A40A 

90  28 

BCC  $A434 

und  Variablen 

A40C 

DO  04 

BNE  $A412 

A/Y  = Adresse,  bis  zu  der 

A40E 

C5  33 

CMP  $33 

Platz  benötigt  wird. 

A410 

90  22 

BCC  SA434 

Kleiner  als  Stringzeiger 

A412 

48 

PHA 

Akku  Zwischenspeichern 

A413 

A2  09 

LDX  #$09 

Zähler  setzen 

A415 

98 

TYA 

Y-Register  auf 

A416 

48 

PHA 

Stapel  retten 

A417 

B5  57 

LDA  $57, X 

Ab  $57  Zwischenspeichern 

A419 

CA 

DEX 

Zähler  vermindern 

A41A 

10  FA 

BPL  $A416 

Alle?  sonst  weiter 

A41C 

20  26  B5 

JSR  $8526 

Garbage  Collection 

A41F 

A2  F7 

LDX  #$F7 

Zähler  setzen,  un 

A421 

68 

PLA 

Akku,  Y-Register  und  andere 

A422 

95  61 

STA  $61, X 

Register  zurückholen 

A424 

E8 

INX 

Zähler  vermindern 

A425 

30  FA 

BMI  SA421 

Fertig?  Nein,  dann  weiter 

A427 

68 

PLA 

Y-Register  von  Stapel 

A428 

AB 

TAY 

zurückholen 

A4  29 

68 

PLA 

Akku  holen 

A42A 

C4  34 

CPY  $34 

Ist  jetzt  genügend  Platz? 

A42C 

90  06 

BCC  $A434 

Ja:  dann  Rücksprung 

A42E 

DO  05 

BNE  SA435 

Kein  Platz,  dann  Fehler- 

A430 

C5  33 

CMP  $33 

meldung  1 out  of  memory  1 

A432 

BO  01 

BCS  $A435 

ausgeben 

A434 

60 

RTS 

Rücksprung 

Einsprung  von  $B30B 

A435 

A2  10 

LDX  #$10 

Fehlernunmer  'out  of  memory 
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*****************************  ^ehlsrcinspruns 

Einsprung  von  $A573,  $A85F,  $A8E5,  $AB68,  $AD32,  $AD9B 
$AF0A,  $B24A,  $B3B0,  $8402,  $B65A,  $B980,  $BB8C,  «109 
$E19E 

A437  6C  00  03  JMP  ($0300)  Zum  BASIC-Uarmstart  ($E38B) 
*****************************  Fehlermeldung  ausgeben 


Einsprung  von  $E38E 


A43A 

8A 

TXA 

A43B 

OA 

ASL 

A43C 

AA 

TAX 

A43D 

BD  26 

A3 

LDA 

$A326(: 

A440 

85  22 

STA 

$22 

A442 

BD  27 

A3 

LDA 

$A327f: 

A44S 

85  23 

STA 

$23 

A447 

20  CC 

FF 

JSR 

$FFCC 

A44A 

A9  00 

LDA 

#$00 

A44C 

85  13 

STA 

$13 

A44E 

20  D7 

AA 

JSR 

$AAD7 

A451 

20  45 

AB 

JSR 

$AB45 

A454 

A0  00 

LDY 

#$00 

A456 

Bl  22 

LDA 

($22), 

A458 

48 

PHA 

A459 

29  7F 

AND 

#$7F 

A4SB 

20  47 

AB 

JSR 

$AB47 

A45E 

C8 

INY 

A45F 

68 

PLA 

A460 

10  F4 

BPL 

$A456 

A462 

20  7A 

A6 

JSR 

$A67A 

A465 

A9  69 

LDA 

#$69 

A467 

A0  A3 

LDY 

#$A3 

Einsprung  von  $A851 

A469 

20  IE 

AB 

JSR 

SAB1E 

A46C 

A4  3A 

LDY 

$3A 

A46E 

C8 

INY 

A46F 

F0  03 

BEQ 

$A474 

A471 

20  C2  BD 

JSR 

$BDC2 

Einsprung  von  SE391 


A474 

A9  76 

LDA 

#$76 

A476 

AO  A3 

LDY 

#$A3 

A478 

20  IE  AB 

JSR 

SAB1E 

A47B 

A9  80 

LDA 

#$80 

A47D 

20  90  FF 

JSR 

$FF90 

Fehlernummer  im  X-Register 
Akku  * 2 

Akku  als  Zeiger  nach  X 
und  Adresse  der 
Fehlernuimer  aus  Tabelle 
holen  und 
abspeichern 

I/O  Kanäle  zurücksetzen 
und  Eingabekanal  auf 
Tastatur  setzen 
(CR)  und  (LF)  ausgeben 
'?'  ausgeben 
Zeiger  setzen 
Fehlermeldungstext  holen 
Akku  retten 
Bit  7 löschen  und 
Fehlermeldung  ausgeben 
Zähler  vermindern 
Akku  zurückholen 
Fertig?  Nein,  dann  weiter 
BASIC-Zeiger  initialisieren 
Zeiger  A/Y  auf  Error- 
Meldung  stellen 


String  ausgeben 
Auf  Programmodus 
(prog/direkt)  prüfen 
Direkt:  dann  ausgeben 
'in  Zei lennumner'  ausgeben 


Zeiger  auf  Ready-Modus 

setzen  und 

String  ausgeben 

Wert  für  Direktmodus  laden 

und  Flag  setzen 
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*****************************  Eingabe-Warteschleife 
Einsprung  von  $A530 

A480  6C  02  03  JMP  ($0302)  JNP  $A483 


Einsprung  von  $A480 


A483 

20 

60  A5 

JSR  $A560 

BASIC-Zeile  nach 

Eingabepuffer 

A486 

86 

7A 

STX  $7A 

CHRGET  Zeiger  auf 

A488 

84 

7B 

STY  $7B 

Eingabepuffer 

A48A 

20 

73  00 

JSR  $0073 

nächstes  Zeichen  holen 

A48D 

AA 

TAX 

Puffer  leer? 

A48E 

F0 

FO 

BEQ  $A480 

Ja:  dann  weiter  warten 

A490 

A2 

FF 

LDX  #$FF 

Wert  für 

A492 

86 

3A 

STX  $3A 

Kennzeichen  für  Direktmodus 

A494 

90 

06 

BCC  $A49C 

Ziffer?  als  Zeile  einfügen 

A496 

20 

79  A5 

JSR  SA579 

BASIC-Zeile  in  Code  wandeln 

A499 

4C 

El  A7 

JMP  $A7E1 

Befehl  ausführen 

***************************** 

Löschen  und  Einfügen  von 

Programmzei len 

A49C 

20  6B  A9 

JSR  $A96B 

Zeilenr.  nach  AdreBformat 

A49F 

20 

79  A5 

JSR  $A579 

BASIC-Zeile  in  Code  wandeln 

A4A2 

84 

OB 

STY  $0B 

Zeiger  in  Eingabepuffer 

A4A4 

20 

13  A6 

JSR  SA613 

Zeilenadresse  berechnen 

A4A7 

90  44 

BCC  $A4ED 

Vorhanden?  Ja:  löschen 

***************************** 

Programnzeile  löschen 

A4A9 

AO 

01 

LDY  #$01 

Zeiger  setzen 

A4AB 

Bl 

5F 

LDA  <$5F),Y 

Startadresse  der  nächsten 

A4AD 

85 

23 

STA  $23 

Zeile  (High)  setzen 

A4AF 

A5 

20 

LDA  $20 

Variablenanfangszeiger 

A4B1 

85 

22 

STA  $22 

(Low)  setzen 

A4B3 

A5 

60 

LDA  $60 

Startadresse  der  zu 

A4B5 

85 

25 

STA  $25 

löschenden  Zeile  (High) 

A4B7 

A5 

5F 

LDA  $5F 

Startadresse  der  zu 

A4B9 

88 

DEY 

löschenden  Zeile  (Low) 

A4BA 

Fl 

5F 

SBC  ($5F),Y 

Startadresse  der  nächsten 

A4BC 

18 

CLC 

Zeile  (Low) 

A4B0 

65 

2D 

ADC  $2D 

Variablenanfangszeiger  (Low) 

A4BF 

85 

2D 

STA  $2D 

ergibt  neuen  Variablenan- 

A4C1 

85 

24 

STA  $24 

fangszeiger  (Low) 

A4C3 

A5 

2E 

LDA  $2E 

Gleiches  System  für 

A4C5 

69 

FF 

ADC  #$FF 

High-Byte  des  Variablenan- 

A4C7 

85 

2E 

STA  $2E 

fangszeigers 

A4C9 

E5 

60 

SBC  $60 

minus  Startadresse  der  zu 

A4CB 

AA 

TAX 

löschenden  Zeile  (Low)  ergibt 

A4CC 

38 

SEC 

die  zu  verschiebenden  Blöcke 

A4CD 

A5 

5F 

LDA  $5F 

Startadresse  (Low)  minus 

A4CF 

E5 

20 

SBC  $2D 

Variablenanfangszeiger  (Low) 

A4D1 

A8 

TAY 

ergibt  Länge  des  Restabschn. 

A4D2 

BO 

03 

BCS  $A4D7 

Größer  als  255?  Nein:  $A4D7 

Anhang 
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A404 

E8 

INX 

Zähler  für  Blöcke  erhöhen 

A4D5 

C6 

25 

DEC  »5 

Transportzeiger  vermindern 

A4D7 

18 

CLC 

Carry  löschen 

A4D8 

65 

22 

ADC  $22 

Anfangszeiger  (Low) 

A4DA 

90 

03 

BCC  $A4DF 

Verminderung  überspringen 

A4DC 

C6 

23 

DEC  $23 

Zeiger  an  1 vermindern 

A40E 

18 

CLC 

Carry  löschen 

A4DF 

Bl 

22 

LDA  ($22). Y Verschiebeschleife 

A4E1 

91 

24 

STA  ($24) ,Y 

Wert  abspei ehern 

A4E3 

C8 

INY 

Zähler  an  1 erhöhen 

A4E4 

DO 

F9 

BNE  $A4DF 

Block  fertig?  Nein:  weiter 

A4E6 

E6 

23 

INC  $23 

I.AdreBzeiger  erhöhen  (Low) 

A4E8 

E6 

25 

INC  $25 

2.AdreBzeiger  erhöhen  (Low) 

A4EA 

CA 

DEX 

Blockzähler  an  1 vermindern 

A4EB 

DO 

F2 

BNE  SA40F 

Alle  Blöcke?  Nein:  weiter 

**************************** 

Programme«'  le  einfügen 

A4E0 

20 

59  A6 

JSR  $A659 

CLR-Befehl 

A4F0 

20 

33  A5 

JSR  $A533 

Programnzei len  neu  binden 

A4F3 

AD 

00  02 

LDA  $0200 

Zeichen  im  Puffer? 

A4F6 

FO 

88 

BEO  SA 480 

Nein:  dann  zur  Warteschleife 

A4F8 

18 

CLC 

Carry  löschen 

A4F9 

AS 

2D 

LDA  $2D 

Variablenanfangszeiger  (Low) 

A4FB 

85 

5A 

STA  S5A 

als  Endadresse  (Quellbereich) 

A4  FD 

65 

OB 

ADC  $0B 

+ Länge  der  Zeile  als  End- 

A4FF 

85 

58 

STA  $58 

adresse  des  Zielbereichs  Low 

A501 

A4 

2E 

LDY  S2E 

Variablenanfangszeiger  als 

A503 

84 

5B 

STY  $5B 

Endadr.  des  Quellbereichs  Low 

A505 

90 

01 

BCC  $A508 

Kein  Übertrag?  dann  $A508 

A507 

C8 

INY 

Übertrag  addieren 

A508 

84 

59 

STY  $59 

Als  Endadresse 
des  Zielbereichs 

A50A 

20 

B8  A3 

JSR  $A3B8 

BASIC-Zeilen  verschieben 

A50D 

A5 

14 

LDA  $14 

Zeilermumaer  aus 

A50F 

A4 

15 

LDY  $15 

$14/15  vor 

A511 

80 

FE  01 

STA  $01  FE 

BASIC-Eingabepuffer  setzen 

A514 

8C 

FF  01 

STY  $01  FF 

(ab  $0200)  . 

A517 

A5 

31 

LDA  $31 

Neuer  Variablen- 

A519 

A4 

32 

LDY  $32 

endzeiger 

A51B 

85 

2D 

STA  $2D 

als  Zeiger  auf  Progranm- 

A51D 

84 

2E 

STY  $2E 

ende  speichern 

A51F 

A4 

OB 

LDY  $0B 

Zeilenlänge  holen 

A521 

88 

DEY 

und  an  1 vermindern 

A522 

B9 

FC  01 

LDA  $01FC,Y 

Zeile  aus  Eingabepuffer 

A52S 

91 

5F 

STA  ($5F),Y 

ins  Progranm  kopieren 

A527 

88 

DEY 

Schon  alle  Zeichen? 

A528 

10 

F8 

BPL  $A522 

Nein:  dann  weiterkopieren 

Einsprung 

von  SE1B2 

A52A 

20 

59  A6 

JSR  $A659 

CLR-Befehl 

A52D 

20 

33  A5 

JSR  $A533 

Programnzei len  neu  binden 

A530 

4C 

80  A4 

JNP  SA480 

zur  Eingabe-Warteschleife 
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****************************  BASIC-Zeilen  neu  binden 
Einsprung  von  $A4F0,  $A520,  $E1B8 


A533 

A5 

2B 

LDA  S2B 

Zeiger  auf  BASIC-Progranm- 

A535 

A4 

2C 

LDY  S2C 

start  holen  und 

A537 

85 

22 

STA  $22 

und  als  Suchzeiger  nach 

A539 

84 

23 

STY  $23 

$22/23  speichern 

A53B 

18 

CLC 

Carry  löschen 

A53C 

AO 

01 

LDY  #$01 

Zeiger  laden 

A53E 

Bl 

22 

LDA  ($22),Y 

Zeilenadresse  holen 

A540 

FO 

ID 

BEQ  $A55F 

=0?  Ja:  dann  RTS 

A542 

AO 

04 

LDY  #$04 

Zeiger  auf  erstes  BASIC- 

A544 

C8 

INY 

zeichen  setzen 

A545 

Bl 

22 

LDA  ($22),Y 

Zeichen  holen 

A547 

DO 

FB 

BNE  SA544 

=0?  (Zeilenende)  Nein:  weiter 

A549 

C8 

INY 

Zeilenlänge  nach 

A54A 

98 

TYA 

Akku  schieben 

A54B 

65 

22 

ADC  $22 

+ Zeiger  auf  aktuelle  Zeile 

A54D 

AA 

TAX 

(Low)  ins  X-Register 

A54E 

AO 

00 

LDY  #$00 

Zeiger  laden 

A550 

91 

22 

STA  ($22), Y Akku  als  Adr. Zeiger  (Low) 

A552 

A5 

23 

LDA  $23 

Zeiger  auf  aktuelle 
Zeile  (High) 

A554 

69 

00 

ADC  #$00 

Übertrag  addieren 

A556 

C8 

INY 

Zähler  um  1 erhöhen 

A557 

91 

22 

STA  ($22), Y Adreßzeiger  (High)  speichern 

A559 

86 

22 

STX  $22 

Startadresse  der  nächsten 

A55B 

85 

23 

STA  $23 

Zeile  abspeichern 

A55D 

90 

DD 

BCC  SA53C 

Zum  Zeilenanfang 

A55F 

60 

RTS 

Rücksprung 

****************************  Eingabe  einer  Zeile 


Einsprung 

von  $A483,  $AC03 

A560 

A2 

00 

LDX  #$00 

A562 

20 

12  El 

JSR  SEI 12 

A565 

C9 

OD 

CUP  #$0D 

A567 

FO 

OD 

BEO  $A576 

A569 

9D 

00  02 

STA  $0200, X 

A56C 

E8 

INX 

A560 

EO 

59 

CPX  #$59 

A56F 

90 

Fl 

BCC  $A562 

A571 

A2 

17 

LDX  #$17 

A573 

4C 

37  A4 

JMP  $A437 

A576 

4C 

CA  AA 

JMP  $AACA 

Zeiger  setzen 
ein  Zeichen  holen 
<Return>-Taste? 

Ja:  dann  Eingabe  beenden 
Zeichen  nach  Eingabepuffer 
Zeiger  un  1 erhöhen 
89.  Zeichen  ? 

Nein:  weitere  Zeichen  holen 
Nummer  für  'string  too  long1 
Fehlermeldung  ausgeben 
Puffer  mit  SO  abschließen,  CR 


****************************  Umwandlung  einer  Zeile  in  den 

Interpreter-Code 
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Einsprung  von  1A496,  SA49F 

A579  6C  04  03  JMP  ($0304)  JHP  SA57C 


Einsprung  von  $A579 


A57C 

A6  7A 

LDX  $7A 

Zeiger  setzen,  erstes  Zeichen 

A57E 

AO  04 

LDY  #$04 

Wert  für  codierte  Zeile 

A580 

84  OF 

STY  $0F 

Flag  für  Hoch komme 

A582 

BO  00  02 

LDA  $0200, X 

Zeichen  aus  Puffer  holen 

A585 

10  07 

BPL  $A58E 

kein  BASIC-Code  7 kleiner  128 

A587 

C9  FF 

CHP  #$FF 

Code  für  Pi  7 

A589 

FO  3E 

BEQ  $A5C9 

Ja:  dann  speichern 

A58B 

E8 

INX 

Zeiger  erhöhen 

A58C 

DO  F4 

BNE  $A582 

nächstes  Zeichen  überprüfen 

A58E 

C9  20 

CHP  #$20 

1 1 Leerzeichen? 

A590 

FO  37 

BEQ  $A5C9 

Ja:  dann  speichern 

A592 

85  08 

STA  $08 

in  Hochkomma-Flag  speichern 

A594 

C9  22 

CHP  #$22 

1,11  Hochkoana? 

A596 

FO  56 

BEQ  $A5EE 

Ja:  dam  speichern 

A598 

24  OF 

BIT  $0F 

überprüft  auf  Bit  6 

A59A 

70  20 

BVS  $A5C9 

gesetzt:  ASCII  speichern 

A59C 

C9  3F 

CHP  #$3F 

'?'  Fragezeichen? 

A59E 

DO  04 

BNE  $A5A4 

Nein:  dam  weiter  prüfen 

ASAO 

A9  99 

LDA  #$99 

PRINT-Code  für  ? laden 

A5A2 

DO  25 

BNE  $A5C9 

und  abspeichern 

A5A4 

C9  30 

CHP  #$30 

Kleiner  $30  ? (Code  für  0) 

A5A6 

90  04 

BCC  SA5AC 

Ja:  dam  SA5AC 

ASA8 

C9  3C 

CHP  #$3C 

Hit  $3C  vergleichen 

A5AA 

90  ID 

BCC  $A5C9 

wem  gröBer,  dam  $A5C9 

A5AC 

84  71 

STY  $71 

Zeiger  Zwischenspeichern 

A5AE 

AO  00 

LDY  #$00 

Zähler  für  Token-Tabelle 

A5B0 

84  OB 

STY  SOS 

initialisieren 

A5B2 

88 

DEY 

ASB3 

86  7A 

STX  $7A 

Zeiger  auf  Eingabepuffer 

A5BS 

CA 

DEX 

zw i schenspe i ehern 

A5B6 

C8 

INY 

X-  und  Y-Register 

A5B7 

E8 

INX 

um  1 erhöhen 

A5B8 

BD  00  02 

LDA  $0200,X 

Zeichen  aus  Puffer  laden 

A5BB 

38 

SEC 

Carry  für  Subtr.  löschen 

A5BC 

F9  9E  AO 

SBC  $A09E, Y 

Zeichen  mit  Befehlswort  vergleichen 

A5BF 

FO  F5 

BEQ  $A5B6 

Gefunden?  Ja:  nächstes  Zeich. 

A5C1 

C9  80 

CHP  #$80 

mit  $80  (128)  vergleichen 

A5C3 

DO  30 

BNE  $A5F5 

Befehl  nicht  gefunden:  $A5F5 

A5C5 

05  OB 

ORA  $0B 

BASIC-Code  gleich  Zähler  +$80 

A5C7 

A4  71 

LDY  $71 

Zeiger  auf  cod.  Zeile  holen 

A5C9 

E8 

INX 

A5CA 

C8 

INY 

Zeiger  erhöhen 

A5CB 

99  FB  01 

STA  $01FB, Y BAS IC- Code  speichern 

A5CE 

89  FB  01 

LDA  $01FB,Y  und  Status-Register  setzen 

A5D1 

FO  36 

BEQ  $A609 

=0  (Ende):  dam  fertig 

A5D3 

38 

SEC 

Carry  setzen  (Subtraktion) 

A5D4 

E9  3A 

SBC  #$3A 

Trennzeichen? 
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A5D6 

FO 

04 

BEQ 

SA5DC 

Ja:  dann  $A5DC 

A5D8 

C9 

49 

CMP 

#$49 

DATA- Code  ? 

A5DA 

DO 

02 

BNE 

$A5DE 

Nein:  Speichern  überspringen 

A5DC 

85 

OF 

STA 

$0F 

nach  Hochkomma-Flag  speichern 

A5DE 

38 

SEC 

Carry  setzen 

A5DF 

E9 

55 

SBC 

#$55 

REM-Code  7 

A5E1 

DO 

9F 

BNE 

$A582 

Nein:  zun  Schleifenanfang 

A5E3 

85 

08 

STA 

$08 

0 in  Hochkomna-Flag 

A5E5 

BD 

00  02 

IDA 

$0200,X 

nächstes  Zeichen  holen 

A5E8 

FO 

DF 

BEQ 

$A5C9 

=0  (Ende)?  Ja:  dann  $A5C9 

A5EA 

C5 

08 

CMP 

$08 

Als  ASCII  speichern? 

A5EC 

FO 

DB 

BEQ 

$A5C9 

Nein:  dann  SA5C9 

A5EE 

C8 

INY 

Zeiger  erhöhen 

A5EF 

99 

FB 

01 

STA 

$01FB,Y 

Code  abspeichern 

A5F2 

E8 

INX 

Zeiger  erhöhen 

A5F3 

DO 

FO 

BNE 

$A5E5 

Zum  Schleifenanfang 

A5F5 

A6 

7A 

LDX 

$7A 

Zeiger  wieder  auf  Eingabepuffer 

A5F7 

E6 

OB 

INC 

$0B 

Suchzähler  erhöhen 

A5F9 

C8 

INY 

Zöhler  erhöhen 

A5FA 

B9 

90 

AO 

LDA 

$A09D,Y 

nächsten  Befehl  suchen 

A5FD 

10 

FA 

BPL 

$A5F9 

Gefunden?  Nein:  weitersuchen 

A5FF 

B9 

9E 

AO 

LDA 

$A09E,Y 

Ende  der  Tabelle? 

A602 

DO 

B4 

BNE 

$A5B8 

Nein:  dann  weiter 

A604 

BD 

00 

02 

LDA 

$0200, X 

nächstes  Zeichen  holen 

A607 

10 

BE 

BPL 

$A5C7 

kleiner  $80?  Ja:  $A5C7 

A609 

99 

FD 

01 

STA 

$01FD,Y 

im  Eingabepuffer  speichern 

A60C 

C6 

7B 

DEC 

$7B 

CHRGET-Zeiger  zurücksetzen 

A60E 

A9 

FF 

LDA 

#$FF 

Zeiger  auf  Eingabepuffer  -1 

A610 

85 

7A 

STA 

$7A 

setzen  (Low) 

A612 

60 

RTS 

Rücksprung 

**************************** 

Startadresse  einer 

Programmzei le  berechnen 

Einsprung 

von  SA4A4 , $A6A7 

A613 

A5 

2B 

LDA 

$2B 

Zeiger  auf  BASIC- 

A615 

A6 

2C 

LDX 

$2C 

Programmstart  laden 

E i nsprung 

von  $A8C0 

A617 

AO 

01 

LDY 

#$01 

Zähler  setzen 

A619 

85 

5F 

STA 

$5F 

BASIC-Programmstart  als 

A61B 

86 

60 

STX 

$60 

Zeiger  nach  $5F/60 

A61D 

Bl 

5F 

LDA 

($5F),Y 

Link-Adresse  holen  (High) 

A61F 

FO 

1F 

BEQ 

$A640 

gleich  null:  dann  Ende 

A621 

C8 

INY 

Zähler  2 mal  erhöhen  ( Low- 

A622 

C8 

INY 

Byte  übergehen) 

A623 

A5 

15 

LDA 

$15 

gesuchte  Zei lennumner  (High) 

A625 

Dl 

5F 

CMP 

($5F), Y 

mit  aktueller  vergleichen 

A627 

90 

18 

BCC 

$A641 

kleiner:  dann  nicht  gefunden 

A629 

FO 

03 

BEQ 

$A62E 

gleich:  Numner  Low  prüfen 

A62B 

88 

DEY 

Zähler  um  1 vermindern 
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A62C 

DO  09 

BNE 

$A637 

unbedingter  Sprung 

A62E 

A5  14 

LDA 

$14 

gesuchte  Zeilennumner  (Low) 

A630 

88 

DEY 

Zeiger  um  1 vermindern 

A631 

Dl  5F 

CMP 

($5F),Y 

Zeilennumner  Low  vergleichen 

A633 

90  OC 

BCC 

$A641 

kleiner:  Zeile  nicht  gefunden 

A635 

FO  OA 

BEQ 

$A641 

oder  gleich:  C=1  und  RTS 

A637 

88 

DEY 

Y-Register  auf  1 setzen 

A638 

Bl  5F 

LDA 

($5F),Y 

Adresse  der  nächsten  Zeile 

A63A 

AA 

TAX 

in  das  X-Register  laden 

A63B 

88 

DEY 

Register  vermindern  (auf  0) 

A63C 

Bl  5F 

LDA 

($5F),Y 

Link -Adresse  holen  (Low) 

A63E 

BO  D7 

BCS 

$A617 

weiter  suchen 

A640 

18 

CLC 

Carry  löschen 

A641 

60 

RTS 

Rücksprung 

****************************  BASIC-Befehl  NEU 
A642  DO  FD  BNE  $A641  Kein  Trennzeichen:  SYNTAX 

ERROR 


Einsprung 

von 

$E444 

A644 

A9 

00 

LDA 

#$00 

Nullcode  laden 

A646 

A8 

TAY 

und  als  Zähler  ins  Y-Reg. 

A647 

91 

2B 

STA 

($2B), Y 

Nullcode  an  Programmanfang 

A649 

C8 

INY 

Zähler  erhöhen 

A64A 

91 

2B 

STA 

($2B),Y 

noch  einen  Nullcode  dahinter 

A64C 

A5 

2B 

LDA 

$2B 

Zeiger  auf  Programmst.  (Low) 

A64E 

18 

CLC 

Carry  löschen 

A64F 

69 

02 

ADC 

#$02 

Programmstart  + 2 ergibt 

A651 

85 

2D 

STA 

$2D 

neuen  Variablenstart  (Low) 

A653 

A5 

2C 

LDA 

$2C 

Zeiger  auf  Programmst.  (High) 

A655 

69 

00 

ADC 

#$00 

+ Übertrag  ergibt  neuen 

A657 

85 

2E 

STA 

$2E 

Variablenstart  (High) 

E i nsprung 

von 

(A4 ED,  SA52A,  SA87A 

A659 

20 

8E 

A6 

JSR 

$A68E 

CHRGET,  Routine  neu  setzen 

A65C 

A9 

00 

LDA  #$00 

Zero- Flag  für  CLR  = 1 setzen 

**************************** 

BASIC-Befehl  CLR 

A65E 

DO 

2D 

BNE 

$A68D 

Kein  Trennzeichen:  SYNTAX 
ERROR 

Einsprung 

von  SA87D 

A660 

20 

E7 

FF 

JSR 

$FFE7 

alle  I/O  Kanäle  zurücksetzen 

E i nsprung 

von  $E101 

A663 

A5 

37 

LDA 

$37 

Zeiger  auf  BASIC-RAM-Ende 

A665 

A4 

38 

LDY 

$38 

(Low/High)  laden 

A667 

85 

33 

STA 

$33 

String-Start  auf  BASIC- 

A669 

84 

34 

STY 

$34 

RAM-Ende  setzen 
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A66B 

A5  2D 

LDA  $2D 

Zeiger  auf  Variablen- 

A66D 

A4  2E 

LDY  $2E 

start  laden 

A66F 

85  2F 

STA  S2F 

und  in  Array- Anfangs- 

A671 

84  30 

STY  S30 

zeiger  setzen 

A673 

85  31 

STA  $31 

und  in  Zeiger  auf  Array- 

A675 

84  32 

STY  $32 

Ende  speichern 

Einsprung  von  SE1BB 

A677 

20  10  A8 

JSR  $A81D 

RESTORE- Befehl 

E i nsprung  von  SA462 , $E382 

A67A 

A2  19 

LDX  #$19 

Wert  laden  und  String- 

A67C 

86  16 

STX  $16 

Descriptor- Index  zurücksetzen 

A67E 

68 

PLA 

2 Bytes  vom  Stapel  in  das 

A67F 

A8 

TAY 

Y-Register  und  den 

A680 

68 

PLA 

Akku  holen 

A681 

A2  FA 

LDX  #$FA 

Uert  laden  und  damit 

A683 

9A 

TXS 

Stapelzeiger  initialisieren 

A684 

48 

PHA 

2 Bytes  aus  dem  Y-Register 

A685 

98 

TYA 

und  dem  Akku  wieder  auf 

A686 

48 

PHA 

den  Stapel  schieben 

A687 

A9  00 

LDA  #$00 

Uert  laden  und  damit 

A689 

85  3E 

STA  $3E 

CONT  sperren 

A68B 

85  10 

STA  $10 

und  in  FN-Flag  speichern 

A68D 

60 

RTS 

Rücksprung 

****** 

,*••••*••**< 

Programmzeiger  auf 
BASIC-Start 

Einsprung  von  SA659,  $E1B5 

A68E 

18 

CLC 

Carry  löschen  (Addition) 

A68F 

A5  28 

LDA  $2B 

Zeiger  auf  Programmstart  (Low) 

A691 

69  FF 

ADC  #$FF 

minus  1 ergibt 

A693 

85  7A 

STA  $7A 

neuen  CHRGET-Zeiger  (Low) 

A695 

A5  2C 

LDA  $2C 

Programmstart  (High) 

A697 

69  FF 

ADC  #$FF 

minus  1 ergibt 

A699 

85  7B 

STA  $7B 

CHRGET-Zeiger  (High) 

A69B 

60 

RTS 

Rücksprung 

**************************** 

BASIC  Befehl  LIST 

A69C 

90  06 

BCC  SA6A4 

Ziffer  ? (Zei lennunmer) 

A69E 

FO  04 

BEQ  SA6A4 

nur  LIST  ? 

A6A0 

C9  AB 

CMP  #$AB 

Code  für  '-'? 

A6A2 

DO  E9 

BNE  SA68D 

anderer  Code,  dann  SYNTAX  ERR 

A6A4 

20  6B  A9 

JSR  $A96B 

Zeilennummer  holen 

A6A7 

20  13  A6 

JSR  $A613 

Startadresse  berechnen 

A6AA 

20  79  00 

JSR  $0079 

CHRGOT  letztes  Zeichen  holen 

A6AD 

FO  OC 

BEQ  $A6BB 

keine  Zeilennuimer 

A6AF 

C9  AB 

CMP  #$AB 

Code  für  •-'? 

A6B1 

DO  8E 

BNE  $A641 

Nein:  SYNTAX  ERROR 
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A6B3 

20  73  00 

JSR  $0073 

A6B6 

20  6B  A9 

JSR  $A96B 

A6B9 

DO  86 

BNE  SA641 

A6BB 

68 

PLA 

A6BC 

68 

PLA 

A6BD 

A5  14 

LDA  $14 

A6BF 

05  15 

ORA  $15 

A6C1 

DO  06 

BNE  $A6C9 

A6C3 

A9  FF 

LDA  #$FF 

A6C5 

85  14 

STA  $14 

A6C7 

85  15 

STA  $15 

A6C9 

A0  01 

LDY  #$01 

A6CB 

84  0F 

STY  $0F 

A6CD 

Bl  5F 

LDA  ($5F), Y 

A6CF 

F0  43 

BEQ  SA714 

A601 

20  2C  A8 

JSR  $A82C 

A604 

20  D7  AA 

JSR  $AAD7 

A607 

C8 

INY 

A608 

Bl  5F 

LDA  ($5F),Y 

A60A 

AA 

TAX 

A60B 

C8 

INY 

A60C 

Bl  5F 

LDA  ($5F),Y 

A60E 

C5  15 

CMP  $15 

A6E0 

DO  04 

BNE  $A6E6 

A6E2 

E4  14 

CPX  $14 

A6E4 

F0  02 

BEQ  $A6E8 

A6E6 

B0  2C 

BCS  $A714 

A6E8 

84  49 

STY  $49 

A6EA 

20  CD  BD 

JSR  $BDCD 

A6ED 

A9  20 

LDA  #$20 

A6EF 

A4  49 

LDY  $49 

A6F1 

29  7F 

AND  #$7F 

A6F3 

20  47  AB 

JSR  $AB47 

A6F6 

C9  22 

CMP  #$22 

A6F8 

DO  06 

BNE  $A700 

A6FA 

A5  0F 

LDA  $0F 

A6FC 

49  FF 

EOR  #$FF 

A6FE 

85  0F 

STA  $0F 

A700 

C8 

INY 

A701 

F0  11 

BEQ  $A714 

A703 

Bl  5F 

LDA  ($5F) , Y 

A705 

DO  10 

BNE  SA717 

A707 

A8 

TAY 

A708 

Bl  5F 

LOA  ($5F),Y 

A70A 

AA 

TAX 

A70B 

C8 

INY 

A70C 

Bl  5F 

LDA  ($5F),Y 

A70E 

86  5F 

STX  $5F 

A710 

85  60 

STA  $60 

A712 

DO  B5 

BNE  $A6C9 

A714 

4C  86  E3 

JMP  $E386 

CHRGET  nächstes  Zeichen  holen 
Zei lermummer  holen 
Kein  Trennzeichen:  SYNTAX  ERR 
2 Bytes  von  Stapel  holen 
(Rücksprungadresse  übergehen) 
zweite  Zei lennunmer  laden 
gleich  null  ? 

Nein:  $A6C9 
Wert  laden  und 
zweite  Zei lennunmer  Maximal- 
wert $FFFF  (65535) 

Zeiger  setzen 
und  Quote-Modus  abschalten 
Linkadresse  High  holen 
Ja:  dann  fertig 
prüft  auf  <Stop>- Taste 
'CR'  ausgeben,  neue  Zeile 
Zeiger  erhöhen 
Zeilenadresse  holen  (Low) 
und  in  das  X-Reg.  schieben 
Zeiger  erhöhen 
Zeilenadresse  holen  (High) 
mit  Endnumner  vergleichen 
Gleich?  Nein:  SA6E6 
Low-Nimner  vergleichen 
Gleich?  Ja:  SA6E8 
Größer:  dann  fertig 
Y-Reg.  Zwischenspeichern 
Zei  lennmmmer  ausgeben 
1 1 Leerzeichen 
Y-Reg.  wiederholen 
Bit  7 löschen 
Zeichen  ausgeben 
""  Hochkomma  ? 

Nein:  SA700 
Hochkomna-Flag  laden, 
umdrehen  (NOT) 
und  wieder  abspeichern 
Zeilenende  nach  255  Zeichen  ? 
Nein:  dann  auf hören 
Zeichen  holen 

kein  Zeilenende,  dann  listen 
Akku  als  Zeiger  nach  Y 
Startadresse  der  nächsten 
Zeile  holen  (Low)  und  nach  X 
Zeiger  erhöhen 
Adresse  der  Zeile  (High) 
als  Zeiger  merken 
(speichern  nach  S5F/60)  und 
wei  termachen 
zun  BASIC-Uarmstart 
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ft*#***#*##**##*******#**#*** 


A717 

6C 

06  03 

JHP 

($0306) 

Einsprung 

von  SA717 

A71A 

10 

D7 

BPL 

A6F3 

A71C 

C9 

FF 

CMP 

#$FF 

A71E 

F0 

D3 

BEO 

A6F3 

A720 

24 

0F 

BIT 

0F 

A722 

30 

CF 

BMI 

A6F3 

A724 

38 

SEC 

A725 

E9 

7F 

SBC 

#$7F 

A727 

AA 

TAX 

A728 

84 

49 

STY 

$49 

A72A 

A0 

FF 

LDY 

#$FF 

A72C 

CA 

DEX 

A72D 

F0 

08 

BEO 

$A737 

A72F 

C8 

INY 

A730 

B9 

9E  A0 

LDA 

$A09E,Y 

A733 

10 

FA 

BPL 

$A72F 

A735 

30 

F5 

BMI 

$A72C 

A737 

C8 

INY 

A738 

B9 

9E  A0 

LDA 

$A09E,Y 

A73B 

30 

B2 

BMI 

$A6EF 

A73D 

20 

47  AB 

JSR 

$AB47 

A740 

DO 

F5 

BNE 

$A737 

**************************** 


A742 

A9 

80 

LDA  #$80 

A744 

85 

10 

STA  $10 

A746 

20 

A5 

A9 

JSR  $A9A5 

A749 

20 

8A 

A3 

JSR  $A38A 

A74C 

DO 

05 

BNE  $A753 

A74E 

8A 

TXA 

A74F 

69 

0F 

ADC  #$0F 

A751 

AA 

TAX 

A752 

9A 

TXS 

A753 

68 

PLA 

A754 

68 

PLA 

A755 

A9 

09 

LDA  #$09 

A757 

20 

FB 

A3 

JSR  SA3FB 

A75A 

20 

06 

A9 

JSR  $A906 

A75D 

18 

CLC 

A75E 

98 

TYA 

A75F 

65 

7A 

ADC  $7A 

A761 

48 

PHA 

A762 

A5 

7B 

LDA  $7B 

A764 

69 

00 

ADC  #$00 

A766 

48 

PHA 

A767 

A5 

3A 

LDA  $3A 

A769 

48 

PHA 

A76A 

A5 

39 

LDA  $39 

BAS IC-Code  ln  Klartext 
umwand len 
JHP  $A71A 


kein  Interpretercode: ausgeben 
Code  für  Pi? 

Ja:  so  ausgeben 
Hochkommamodus? 
dann  Zeichen  so  ausgeben 
Carry  setzen  (Subtraktion) 
Offset  abziehen 
Code  nach  X 
Zeichenzeiger  merken 
Zeiger  auf  Befehlstabelle 
erstes  Befehlswort? 

Ja:  ausgeben 

Zeiger  erhöhen 

Offset  für  X-tes  Befehlswort 

alle  Zeichen  bis  zum  letzten 

überlesen  (Bit  7 gesetzt) 

Zeiger  erhöhen 

Befehlswort  aus  Tabelle  holen 
letzter  Buchstabe:  fertig 
Zeichen  ausgeben 
nächsten  Buchstaben  ausgeben 

BASIC-Befehl  FOR 
Wert  laden  und 
Integer  sperren 
LET,  setzt  FOR-Variable 
sucht  offene  FOR-NEXT-Schlei . 
nicht  gefunden:  $A753 
X-Reg.  nach  Akku 
Stapelzeiger  erhöhen 
Akku  zurück  nach  X-Reg.  und 
in  den  Stapelzeiger 
Rücksprungadresse  vom  Stapel 
holen  (Low  und  High) 

Wert  für  Prüfung  laden 
prüft  auf  Platz  im  Stapel 
sucht  nächstes  BAS. -Statement 
Carry  löschen  (Addition) 
CHRGET-Zeiger  und  Offset 
= Startadresse  der  Schleife 
auf  Stapel  speichern 
High-Byte  holen  und 
Übertrag  addieren  und 
auf  den  Stapel  legen 
Aktuelle 

Zeilemuimer  laden  und  auf 
den  Stapel  schieben 
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A76C 

48 

PHA 

A76D 

A9 

A4 

LDA  #SA4 

A76F 

20 

FF 

AE 

JSR  SAEFF 

A772 

20 

8D 

AD 

JSR  SAD8D 

A775 

20 

8A 

AD 

JSR  SAD8A 

A778 

A5 

66 

LDA  $66 

A77A 

09 

7F 

ORA  #$7F 

A77C 

25 

62 

AND  $62 

A77E 

85 

62 

STA  $62 

A780 

A9 

8B 

LDA  #$88 

A782 

A0 

A7 

LDY  #$A7 

A784 

85 

22 

STA  $22 

A786 

84 

23 

STY  $23 

A788 

4C 

43 

AE 

JHP  $AE43 

A78B 

A9 

BC 

LDA  #$8C 

A78D 

A0 

B9 

LDY  #$89 

A78F 

20 

A2 

BB 

JSR  SBBA2 

A792 

20 

79 

00 

JSR  $0079 

A795 

C9 

A9 

CMP  #$A9 

A797 

DO 

06 

BNE  $A79F 

A799 

20 

73 

00 

JSR  $0073 

A79C 

20 

8A 

AD 

JSR  SAD8A 

A79F 

20 

2B 

BC 

JSR  SBC28 

A7A2 

20 

38 

AE 

JSR  SAE38 

A7A5 

A5 

4A 

LDA  $4A 

A7A7 

48 

PHA 

A7A8 

A5 

49 

LDA  $49 

A7AA 

48 

PHA 

A7AB 

A9 

81 

LDA  #$81 

A7AD 

48 

PHA 

**************************** 


(Lom  und  High-Byte) 

•TO*  - Code 
prüft  auf  Code 

prüft  ob  numerische  Variable 

mrnieri scher  Ausdruck  nach  FAC 

Vorzeichen-Byte  von  FAC  holen 

Bit  0 bis  6 setzen 

mit  $62  angleichen 

und  abspeichern 

Rücksprungadresse  laden 

(Low  und  High) 

und  Zwischenspeichern 

(Low  und  High) 

Schleifenendwert  auf  Stapel 

Zeiger  auf  Konstante  1 setzen 

(Ersatzwert  für  STEP) 

als  Default-STEP-Vert  in  FAC 

CHRGOT:  letztes  Zeichen  holen 

•STEP*  - Code? 

kein  STEP-Uert:  $A79F 

CHRGET  nächstes  Zeichen  holen 

numerischer  Ausdruck  nach  FAC 

holt  Vorzeichen-Byte 

Vorz.  und  STEP-Uert  auf  Stack 

Zeiger  auf  Variablenwert 

(Low)  auf  den  Stapel 

Zeiger  (High) 

auf  den  Stapel 

und  FOR-Code 

auf  den  Stapel  legen 

I nterpretersch l e i f e 


Einsprung  von  SA7EA,  SA89D,  SAD 75 


A7AE 

20 

2C  A8 

JSR 

SA82C 

A7B1 

A5 

7A 

LDA 

$7A 

A7B3 

A4 

7B 

LDY 

$7B 

A7B5 

CO 

02 

CPY 

#$02 

A7B7 

EA 

NOP 

A7B8 

F0 

04 

BEQ 

SA7BE 

A7BA 

85 

30 

STA 

$30 

A7BC 

84 

3E 

STY 

S3E 

A7BE 

A0 

00 

LDY 

#$00 

A7C0 

Bl 

7A 

LDA 

($7A),Y 

A7C2 

DO 

43 

BNE 

SA807 

A7C4 

AO 

02 

LDY 

#$02 

A7C6 

Bl 

7A 

LDA 

($7A),Y 

A7C8 

18 

CLC 

A7C9 

DO 

03 

BNE 

SA7CE 

A7CB 

4C 

4B  A8 

JHP 

SA84B 

A7CE 

C8 

INY 

A7CF 

Bl 

7A 

LDA 

($7A),Y 

prüft  auf  <Stop>-Taste 
CHRGET  Zeiger  (Low  und  High) 
laden 

Direktmodus? 

No  Operation 
ja:  SA7BE 

als  Zeiger  für  CONT 
merken 

Zeiger  setzen 
laufendes  Zeichen  holen 
nicht  Zeilenende? 

Zeiger  neu  setzen 
Programmende? 

Flag  für  END  setzen 
Kein  Programmende:  SA7CE 
ja:  dann  END  ausführen 
Zeiger  erhöhen 
laufende  Zei  lenmjimer 
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A7D1 

85  39 

STA  $39 

A7D3 

C8 

INY 

A7D4 

Bl  7A 

LDA  ($7A),Y 

A7D6 

85  3A 

STA  $3A 

A7D8 

98 

TYA 

A7D9 

65  7A 

ADC  $7A 

A7DB 

85  7A 

STA  $7A 

A7DD 

90  02 

BCC  SA7E1 

A7DF 

E6  7B 

INC  $7B 

Einsprung  von  $A499 

A7E1  6C  08  03  JMP  ($0308) 

Einsprung  von  $A7E1 

A7E4  20  73  00  JSR  $0073 

A7E7  20  ED  A7  JSR  $A7ED 

A7EA  4C  AE  A7  JMP  $A7AE 

**************************** 


Einsprung  von  $A7E7,  $A948 
A7ED  FO  3C  BEO  $A82B 


Einsprung  von  $A95C 


A7EF 

E9 

80 

SBC 

#$80 

A7F1 

90 

11 

BCC 

o 

eo 

2 

A7F3 

C9 

23 

CMP 

#$23 

A7F5 

B0 

17 

BCS 

$A80E 

A7F7 

0A 

ASL 

A7F8 

A8 

TAY 

A7F9 

B9 

0D  A0 

LDA 

$A00D,’ 

A7FC 

48 

PHA 

A7FD 

B9 

0C  A0 

LDA 

$A00C,' 

A800 

48 

PHA 

A801 

4C 

73  00 

JMP 

$0073 

A804 

4C 

A5  A9 

JMP 

$A9A5 

**************************** 

A807 

C9  3A 

CMP  #$3A 

A809 

F0  D6 

BEQ 

$A7E1 

A80B 

4C 

08  AF 

JMP 

$AF08 

**************************** 

A80E 

C9  4B 

CMP 

#$4B 

A810 

DO 

F9 

BNE 

$A80B 

A812 

20 

73  00 

JSR 

$0073 

A815 

A9 

A4 

LDA 

#$A4 

(Low)  nach  $39 
Zeiger  auf  nächstes  Byte 
laufende  Zei lennummer 
(High)  nach  $3A 
Zeiger  nach  Akku 
Programmzeiger  auf 
Programnzei le  setzen 
C=0:  Erhöhung  ungehen 
Progranmzeiger  (High)  erhöhen 


JMP  $A7E4  Statement  ausführen 


CHRGET  nächstes  Zeichen  holen 

Statement  ausführen 

zurück  zur  Interpreterschlei. 

BASIC-Statement  ausführen 


Zeilenende,  dann  fertig 


Token? 

nein:  dann  zun  LET-Befehl 
NEU? 

Funkt ions- Token  oder  GO  TO 
BASIC-Befehl,  Code  mal  2 
als  Zeiger  ins  Y-Reg. 
Befehlsadresse  (Low  und 
High)  aus  Tabelle 
holen  und  als 

Rücksprungadresse  auf  Stapel 
Zeichen  und  Befehl  ausführen 
zun  LET-Befehl 


ist  es  Doppelpunkt? 
ja:  $A7E1 

sonst  'SYNTAX  ERROR1 

prüft  auf  'GO1  'TO'  Code 
'GO'  (minus  $80) 
nein:  'SYNTAX  ERROR' 
nächstes  Zeichen  holen 
■TO' 
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A817  20  FF  AE  JSR  SAEFF 

A81A  4C  A0  A8  JHP  SA8A0 

**************************** 


Einsprung  von  SA677 


A81D 

38 

SEC 

A81E 

A5  2B 

LDA  $2B 

A820 

E9  01 

SBC  «SOI 

A822 

A4  2C 

LDY  $2C 

A824 

BO  01 

BCS  SA827 

A826 

88 

DEY 

Einsprung  von  SACE7 

A827  85  41  STA  $41 

A829  84  42  STY  $42 

A82B  60  RTS 

**************************** 


Einsprung  von  SA601 , $A7AE 
A82C  20  El  FF  JSR  $FFE1 


**************************** 


A82F 

BO 

01 

BCS  SA832 

**************************** 

A831 

18 

CLC 

A832 

DO 

3C 

BNE 

SA870 

A834 

A5 

7A 

LDA 

$7A 

A836 

A4 

7B 

LDY 

S7B 

A838 

A6 

3A 

LDX 

$3A 

A83A 

E8 

INX 

A83B 

FO 

OC 

BEQ 

SA849 

A83D 

85 

3D 

STA 

S3D 

A83F 

84 

3E 

STY 

$3E 

A841 

A5 

39 

LDA 

$39 

A843 

A4 

3A 

LDY 

$3A 

A845 

85 

3B 

STA 

$3B 

A847 

84 

3C 

STY 

$3C 

A849 

68 

PLA 

A84A 

68 

PLA 

Einsprung 

von 

SA7CB 

A84B 

A9 

81 

LDA 

#$81 

A84D 

AO 

A3 

LDY 

«$A3 

A84F 

90 

03 

BCC 

CO 

3 

prüft  auf  Code 
zun  GOTO* Befehl 

BASIC-Befehl  RESTORE 


Carry  setzen  (Subtrektion) 
Programms tart zeiger  (Low) 
laden  und  davon  1 abziehen 
und  High-Byte  holen 

Low-Byte  -1 


als  OATA-Zeiger 

abspeichern 

Rücksprung 

prüft  auf  <Stop>-Taste 


<Stop>-Taste  abf ragen 

BASIC-Befehl  STOP 
C=1 : Flag  für  STOP 

BASIC-Befehl  END 
C=0  Flag  für  END 
<Run/Stop>  nicht  gedrückt:  RTS 
Programmzeiger  laden 
(Low  und  High-Byte) 

Di rektmodus? 

(Zei lennummer  -1) 
ja:  $A849 

als  Zeiger  für  CONT  setzen 
(Low  und  High) 

Nuuner  der  laufenden  Zeile 
holen  (Low  und  High) 
und  als  ZeilennuMner  für 
CONT  merken 
Rücksprungadresse 
vom  Stapel  entfernen 


Zeiger  auf  Startadresse 
BREAK  setzen 
END  Flag? 
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A8S1  4C  69  A4  JMP  $A469  nein:  'BREAK  IN  XXX1  ausgeben 

A854  4C  86  E3  JMP  SE386  zum  BASIC-Uarmstart 

****************************  BAS IC- Befehl  CONT 


A857 

DO  17 

BNE 

$A870 

A859 

A2  1A 

LDX 

#$1A 

A85B 

A4  3E 

LDY 

S3E 

A85D 

DO  03 

BNE 

SA862 

A85F 

4C  37  A4 

JMP 

SA437 

A862 

A5  3D 

LDA 

$3D 

A864 

85  7A 

STA 

$7A 

A866 

84  7B 

STY 

S7B 

A868 

A5  3B 

LDA 

$3B 

A86A 

A4  3C 

LDY 

$3C 

A86C 

85  39 

STA 

$39 

A86E 

84  3A 

STY 

$3A 

A870 

60 

RTS 

**************************** 

A871 

08 

PHP 

A872 

A9  00 

LDA  #$00 

A874 

20  90  FF 

JSR  $FF90 

A877 

28 

PLP 

A878 

DO  03 

BNE 

$A87D 

A87A 

4C  59  A6 

JMP  $A659 

A87D 

20  60  A6 

JSR 

$A660 

A880 

4C  97  A8 

JMP 

o 

eo 

2 

**************************** 

A883 

A9  03 

LDA 

#$03 

A885 

20  FB  A3 

JSR 

$A3FB 

A888 

A5  7B 

LDA 

$7B 

A88A 

48 

PHA 

A88B 

A5  7A 

LDA 

$7A 

A88D 

48 

PHA 

A88E 

A5  3A 

LDA 

$3A 

A890 

48 

PHA 

A891 

A5  39 

LDA 

$39 

A893 

48 

PHA 

A894 

A9  8D 

LDA 

#$8D 

A896 

48 

PHA 

Einsprung  von  $A880 

A897 

20  79  00 

JSR 

$0079 

A89A 

20  A0  A8 

JSR 

$A8A0 

A89D 

4C  AE  A7 

JMP 

$A7AE 

**************************** 


Kein  Trennzeichen:  SYNTAX  ERR 
Fehlernr.  für  'CAN'T  CONTI NUE 
CONT  gesperrt? 
nein:  SA862 
Fehlermeldung  ausgeben 
CONT-Zeiger  (Loh)  laden 
und  CONT-Zeiger  als  Programm- 
zeiger abspeichern 
und 

Zei lennunmer  wieder 
setzen 

(Low-  und  High-Byte) 
Rücksprung 

BASIC-Befehl  RUN 
Status-Register  retten 
Wert  laden  und 
Flag  für  Programnodus  setzen 
Status-Register  zurückholen 
weitere  Zeichen  (Zeilennr.)? 
Programmzeiger  setzen,  CLR 

CLR- Befehl 
GOTO- Befehl 

BASIC-Befehl  GOSUB 
Wert  für  Prüfung 
prüft  auf  Platz  im  Stapel 
Programmzeiger  (Low- 
und  High-Byte)  laden 
und  auf  den 
Stapel  retten 
Zeilennummer  laden  (High) 
und  auf  den  Stapel  legen 
Zei lennimmer  Low  laden 
und  auf  den  Stapel  legen 
■GOSUB* -Code  laden 
und  auf  den  Stapel  legen 


CHRGOT:  letztes  Zeichen  holen 
GOTO- Befehl 

zur  Interpreterschleife 
BASIC-Befehl  GOTO 


Einsprung  von  SA81A,  $A89A,  $A945 
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A8A0 

20  6B  A9 

JSR  SA96B 

A8A3 

20  09  A9 

JSR  SA909 

A8A6 

38 

SEC 

A8A7 

A5  39 

LDA  $39 

A8A9 

E5  14 

SBC  $14 

A8AB 

AS  3A 

LDA  $3A 

A8AD 

E5  15 

SBC  $15 

A8AF 

BO  OB 

BCS  $A8BC 

A8B1 

98 

TYA 

A882 

38 

SEC 

A8B3 

65  7A 

ADC  S7A 

A8B5 

A6  7B 

LDX  S7B 

A8B7 

90  07 

BCC  $A8C0 

A8B9 

E8 

INX 

A8BA 

B0  04 

BCS  $A8C0 

A86C 

A5  2B 

LDA  $2B 

A8BE 

A6  2C 

LDX  $2C 

A8C0 

20  17  A6 

JSR  $A617 

A8C3 

90  IE 

BCC  $A8E3 

A8C5 

A5  5F 

LDA  $5F 

A8C7 

E9  01 

SBC  #$01 

A8C9 

85  7A 

STA  $7A 

A8CB 

A5  60 

LDA  $60 

A8CD 

E9  00 

SBC  #$00 

A8CF 

85  7B 

STA  $7B 

A8D1 

60 

RTS 

**************************** 


A8D2 

DO 

FD 

BNE  $A8D1 

A8D4 

A9 

FF 

LDA  #$FF 

A8D6 

85 

4A 

STA  $4A 

A8D8 

20 

8A  A3 

JSR  SA38A 

A8DB 

9A 

TXS 

A8DC 

C9 

8D 

CMP  #$8D 

A8DE 

F0 

OB 

BEQ  $A8EB 

A8E0 

A2 

0C 

LDX  #$0C 

A8E2 

2C 

.BYTE  $2C 

A8E3 

A2 

11 

LDX  #$02 

A8E5 

4C 

37  A4 

JMP  $A437 

A8E8 

4C 

08  AF 

JMP  $AF08 

A8EB 

68 

PLA 

A8EC 

68 

PLA 

A8ED 

85 

39 

STA  $39 

A8EF 

68 

PLA 

A8F0 

85 

3A 

STA  $3A 

A8F2 

68 

PLA 

A8F3 

85 

7A 

STA  $7A 

A8F5 

68 

PLA 

A8F6 

85 

7B 

STA  $7B 

Zeilennummer  nach  $14/$15 
nächsten  Zeilenanfang  suchen 
Carry  löschen  (Subtraktion) 
aktuelle  Zei lennummer  (Low) 
kleiner  als  laufende  Zeile? 
aktuelle  Zei lennunraer  (High) 
kleiner  als  laufende  Zeile? 
nein:  $A8BC 
Differenz  in  Akku 
Carry  setzen  (Addition) 
Programnzeiger  addieren 
sucht  ab  laufender  Zeile 
unbedingter 
Sprung 
zu  SA8C0 

sucht  ab  Programnstart 

sucht  Programmzei le 
nicht  gefunden:  'undef'd  st.' 
von  der  Startadresse  (Zeile) 
eins  subtrahieren  und  als 
Programnzeiger  (Low) 

High-Byte  der  Zeile  laden 
Übertrag  berücksichtigen 
und  als  Programnzeiger 
Rücksprung 

BASIC-Befehl  RETURN 
Kein  Trennzeichen:  SYNTAX  ERR 
Wert  laden  und 
FOR-NEXT-ZEIGER  neu  setzen 
GOSUB-Datensatz  suchen 

‘GOSUB1 -Code? 
ja:  SA8E8 

Nr  für  'return  without  gosub' 

Nr  für  'undef'd  Statement* 
Fehlermeldung  ausgeben 
■syntax  error1  ausgeben 

GOSUB- Code  vom  Stapel  holen 
Zei lemunner  (low)  wieder- 
holen und  abspeichern 
Zeilennumner  (High)  holen 
und  abspeichern 
Programnzeiger  (Low)  wieder- 
holen und  abspeichern 
Programnzeiger  (High)  holen 
abspeichern 


****************************  BASIC-Befehl  DATA 
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Einsprung  von  $ABE7,  SB30B 
A8F8  20  06  A9  JSR  $A906 


Einsprung  von  SABF6,  SACD1 


A8FB 

98 

TYA 

A8FC 

18 

CLC 

A8FD 

65  7A 

ADC  $7A 

A8FF 

85  7A 

STA  S7A 

A901 

90  02 

BCC  SA905 

A903 

E6  7B 

INC  S7B 

A905 

60 

RTS 

nächstes  Statement  suchen 


Offset 

Carry  löschen  (Addition) 
Progranmzeiger  addieren 
und  wieder  abspeichern 
Verminderung  übergehen 
Progranmzeiger  vermindern 
Rücksprung 


****************************  offset  des  nächsten 

Trennzeichens  finden 


Einsprung  von  SA75A,  $A8F8t  SABF3,  SACB8 


A906 

A2 

3A 

LDX  #$3A 

Doppelpunkt 

A908 

2C 

.BYTE  S2C 

Einsprung 

von  SA8A3,  SA93B 

A909 

A2 

00 

LDX  #$00 

$0  Zei  lenende 

A90B 

86 

07 

STX  $07 

als  Suchzeichen 

A90D 

AO 

00 

LDY  #$00 

Zähler 

A90F 

84 

08 

STY  $08 

initialisieren 

A911 

A5 

08 

LDA  $08 

Speicherzelle  $7 

A913 

A6 

07 

LDX  $07 

gesuchtes  Zeichen 

A915 

85 

07 

STA  $07 

mit  $8 

A917 

86 

08 

STX  $08 

vertauschen 

A919 

Bl 

7A 

LDA  ($7A),Y  Zeichen  holen 

A91B 

FO 

E8 

BEO  $A905 

Zeilenende,  dann  fertig 

A91D 

C5 

08 

CMP  $08 

= Suchzeichen? 

A91F 

FO 

E4 

BEO  $A905 

ja:  $A905 

A921 

C8 

INY 

Zeiger  erhöhen 

A922 

C9 

22 

CMP  #$22 

""  Hochkonma? 

A924 

DO 

F3 

BNE  SA919 

nein:  SA919 

A926 

FO 

E9 

BEO  $A911 

sonst  $7  und  $8  vertauschen 

**************************** 

BASIC-Befehl  IF 

A928 

20  9E  AD 

JSR  $AD9E 

FRMEVL  Ausdruck  berechnen 

A92B 

20 

79  00 

JSR  $0079 

CHRGOT  letztes  Zeichen 

A92E 

C9  89 

CMP  #$89 

■GOTO' -Code? 

A930 

FO 

05 

BEO  $A937 

ja:  $A937 

A932 

A9  A7 

LDA  #$A7 

■THEN'-Code 

A934 

20 

FF  AE 

JSR  SAEFF 

prüft  auf  Code 

A937 

A5  61 

LDA  $61 

Ergebnis  des  IF- Ausdrucks 

A939 

DO  05 

BNE  $A940 

Ausdruck  wahr? 

**************************** 


BASIC-Befehl  REM 
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A93B 

20 

09  A9 

JSR  $A909 

Nein:  Zeilenanfang  suchen 

A93E 

FO 

BB 

BEQ  SA8FB 

Programmz.  auf  nächste  Zeile 

A940 

20 

79  00 

JSR  $0079 

CHRGOT:  letztes  Zeichen  holen 

A943 

BO 

03 

BCS  SA948 

keine  Ziffer? 

A945 

4C 

AO  A8 

JHP  SA8A0 

zum  GOTO-Befehl 

A948 

4C 

ED  A7 

JMP  $A7ED 

Befehl  decodieren,  ausführen 

****** 

•**** 

******* 

BASIC-Befehl  ON 

A94B 

20 

9E  B7 

JSR  SB79E 

Byte-Wert  (0  bis  255)  holen 

A94E 

48 

PHA 

Code  merken 

A94F 

C9 

8D 

CHP  #$8D 

'GOSUB'-Code? 

A951 

FO 

04 

BEQ  SA957 

Ja:  $A957 

A953 

C9 

89 

CHP  #$89 

■GOTO1 -Code? 

A955 

DO 

91 

BNE  $A8E8 

Nein:  dann  'SYNTAX  ERROR1 

A957 

C6 

65 

DEC  $65 

Zähler  vermindern 

A959 

DO 

04 

BNE  $A95F 

Noch  nicht  null? 

A95B 

68 

PLA 

Ja:  Code  zurückholen 

A95C 

4C 

EF  A7 

JHP  $A7EF 

und  Befehl  ausführen 

A95F 

20 

73  00 

JSR  $0073 

CHRGET  nächstes  Zeichen  holen 

A962 

20 

6B  A9 

JSR  $A96B 

Zei lennummer  holen 

A965 

C9 

2C 

CHP  #$2C 

1 , 1 Komma? 

A967 

FO 

EE 

BEQ  $A957 

Ja:  dann  weiter 

A969 

68 

PLA 

Kein  Sprung:  Code  zurückholen 

A96A 

60 

RTS 

Rücksprung 

**************************** 

Zei lennummer  nach  $14/$15 

Ei nsprung 

von  $A49C,  SA6A4, 

$A6B6,  A8A0,  $A962 

A96B 

A2 

00 

LDX  #$00 

Wert  laden  und 

A96D 

86 

14 

STX  $14 

Vorsetzen 

A96F 

86 

15 

STX  $15 

(für  Zeilenmmner  gleich  0) 

E i nsprung 

von  $A9A2 

A971 

BO 

F 7 

BCS  $A96A 

Keine  Ziffer,  dann  fertig 

A973 

E9 

2F 

SBC  #$2F 

■ 0 1 - 1 abziehen,  gibt  Hexwert 

A975 

85 

07 

STA  $07 

merken 

A977 

A5 

15 

LDA  $15 

High-Byte  holen 

A979 

85 

22 

STA  $22 

zwi schenspei ehern 

A97B 

C9 

19 

CHP  #$19 

Zahl  bereits  gröBer  6400? 

A97D 

BO 

D4 

BCS  $A953 

dann  'SYNTAX  ERROR' 

A97F 

A5 

14 

LDA  $14 

Zahl  * 10  (=  *2*2+Zahl*2) 

A981 

OA 

ASL 

Wert  und  Zwischenwert  je 

A982 

26 

22 

ROL  $22 

2 mal  um  1 Bit  nach 

A984 

OA 

ASL 

links  rollen 

A985 

26 

22 

ROL  $22 

(entspricht  2*2) 

A987 

65 

14 

ADC  $14 

plus  ursprünglicher  Wert 

A989 

85 

14 

STA  $14 

und  abspeichern 

A98B 

AS 

22 

LDA  $22 

Zwischenwert  zu 

A98D 

65 

15 

ADC  $15 

zweitem  Wert  addieren 
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A98F 

85  15 

STA  $15 

und  wieder  abspeichern 

A991 

06  14 

ASL  $14 

Speicherzelle  $14  und 

A993 

26  15 

ROL  $15 

$15  verdoppeln 

A995 

A5  14 

LOA  $14 

Wert  wieder  laden 

A997 

65  07 

ADC  $07 

und  Einerziffer  addieren 

A999 

85  14 

STA  $14 

wieder  speichern 

A99B 

90  02 

BCC  SA99F 

Carry  gesetzt?  (Übertrag) 

A99D 

E6  15 

INC  $15 

Übertrag  addieren 

A99F 

20  73  00 

JSR  $0073 

CHRGET  nächstes  Zeichen  holen 

A9A2 

4C  71  A9 

JMP  $A971 

und  weiter  machen 

****************************  BASIC-Befehl  LET 


Einsprung  von  SA746,  SA804 


A9A5 

20  8B  BO 

JSR  SB08B 

sucht  Variable  hinter  LET 

A9A8 

85  49 

STA  $49 

und  Variablenadresse 

A9AA 

84  4A 

STY  $4A 

merken  (Low-  und  High-Byte) 

A9AC 

A9  B2 

LDA  #$B2 

- Code 

A9AE 

20  FF  AE 

JSR  SAEFF 

prüft  auf  Code 

A9B1 

A5  OE 

LDA  $0E 

Integer-Flag 

A9B3 

48 

PHA 

auf  Stapel  retten 

A9B4 

A5  OD 

LDA  $0D 

und  Typ-Flag 

A9B6 

48 

PHA 

(String/nunerisch)  retten 

A9B7 

20  9E  AD 

JSR  SAD9E 

FRMEVL : Ausdruck  holen 

A9BA 

68 

PLA 

Typ- Flag  wiederholen 

A9BB 

2A 

ROL  A 

und  Bit  7 ins  Carry  schieben 

A9BC 

20  90  AD 

JSR  SAD 90 

auf  richtigen  Typ  prüfen 

A9BF 

DO  18 

BNE  SA9D9 

String?  ja:  $A9D9 

A9C1 

68 

PLA 

Integer-Flag  zurückholen 

Einsprung  von  $AC8E 

A9C2 

10  12 

BPL  $A9D6 

INTEGER?  ja:  $A906 

**************************** 

Uertzuweisung  INTEGER 

A9C4 

20  1B  BC 

JSR  $BC1B 

FAC  runden 

A9C7 

20  BF  Bl 

JSR  $B1BF 

und  nach  INTEGER  wandeln 

A9CA 

AO  00 

LDY  #$00 

Zeiger  setzen 

A9CC 

A5  64 

LDA  $64 

High-Byte  holen  und 

A9CE 

91  49 

STA  ($49), Y Wert  in  Variable  bringen 

A9D0 

C8 

INY 

Zeiger  erhöhen 

A9D1 

A5  65 

LDA  $65 

Low-Byte  holen  und 

A9D3 

91  49 

STA  ($49) ,Y 

Wert  in  Variable  bringen 

A9D5 

60 

RTS 

Rücksprung 

****************************  Wertzuweisung  REAL 
A9D6  4C  DO  BB  JMP  SBBDO  FAC  nach  Variable  bringen 


A9D9  68 


PLA 


Uertzuweisung  String 
Akku  vom  Stapel  holen 
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Einsprung  von  $AC83 

A9DA  A4  4A  LDY  $4A 

A9DC  CO  BF  CPY  #$BF 

A9DE  DO  4C  BNE  SAA2C 

A9E0  20  A6  B6  JSR  $B6A6 

A9E3  C9  06  CMP  #$06 

A9E5  DO  30  BNE  $AA24 

A9E7  AO  00  LDY  #$00 

A9E9  84  61  STY  $61 

A9EB  84  66  STY  $66 

A9ED  84  71  STY  $71 

A9EF  20  10  AA  JSR  $AA1D 

A9F2  20  E2  BA  JSR  $BAE2 

A9F5  E6  71  INC  $71 

A9F7  A4  71  LDY  $71 

A9F9  20  10  AA  JSR  $AA1D 

A9FC  20  OC  BC  JSR  SBCOC 

A9FF  AA  TAX 

AAOO  FO  05  BEQ  SAA07 

AA02  E8  INX 

AA03  8A  TXA 

AA04  20  ED  BA  JSR  $BAED 

AA07  A4  71  LDY  $71 

AA09  C8  INY 

AAOA  CO  06  CPY  #$06 

AAOC  DO  DF  BNE  $A9ED 

AAOE  20  E2  BA  JSR  $BAE2 

AA11  20  9B  BC  JSR  $BC9B 

AA14  A6  64  LDX  $64 

AA16  A4  63  LDY  $63 

AA18  A5  65  LDA  $65 

AA1A  4C  DB  FF  JMP  $FFDB 

**************************** 


Einsprung  von  $A9EF,  $A9F9 

AA1D  Bl  22  LDA  ($22) ,Y 

AA1F  20  80  00  JSR  $0080 

AA22  90  03  BCC  $AA27 

AA24  4C  48  B2  JMP  $B248 

AA27  E9  2F  SBC  #$2F 

AA29  4C  7E  BD  JMP  $BD7E 

**************************** 


AA2C  AO  02  LDY  #$02 

AA2E  Bl  64  LDA  ($64), Y 

AA30  C5  34  CMP  $34 

AA32  90  17  BCC  $AA4B 

AA34  DO  07  BNE  $AA3D 

AA36  88  DEY 


Variablenadresse  (High)  holen 
Ist  Variable  TI$? 

Nein:  $AA2C 
FRESTR 

String-Länge  gleich  6 
nein:  'illegal  quantity1 
Wert  holen 
und  damit  FAC 
initialisieren 

(Akku,  Vorzeichen  und  Zeiger) 
prüft  nächstes  Z.  auf  Ziffer 
FAC  = FAC  * 10 
Stellenzähler  erhöhen 
und  ins  Y-Reg.  bringen 
prüft  nächstes  Z.  auf  Ziffer 
FAC  nach  ARG  kopieren 
FAC  gleich  0? 

Ja:  $AA07 

Exponent  von  FAC  erhöhen 
(FAC  *2)  und  in  den  Akku 
FAC  - FAC  + ARG 
Stellenzähler 
erhöhen 

schon  6 Stellen? 

Nein:  nächstes  Zeichen 
FAC  = FAC  * 10 
FAC  rechtsbündig  Sechen 
Werte  für 

eingegebene  Uhrzeit 
holen  und 
Time  setzen 

Zeichen  auf  Ziffer  prüfen 


Zeichen  holen  (aus  String) 
auf  Ziffer  prüfen 
Ziffer:  $AA27 
sonst:  'illegal  quanti  ty' 
von  ASCII  nach  HEX  umwandeln 
in  FAC  und  ARG  übertragen 

Uertzuweisung  an  normalen 
String 

Zeiger  setzen 
String-Adresse  High  mit 
String-Anfangsadr.  vergleichen 
kleiner:  String  im  Programm 
größer:  $AA3D 
Zeiger  vermindern 
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AA37 

Bl  64 

LDA  ($64), Y 

String-Adresse  (Low)  holen 

AA39 

C5  33 

CMP  $33 

und  vergleichen 

AA3B 

90  OE 

BCC  $AA4B 

kleiner:  String  im  Programn 

AA3D 

A4  65 

LDY  $65 

Zeiger  auf  String-Descriptor 

AA3F 

C4  2E 

CPY  $2E 

mit  Variablenstart  vergl. 

AA41 

90  08 

BCC  $AA4B 

kleiner:  $AA4B 

AA43 

DO  OD 

BNE  $AA52 

größer:  $AA52 

AA45 

A5  64 

LDA  $64 

String-Descriptorzeiger  (Low) 

AA47 

C5  2D 

CMP  $2D 

mit  Variablenstart  vergl. 

AA49 

BO  07 

BCS  $AA52 

größer:  $AA52 

AA4B 

A5  64 

LDA  $64 

Zeiger  in  Akku  und  Y-Reg. 

AA40 

A4  65 

LDY  $65 

auf  String-Descriptor  setzen 

AA4F 

4C  68  AA 

JMP  $AA68 

bis  $AA68  überspringen 

AA52 

AO  00 

LDY  #$00 

Zeiger  setzen 

AA54 

Bl  64 

LDA  ($64), Y 

Länge  des  Strings  holen 

AA56 

20  75  B4 

JSR  $B475 

prüft  Platz,  setzt  Stringz. 

AA59 

A5  50 

LDA  $50 

Zeiger  auf  String-Descriptor 

AA5B 

A4  51 

LDY  $51 

holen  (Low-  und  High-Byte) 

AA5D 

85  6F 

STA  $6F 

und 

AA5F 

84  70 

STY  $70 

speichern 

AA61 

20  7A  B6 

JSR  $B67A 

String  in  Bereich  übertragen 

AA64 

A9  61 

LDA  #$61 

Werte  laden 

AA66 

AO  00 

LDY  #$00 

und  damit 

Einsprung  von  $AAeF 

AA68 

85  50 

STA  $50 

String-Descriptor 

AA6A 

84  51 

STY  $51 

neu  setzen 

AA6C 

20  DB  B6 

JSR  $B6DB 

Descriptor  löschen 

AA6F 

AO  00 

LDY  #$00 

Zeiger  setzen 

AA71 

Bl  50 

LDA  ($50), Y 

Länge  des  Descriptors  holen 

AA73 

91  49 

STA  ($49), Y 

und  abspeichern 

AA75 

C8 

INY 

Zeiger  erhöhen 

AA76 

Bl  50 

LDA  ($50), Y Adresse  (Low)  holen 

AA78 

91  49 

STA  ($49), Y und  speichern 

AA7A 

C8 

INY 

Zeiger  erhöhen 

AA7B 

Bl  50 

LDA  ($50), Y 

und  Adresse  (High) 

AA7D 

91  49 

STA  ($49), Y 

in  Variable  bringen 

AA7F 

60 

RTS 

Rücksprung 

***********< 

************ 

BASIC-Befehl  PRINT# 

AA80 

20  86  AA 

JSR  $AA86 

CMD-Befehl 

AA83 

4C  B5  AB 

JMP  $ABB5 

und  CLRCH 

**************************** 

BASIC-Befehl  CMD 

Einsprung  von  $AA80 

AA86 

20  9E  B7 

JSR  $B79E 

holt  Byte-Ausdruck 

AA89 

FO  05 

BEQ  $AA90 

Trennzeichen:  $AA90 

AA8B 

A9  2C 

LDA  #$2C 

Wert  laden 

AA8D 

20  FF  AE 

JSR  $AEFF 

prüft  auf  Komma 

AA90 

08 

PHP 

Status-Register  merken 

Anhang 
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AA91  86  13  STX  $13  Nr.  des  Ausgabegeräts  merken 

AA93  20  18  El  JSR  SEI 18  CKOUT,  Ausgabegerät  setzen 

AA96  28  PLP  Status-Register  wiederholen 

AA97  4C  AO  AA  JHP  SAAAO  zun  PR INT -Befehl 

AA9A  20  21  AB  JSR  SAB 21  String  drucken 

AA9D  20  79  00  JSR  $0079  CHRGOT  letztes  Zeichen 

•***»***•••***•»**•»••*»*•**  BASIC-Befehl  PRINT 

E i nspring  von  SAA97 

AAAO  FO  35  BEQ  SAAD7  Trennzeichen:  SAAD7 

Einsprung  von  $AB16 


AAA2 

FO  43 

BEQ  SAAE7 

Trennz.  (TAB,  SPC):  RTS 

AAA4 

C9  A3 

CMP  #$A3 

•TABC-Code? 

AAA6 

FO  50 

BEQ  SAAF8 

Ja:  SAAF8 

AAA8 

C9  A6 

CMP  #$A6 

•SPCC-Code? 

AAAA 

18 

CLC 

Flag  für  SPC  setzen 

AAAB 

FO  4B 

BEQ  SAAF8 

SPC-Code:  SAAF8 

AAAO 

C9  2C 

CMP  #$2C 

'.'-Code?  (Komma) 

AAAF 

FO  37 

BEQ  $AAE8 

Ja:  SAAE8 

AA81 

C9  3B 

CMP  #$3B 

• ; 1 -Code?  (Semikolon) 

AAB3 

FO  5E 

BEQ  SAB13 

Ja:  nächstes  Zeichen,  weiter 

AAB5 

20  9E  AD 

JSR  SAD9E 

FRMEVL:  Term  holen 

AAB8 

24  00 

BIT  $00 

Typ-Flag 

AABA 

30  OE 

BMI  SAA9A 

String? 

AABC 

20  DD  BD 

JSR  SBDDD 

FAC  in  ASCII-String  wandeln 

AABF 

20  87  B4 

JSR  $B487 

String-Parameter  holen 

AAC2 

20  21  AB 

JSR  SAB21 

String  drucken 

AAC5 

20  3B  AB 

JSR  SAB3B 

Cursor  right  bzw.  Leerzeichen 

AAC8 

DO  D3 

BNE  SAA9D 

weiter  machen 

Einsprung  von  $A 5 76 

AACA 

A9  00 

LDA  #$00 

Eingabepuffer 

AACC 

9D  00  02 

STA  $0200. X mit  $0  abschlieBen 

AACF 

A2  FF 

LDX  #$FF 

Zeiger  auf 

AA01 

AO  01 

LDY  #$01 

Eingabepuffer  ab  $0200  setzen 

AAD3 

A5  13 

LDA  $13 

Nimmer  des  Ausgabegeräts 

AA05 

DO  10 

BNE  SAAE7 

Tastatur?  Nein:  RTS 

Ei nspruig  von  $A44E,  SA604 

AAD7 

A9  OD 

LDA  #$0D 

■CR'  Carriage  Return 

AAD9 

20  47  AB 

JSR  $AB47 

ausgeben 

AADC 

24  13 

BIT  $13 

logische  File-Nummer 

AADE 

10  05 

BPL  SAAE5 

kleiner  128? 

AAEO 

A9  OA 

LDA  #$0A 

• LF ■ line  feed 

AAE2 

20  47  AB 

JSR  SAB47 

ausgeben 
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E i nsprung 

von  $AB35 

AAE5 

49 

FF 

EOR  #$FF 

NOT 

AAE7 

60 

RTS 

Rücksprung 

AAE8 

38 

SEC 

Zehner -Tabulator  mit  Komma 

AAE9 

20 

FO  FF 

JSR  $FFF0 

Cursor-Position  holen 

AAEC 

98 

TYA 

Spalte  ins  Y-Reg. 

AAED 

38 

SEC 

Carry  setzen  (Subtr.) 

AAEE 

E9 

OA 

SBC  #$0A 

10  abziehen 

AAFO 

BO 

FC 

BCS  SAAEE 

nicht  negativ? 

AAF2 

49 

FF 

EOR  #$FF 

invertieren 

AAF4 

69 

01 

ADC  «SOI 

+1  (Zweierkomplement) 

AAF6 

DO 

16 

BNE  SABOE 

unbedingter  Sprung 

**************************** 

TAB(  <C=1)  und  SPC(  (C=0) 

AAF8 

08 

PHP 

Flags  merken 

AAF9 

38 

SEC 

Carry  setzen 

AAFA 

20 

FO  FF 

JSR  $FFFO 

Cursor-Position  holen 

AAFD 

84 

09 

STY  $09 

und  Spalte  merken 

AAFF 

20 

9B  B7 

JSR  $B79B 

Byte-Wert  holen 

AB02 

C9 

29 

CMP  #$29 

')'  Klammer  zu? 

AB04 

DO 

59 

BNE  $AB5F 

nein:  'SYNTAX  ERROR1 

AB06 

28 

PLP 

Flags  wiederherstellen 

AB07 

90 

06 

BCC  SABOF 

zu  SPC( 

AB09 

8A 

TXA 

TAB-Wert  in  Akku 

ABOA 

E5 

09 

SBC  $09 

mit  Cursor-Spalte  vergleichen 

ABOC 

90 

05 

BCC  SAB 13 

kleiner  Cursor-Position:  RTS 

ABOE 

AA 

TAX 

Schritte  bis  zum  Tabulator 

ABOF 

E8 

INX 

aus  Zähler  initialisieren 

AB10 

CA 

DEX 

um  1 vermi ndern 

AB11 

DO 

06 

BNE  SAB19 

=0?  nein:  Cursor  right 

AB13 

20 

73  00 

JSR  $0073 

nächstes  Zeichen  holen 

AB16 

4C 

A2  AA 

JHP  SAAA2 

und  weitermachen 

AB19 

20 

3B  AB 

JSR  SAB3B 

Cursor  right  bzw.  Leerzeichen 

ABIC 

DO 

F2 

BNE  SAB10 

zum  Schleifenanfang 

****************************  String  susgeben 

Einsprung  von  $A469f  $A478,  $AB6F,  $ACF8,  $BDDA,  $E191 
$E420,  $E441,  $FB8B 

AB1E  20  87  B4  JSR  $8487  String-Parameter  holen 
Einsprung  von  $AA9A,  AAC2,  $ABCB 


AB21 

20  A6  B6 

JSR  $B6A6 

AB24 

AA 

TAX 

AB25 

AO  00 

LDY  #$00 

AB27 

E8 

INX 

FRESTR 

String-Lange 

Zeiger  für  String- Ausgabe 
erhöhen 


Anhang 
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E i nsprung  von  $AB38 


AB28 

CA 

DEX 

vermi ndern 

AB29 

FO  BC 

BEO  SAAE7 

String  tu  Ende? 

AB2B 

Bl  22 

LOA  ($22), Y 

Zeichen  des  Strings 

AB2D 

20  4 7 AB 

JSR  $AB47 

ausgeben 

AB30 

CB 

1NY 

Zeiger  erhöhen 

AB31 

C9  00 

CMP  #$00 

'CR1  Carriage  Return? 

AB33 

DO  F3 

BNE  $AB28 

nein:  weiter 

AB35 

20  E5  AA 

JSR  $AAE5 

Fehler  ! Test  auf  LF-Ausgabe 

AB38 

4C  28  AB 

JMP  $AB28 

und  weitermachen 

******1 

************ 

Ausgabe  eines  Leerzeichens 

bzw.  Cursor  right 

Einsprung 

von 

$AAC5,  $AB19, 

$AC00 

AB3B 

AS 

13 

LDA  $13 

Ausgabe  in  File? 

AB30 

FO 

03 

BEQ  $AB42 

Bildschirm:  dann  Cursor  right 

AB3F 

A9 

20 

LDA  #$20 

1 1 Leerzeichencode  laden 

AB41 

2C 

.BYTE  $2C 

AB42 

A9 

10 

LDA  #$10 

Cursor-right-Code  laden 

AB44 

2C 

.BYTE  $2C 

Einsprung 

von 

$A451 , SAB FD, 

$AC47 

AB4S 

A9 

3F 

LOA  #$3F 

'?'  Fragezeichencode  laden 

E i nsprung 

von 

SA45B,  $A6F3, 

$A73D,  $AAD9,  SAAE2,  SAB2D 

AB47 

20 

OC  1 

El 

JSR  SE10C 

Code  ausgeben 

AB4A 

29 

FF 

AND  #$FF 

Flags  setzen 

AB4C 

60 

RTS 

Rücksprung 

****************************  Fehlerbehandlung  bei  Eingabe 

Einsprvxvg 

von  $AC9A 

AB40 

A5 

11 

LDA  $11 

Flag  für  INPUT  / GET  / READ 

AB4F 

FO 

11 

BEQ  $AB62 

INPUT:  $AB62 

AB51 

30  04 

BMI  SAB57 

READ:  SABS7 

ABS3 

AO 

FF 

LDY  #$FF 

GET: 

AB55 

00 

04 

BNE  $AB5B 

unbedingter  Sprung 

****************************  Fehler  bei  READ 

AB57 

A5  3F 

LDA  $3F 

DATA-Zei lennunmer 

AB59 

A4  40 

LDY  $40 

holen  (Low-  und  High-Byte) 

****************************  Fehler  bei  GET 

AB5B 

85 

39 

STA  $39 

gleiche  Zei lenmmner 

AB50 

84  3A 

STY  $3A 

des  Fehlers 

AB5F 

4C  08  AF 

JMP  $AF08 

'SYNTAX  ERROR1 
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**************************** 

Fehler  bei  INPUT 

AB62 

A5  13 

LDA  $13 

Nu— itr  des  Eingabegeräts 

AB64 

FO  05 

BEQ  $AB6B 

Tastatur:  'REDO  FROH  START1 

AB66 

A2  18 

LDX  #$18 

Nunmer  für  'FILE  DATA1 

AB68 

4C  37  A4 

JMP  $A437 

Fehlermeldung  ausgeben 

AB6B 

A9  OC 

LDA  #$0C 

Zeiger  in  Akku  und  Y-Reg. 

AB6D 

AO  AD 

LDY  #$AD 

auf  1 7RED0  FROH  START1 

AB6F 

20  IE  AB 

JSR  $AB1E 

String  ausgeben 

AB72 

A5  30 

LDA  $3D 

Werte  holen  und 

AB74 

A4  3E 

LDY  $3E 

Programmzeiger 

AB76 

85  7A 

STA  $7A 

zurücksetzen 

AB78 

84  7B 

STY  $7B 

auf  INPUT-Befehl 

AB7A 

60 

RTS 

Rücksprung 

**************************** 

BASIC-Befehl  GET 

AB7B 

20  A6  B3 

JSR  $B3A6 

Testet  auf  Direktmodus 

AB7E 

C9  23 

CMP  #$23 

folgt  l#,7 

AB80 

DO  10 

BNE  $AB92 

nein:  $AB92 

AB82 

20  73  00 

JSR  $0073 

CHRGET  nächstes  Zeichen  holen 

AB85 

20  9E  B7 

JSR  $B79E 

Byte-Wert  holen 

AB88 

A9  2C 

LDA  #$2C 

1 , 1 Komma 

AB8A 

20  FF  AE 

JSR  $AEFF 

prüft  auf  Code 

AB8D 

86  13 

STX  $13 

Fi  le-Nuimer 

AB8F 

20  IE  El 

JSR  $E11E 

CHKIN,  Eingabe  vorbereiten 

AB92 

A2  01 

LDX  #$01 

Zeiger  auf 

AB94 

AO  02 

LDY  #$02 

Pufferende  = $201  ein  Zeichen 

AB96 

A9  00 

LDA  #$00 

Wert  laden  und 

AB98 

80  01  02 

STA  $0201 

Puffer  mit  $0  absch ließen 

AB9B 

A9  40 

LDA  #$40 

GET- Flag 

AB9D 

20  OF  AC 

JSR  $ACOF 

Wertzuweisung  an  Variable 

ABAO 

A6  13 

LDX  $13 

Eingabegerät 

ABA2 

DO  13 

BNE  $ABB7 

nicht  Tastatur,  dann  CLRCH 

ABA4 

60 

RTS 

Rücksprung 

*****4 

BASIC-Befehl  INPUT# 

ABA5 

20  9E  B7 

JSR  $B79E 

holt  Byte-Wert 

ABA8 

A9  2C 

LDA  #$2C 

1 , 1 Code  für  Komna 

ABAA 

20  FF  AE 

JSR  $AEFF 

prüft  auf  Komna 

ABAO 

86  13 

STX  $13 

Eingabegerät 

ABAF 

20  IE  El 

JSR  $E11E 

CHKIN,  Eingabe  vorbereiten 

ABB2 

20  CE  AB 

JSR  $ABCE 

INPUT  ohne  Dialog-String 

Einsprung  von  $AA83 , $ABE4 

ABB5 

A5  13 

LDA  $13 

Eingabegerät  im  Akku 

ABB7 

20  CC  FF 

JSR  $FFCC 

setzt  Eingabegerät  zurück 

ABBA 

A2  00 

LDX  #$00 

Wert  laden  und 

ABBC 

86  13 

STX  $13 

Eingabegerät  wieder  Tastatur 

ABBE 

60 

RTS 

Rücksprung 

**************************** 

BASIC-Befehl  INPUT 

ABBF 

C9  22 

CMP  #$22 

1 " 1 Hochkomma? 

ABC1 

DO  OB 

BNE  $ABCE 

nein:  $ABDE 

Anhang 


ABC3 

20 

BD 

AE 

JSR 

SAEBD 

ABC6 

A9 

3B 

LDA 

#$3B 

ABC8 

20 

FF 

AE 

JSR 

SAEFF 

ABCB 

20 

21 

AB 

JSR 

SAB21 

Einsprung 

von  SABB2 

ABCE 

20 

A6 

B3 

JSR 

x> 

ro 

CO 

* 

ABD1 

A9 

2C 

LDA 

#$2C 

ABD3 

8D 

FF 

01 

STA 

SOIFF 

ABD6 

20 

F9 

AB 

JSR 

SABF9 

ABD9 

AS 

13 

LDA 

$13 

ABDB 

F0 

0D 

BEO 

$ABEA 

ABDD 

20 

B7 

FF 

JSR 

$FFB7 

ABEO 

29 

02 

AND 

#$02 

ABE2 

F0 

06 

BEQ 

$ABEA 

ABE4 

20 

BS 

AB 

JSR 

SABB5 

ABE7 

4C 

F8 

A8 

JHP 

$A8F8 

ABEA 

AD 

00 

02 

LDA 

$0200 

ABED 

DO 

IE 

BNE 

$ACOD 

ABEF 

A5 

13 

LDA 

$13 

ABF1 

DO 

E3 

BNE 

$ABD6 

ABF3 

20 

06 

A9 

JSR 

$A906 

ABF6 

4C 

FB 

A8 

JMP 

$A8FB 

Einsprung  von  $ABD6,  SAC4A 


ABF9 

A5  13 

LDA  $13 

ABFB 

DO  06 

BNE  $AC03 

AB  FD 

20  45  AB 

JSR  $AB45 

ACOO 

20  3B  AB 

JSR  $AB3B 

AC03 

4C  60  A5 

JHP  $A560 

AC06 

A6 

41 

LDX 

$41 

AC08 

A4 

42 

LDY 

$42 

ACOA 

A9 

98 

LDA  #$98 

ACOC 

2C 

•BYTE  $2C 

ACOD 

A9 

00 

LDA 

#$00 

Einsprung 

von 

$AB9D 

ACOF 

85 

11 

STA 

$11 

AC11 

86 

43 

STX 

$43 

AC13 

84 

44 

STY 

$44 

Einsprung 

von 

$ACB5 

AC15 

20 

8B  1 

BO  JSR 

$B08B 

AC18 

85 

49 

STA 

$49 

AC1A 

84 

4A 

STY 

$4A 

ACIC 

A5 

7A 

LDA 

$7A 

Dialog-String  holen 
Semikolon 
prüft  auf  Code 
String  ausgeben 


prüft  auf  Direktmodus 
V Komma 
an  Pufferstart 
Fragezeichen  ausgeben 
Nummer  des  Eingabegeräts 
Tastatur?  ja:  SABEA 
Status  holen 

Bit  1 isolieren  (Tineout  R.) 
Time-out? 

ja:  CLRCH, Tastatur  aktivieren 
nächstes  Stateaient  ausführen 

erstes  Zeichen  holen 
Ende? 

ja:  Eingabegerät 
nicht  Tastatur:  $ABD6 
Offset  (Statement)  suchen 
Programmzeiger  auf  Statement 


Eingabegerät  holen 
nicht  Tastatur:  SAC03 
'?'  ausgeben 

1 1 Leerzeichen  ausgeben 
Eingabezeile  holen 

BASIC-Befehl  READ 
DATA-Zeiger  nach 
$41/42  holen 
READ-Flag 

Flag-Wert  laden 


und  INPUT-Zeiger  setzen 
INPUT-Zeiger  auf 
Eingabequelle  setzen 


sucht  Variable 
Var i abl enadresse 
speichern 

Low-  und  High-Byte  des 
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AC1E 

A4  7B 

LDY  S7B 

Programmzeigers 

AC20 

85  4B 

STA  $4B 

in  $4B/$4C 

AC22 

84  4C 

STY  $4C 

Zwischenspeichern 

AC24 

A6  43 

LDX  $43 

INPUT-Zeiger 

AC26 

A4  44 

LDY  $44 

(Low  und  High) 

AC28 

86  7A 

STX  $7A 

als  Programnzeiger 

AC2A 

84  7B 

STY  $7B 

abspeichern 

AC2C 

20  79 

00 

JSR  $0079 

CHRGOT  letztes  Zeichen  holen 

AC2F 

DO  20 

BNE  $AC51 

Endzeichen?  Nein:  $AC51 

AC31 

24  11 

BIT  $11 

Eingabe-Flag 

AC33 

50  OC 

BVC  $AC41 

kein  GET:  SAC41 

AC35 

20  24 

El 

JSR  $E124 

GETIN 

AC38 

8D  00 

02 

STA  $0200 

Zeichen  in  Puffer  schreiben 

AC3B 

A2  FF 

LDX  #$FF 

Zeiger  auf 

AC3D 

AO  01 

LDY  #$01 

Puffer  setzen 

AC3F 

DO  OC 

BNE  $AC4D 

unbedingter  Sprung 

AC41 

30  75 

BMI  $ACB8 

READ:  $ACB8 

AC43 

A5  13 

LDA  $13 

Eingabegerät  holen 

AC45 

DO  03 

BNE  $AC4A 

nicht  Tastatur:  $AC4A 

AC47 

20  45 

AB 

JSR  $AB45 

Fragezeichen  ausgeben 

AC4A 

20  F9 

AB 

JSR  $ABF9 

zweites  Fragezeichen  ausgeben 

AC4D 

86  7A 

STX  $7A 

Programnzeiger  setzen 

AC4F 

84  7B 

STY  $7B 

(Low  und  High) 

Einsprung  von  $ACDC 


AC51 

20  73  00 

JSR  $0073 

CHRGET  nächstes  Zeichen  holen 

AC54 

24  00 

BIT  $OD 

Typ- Flag 

AC56 

10  31 

BPL  $AC89 

Kein  String:  $AC89 

AC58 

24  11 

BIT  $11 

Eingabe-Flag 

AC5A 

50  09 

BVC  $AC65 

kein  GET:  $AC65 

AC5C 

E8 

INX 

Programnzeiger  erhöhen 

AC5D 

86  7A 

STX  $7A 

und  neu  setzen  ($0200) 

AC5F 

A9  00 

LDA  #$00 

Wert  laden  und 

AC61 

85  07 

STA  $07 

Trennzeichen  setzen 

AC63 

FO  OC 

BEQ  $AC71 

unbedingter  Sprung 

AC65 

85  07 

STA  $07 

nächstes  Zeichen 

AC67 

C9  22 

CMP  #$22 

1,11  Hochkomna? 

AC69 

FO  07 

BEO  $AC72 

ja:  $AC72 

AC6B 

A9  3A 

LDA  #$3A 

1 : 1 Doppel punkt code  laden 

AC6D 

85  07 

STA  $07 

und  abspeichern 

AC6F 

A9  2C 

LDA  #$2C 

Kommacode  (Endzeichen 

AC71 

18 

CLC 

für  String-Übertragung) 

AC72 

85  08 

STA  $08 

abspeichern 

AC74 

A5  7A 

LDA  $7A 

Programnzeiger  laden 

AC76 

A4  7B 

LDY  $7B 

(Low  und  High) 

AC78 

69  00 

ADC  #$00 

und  Übertrag  addieren 

AC7A 

90  01 

BCC  $AC7D 

C = 0:  $AC7D 

AC7C 

C8 

INY 

bei  ""  um  1 erhöhen 

AC7D 

20  80  B4 

JSR  $B48D 

String  übernehmen 

AC80 

20  E2  B7 

JSR  $B7E2 

Programnzeiger  hinter  String 

AC83 

20  DA  A9 

JSR  $A9DA 

String  an  Variable  zuweisen 

AC86 

4C  91  AC 

JMP  $AC91 

weiter  machen 
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AC89 

20  F3  BC 

JSR  S8CF3 

AC8C 

AS  OE 

LDA  SOE 

AC8E 

20  C2  A9 

JSR  SA9C2 

Einsprung  von  SAC86 

AC91 

20  79  00 

JSR  $0079 

AC94 

FO  07 

BEO  SAC9D 

AC96 

C9  2C 

CMP  #S2C 

AC96 

FO  03 

BEO  $AC9D 

AC9A 

4C  4D  AB 

JHP  $AB4D 

AC9D 

A5  7A 

LDA  $7A 

AC9F 

A4  7B 

LDY  $7B 

ACA1 

85  43 

STA  $43 

ACA3 

84  44 

STY  $44 

ACA5 

AS  4B 

LDA  $4B 

ACA7 

A4  4C 

LDY  $4C 

ACA9 

85  7A 

STA  $7A 

ACAB 

84  7B 

STY  S7B 

ACAD 

20  79  00 

JSR  $0079 

ACBO 

F0  2D 

BEQ  SACDF 

ACB2 

20  FD  AE 

JSR  $AEFD 

ACB5 

4C  15  AC 

JHP  SAC15 

ACB8 

20  06  A9 

JSR  SA906 

ACBB 

C8 

INY 

ACBC 

AA 

TAX 

ACBO 

DO  12 

BNE  $ACDl 

ACBF 

A2  0D 

LDX  #$0D 

ACC1 

C8 

INY 

ACC2 

Bl  7A 

LDA  ($7A), Y 

ACC4 

F0  6C 

BEO  $AD32 

ACC6 

C8 

INY 

ACC  7 

Bl  7A 

LDA  ($7A),Y 

ACC9 

85  3F 

STA  $3F 

ACCB 

C8 

INY 

ACCC 

Bl  7A 

LDA  ($7A) , Y 

ACCE 

C8 

INY 

ACCF 

85  40 

STA  $40 

AC01 

20  FB  A8 

JSR  $A8FB 

ACD4 

20  79  00 

JSR  $0079 

ACD7 

AA 

TAX 

ACD8 

E0  83 

CPX  #$83 

ACOA 

DO  DC 

BNE  SACB8 

ACOC 

4C  51  AC 

JHP  SAC51 

ACDF 

A5  43 

LDA  $43 

ACE1 

A4  44 

LDY  $44 

ACE3 

A6  11 

LDX  $11 

ACES 

10  03 

BPL  SACEA 

ACE7 

4C  27  A8 

JHP  SA827 

ACEA 

AO  00 

LDY  #$00 

ACEC 

Bl  43 

LDA  ($43), Y 

ACEE 

FO  OB 

BEO  SACFB 

ACFO 

A5  13 

LDA  $13 

Ziffern-String  in  FAC  holen 

INTEGER/REAL- Flag 

FAC  an  numerische  Variable 


CHRGOT:  letztes  Zeichen  holen 
Ende? 

','  Code? 
ja:  SAC9D 

zur  Fehlerbehandlung 
Progranmzeiger 
holen  und 
in  DATA-Zeiger 
abspeichern 
ursprüngliche 
Progranmzeiger 
wieder  zurückholen 
und  speichern 

CHRGOT:  letztes  Zeichen  holen 
Trennzeichen:  SACDF 
CKCOM:  prüft  auf  Komna 
weiter 

nächstes  Statement  suchen 
Offset  erhöhen 
Zei lenende? 

Nein:  SACD1 
■OUT  OF  DATA1  Code 
Zeiger  erhöhen 
Programmende? 

Ja:  'OUT  OF  DATA',  X = 0 
Zeiger  erhöhen 
Zeilermumer  (Low)  holen 
und  abspei ehern 
Zeiger  erhöhen 
Zeilenunmer  (High) 

Zeiger  erhöhen 
Zei lennunner  speichern 
Programmz.  auf  Statement 
CHRGOT  letztes  Zeichen  holen 
und  ins  X-Reg. 

■DATA'  Code? 

Hein:  weitersuchen 

Daten  lesen 

Low-  und  High-Byte  des 

Input-Zeigers 

Eingabe-Flag 

kein  DATA:  SACEA 

DATA-Zeiger  setzen 

Zeiger  setzen 

nächstes  Zeichen  holen 

Endzeichen:  SACFB 

Eingabe  über  Tastatur? 
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ACF2 

DO 

07 

BNE  $ACFB 

Nein:  $ACFB 

ACF4 

A9 

FC 

LDA  #$FC 

Zeiger  auf 

ACF6 

AO  AC 

LDY  #$AC 

•?extra  ignored'  setzen 

ACF8 

4C 

IE  AB 

JMP  SAB IE 

String  ausgeben 

ACFB 

60 

RTS 

Rücksprung 

ACFC 

3F 

45  58  54  52  41  20 

49  '?extra  ignored' 

AD  04 

47  4E  4F 

52  45  44  OD 

00 

ADOC 

3F 

52  45 

44  4F  20  46  52  '7redo  from  Start1 

AD14 

4F 

20  53  54  41  52  54 

OD 

AD1C 

00 

r*****tf 

r##****###*#4 

' BASIC-Befehl  NEXT 

AD1D 

DO 

04 

BNE  SAD24 

folgt  Variablenname?  ja:$AD24 

AD20 

AO  00 

LDY  #$00 

Variablenzeiger  = 0 

AD22 

FO 

03 

BEQ  SAD 27 

unbedingter  Sprung 

Einsprung 

von  SAD87 

AD24 

20 

8B  BO 

JSR  SB08B 

sucht  Variable 

AD27 

85 

49 

STA  $49 

Adresse  der 

AD  29 

84 

4A 

STY  $4A 

Variablen  speichern 

AD2B 

20 

8A  A3 

JSR  $A38A 

sucht  FOR-NEXT-Schleife 

AD2E 

FO  05 

BEO  $AD35 

gefunden:  $AD35 

AD  30 

A2 

OA 

LDX  #$0A 

Nummer  für  'next  without  for' 

AD32 

4C  37  A4 

JMP  $A437 

Fehlermeldung  ausgeben 

AD35 

9A 

TXS 

X-Reg.  retten 

AD  36 

8A 

TXA 

X-Register  nach  Akku 

AD37 

18 

CLC 

Carry  löschen  (Addition) 

AD38 

69 

04 

ADC  #$04 

Zeiger  auf  Exponenten  des 

AD3A 

48 

PHA 

STEP-Uert  + 4 und  retten 

AD3B 

69 

06 

ADC  #$06 

Zeiger  auf  Exponent  des  TO- 

AD3D 

85 

24 

STA  $24 

Wert  und  retten 

AD3F 

68 

PLA 

Akku  wieder  vom  Stapel  holen 

AD40 

AO 

01 

LDY  #$01 

Zeiger  für  Konstante  setzen 

AD42 

20  A2  BB 

JSR  $BBA2 

Variable  vom  Stapel  nach  FAC 

AD45 

BA 

TSX 

Stapelzeiger  als  Zeiger  h. 

AD46 

BD 

09  01 

LDA  $0109, 

,X  Vorzeichen-Byte  holen  und 

AD49 

85 

66 

STA  $66 

für  FAC  speichern 

AD4B 

A5 

49 

LDA  $49 

Variablenadresse  für 

AD4D 

A4 

4A 

LDY  $4A 

FOR-NEXT  holen 

AD4F 

20  67  B8 

JSR  SB867 

addiert  STEP-Uert  zu  FAC 

AD52 

20  DO  BB 

JSR  $BBDO 

FAC  nach  Variable  bringen 

AD55 

AO 

01 

LDY  #$01 

Zeiger  auf  Konstante  setzen 

AD57 

20 

5D  BC 

JSR  $BC5D 

FAC  mit  Schleifenendwert  vergleichen 

AD5A 

BA 

TSX 

Stapelzeiger  als  Zeiger  h. 

AD5B 

38 

SEC 

Carry  setzen  (Subtraktion) 

AD5C 

FD 

09  01 

SBC  $0109, X Stapelwert  größer? 

AD5F 

FO 

17 

BEQ  SAD 78 

Ja:  Schleife  verlassen 

AD61 

BD 

OF  01 

LDA  S010F 

,X  Zeilennummer  des  Schleifen- 

AD64 

85 

39 

STA  $39 

anfangs  holen  (Low-  und 

AD66 

BD 

10  01 

LDA  $0110,X  High-Byte)  und  als  aktuelle 

AD69 

85 

3A 

STA  $3A 

BASIC-Zei lennummer  speichern 
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AD6B 

BO  12  01 

LOA  $0112, X Schleifenanfang  holen  (Low- 

AD6E 

85  7A 

STA  $7A 

und  High-Byte)  und 

AD  70 

BO  11  01 

LOA  $0111,X 

als  neuen  Programmzeiger 

AD  73 

85  7B 

STA  $7B 

abspeichern 

AD  75 

4C  AE  A7 

JMP  SA7AE 

zur  Interpreter-Schleife 

AD  78 

8A 

TXA 

Zeiger  in  Akku  holen 

AD  79 

69  11 

ADC  #$11 

(Werte  der  Schleife  aus 

AD7B 

AA 

TAX 

Stapel  entfernen) 

AD7C 

9A 

TXS 

neuen  Stapelzeiger  setzen 

AD  70 

20  79  00 

JSR  $0079 

CHRGOT  letztes  Zeichen  holen 

AD80 

C9  2C 

CMP  #$2C 

1 , 1 Komma? 

A082 

00  Fl 

BNE  SAD 75 

Nein:  dann  fertig 

AD84 

20  73  00 

JSR  $0073 

CHRGET  nächstes  Zeichen  holen 

A087 

20  24  AD 

JSR  $A024 

nächste  NEXT-Varieble 

MM**6M***tM***M#t*M*t* 

FRMNUM  Ausdruck  holen  und 

auf  numerisch  prüfen 

Einsprung  von  SA775,  SA79C,  SB438,  SB79E,  B7EB,  SE12A 
AD8A  20  9E  AD  JSR  SAD9E  FRMEVL  Term  holen 


****************************  prüft  auf  nunerisch 

Einsprung  von  $A772,  $ADF6,  $AE61,  $AFE3,  B1B8,  S63C3 
SB3F1,  $8400,  $B465 

ADflO  18  CLC  Flag  für  Test  auf  numerisch 

AD8E  24  .BYTE  $24 

****************************  prüft  auf  String 

Einsprung  von  $AFBA,  $B646,  SB6A3 

AD8F  38  SEC  Flag  für  Test  auf  String 

Einsprimg  von  SA9BC,  $8016 

AD90  24  00  BIT  $00  Typ-Flag  testen 

A092  30  03  BMI  $A097  gesetzt:  $A097 

AD94  BO  03  BCS  SAD 99  C=1:  'TYPE  MISMATCH1 

A096  60  RTS  Rücksprung 

AD97  BO  FD  BCS  $AD96  C=1:  RTS 

AD 99  A2  16  LDX  #$16  Mumner  für  'TYPE  MISMATCH* 

A09B  4C  37  A4  JMP  SA437  Fehlermeldung  ausgeben 

****************************  frmevl  auswerten  eines 

beliebigen  Ausdrucks 


Einsprung  von  SA928,  SA9B7,  SAAB5,  SAD8A,  SAEF4,  SAFB4 
SB1BS,  SE257 
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AD9E 

A6  7A 

LDX  $7A 

A0A0 

DO  02 

BNE  $ADA4 

ADA2 

C6  7B 

DEC  $7B 

ADA4 

C6  7A 

DEC  $7A 

ADA6 

A2  00 

LDX 

#$00 

A0A8 

24 

.BYTE  $24 

Einsprung  von  SAE2D 

. ADA9 

48 

PHA 

' ADAA 

8A 

TXA 

A0AB 

48 

PHA 

ADAC 

A9  01 

LDA 

#$01 

A0AE 

20  FB  A3 

JSR 

$A3FB 

ADB1 

20  83  AE 

JSR 

$AE83 

ADB4 

A9  00 

LDA 

#$00 

ADB6 

85  4D 

STA 

$4D 

Einsprung  von  $B677 

ADB8 

20  79  00 

JSR 

$0079 

Einsprung  von  $ADD4 


ADBB 

38 

SEC 

ADBC 

E9  Bl 

SBC 

#$B1 

ADBE 

90  17 

BCC 

$ADD7 

ADC0 

C9  03 

CMP 

#$03 

ADC2 

B0  13 

BCS 

$ADD7 

ADC4 

C9  01 

CMP 

#$01 

ADC6 

2A 

ROL 

ADC7 

49  01 

EOR 

#$01 

ADC9 

45  4D 

EOR 

$4D 

ADCB 

C5  4D 

CMP 

$4D 

AD  CD 

90  61 

BCC 

$AE30 

ADCF 

85  4D 

STA 

$4D 

ADD1 

20  73  00 

JSR 

$0073 

ADD4 

4C  BB  AD 

JMP 

$ADBB 

ADD7 

A6  40 

LDX 

$4D 

ADD9 

DO  2C 

BNE 

$AE07 

ADDB 

B0  7B 

BCS 

$AE58 

ADDD 

69  07 

ADC 

#$07 

ADDF 

90  77 

BCC 

$AE58 

ADE1 

65  0D 

ADC 

$0D 

ADE3 

DO  03 

BNE 

$ADE8 

ADE5 

4C  3D  B6 

JMP 

$B63D 

ADE8 

69  FF 

ADC 

#$FF 

ADEA 

85  22 

STA 

$22 

ADEC 

OA 

ASL 

ADED 

65  22 

ADC 

$22 

ADEF 

A8 

TAY 

ADF0 

68 

PLA 

ADF1 

D9  80  AO 

CMP 

$A080 

Programmzeiger  (Low)  = 0? 
ja:  High-B.  nicht  vermindern 
Jligh-Byte  vermindern 
Low-Byte  vermindern 
Prioritätsuert  laden 


Operatormaske  retten 
Prioritätswert  in  Akku 
schieben  und  retten 
2 Bytes 

prüft  auf  Platz  im  Stapel 
Nächstes  Element  holen 
Wert  laden  und 
Maske  für  Vergleichsoperator 


CHRGOT  letztes  Zeichen  holen 


Carry  setzen  (Subtraktion) 

$B1  von  Operatorcode  subtr. 
C=0:  $ADD7 
mit  $3  vergleichen 
=3:  $ADD7 

Maske  für  kleiner 
gleich  und  größer 
für  Bits  0,1  und  2 
in  $4D  erstellen 
(Wenn  Codes  von  177 
bis  179  folgen) 

CHRGET  nächstes  Zeichen  holen 
nächstes  Zeichen  auswerten 
Operatormaske  holen 
gleich  0?  nein:  $AE07 
Code  größer  oder  gleich  180? 
Code  kleiner  170? 
ja:  SAE58 
String-Addition? 

Nein:  Verkettung  umgehen 
String-Verkettung 
Code-$AA  (wiederherstellen) 
und  speichern 
verdoppeln 
* Uert  (also  mal  3) 
als  Zeiger  ins  Y-Register 
bisheriger  Prioritätswert 
Y mit  Priori tätsw.  vergleichen 
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ADF4 

BO  67 

BCS 

SAE5D 

größer:  $AE5D 

ADF6 

20  80  AD 

JSR 

SAD8D 

prüft  auf  numerisch 

ADF9 

48 

PHA 

Prioritätswert  retten 

Einsprung  von  $AF11 

ADFA 

20  20  AE 

JSR 

SAE20 

Operatoradr.  und  Operanden  r. 

AD  FD 

68 

PLA 

ADFE 

A4  4B 

LDY 

$4B 

Operator? 

AE  00 

10  17 

BPI 

SAE19 

Ja:  $AE19 

AE  02 

AA 

TAX 

weitere  Operation? 

AE  03 

FO  56 

BEO 

SAE5B 

Nein:  RTS 

AE05 

DO  5F 

BNE 

SAE66 

ARG  vom  Stapel  holen 

AE07 

46  OD 

LSR 

$00 

String-Flag  löschen 

AE  09 

8A 

TXA 

Operatormaske  nach 

AEOA 

2A 

ROL 

links  schieben 

AEOB 

A6  7A 

LDX 

$7A 

Prograimnzeiger  holen  (Low) 

AEOD 

DO  02 

BNE 

$AE11 

=0:  High -Byte  vermindern 

AEOF 

C6  7B 

DEC 

$7B 

High- Byte  vermindern 

AE11 

C6  7A 

DEC 

$7A 

Low-Byte  vermindern 

AE13 

AO  1B 

LDY 

#$1B 

Offset  des  Hierarchie- Flags 

AE1S 

85  4D 

STA 

$4D 

Flag  setzen 

AE17 

DO  D7 

BNE 

SADFO 

unbedingter  Sprung 

AE19 

D9  80  AO 

CMP 

$A080,Y 

mit  Hierarchie-Flag  vergl. 

AE1C 

BO  48 

BCS 

$AE66 

größer:  $AE66 

AE1E 

90  D9 

BCC 

$ADF9 

sonst  weiter 

Einsprung  von  $ADFA 

AE  20 

B9  82  AO 

LDA 

$A082, Y 

Operationsadresse  (High) 

AE  23 

48 

PHA 

auf  Stapel  retten 

AE24 

B9  81  AO 

LDA 

SA081.Y  Operationsadresse  (Low) 

AE27 

48 

PHA 

auf  Stapel  retten 

AE  28 

20  33  AE 

JSR 

$AE33 

Operanden  auf  Stapel  retten 

AE  28 

A5  4D 

LDA 

$40 

Operatormaske  laden 

AE2D 

4C  A9  AD 

JHP 

$ADA9 

zun  Schleifenanfang 

AE30 

4C  08  AF 

JHP 

SAF08 

gibt  'SYNTAX  ERROR1 

Einsprung  von  SAE28 

AE33 

A5  66 

LDA 

$66 

Vorzeichen  von  FAC 

AE35 

BE  80  AO 

LDX 

$A080,Y 

Hierarchie- Flag 

Einsprung  von  SA7A2 

AE38 

A8 

TAY 

Vorzeichen  ins  Y-Reg. 

AE39 

68 

PLA 

Rücksprungadresse  holen 

AE3A 

85  22 

STA 

$22 

und  merken 

AE3C 

E6  22 

INC 

$22 

Rücksprungadresse  erhöhen 

AE3E 

68 

PLA 

nächstes  AdreB-Byte  holen 

AE3F 

85  23 

STA 

$23 

und  speichern 
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AE41 

98 

TYA 

Vorzeichen  wieder  in  Akku 

AE42 

48 

PHA 

und  auf  Stapel  legen 

Einsprung  von  $A788 

AE43 

20  1B  BC 

JSR  SBC1B 

FAC  runden 

AE46 

A5  65 

LDA  $65 

FAC  auf  Stapel  legen 

AE  48 

48 

PHA 

1.  Byte  retten 

AE49 

A5  64 

LDA  $64 

2.  Byte  holen 

AE4B 

48 

PHA 

und  retten 

AE4C 

A5  63 

LDA  $63 

3.  Byte  holen 

AE4E 

48 

PHA 

und  retten 

AE4F 

A5  62 

LDA  $62 

4.  Byte  holen 

AE51 

48 

PHA 

und  retten 

AE52 

A5  61 

LDA  $61 

5.  Byte  holen 

AE54 

48 

PHA 

und  retten 

AE55 

6C  22  00 

JMP  ($0022)  Sprung  auf  Operation 

AE  58 

AO  FF 

LOY  #$FF 

Flag-Wert  für  Operator 

AE5A 

68 

PLA 

Prioritäts-Flag  retten 

AE5B 

FO  23 

BEO  $AE80 

=07  Ja:  $AE80 

AE  50 

C9  64 

CMP  #$64 

=$647 

AE5F 

FO  03 

BEQ  $AE64 

Ja:  $AE64 

AE61 

20  80  AD 

JSR  $AD8D 

prüft  auf  numerisch 

AE64 

84  4B 

STY  $4B 

Flag  für  Operator 

AE  66 

68 

PLA 

Akku  vom  Stapel  holen 

AE67 

4A 

LSR 

halbieren 

AE68 

85  12 

STA  $12 

und  abspeichern 

AE6A 

68 

PLA 

ARG  von  Stapel  holen 

AE6B 

85  69 

STA  $69 

1.  Byte  speichern 

AE6D 

68 

PLA 

2.  Byte  holen 

AE6E 

85  6A 

STA  $6A 

und  speichern 

AE  70 

68 

PLA 

3.  Byte  holen 

AE71 

85  6B 

STA  $6B 

und  speichern 

AE73 

68 

PLA 

4.  Byte  holen 

AE74 

85  6C 

STA  $6C 

und  speichern 

AE76 

68 

PLA 

5.  Byte  holen 

AE  77 

85  60 

STA  $60 

und  speichern 

AE79 

68 

PLA 

6.  Byte  (Vorzeichen  holen 

AE7A 

85  6E 

STA  $6E 

und  speichern 

AE7C 

45  66 

EOR  $66 

Vorzeichen  von  ARG  und  FAC 

AE7E 

85  6F 

STA  $6F 

verknüpfen  und  speichern 

AE80 

A5  61 

LDA  $61 

Exponent-Byte  von  FAC  laden 

AE82 

60 

RTS 

Rücksprung 

****************************  Nächstes  Element  eines 

Ausdrucks  holen 


Einsprung  von  $ADB1,  SB643 

AE83  6C  OA  03  JMP  ($030A)  JMP  SAE86 

Einsprung  von  $AE83 
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AE86 

A9 

00 

LDA 

«$00 

AE  88 

85 

00 

STA 

$00 

AE8A 

20 

73 

00 

JSR 

$0073 

AE8D 

BO 

03 

BCS 

$AE92 

AE8F 

4C 

F3 

BC 

JMP 

$BCF3 

AE92 

20 

13 

Bl 

JSR 

$6113 

AE  95 

90 

03 

BCC 

$AE9A 

AE97 

4C 

28 

AF 

JMP 

$AF28 

AE9A 

C9 

FF 

CMP 

#$FF 

AE9C 

DO 

0F 

BNE 

$AEAD 

AE9E 

A9 

A8 

LDA 

«$A8 

AEAO 

A0 

AE 

LDY 

#$AE 

AEA2 

20 

A2 

BB 

JSR 

$BBA2 

AEA5 

4C 

73 

00 

JMP 

$0073 

**************************** 
AEA8  82  49  OF  DA  AI 

**************************** 


AEAD 

C9 

2E 

CMP 

#$2E 

AEAF 

FO 

DE 

BEQ 

$AE8F 

AEB1 

C9 

AB 

CMP 

#$AB 

AEB3 

FO 

58 

BEQ 

$AF0D 

AEB5 

C9 

AA 

CMP 

#$AA 

AEB7 

FO 

Dl 

BEQ 

$AE8A 

AEB9 

C9 

22 

CMP 

#$22 

AEBB 

00 

OF 

BNE 

$AECC 

AEBO 

A5 

7A 

LDA 

$7A 

AEBF 

A4 

7B 

LDY 

$7B 

AEC1 

69 

00 

ADC 

#$00 

AEC3 

90 

01 

BCC 

$AEC6 

AEC5 

C8 

INY 

AEC6 

20 

87 

B4 

JSR 

$6487 

AEC9 

4C 

E2 

B7 

JMP 

SB7E2 

AECC 

C9 

A8 

CMP 

#$A8 

AECE 

DO 

13 

BNE 

$AEE3 

AEDO 

AO 

18 

LDY 

#$18 

AED2 

00 

3B 

BNE 

$AF0F 

*********1 

k**4 

r***i 

k*##*i 

AED4 

20  BF 

Bl 

JSR 

$B1BF 

AED7 

A5 

65 

LDA  $65 

AED9 

49 

FF 

EOR 

«$FF 

AEDB 

A8 

TAY 

AEDC 

A5  64 

LDA  $64 

AEDE 

49 

FF 

EOR 

#$FF 

AEEO 

4C  91 

B3 

JMP 

$B391 

***************************4 

AEE3 

C9  A5 

CMP  «$A5 

AEE5 

00  03 

BNE 

SAEEA 

AEE7 

4C 

F4 

B3 

JMP  $B3F4 

Wert  laden  und  damit 
Typ- Flag  auf  nunerisch  setzen 
CHRGET  nächstes  Zeichen  holen 
Ziffer?  Nein:  $AE92 
Variable  nach  FAC  holen 
Buchstabe? 

Nein:  JMP  ungehen 
Variable  holen 
BASIC-Code  für  Pi? 

Nein:  $AEAD 

Zeiger  auf  Konstante  Pi 
(Low  und  High-Byte) 

Konstante  in  FAC  holen 
CHRGET  nächstes  Zeichen  holen 


Konstante  Pi  3.14159265 


Dezimatpunkt? 

Ja:  $AE8F 
• - ■ ? 

zun  Vorzeichenuechsel 
'+•? 

Ja:  $Ae8A 

INI? 

Nein:  SAECC 
Loh-  und  High-Byte  des 
Prograimizeigers  holen 
und  Übertrag  addieren 
C=0:  $AEC6 
High-Byte  erhöhen 
String  übertragen 
Prograimiz.  auf  Stringende  +1 
•NOT' -Code? 

Nein:  SAEE3 

Offset  des  H. Flags  in  Tabelle 
unbedingter  Sprung 

BASIC-Befehl  NOT 
FAC  nach  INTEGER  wandeln 
High-Byte  holen 
alle  Bits  undrehen 
und  ins  Y-Reg. 

Low- Byte  holen 

alle  Bits  invertieren 

nach  FlieBkomna  wandeln 


■FN'-Code? 
Nein:  SAEEA 
FN  ausführen 
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**************************** 

AEEA  C9  B4  CMP  «B4  'SGN'-Code 

AEEC  90  03  BCC  $AEF1  kleiner  (keine  String- Funkt.)? 

AEEE  4C  A7  AF  JMP  SAFA7  holt  String  .ersten  Parameter 

****************************  holt  Term  in  Klammern 

Einsprung  von  SB3FD 

AE Fl  20  FA  AE  JSR  SAEFA  prüft  auf  Klaamer  auf 

AEF4  20  9E  AD  JSR  SAD9E  FRMEVL  holt  Term 

****************************  prüft  auf  Zeichen  im  B.-Text 


Einsprung  von  SB20B,  SB3C6, 

AEF7  A9  29  LDA  «29 

AEF9  2C  .BYTE  S2C 

Einsprung  von  SAEF1,  SAFB1, 

AEFA  A9  28  LDA  «28 

AE  FC  2C  .BYTE  $2C 

Einsprung  von  SACB2,  SAFB7, 

AE  FD  A9  2C  LDA  «2C 

Einsprung  von  SA76F,  SA817, 
SABAA,  SABC8,  SB3CB,  SB3E3 

AEFF  AO  00  LDY  «00 

AF01  Dl  7A  CMP  ($7A), 

AF03  DO  03  BNE  SAF08 

AF05  4C  73  00  JMP  $0073 

Einsprung  von  SA80B,  $A8E8, 
SB446,  $E216 

AF08  A2  OB  LDX  «OB 

AFOA  4C  37  A4  JMP  $A437 

AFOD  AO  15  LDY  «15 

AFOF  68  PLA 

AF10  68  PLA 

AF11  4C  FA  AD  JMP  SADFA 

**************************** 


Einsprung  von  SAF3B,  SAF6E 

AF14  38  SEC 

AF15  A5  64  LDA  $64 


$B761 

')'  Klammer  zu 


$B3B9 

'('  Klammer  auf 


$B07E,  $B742,  B7F1,  $E20E 
1 , 1 Komm» 

$A934.  $A9AE,  $AA8D,  ABSA 


Zeiger  setzen 

Y mit  laufendem  Zeichen  vergl. 
keine  Übereinstimmung? 

CHRGET  nächstes  Zeichen  holen 
$AB5F,  $AE30,  $B09C,  SB138 


Nummer  für  'SYNTAX  ERROR1 
Fehlermeldung  ausgeben 

Offset  Hierachie-Code  für  VZW 
nächsten  2 Bytes  vom 
Stapel  entfernen 
zur  Auswertung 

prüft  auf  Variable 
innerhalb  des  BASICs 


Carry  setzen  (Subtr.) 
Descriptor  holen 
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AF17 

E9  00 

SBC 

#$00 

AF19 

A5  65 

LDA 

$65 

AF1B 

E9  A0 

SBC 

#SA0 

AF1D 

90  08 

BCC 

SAF27 

AF1F 

A9  A2 

LDA 

#$A2 

AF21 

E5  64 

SBC 

S64 

AF23 

A9  E3 

LDA 

#$E3 

AF25 

E5  65 

SBC 

S65 

AF27 

60 

RTS 

**************************** 


Einsprung  von  SAE97 


AF28 

20 

88 

BO 

JSR 

$8088 

AF2B 

85 

64 

STA 

S64 

AF2D 

84 

65 

STY 

S65 

AF2F 

A6 

45 

LDX 

$45 

AF31 

A4 

46 

LDY 

$46 

AF33 

A5 

OD 

LDA 

$0D 

AF35 

F0 

26 

BEQ 

SAF5D 

AF37 

A9 

00 

LDA 

#$00 

AF39 

85 

70 

STA 

$70 

AF3B 

20 

14 

AF 

JSR 

SAF14 

AF3E 

90 

IC 

BCC 

SAF5C 

AF40 

E0 

54 

CPX 

#$54 

AF42 

DO 

18 

BNE 

SAF5C 

AF44 

CO 

C9 

CPY 

#$C9 

AF46 

DO 

14 

BNE 

$AF5C 

AF48 

20 

84 

AF 

JSR 

SAF84 

AF4B 

84 

5E 

STY 

$5E 

AF4D 

88 

DEY 

AF4E 

84 

71 

STY 

$71 

AF50 

AO 

06 

LDY 

#$06 

AF52 

84 

5D 

STY 

S5D 

AF54 

AO 

24 

LDY 

#$24 

AF56 

20 

68 

BE 

JSR 

SBE68 

AF59 

4C 

6F 

B4 

JHP 

$B46F 

AF5C 

60 

RTS 

AF5D 

24 

OE 

BIT 

SOE 

AF5F 

10 

OD 

BPL 

$AF6E 

**************************** 


AF61 

AO  00 

LDY  #S00 

AF63 

Bl  64 

LDA  ($64), 

AF65 

AA 

TAX 

AF66 

C8 

INY 

AF67 

Bl  64 

LDA  (S64), 

AF69 

A8 

TAY 

AF6A 

8A 

TXA 

AF6B 

4C  91  B3 

JMP  SB391 

liegt  Descriptor  (S64/S65) 
zwischen  SA000  und  SE32A? 

Ja:  dann  0=1,  sonst  RTS 
1.  Wert  laden 

1.  Descriptor-Byte  abziehen 

2.  Wert  laden 

und  Descriptorwert  abziehen 
Rücksprung 

Variable  holen 


Variable  suchen 
Zeiger  auf  Variable 
bzw.  String-Descriptor 
als 

Variablenname  speichern 
Typ-Flag  holen 
nimerisch? 

Wert  laden  und 
in  Rundungs-Byte  für  FAC 
Descriptor  im  Interpreter? 

Nein 

■T*?  (von  TIB) 

Nein:  SAF5C 
■1$'?  (von  TIS) 

Nein:  SAF5C 

Zeit  nach  FAC  holen 

Flag  für  Exponentialdarst.  =0 

vermindern  (*$FF> 

Zeiger  für  String-Startadresse 

Länge  6 für  TIS 

speichern 

Zeiger  auf  Stellenwert 
erzeugt  String  TIS 
bringt  String  in  Str. bereich 
Rücksprung 

INTEGER/  REAL  Flag 
REAL?  Ja:  SAF6E 

Integer-Variable  holen 
Zeiger  setzen 

Integer-Zahl  holen  (1.  Byte) 
ins  X-Reg. 

Zeiger  erhöhen 

2.  Byte  holen 

ins  Y-Register 

1.  Byte  in  Akku  holen 

und  nach  FlieBkomna  wandeln 


1070 


Das  große  Commodore  64-Buch 


**************************** 

REAL-Variable  holen 

AF6E 

20  14  AF 

JSR  $AF14 

Descriptor  im  Interpreter? 

AF71 

90  2D 

BCC  SAFAO 

Nein 

AF73 

EO  54 

CPX  #$54 

•T'?  (von  TI) 

AF75 

DO  1B 

BNE  $AF92 

Nein:  $AF92 

AF77 

CO  49 

CPY  #$49 

• I ■?  (von  TI) 

AF79 

DO  25 

BNE  $AFAO 

Nein:  SAFAO 

AF7B 

20  84  AF 

JSR  $AF84 

TIME  in  FAC  holen 

AF7E 

98 

TYA 

Akku  =0  setzen 

AF7F 

A2  AO 

LDX  #$A0 

Exponent-Byte  für  FAC 

AF81 

4C  4F  BC 

JMP  SBC4F 

FAC  linksbündig  machen 

**************************** 

Zeit  holen 

Einsprung  von  $AF48,  $AF7B 

AF84 

20  DE  FF 

JSR  $FFDE 

TIME  holen 

AF87 

86  64 

STX  $64 

1 . Byte  nach  FAC 

AF89 

84  63 

STY  $63 

2.  Byte  nach  FAC 

AF8B 

85  65 

STA  $65 

3.  Byte  nach  FAC 

AF8D 

AO  00 

LDY  #$00 

Wert  laden  (0)  und 

AF8F 

84  62 

STY  $62 

als  4.  Byte  nach  FAC 

AF91 

60 

RTS 

Rücksprung 

AF92 

EO  53 

CPX  #$53 

'S1? 

AF94 

DO  OA 

BNE  $AFA0 

Nein:  SAFAO 

AF96 

CO  54 

CPY  #$54 

■T'? 

AF98 

DO  06 

BNE  $AFAO 

Nein:  SAFAO 

AF9A 

20  B7  FF 

JSR  SFFB7 

Status  holen 

AF90 

4C  3C  BC 

JMP  $BC3C 

Byte  in  FlieBkommaformat 

**************************** 

REAL-Variable  holen 

AFAO 

A5  64 

LDA  $64 

Low-  und  High-Byte  der 

AFA2 

A4  65 

LDY  $65 

Vari ablenadresse 

AFA4 

4C  A2  BB 

JMP  $BBA2 

Variable  in  FAC  holen 

**************************** 

Funktionsberechnung 

Einsprung  von  $AEEE 

AFA7 

OA 

ASL 

Funktionscode  mal  2 

AFA8 

48 

PHA 

auf  den  Stapel  retten 

AFA9 

AA 

TAX 

und  ins  X-Register 

AFAA 

20  73  00 

JSR  $0073 

CHRGET  nächstes  Zeichen 

AFAD 

EO  8F 

CPX  #$8F 

Numerische  Funktion? 

AFAF 

90  20 

BCC  $AFD1 

Ja:  SAFDl 

**************************** 

Stringfunktion,  String  und 

ersten  Parameter 

AFB1 

20  FA  AE 

JSR  $AEFA 

prüft  auf  Klammer  auf 

AFB4 

20  9E  AD 

JSR  $AD9E 

FRMEVL  holen  beliebigen  Term 

AFB7 

20  FD  AE 

JSR  SAEFD 

prüft  auf  Komma 

AFBA 

20  8F  AD 

JSR  $AD8F 

prüft  auf  String 
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AFBD 

68 

PLA 

AFBE 

AA 

TAX 

AFBF 

A5 

65 

LDA  S65 

AFC1 

48 

PHA 

AFC2 

A5 

64 

LDA  S64 

AFC4 

48 

PHA 

AFC5 

8A 

TXA 

AFC6 

48 

PHA 

AFC7 

20 

9E  B7 

JSR  SB79E 

; AFCA 

68 

PLA 

AFCB 

A8 

TAY 

AFCC 

8A 

TXA 

i AFCO 

48 

PHA 

AFCE 

4C 

D6  AF 

JMP  SAFD6 

i AFDT 

***** 

20 

r ******* 

Fl  AE 

1*********** 

JSR  SAEF1 

AFD4 

68 

PLA 

$ AF05 

A8 

TAY 

Einsprung 

von  SAFCE 

i AFD6 

B9 

EA  9F 

LDA  S9FEA, 

AFD9 

85 

55 

STA  S55 

AFDB 

B9 

EB  9F 

LDA  S9FEB, 

AFDE 

85 

56 

STA  S56 

AFEO 

20 

54  00 

JSR  $0054 

AFE3 

4C 

8D  AD 

JHP  $AD8D 

**************************** 

AFE6 

A0  FF 

LDY  #SFF 

| 

2C 

.BYTE  S2C 

3! 

1 AFE9 

A0 

00 

LDY  *$00 

! AFEB 

84 

OB 

STY  $0B 

1 afed 

20 

BF  Bl 

JSR  $B1BF 

! AFFO 

A5 

64 

LDA  $64 

AFF2 

45 

OB 

EOR  $0B 

AFF4 

85 

07 

STA  $07 

AFF6 

A5 

65 

LDA  $65 

AFF8 

45 

OB 

EOR  $0B 

AFFA 

85 

08 

STA  $08 

AFFC 

20 

FC  BB 

JSR  $BBFC 

AFFF 

20 

BF  Bl 

JSR  $B1BF 

Funktionstoken  left$,  r$,  mS 
Akku  nach  X holen 
Adresse  des 
Stringdescriptors 
holen  und  auf  den  Stapel 
retten  (Low  und  High) 

Akku  wiederholen 

Token  auf  den  Stapel  retten 

holt  Byte-Wert  (2.  Parameter) 

Token  zurückholen 

und  ins  Y-Reg. 

2.  Byte-Wert  in  den  Akku  laden 
und  auf  den  Stapel  retten 
Routine  ausführen 

numerische  Funktion  auswerten 
holt  Term  in  Klaamern 
BASIC-Code  für  Funktion  holen 
und  als  Zeiger  ins  Y-Reg. 


Vektor  für  Funktionsbe- 
rechnung holen  und  speichern 
2. Byte  holen 
und  speichern 
Funktion  ausführen 
prüft  auf  malerisch 

BASIC-Befehl  OR 
Flag  für  OR 


BASIC-Befehl  AND 
Flag  für  AND 
Flag  setzen 

FAC  nach  INTEGER  wandeln 
ersten  Wert  holen 
mit  Flag  verknüpfen 
und  speichern 
zweiten  Wert  holen 
mit  Flag  verknüpfen 
und  speichern 
ARG  nach  FAC 
FAC  nach  Integer 


1 
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Anhang  C.10:  Der  Schattplan 

Zu  Anfang  dieses  Anhangs  einige  Vorbemerkungen:  Leider  kön- 
nen die  folgenden  Seiten  keine  Einführung  in  die  Digital-  oder 
Computertechnik  bieten. 

Wir  müssen  einige  elementare  Kenntnisse  dieser  Technik  vor- 
aussetzen. So  sollten  Sie  den  Unterschied  zwischen  einem  AND- 
und  einem  OR-Gate  kennen  oder  sich  beispielsweise  in  der  Be- 
nutzung der  Hexadezimalzahlen  auskennen.  Wenn  Sie  diese 
Grundkenntnisse  bereits  haben,  bisher  aber  mit  der  Hardware 
von  Microcomputern  nichts  zu  tun  hatten,  so  sollten  Sie  sich  von 
der  etwas  verwirrenden  Anzahl  der  Leitungen,  Gatter  und  an- 
deren ICs  im  Schaltplan  nicht  beeindrucken  lassen. 

Nach  der  Lektüre  dieses  Anhangs  werden  Sie  die  Hardware  Ihres 
Computers  recht  gut  verstehen.  Den  Spezialisten  und  "Freaks" 
unter  Ihnön  wird  die  Beschreibung  sicher  zu  ausführlich  erschei- 
nen. Sie  sollten  dieses  Kapitel  trotzdem  in  Ruhe  durchlesen.  Um 
die  Funktionen  der  einzelnen  Stufen  nur  an  Hand  des  Schalt- 
plans im  Detail  zu  verstehen,  ist  wesentlich  mehr  Zeit  erforder- 
lich, als  zum  Lesen  dieses  Kapitels  benötigt  wird. 

Jeder  technisch  interessierte  Computerbesitzer  hat  sicher  den 
Wunsch,  sein  Gerät  einmal  zu  öffnen  und  hineinzuschauen. 
Vielleicht  haben  auch  Sie  schon  einmal  das  Innenleben  betrach- 
tet. Sollten  Sie  aber  aus  Vorsicht,  den  C64  nicht  zu  beschädigen, 
diesem  Wunsch  nicht  nachgegeben  haben,  dann  seien  Sie  beru- 
higt. Lösen  Sie  zuerst  alle  Leitungen  zum  C64,  also  Netzteil, 
Fernseher  und  alle  anderen  angeschlossenen  Geräte.  Dann  kön- 
nen Sie  unbesorgt  zu  einem  passenden  Kreuzschlitzschraubenzie- 
her greifen,  die  auf  der  Unterseite  befindlichen  drei  Schrauben 
lösen  und  vorsichtig  die  beiden  Gehäusehälften  trennen,  um 
einen  Blick  in  den  Computer  zu  werfen.  Lösen  Sie  aber  unbe- 
dingt zuvor  die  Steckverbindung  zum  Netzteil,  um  versehentliche 
Kurzschlüsse  zu  vermeiden. 

Das  Foto  zeigt  den  Blick  in  einen  C64.  Wenn  Sie  feststellen,  daß 
Ihr  C64  ein  etwas  anderes  Innenleben  aufweist,  dann  liegt  das 
daran,  daß  das  Layout  der  Leiterplatte  im  Laufe  der  Zeit  öfter 
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geändert  worden  ist.  Die  abgebildete  Platine  stellt  den  zur  Zeit 
der  Drucklegung  gültigen  Stand  dar. 

Ein  Blick  ins  Innere 


1.  SID  6S81 

2.  Character-ROM 

3.  Kernal-ROM 

4.  BASIC-ROM 

5.  CIA  U2,  User-Port,  opt.  RS-232,  teilw.  serieller  IEC-Bus, 
Videohilfsadressen 

6.  CIA  Ul,  Tastaturabfrage,  Control-Ports  Cass-Read 

7.  Anschluß  für  die  Tastatur 
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1.  Memory- Manager 

2.  Farb-RAM 

3.  Prozessor  6510 

4.  Transistorstufe  zur  Motorsteuerung  der  Datasette 

5.  64K-RAM-Multiplexer 
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1.  5- Volt-Festspannungsregler 

2.  12- Volt-Festspannungsregler 

3.  Control -Ports 

4.  Sicherung 

5.  Ein-/Aus-Schalter 

6.  Stromversorgung-Stecker 

7.  Expansion-Port 
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1 . Quarz 

2.  VIC  6569 

3.  Modulator 

4.  Einstellregler  für  Kanalfrequenz  des  Modulators.  Kann  bei 
Bedarf  verstellt  werden,  wenn  ein  starker  Fernsehsender  auf 
dem  Kanal  liegt. 
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Liste  der  verwendeten  Halbleiter 

Für  die  Spezialisten  unter  Ihnen  hier  noch  eine  Aufstellung  der 
im  CBM  64  verwendeten  ICs  mit  Herstellerangaben.  Damit  ha- 
ben Sie  die  Möglichkeit,  Ihr  Gerät  selbst  zu  reparieren. 


Bez. 

Typenbez. 

Hersteller 

Ul 

6526  CIA 

Comnodore  MOS 

U2 

6526  CIA 

Conmodore  MOS 

U3 

2364A  BASIC 

Conmodore  MOS 

U4 

2364A  KERNAL 

Conmodore  MOS 

U5 

2332A  CHARACTER 

Conmodore  MOS 

U6 

21HL-3  COLOR  RAM 

Diverse  Hersteller,  z.B. 

OKI  MSM  2114L-3 

FAIRCHILD  2114L-3 

HITACHI  HM2114L-3 

MOS  MPS2114L-30 

MOTOROLA  MCM2114L-30 

NEC  UPD2114L-1 

U7 

6510  MPU 

Conmodore  MOS 

US 

7406 

Diverse  Hersteller 

U9 

4164  RAM 

Diverse  Hersteller 

U10 

U11 

z.B.  NEC 

UPD4164-2 

U12 

MOSTEK 

MK4164-10 

U21 

U22 

U23 

U24 

U13 

SN74LS257 

Diverse  Hersteller 

U14 

SN74LS278 

Diverse  Hersteller 

U15 

SN74LS139 

Diverse  Hersteller 

U16 

MC4066 

Diverse  Hersteller 

U17 

825100 

Signetics,  progranmiert  durch  Conmodore 

U18 

6581  SID 

Conmodore  MOS 

U19 

6589  VIC 

Conmodore  MOS 

U20 

556 

Diverse  Hersteller 

U2S 

SN74LS257 

Diverse  Hersteller 

U26 

SN74LS373 

Diverse  Hersteller 

U27 

SN74LS08 

Diverse  Hersteller 

U28 

MC4066 

Diverse  Hersteller 

U29 

SN74LS74 

Diverse  Hersteller 

U30 

SN74LS193 

Diverse  Hersteller 

U31 

SN74LS629 

Diverse  Hersteller 

U32 

MC4044 

Motorola 

VR1 

7812  12V  Regler 

Diverse  Hersteller 

VR2 

7805  5V  Regler 

Diverse  Hersteller 
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Die  Stromversorgung 

Obwohl  die  Stromversorgung  zu  den  einfachen  Schaltkreisen  in 
einem  Computer  gehört,  hat  der  Entwickler  doch  einige  Tricks 
angewendet,  um  mit  minimalem  Aufwand  einen  größtmöglichen 
Effekt  zu  erzielen.  Den  Anschluß  an  das  Lichtnetz  übernimmt 
der  Trafo.  Dieser  Trafo  befindet  sich  zusammen  mit  einer 
Gleichrichterschaltung  im  Trafogehäuse  und  wird  über  einen  7- 
poligen  DIN-Stecker  an  die  mit  CN7  bezeichnete  Buchse  ange- 
schlossen. Im  Trafo  wird  eine  Wechselspannung  von  9 Volt  er- 
zeugt, die  auf  die  Pins  6 und  7 von  CN7  geführt  werden.  Die 
Gleichrichterschaltung  im  Trafogehäuse  erzeugt  über  eine  zweite 
Trafowicklung  eine  stabilisierte  Gleichspannung  von  5 Volt. 
Diese  5 Volt  liegen  auf  dem  Pin  5 von  CN7,  die  Masseleitung 
auf  den  Pins  1,  2 und  3.  Die  von  den  Buchsenkontakten  kom- 
menden Spannungen  werden  zur  Beseitigung  von  Netzstörungen 
über  die  Spulen  L2  und  L4  und  die  Kondensatoren  C20,  C21, 
C98,  C99  und  CI 00  geführt  und  gefiltert. 

Der  mit  SW1  bezeichnete  doppelpolige  Schalter  ist  der  an  der 
rechten  Seite  .befindliche  Einschalter.  Die  9-Volt- Wechselspan- 
nung wird  mit  der  Sicherung  Fl  (1  Ampere)  abgesichert  und 
steht  am  User-Port  an  den  Kontakten  11  und  12  zur  Verfügung. 
Diese  Spannung  können  Sie  nach  Gleichrichtung  und  Siebung 
für  externe  Geräte  verwenden;  belasten  Sie  diese  Stromquelle  je- 
doch nur  mit  maximal  100  mA,  die  Sicherung  wird  es  Ihnen 
danken.  Apropos  Sicherung: 

Wenn  sie  defekt  ist,  leuchtet  die  LED  am  64,  auch  eine  ange- 
schlossene Floppy  macht  beim  Einschalten  des  Rechners  einen 
RESET,  auf  dem  Bildschirm  ist  aber  nichts  zu  sehen.  Vergewis- 
sern Sie  sich  aber  zuerst,  ob  der  Fernseher  auf  dem  richtigen 
Kanal  steht  und  das  HF-Kabel  angeschlossen  ist.  Wenn  alles 
richtig  erscheint,  kontrollieren  Sie  die  Sicherung.  Ist  diese 
durchgebrannt,  dann  ersetzen  Sie  sie  durch  eine  Sicherung  mit 
dem  Wert  1.25  Ampere.  Sollte  auch  die  neue  Sicherung  ihren 
"Geist"  auf  geben,  liegt  mit  einiger  Wahrscheinlichkeit  ein  Defekt 
vor. 
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Nach  der  Sicherung  kommt  eine  Gleichrichterschaltung,  welche 
5 Volt  stabilisiert,  9 Volt  ungeregelt  sowie  12  Volt  stabilisiert 
zur  Verfügung  stellt. 

Die  Gleichrichterschaltung  besteht  aus  dem  Brückengleichrichter 
CR4  und  den  Dioden  CN5  und  CN6.  Hinter  dem  Brücken- 
gleichrichter stehen  die  ungeregelten  9 Volt,  die  mit  VR2,  einem 
integrierten  5V-Festspannungsregler,  auf  5 Volt  stabilisiert  wer- 
den. Ober  die  Dioden  CNS  und  CN6  wird  die  Wechselspannung 
auf  eine  ungeregelte  Gleichspannung  von  ca.  16  Volt  gleichge- 
richtet, die  mit  dem  Spannungsregler  VR1  auf  12  Volt  stabili- 
siert wird.  Die  aus  dem  Trafogehäuse  kommenden  5 Volt  sind 
mit  einem  eigenen  Spannungsregler  schon  im  Trafogehäuse  sta- 
bilisiert. Dies  hat  den  Vorteil,  daß  die  erzeugte  Verlustwärme 
nicht  den  Computer  aufheizt;  der  erzeugt  schon  genug  eigene 
Wärme.  Diese  Spannung  übernimmt  die  Versorgung  der  meisten 
ICs  in  Ihrem  C64  und  liegt  am  Pin  2 des  User-Ports  CN2.  Damit 
steht  Ihnen  für  kleinere  Projekte  schon  eine  geeignete  Spannung 
zur  Verfügung.  Aber  auch  diese  Spannungsquelle  sollten  Sie 
nicht  überlasten.  Der  Maximalstrom  ist  mit  100  mA  angegeben, 
sicherlich  für  einige  ICs  ausreichend.  Erfreulicherweise  ist  diese 
Spannung  kurzzeitig  kurzschlußfest.  Dieser  Kurzschlußfall  ist 
sehr  einfach  feststellbar  In  diesem  Fall  erscheint  kein  Bild  auf 
dem  angeschlossenen  Fernseher  und  die  Leuchtdiode  leuchtet 
nicht,  da  auch  sie  von  dieser  Spannung  versorgt  wird. 

Die  im  C64  erzeugte  Spannung  von  S Volt  trägt  die  Bezeichnung 
CAN+5.  Diese  Spannung  versorgt  den  Video-Controller  (weiter- 
hin kurz  als  VIC  bezeichnet),  die  Video-Ausgangsstufe  und  alle 
zur  Takterzeugung  benötigten  ICs.  Der  VIC  bekommt  die  5 Volt 
direkt,  zur  Video-Ausgangsstufe  wird  die  Spannung  über  die 
Spule  LI  und  die  Kondensatoren  C61,  C63  und  C64  gefiltert. 
Alle  der  Takterzeugung  zugehörigen  Bauteile  bekommen  die 
Spannung  über  L2,  C65,  C66  und  C67  gesiebt  zugeführt.  Da  die 
Datasette  kein  eigenes  Netzteil  hat,  muß  der  Computer  auch  den 
benötigten  "Saft"  hierfür  liefern.  Die  von  der  Datasette  benötig- 
ten Spannungen  sind  6 Volt  für  den  Rekordermotor  und  5 Volt 
für  die  eingebaute  Elektronik.  Der  Antriebsmotor  bekommt  die 
Spannung  über  die  Transistorschaltung  Ql,  Q2  und  Q3  auf  die 
Kontakte  3 und  C des  Kassetten-Port-Steckers  CN3  geschaltet. 


1080 


Das  große  Commodore  64-Buch 


Wenn  der  Prozessor  das  Port-Bit  5 auf  High  legt,  wird  der 
Transistor  Q2  durchgeschaltet.  Damit  ist  die  Zenerdiode  CR2 
kurzgeschlossen,  der  Transistor  Ql  bekommt  keine  Basisvorspan- 
nung, Ql  und  Q3  sperren.  Der  Rekordermotor  stoppt.  Wird  das 
Port-Bit  dagegen  Low,  dann  ist  der  Transistor  Q2  gesperrt.  An 
der  Basis  von  Ql  liegt  die  Zenerspannung  von  7.5  Volt  und 
steuert  die  Transistoren  Ql  und  Q3  an.  Am  Emitter  von  Q3  liegt 
die  um  die  beiden  Basis- Emitterspannungen  der  Transistoren  (ca 
1.5  Volt)  reduzierte  Zenerspannung,  das  ergibt  ca.  6 Volt.  Durch 
diese  Stabilisierung  der  Motorschaltstufe  wird  eine  konstante 
Drehzahl  des  Motors  erreicht.  Die  Elektronik  der  Datasette  wird 
über  die  Kontakte  2 und  B des  Steckers  CN3  versorgt.  Bleiben 
noch  die  12  Volt.  Diese  Spannung  wird  für  den  VIC,  den  SID 
(Sound  Interface  Device)  und  die  Audio-Ausgangsstufe  mit  dem 
Transistor  Q8  benötigt. 

Nicht  direkt  zur  Stromversorgung  gehörend  ist  die  kleine  Schal- 
tung rund  um  das  Gatter  U27.  Trotzdem  soll  sie  hier  erläutert 
werden,  da  sie  ihre  Signale  aus  dem  Netzteil  bekommt.  Das 
Gatter  U27  stellt  eine  UND-Verknüpfung  dar.  Der  Eingang  Pin 
13  liegt  fest  an  5 Volt,  der  Eingang  Pin  12  über  den  Widerstand 
R5  an  den  9 Volt  Wechselspannung.  Am  Pin  12  würde  sich  die 
Spannung  also  mit  der  Netzfrequenz  von  50  Hertz  ändern.  Nun 
ist  eine  Spannung  von  9 Volt  für  einen  TTL-Eingang  nicht  sehr 
verträglich  und  eine  negative  Spannung  von  -9  Volt  sollte  an  ei- 
nem solchen  Eingang  unbedingt  vermieden  werden,  um  das  IC 
nicht  zu  zerstören.  Um  die  Eingangsspannung  zu  begrenzen,  ist 
die  Zenerdiode  CR1  an  den  Eingang  geschaltet.  Wenn  die 
Wechselspannung  über  +2,7  Volt  steigt,  so  wird  sie  von  der 
Zenerdiode  auf  diesen  Wert  begrenzt.  Damit  ist  ein  logisches 
High-Signal  gegeben.  Die  negative  Spannung  wird  von  der 
Zenerdiode  auf  -0.7  Volt  begrenzt,  ein  Wert,  den  der  TTL-Ein- 
gang  noch  gut  verkraftet  und  der  als  logisches  Low-Signal  er- 
kannt wird.  Die  Spannung  schwankt  also  im  Rhythmus  der 
Netzfrequenz  am  Pin  12  des  U27  zwischen  Low  und  High.  Da- 
mit ändert  sich  der  Ausgang  im  selben  Takt. 

Der  Widerstand  R37  stellt  eine  Mitkopplung  dar,  er  beschleunigt 
die  Anstiegs-  und  Abfallzeiten,  um  saubere  Rechteckimpulse  für 
die  weitere  Verwendung  zur  Verfügung  zu  stellen. 
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Woraus  besteht  nun  die  weitere  Verwendung?  Im  Schaltplan 
kann  man  erkennen,  daß  diese  50  Hertz  an  die  ICs  Ul  und  U2, 
die  beiden  CIAs,  gehen.  Auf  die  CIAs  wird  im  weiteren  Verlauf 
der  Schaltplanbeschreibung  noch  näher  eingegangen.  Jetzt  nur  so 
viel:  Die  Netzfrequenz  ist  das  am  einfachsten  zu  erzeugende  fre- 
quenzkonstante Signal.  Darum  eignet  es  sich  besonders  für  An- 
wendungen, in  denen  Zeiten  gemessen  werden  sollen.  Das  ist 
auch  Aufgabe  des  Signals  in  den  CIAs.  Diese  enthalten  soge- 
nannte Echtzeituhren,  die  ihren  Takt  von  der  Netzfrequenz  be- 
ziehen. 

Die  Takterzeugung 

Für  ein  ordnungsgemäßes  Funktionieren  eines  Computers  ist  eine 
stabile  und  störungsfreie  Stromversorgung  sehr  wichtig.  Die 
Konstanz  und  Stabilität  der  Taktsignale  ist  für  die  Funktion  aber 
sicher  genauso  maßgebend.  Dieser  Takterzeugung  wollen  wir  uns 
jetzt  zuwenden. 

Wenn  Sie  auf  die  Leiterplatte  des  CBM  64  schauen  und  mit  dem 
Schaltplan  auf  IC-Suche  gehen,  so  werden  Sie  vermutlich  das 
eine  oder  andere  IC  nicht  auf  den  ersten  Blick  finden,  genauso 
wenig  wie  die  für  die  Taktversorgung  zuständigen  ICs.  Diese 
befinden  sich  zusammen  mit  dem  VIC  (Video  Interface  Control- 
ler) in  dem  Blechkasten  in  der  Mitte  der  Platine  (nicht  der  Ka- 
sten mit  dem  Fernsehanschluß,  das  ist  der  UHF-Modulator). 
Dieses  Blechgehäuse  schirmt  die  bei  der  Takterzeugung  entste- 
hende hochfrequente  Störstrahlung  ab.  Bei  Rechnern  ohne  aus- 
reichende Abschirmung  kann  man  beobachten,  daß  alle  im  nä- 
heren Umkreis  befindlichen  Radios  nur  Pfeif-  und  Zischlaute 
von  sich  geben.  Schlimmer  noch,  auch  Fernsehgeräte  werden  von 
solchen  Störstrahlungen  beeinflußt.  Wenn  der  64  nicht  über  aus- 
reichende Entstörmaßnahmen  verfügen  würde,  wäre  der  Betrieb 
mit  einem  Fernseher,  wenn  auch  nicht  unmöglich,  so  doch  sehr 
gestört. 

Die  alles  bestimmende  Taktfrequenz  wird  vom  Quarz  Y1  er- 
zeugt. Doch  vorab  noch  eine  Erläuterung.  Alle  jetzt  folgenden 
Angaben  beziehen  sich  auf  ein  für  den  deutschen  Markt  produ- 
ziertes Gerät  mit  PAL- Ausgang.  Der  Quarz  Y1  schwingt  mit  ei- 
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ner  Frequenz  von  17,734472  MHz.  Er  ist  über  C70  an  das  IC 
U31  angeschlossen.  Das  IC  U31,  ein  TTL-IC  mit  der  Bezeich- 
nung 74LS629,  enthält  2 unabhängige  VCOs.  Ein  VCO  ist  ein 
spannungsgesteuerter  Oszillator.  Durch  eine  am  Steuereingang 
angelegte  Gleichspannung  kann  die  Frequenz  in  einem  be- 
stimmten Bereich  verändert  werden.  Dieser  Steuereingang  ist  für 
den  VCO  1 der  Pin  1.  Das  Poti  R27  an  diesem  Eingang  erlaubt 
eine  - wenn  auch  geringfügige  - Änderung  der  Ausgangsfre- 
quenz. Da  auch  Quarze  eine  gewisse  Toleranz  haben,  läßt  sich 
die  Soll-Frequenz  mit  dem  Poti  genau  einstellen.  Der  Ausgang 
des  VCO  1 ist  der  Pin  10.  Die  hier  anliegende  Frequenz  wird 
direkt  als  Signal  OCOLOR  an  den  VIC  geführt.  Gleichzeitig  ge- 
langt das  Signal  an  das  IC  U30.  Dieses  IC,  ein  74LS193,  ist  als 
Frequenzteiler  geschaltet.  Dieser  Teiler  hat  ein  einstellbares  Tei- 
lerverhältnis. In  Abhängigkeit  der  Pegel  an  den  Pins  1,9,  10  und 
15  läßt  sich  jedes  Teilerverhältnis  zwischen  1:1  und  15:1  einstel- 
len. In  unserem  Fall  ist  das  Teilerverhältnis  auf  9:1  eingestellt. 
Die  17,734  MHz  werden  also  durch  9 geteilt.  Damit  steht  am 
Ausgang  Pin  6 eine  Frequenz  von  1,9704  MHz  zur  Verfügung. 
Diese  Frequenz  wird  auf  den  Pin  1 1 des  IC  U29  geführt.  U29 
enthält  2 Flipflops.  Mit  jeder  positiven  Flanke  des  Clock-Signals 
an  Pin  11  wird  die  am  Dateneingang  Pin  12  des  Flipflops  1 lie- 
gende Information  auf  den  Q-Ausgang  Pin  9 weitergegeben.  Der 
Ausgang  -Q  (Pin  8)  hat  dann  auch  die  Eingangsinformation,  nur 
mit  invertierter  Polarität.  In  der  vorliegenden  Beschaltung  liefert 
die  durch  9 geteilte  Quarzfrequenz  das  Clocksignal  für  FF1.  Der 
Dateneingang  ist  mit  dem  Ausgang  -Q  verbunden.  Wenn  dieser  - 
Q-Ausgang  High  ist,  wird  das  High-Signal  mit  der  nächsten  po- 
sitiven Flanke  an  Pin  11  auf  den  Q- Ausgang  gegeben.  Gleich- 
zeitig wird  der  -Q-Ausgang  Low.  Mit  der  nächsten  positiven 
Taktflanke  wird  das  Low  an  Q gelegt,  -Q  hat  jetzt  wieder  ein 
High  und  so  weiter. 

Mit  jedem  zweiten  Taktimpuls  wechseln  also  die  Ausgänge  ihren 
Zustand.  Das  kommt  einer  Frequenzteilung  durch  den  Faktor  2 
gleich,  am  Ausgang  erscheint  eine  Frequenz  von  985,248  KHz. 
Das  ist  die  Taktfrequenz  des  Prozessors.  Dieses  Signal  wird  aber 
nicht  direkt  als  Takt  verwendet,  die  ganze  Sache  ist  etwas  kom- 
plizierter. Das  Signal  Dot  Clock  mit  der  Frequenz  7,88198  MHz 
läßt  sich  durch  Frequenzteilung  nicht  aus  der  Quarzfrequenz 
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ableiten.  Darum  muß  ein  anderer  Weg  beschritten  werden,  die 
Frequenzsynthese  mit  einer  PLL-Schaltung.  PLL  bedeutet  "Phase 
Locked  Loop",  übersetzt  etwa  "phasengeregelte  Schleife".  Der 
PLL  im  64  ist  mit  den  ICs  U32,  U31  und  dem  VIC  aufgebaut. 
Wichtigster  Bestandteil  eines  PLL  ist  ein  Phasencomparator  mit 
zwei  Eingängen.  Dieser  Phasencomparator  liefert  an  seinem  Aus- 
gang eine  Gleichspannung,  die  proportional  der  Phasenlage  der 
beiden  Signale  ist.  Diese  Funktion  ist  mit  dem  IC  U32  und  dem 
Transistor  Q7  aufgebaut.  Im  Detail  funktioniert  die  Sache  so: 

Am  Eingang  Pin  1 des  U32  liegt  eine  Frequenz  von  983  KHz, 
geliefert  vom  Ausgang  des  Flipflop  U29.  Am  zweiten  Eingang 
des  PLL  Pin  3 liegt  das  Signal  Oo,  das  vom  VIC  gelieferte  Takt- 
signal für  den  Prozessor,  mit  noch  unbestimmter  Frequenz.  Die- 
ses Signal  Oo  vom  VIC  stellt  das  durch  8 geteilte  Ausgangssignal 
des  VCO  2 im  U31  dar.  Die  Frequenzteilung  durch  8 findet  di- 
rekt im  VIC  statt.  Die  Frequenz  des  VCO  2 wird  nicht  durch 
einen  Quarz,  sondern  durch  einen  Kondensator,  den  C86,  be- 
stimmt. Die  Steuerspannung  des  VCO  2 wird  jetzt  durch  den 
Ausgang  des  Phasencomparators  U32  geliefert.  Wenn  die  Steu- 
erspannung des  VCO  2 ca.  3 Volt  beträgt,  schwingt  er  auf  einer 
Frequenz  von  7,88198  MHz.  Wenn  wir  jetzt  den  Fall  annehmen, 
daß  die  Frequenz  des  Flipflops  U29  höher  als  die  Frequenz  Oo 
ist,  der  VCO  2 also  beispielsweise  nur  mit  7.7  MHz  schwingt, 
dann  liefert  der  Ausgang  Pin  8 des  Phasencomparators  eine 
Spannung  kleiner  3 Volt,  die  den  VCO  mit  einer  höheren  Fre- 
quenz schwingen  läßt.  Damit  erhöht  sich  auch  die  Frequenz  am 
Pin  3 des  Phasencomparators,  sie  nähert  sich  der  Referenzfre- 
quenz am  Pin  1,  die  Steuerspannung  nähert  sich  den  3 Volt. 
Wenn  die  Frequenzen  an  Pin  1 und  Pin  3 gleich  sind,  wird  der 
VCO  noch  so  lange  geregelt,  bis  die  Signale  nicht  nur  frequenz-, 
sondern  auch  phasengleich  sind.  Derselbe  Vorgang  läuft  ab, 
wenn  der  VCO  mit  zu  hoher  Frequenz  schwingt.  Dann  wird  die 
Steuerspannung  größer  3 Volt.  Jetzt  schwingt  der  VCO  lang- 
samer und  die  Steuerspannung  nimmt  ab,  bis  die  Signale  fre- 
quenz- und  phasengekoppelt  sind.  Dann  liegt  das  Signal  "Dot 
Clock"  richtig  an.  Die  geschilderten  Regelvorgänge  brauchen  nur 
kurze  Zeit.  Nach  spätestens  100  Millisekunden  stehen  alle  Fre- 
quenzen zur  Verfügung.  Zum  Abschluß  noch  eine  kurze  Schil- 
derung der  Funktion  des  FF2  und  der  Abläufe  in  einem  64  mit 
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NTSC-Farbausgang.  In  diesen  für  den  amerikanischen  Markt 
produzierten  Geräten  ist  zum  einen  ein  14.31818  MHz-Quarz 
eingebaut.  Des  weiteren  ist  ein  anderer  VIC-Chip,  ein  6567,  in 
der  NTSC-Version  eingesetzt.  Bei  der  PAL-Version  ist  dies  ein 
6569. 

Als  drittes  Merkmal  ist  die  Drahtbrücke  zwischen  den  Punkten 
El  und  E2  oder  E3  anders  gelegt.  Bei  PAL-Geräten  ist  diese 
Brücke  zwischen  El  und  E2  geschaltet.  Damit  liegen  die  Pins  1 
und  10  des  Teilers  U30  an  +5  Volt.  Auch  der  Pin  4 des  IC  U29 
liegt  an  High.  Dieser  Pin  4 ist  der  sogenannte  Preset-Eingang  an 
FF2.  Clock-,  Daten-  und  Clear-Eingang  dieses  FFs  sind  an 
Masse  gelegt.  Ein  Low-Signal  am  Clear-Eingang  versetzt  das 
Flipflop  in  einen  definierten  Zustand.  Unabhängig  von  den  an- 
deren Eingangssignalen  wird  der  Q- Ausgang  Low,  -Q  dagegen 
High.  Wie  bei  so  vielen  anderen  Gelegenheiten  gibt  es  aber  eine 
wichtige  Einschränkung  zu  dem  zuvor  Gesagten:  Um  diesen  Zu- 
stand zu  erhalten,  muß  der  Preset-Eingang  auf  High-Pegel  liegen. 

Diese  Bedingung  ist  bei  einem  PAL-Gerät  über  die  Drahtbrücke 
erfüllt.  Die  Eingänge  1,  9,  10  und  15  des  Zählers  U30  bestim- 
men binär  codiert  den  Startwert  des  Zählers.  Da  der  Zähler  im- 
mer bis  16  zählt,  kann  man  mit  dem  Start  wert  das  Teilerverhält- 
nis  einstellen.  Er  beginnt  dann  nicht  bei  0,  sondern  mit  dem 
programmierten  Wert.  Der  Eingang  A stellt  das  niederwertige  Bit 
dar,  Eingang  D das  höchstwertige  Bit.  An  diesen  Eingängen  liegt 
dezimal  ausgedrückt  eine  7.  Der  Zähler  zählt  bis  16  weiter  und 
beginnt  dann  wieder  bei  7.  Für  diesen  Durchlauf  benötigt  er  9 
Zählimpulse,  er  teilt  also  durch  9.  Damit  stellt  das  FF2  nichts 
anderes  als  einen  einfachen  "Inverter"  dar.  Wenn  der  Eingang 
High  ist,  so  ist  der  Ausgang  Low  und  umgekehrt,  die  normale 
Inverter-Funktion.  Bei  NTSC  liegt  der  Preset-Eingang  des  U29 
auf  Low.  Laut  Datenblatt  haben  jetzt  sowohl  Q-  wie  auch  -Q- 
Ausgang  High-Pegel,  eigentlich  ein  ungewöhnlicher  Zustand,  der 
das  IC  aber  nicht  beschädigt.  Jetzt  ist  das  Teilerverhältnis  von 
U30  7:1,  mit  dem  nachfolgenden  Flipflop  14:1,  und  die  Taktfre- 
quenz des  Prozessors  beträgt  damit  1.0227  MHz,  ist  also  gering- 
fügig höher  als  die  PAL-Arbeitsfrequenz. 
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Der  Prozessor 

Wie  schon  erwähpt  ist  der  Prozessor  des  C64  der  6510.  Dieser 
neue  Prozessor  unterscheidet  sich  von  dem  bekannten  6502  in 
der  Hauptsache  durch  einen  im  Prozessorchip  integrierten  Port. 
Dieser  Port  verfügt  über  6 programmierbare  IO-Leitungen  (IO  = 
Abkürzung  für  Input  Output;  Leitungen,  die  wahlweise  als  Ein- 
gänge oder  Ausgänge  geschaltet  sind). 

Die  Zahl  6 ist  im  Zusammenhang  mit  8-Bit-Prozessoren  sicher 
etwas  ungewöhnlich.  Bei  dem  zur  Verfügung  stehenden  40-poli- 
gen  Gehäuse  waren  aber  nicht  mehr  Leitungen  frei,  um  einen 
vollen  8-Bit-Port  zu  realisieren.  Die  40  Pins  des  6510  sind  wie 
folgt  belegt: 


Pin 

Bez. 

Funktion 

1 

0IN 

Eingang,  Systemtakt  vom  VIC  Pin  17 

2 

ROY 

Eingang,  Ready  von  U27  Pin  3 

3 

-IRQ 

Eingang,  Interrupt  Request 

4 

•NMI 

Eingang,  Non  Haskable  Interrupt 

5 

AEC 

Eingang,  Adress  Enable  Control 

6 

VCC 

Betriebsspannung  +5V 

7 

bis 

A0 

Ausgang,  AdreB-Bit  0 

20 

A13 

Ausgang,  AdreB-Bit  13 

21 

GND 

Betriebsspannung  Masse 

22 

A14 

Ausgang,  AdreB-Bit  14 

23 

AI  5 

Ausgang,  AdreB-Bit  15 

24 

bis 

PB5 

Ein-Ausgang,  Port-Bit  5 

29 

PB0 

Ein-Ausgang,  Port-Bit  0 

30 

bis 

07 

Ein-Ausgang,  Daten-Bit  7 

37 

00 

Ein-Ausgang,  Daten-Bit  0 

38 

R/-U 

Ausgang,  Read/-Write 

39 

02 

Taktausgang  Phase  Two,  im  folgenden  02  genannt 

40 

-RES 

Eingang,  RESET 

Wie  viele  andere  Prozessoren  hat  also  auch  der  6510  einen  8-Bit- 
Daten-  und  einen  16-Bit-Adreßbus.  Somit  kann  der  6510  einen 
Speicherbereich  von  64  K direkt  adressieren. 
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Abb.  A.l:  Die  6510 
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Die  Signale  OIN  und  02  sind  die  Taktsignale  des  Systems,  sozu- 
sagen der  Herzschlag  des  Rechners.  Das  Signal  OIN  wird  vom 
VIC  erzeugt  und  hat  eine  Frequenz  von  ungefähr  985  KHz.  Aus 
diesem  Signal  wird  im  Prozessor  das  Signal  02  erzeugt.  02  ist  für 
das  Zusammmenspiel  von  Prozessor  und  Peripherie  sehr  wichtig, 
es  stellt  den  Bezugstakt  für  alle  Operationen  des  Prozessors  dar. 

Das  Signal  -RES  wird  benutzt,  um  den  Prozessor  und  andere  ICs 
in  einen  definierten  Anfangszustand  zu  versetzen.  Dieser  RESET 
findet  im  Einschalt-Moment  statt.  Schauen  wir  uns  diesen  Ein- 
schalt-Moment  einmal  etwas  näher  an.  Das  -RES-Signal  wird 
vom  IC  U20  erzeugt.  Dies  IC,  ein  NE556,  enthält  2 identische 
Timer-Baustufen.  Mit  diesen  Timern  kann  man  durch  einfache 
externe  Beschaltung  Oszillator-  oder  Impulsgeberbaustufen  auf- 
bauen.  In  unserem  Fall  ist  das  IC  als  Impulsgeber  geschaltet.  Mit 
dem  Anlegen  der  Betriebsspannung  wird  der  Kondensator  CI 05 
über  den  Widerstand  R50  aufgeladen.  Gleichzeitig  wird  der 
Kondensator  C24  über  den  Widerstand  R34  aufgeladen.  Wenn 
nun  nach  einiger  Zeit  (einigen  10  Millisekunden)  die  Spannung 
am  CI 05  den  Wert  von  1.6  Volt  (1/3  der  Betriebsspannung  ) 
übersteigt,  wird  der  eigentliche  Impuls  gestartet.  Der  Kondensa- 
tor C24  wird  über  den  Anschluß  13  schlagartig  entladen. 
Gleichzeitig  jvird  der  Pin  9,  der  Ausgang  des  Timers,  auf  5 Volt 
gelegt.  Danach  wird  C24  über  den  Widerstand  R34  wieder  auf- 
geladen. Aber  jetzt  wird  die  Spannung  durch  den  Eingang  Pin 
12  überwacht.  In  dem  Moment,  wo  die  Spannung  2/3  der  Be- 
triebsspannung (ca.  3.3  Volt)  übersteigt,  wird  der  Ausgang  wie- 
der Low.  Dieser  Zeitpunkt  ist  nach  etwa  .5  Sekunden  erreicht. 
Der  am  Ausgang  Pin  9 des  Timers  befindliche  Inverter  macht 
aus  diesem  positiven  Impuls  einen  negativen.  An  seinem  Aus- 
gang steht  das  eigentliche  -Res-Signal  zur  Verfügung.  Im  Mo- 
ment des  Wechsels  von  High  nach  Low  startet  der  Prozessor 
seine  Arbeit.  Als  erstes  holt  er  von  den  Adressen  $FFFC  und 
SFFFD  (genannt  RESET- Vektor)  die  Adresse  des  nächsten  zu 
verarbeitenden  Befehls.  Auf  dieser  Adresse  beginnt  nun  das  ei- 
gentliche Betriebssystem. 

Der  Pin  mit  der  Bezeichnung  R/-W  signalisiert,  ob  der  Prozessor 
einen  Lese-  oder  einen  Schreibzugriff  vornimmt.  Wenn  diese 
Leitung  High  ist,  liest  der  Prozessor  Daten  aus  RAM,  ROM  oder 
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Interfacechips.  Bei  einem  Low  auf  dieser  Leitung  schreibt  der 
Prozessor,  d.h.,  er  speichert  Daten  im  jeweils  adressierten  Bau- 
stein.  Dieses  Schreiben  ist  natürlich  nur  dann  sinnvoll,  wenn  der 
/adressierte  Baustein  diese  Daten  auch  speichern  kann.  Auf  ein 
ROM  zu  schreiben  ist  wenig  sinnvoll,  da  die  Daten  des  ROM 
schon  bei  der  Herstellung  festgelegt  werden  und  nicht  veränder- 
bar sind. 

Der  Pin  mit  der  Bezeichnung  -NMI  (Non  Maskable  Interupt  « 
nicht  maskierbare  oder  ausblendbare  Unterbrechnung)  gestattet 
die  Unterbrechung  eines  gerade  laufenden  Programms.  Nicht 
maskierbar  bedeutet,  daß  der  Interrupt  immer  zugelassen  ist.  Er 
ist  durch  Software  nicht  auszuschließen.  Wann  immer  dieser 
Anschluß  nach  Masse  gezogen  wird,  wird  mit  der  Beendigung 
des  gerade  abgehandelten  Maschinensprachebefehls  das  laufende 
Programm  verlassen.  Der  Prozessor  holt  vom  NMI-Vektor 
(SFFFA  und  $FFFB)  die  Adresse  der  Interrupt- Routine,  und 
verzweigt  auf  diese.  Der  NMI  kann  im  CBM  64  durch  drei  ver- 
schiedene Ereignisse  ausgelöst  werden: 

Der  erste  Fall  ist  das  Drücken  der  <Restore>- Taste.  Wird  diese 
Taste  gedrückt,  dann  erzeugt  der  zweite  Timer  des  U20  einen 
geeigneten  Impuls.  Das  Drücken  der  Taste  entlädt  den  Konden- 
sator C38  schlagartig.  Über  den  Widerstand  R35  wird  der  Kon- 
densator wieder  aufgeladen,  auch  wenn  die  <Restore>-Taste 
noch  gedrückt  ist.  Sobald  die  Spannung  am  Pin  6 des  U20  1.6 
Volt  übersteigt,  wird  der  eigentliche  NMI-Impuls  gestartet.  Der 
Ausgang  des  Timers  Pin  5 wird  High,  am  Ausgang  des  Inverters 
U6  erscheint  ein  Low-Pegel,  der  Kondensator  C23  wird  über 
den  Pin  1 von  U20  entladen  und  beginnt  sich  über  R33  wieder 
aufzuladen. 

Nach  ca.  18  Microsekunden  ist  der  C23  auf  2/3  der  Betriebs- 
spannung aufgeladen  und  der  Ausgang  Pin  5 wird  wieder  Low, 
der  -NMI-Eingang  des  Prozessors  ist  wieder  High.  Der  zweite 
Fall  wird  durch  die  CIA  U2  erzeugt.  Der  Pin  21  dieses  ICs  kann 
beim  Eintreffen  bestimmter  Ereignisse  einen  Low-Pegel  anneh- 
men. Die  Erzeugung  dieses  -NMI  wird  im  Abschnitt  über  die 
CIAs  behandelt. 
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Der  dritte  Fall  ist  das  Kurzschließen  des  Anschlusses  D der 
Cartridge-Expansion.  Hier  können  externe  Bausteine  einen  In- 
terrupt auslösen. 

Dem  -NMI  ähnlich  ist  der  -IRQ  (Interrupt  ReQuest).  Als  we- 
sentlicher Unterschied  zum  -NMI  ist  zum  einen  der  Interrupt- 
Vektor  des  -IRQ  zu  sehen.  Dieser  Vektor  liegt  auf  den  Adressen 
$FFFE  und  $FFFF.  Des  weiteren  ist  dieser  Interrupt  software- 
mäßig ausschaltbar. 

Wenn  im  Prozessor-Status-Register  das  I-Flag  (Bit  2)  gesetzt  ist, 
werden  alle  auftretenden  Interrupts  ignoriert.  Ein  weiterer  Un- 
terschied zum  -NMI  ist  die  Tatsache,  daß  der  -IRQ  nicht  flan- 
kengesteuert ist.  Der  Interrupt  muß  also  mindestens  so  lange  an- 
liegen  bis  der  Prozessor  diesen  Anschluß  prüft.  Erzeugt  wird  der 
-IRQ  auch  wieder  auf  drei  verschiedene  Arten: 

Die  CIA  Ul  erzeugt  an  seinem  Pin  21  genau  wie  die  CIA  U2 
einen  Low-Pegel  beim  Erreichen  bestimmter  programmierbarer 
Zustände.  Dieser  Low-Pegel  erzeugt  einen  -IRQ  am  Prozessor. 

Die  zweite  Möglichkeit  der  Interrupt-Erzeugung  ist  der  VIC. 
Am  Pin  8 des  VIC  erscheint  genau  wie  bei  den  CIAs  beim  Er- 
reichen bestimmter,  vorher  durch  Programmierung  festgelegter 
Ereignisse  ein  Low-Pegel  und  damit  der  -IRQ. 

Die  dritte  Möglichkeit  der  -IRQ-Erzeugung  besteht  im  Kurz- 
schließen des  Anschlusses  4 des  Cartridge-Expansion-Steckers 
(CN6).  Somit  haben  auch  externe  Schaltungen  die  Möglichkeit 
der  -IRQ-Generierung.  Der  RDY-Pin  zeigt  dem  Prozessor,  ob 
die  auf  dem  Datenbus  liegenden  Informationen  gültig  sind  oder 
nicht. 

Immer  wenn  dieser  Pin  Low  ist,  wird  dem  Prozessor  signalisiert, 
daß  er  die  Daten  noch  nicht  übernehmen  kann.  Der  Prozessor 
geht  dann  in  einen  sogenannten  Wartezustand  und  stellt  seine 
Aktivitäten  ein.  Er  prüft  nur  mit  jedem  Taktimpuls,  ob  der 
RDY-Pin  wieder  High  ist. 
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In  älteren  Prozessorsystemen  wurde  diese  Möglichkeit  genutzt, 
um  langsame  Speicher-  und  Peripheriebausteine  am  Prozessor 
anzuschließen.  Im  CBM  64  wird  dieses  Signal  vom  VIC  genutzt. 
Normalerweise  geschieht  der  Zugriff  des  VIC  auf  das  RAM  nur 
in  den  vom  Prozessor  nicht  genutzten  Taktlücken  (02  = Low). 

Bei  bestimmten  Operationen  des  VIC,  z.B.  Darstellung  der  Spri- 
tes, benötigt  der  VIC  mehr  Zeit,  als  in  den  Taktlücken  zur 
Verfügung  steht.  Dann  erzeugt  der  VIC  am  Anschluß  BA  (Bus 
Available)  ein  Low,  welches  über  das  AND-Gatter  U27  an  den 
RDY-Eingang  des  Prozessors  geführt  wird,  worauf  der  Prozessor 
den  Bus  dem  VIC  für  die  benötigte  Zeit  zur  Verfügung  stellt. 
AEC  ist  ebenfalls  ein  in  der  Grundkonfiguration  vom  VIC  er- 
zeugtes Signal. 

Immer  wenn  der  VIC  den  Bus  belegt,  wird  dieser  Anschluß  0. 
Dieses  Low-Signal  wird  an  den  AEC-Pin  des  Prozessors  geführt 
und  bewirkt,  daß  der  Prozessor  seine  Busleitungen  in  einen 
hochohmigen,  den  sogenannten  Tri-State  versetzt.  In  der  Praxis 
wirkt  das,  als  ob  der  Prozessor  gar  nicht  in  seinem  IC-Sockel 
säße.  Solange  AEC  Low  ist,  bleibt  dieser  Zustand  erhalten  und 
andere  ICs,  z.B  ein  externer  Prozessor  oder  der  VIC,  können  den 
Systembus  belegen. 

Der  im  Prozessor  integrierte  Port  belegt  die  Pins  24  bis  29.  Im 
CBM  64  werden  verschiedene  Aufgaben  von  diesem  Port  über- 
nommen. Im  Einzelnen  sind  das  die  folgenden  Funktionen: 

Das  Port-Bit  0 trägt  die  Bezeichnung  -LOWRAM.  Dieses  Bit 
schaltet  im  Adreßbereich  $A000  bis  $BFFF  zwischen  RAM  und 
ROM,  d.h.  bei  Low-Pegel  ist  in  diesem  Adreßbereich  RAM  ein- 
geschaltet. Port-Bit  1 mit  der  Bezeichnung  -HIRAM  übernimmt 
dieselbe  Funktion  im  Adreßbereich  von  $E000  bis  $FFFF.  Port- 
Bit  2 mit  der  Bezeichnung  -CHAREN  selektiert,  wenn  es  einen 
Low-Pegel  hat,  das  Character-ROM. 

Character-ROM  und  der  sogenannte  IO-Bereich  belegen  densel- 
ben Adreßbereich  von  $D000  bis  $DFFF.  Über  -CHAREN  wird 
also  entschieden,  ob  das  Character-ROM  oder  die  den  gleichen 
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Adreßbereich  benutzenden  IO-  oder  Peripherie-Bausteine  VIC, 
SID  oder  CIAs  selektiert  sind. 

Die  drei  verbleibenden  Bits  sind  für  den  Betrieb  der  Datasette 
reserviert.  Die  Schreibdaten  für  die  Datasette  werden  vom  Port- 
Bit  3 geliefert.  Dieser  Prozessor-Pin  wird  direkt  auf  die  An- 
schlüsse E und  5 des  Kassetten-Ports  geführt.  Port-Bit  4 (Cass 
Sense)  überprüft,  ob  an  der  Datasette  die  <Play>-Taste  gedrückt 
ist.  Dieses  Bit  liegt  direkt  an  den  Anschlüssen  F und  6 des  Kas- 
setten-Ports. Die  Motorsteuerung  des  Rekorders  wird  von  Bit  3 
übernommen. 


Adreßdecodierung 

Da  der  6510  nur  einen  Adreßraum  von  64  K verwalten  kann, 
dieser  aber  schon  von  den  64-K-RAM  belegt  wird,  muß  eine 
zusätzliche  Logik  die  Verwaltung  der  sich  teilweise  überlappen- 
den Speicherbereiche  übernehmen.  Diese  Verwaltung  ist  in  der 
Hauptsache  in  einem  speziellen  IC  integriert,  dem  sogenannten 
Adreß-Manager.  Im  Schaltplan  trägt  dieses  IC,  ein  FPLA  (Field 
Programmable  Logic  Array),  die  Bezeichnung  Ul 7.  Erst  durch 
die  Programmierung  hat  dieses  IC  seine  besonderen  Logikeigen- 
schaften erhalten  und  ersetzt  eine  große  Anzahl  verschiedener 
Gatter,  die  nötig  wären,  wollte  man  die  Funktion  des  AM  mit 
herkömmlichen  ICs  nachbilden.  Die  Pin-Belegung  dieses  28-po- 
ligen  ICs  sieht  folgendermaßen  aus: 


Pin 

Bez. 

Funktion 

1 

Nicht  benutzt 

2 

Eingang,  A13  vom  6510  Pin  20 

3 

B 

Eingang,  A14  vom  6510  Pin  22 

4 

Eingang,  A15  vom  6510  Pin  23 

S 

Eingang,  -VA14  vom  CIA  2 Port  A Bit  0 Pin  2 

6 

19 

Eingang,  -CHAREN  vom  6510-Port  Bit  2 Pin  27 

7 

Eingang,  -HIRAM  vom  6510-Port  Bit  1 Pin  28 

8 

M 

Eingang,  -LOURAM  vom  6510-Port  Bit  0 Pin  29 

9 

10 

Eingang,  -CAS  vom  VIC  Pin  19 

10 

F7 

Ausgang,  -ROMH  zum  Expansion-Slot  Pin  B 

11 

F6 

Ausgang,  -ROML  zum  Expansion- Slot  Pin  11 

12 

F5 

Ausgang,  -I/O  zun  Decoder  U15  Pin  1 

13 

F4 

Ausgang,  CR/-W  zun  Farb-RAM  U6  Pin  10 

14 

GND 

Betriebsspannung  Masse 
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Pin 

Bez. 

Funktion 

15 

F3 

Ausgang,  -CHAR0M  zun  Character-ROM  U5  Pin  20 

16 

F2 

Ausgang,  -KERNAL  zum  Kernal-ROM  U4  Pin  20 

17 

Fl 

Ausgang,  -BASIC  zun  BASIC-ROM  U3  Pin  20 

18 

F0 

Ausgang,  -CASRAM  zu  den  RAMs  Pin  15 

19 

-OE 

Eingang,  Output  Enable  an  Masse 

20 

115 

Eingang,  -VA12  vom  VIC  Pin  28 

21 

114 

Eingang,  -VA13  vom  VIC  Pin  29 

22 

113 

Eingang,  -GAME  vom  Expansion  Slot  Pin  8 

23 

112 

Eingang,  -EXR0M  vom  Expansion  Slot  Pin  9 

24 

111 

Eingang,  R/-W  vom  6510  Pin  38 

25 

110 

Eingang,  -AEC  vom  VIC  Pin  16 

26 

19 

Eingang,  BA  vom  VIC  Pin  12 

27 

18 

Eingang,  A12  vom  6510  Pin  19 

28 

Vcc 

Betriebsspannung  +5  v 

Was  bewirken  jetzt  die  verschiedenen  Eingangssignale  an  den 
Ausgängen  des  AM?  Bei  16  Eingangsleitungen  sind  ja  immerhin 
6SS36  verschiedene  Eingangskombinationen  möglich.  Da  der  AM 
jedoch  nur  8 Ausgänge  besitzt,  ist  schon  ersichtlich,  daß  jeweils 
mehrere  Eingangskombinationen  eine  bestimmte  Ausgangskom- 
bination bewirken. 


Aber  auch  unter  den  256  möglichen  Ausgangskombinationen 
sind  nur  wenige  für  den  Computer  wirklich  sinnvoll.  Übrigens, 
wenn  jede  mögliche  Eingangskombination  und  die  dazugehörige 
Ausgangskombination  eine  Zeile  einer  Seite  belegen  würden, 
dann  hätte  eine  vollständige  Liste  bei  dem  von  uns  verwendeten 
Druckformat  immerhin  einen  Umfang  von  1093  Seiten. 


Der  Video-Controller  6569 

Die  beiden  wichtigsten  Peripheriegeräte  eines  Computers  sind 
Eingabe-  und  Ausgabe-Einheiten,  da  sie  die  Möglichkeit  schaf- 
fen, mit  dem  Computer  in  Verbindung  zu  treten.  Die  Ausgabe- 
Einheit  des  C64  ist  in  der  Regel  der  Fernseher  oder  ein  Monitor. 
Der  VIC  stellt  im  C64  alle  für  den  Betrieb  eines  Fernsehers  oder 
Monitors  benötigten  Signale  zur  Verfügung.  Dies  sind  die  Syn- 
chronisations-  und  Helligkeits-Impulse  und  die  für  Farbdarstel- 
lung  benötigten  Farbwerte. 

Zusätzlich  übernimmt  der  VIC  aber  noch  andere  Aufgaben.  So 
erzeugt  er  den  von  der  CPU  benötigten  Takt,  übernimmt  den  bei 
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den  verwendeten  dynamischen  RAMs  notwendigen  "Refresh" 
und  liefert  Steuersignale  für  den  Betrieb  der  dynamischen 
RAMs.  Diese  Funktionen  sind  alle  in  einem  40-poligen  Gehäuse 
untergebracht.  Die  Belegung  der  Pins  ist  in  der  folgenden  Ta- 
belle dargestellt. 


Pin 

1 Bez. 

Funktion 

1 

bis 

D6 

Prozessor-Datenbus 

7 

DO 

Prozessor-Datenbus 

8 

-IRQ 

Ausgang,  Interrupt  Request 

9 

-LP 

Eingang,  Light  Pen 

10 

-CS 

Eingang,  Chip  Select 

11 

R/-W 

Read/-Urite 

12 

BA 

Bus  Available 

13 

VDD 

Betriebsspannung  +12  Volt 

14 

COLOR 

Ausgang,  Farbinformation 

15 

SYNC 

Ausgang,  Zeilen-  und  Bildsynchronisations-Impulse 

16 

AEC 

Ausgang,  Adress  Enable  Control 

17 

OOUT 

Ausgang,  Systemtakt 

18 

-RAS 

Ausgang,  Row  Adress  Select 

19 

-CAS 

Ausgang,  Colum  Adress  Select 

20 

GND 

Betriebsspannung  Masse 

21 

OCOLOR 

Eingang,  Farbfrequenz 

22 

0IN 

Eingang,  Dot-Frequenz 

23 

All 

P rozessor -Adreßbus 

24 

bis 

A0/A8 

gemultiplexter  (Video-)  RAM- Adreßbus 

29 

A5/A13 

gemultiplexter  (Video-)  RAM-AdreBbus 

30 

A6 

(Video-)  RAM-Adreßbus 

31 

A 7 

(Video-)  RAM-Adreßbus 

32 

bis 

A8 

Prozessor-Adreßbus 

34 

A10 

Prozessor-Adreßbus 

35 

bis 

Dl  1 

Datenbus  Farb-RAM 

38 

D8 

Datenbus  Farb-RAM 

39 

D7 

Prozessor-Datenbus 

40 

VCC 

Betriebsspannung  +5  Volt 

Wenn  Sie  sich  die  verschiedenen  Pin-Bezeichnungen  am  VIC 
anschauen,  dann  treffen  Sie  auf  einige  bekannte  Bezeichnungen. 
So  sind  BA,  AEC,  02,  und  R/-W  schon  beim  Prozessor  erläutert 
worden.  Völlig  neu  sind  z.B.  die  Signale  -CS,  -RAS,  -CAS  und 
die  Datenleitungen  D8  - Dil.  Auch  der  gemultiplexte  Adreßbus 
ist  neu  hinzugekommen,  da  am  Prozessor  ja  alle  Adreß-Signale 
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getrennt  an  einzelnen  Pins  zur  Verfügung  standen.  Doch  kom- 
men wir  zuerst  zu  den  verschiedenen  Taktsignalen. 

Das  den  ganzen  Zeitablauf  im  Rechner  bestimmende  Signal  ist 
der  Dot-Clock.  Dieses  Signal  hat  in  Ihrem  C64  eine  Frequenz 
von  ca.  7.8S  MHz.  Im  VIC  befindet  sich  eine  Stufe,  die  diese 
Frequenz  durch  8 teilt.  Damit  erhalten  wir  eine  neue  Frequenz 
vön  ca.  980  KHz.  Diese  Frequenz  steht  am  Pin  17  als  Systemtakt 
OOut  zur  Verfügung. 

Aus  dem  Dot-Clock  werden  weiterhin  die  Signale  zur  Synchro- 
nisation des  Bildes  auf  dem  Fernseher  gewonnen.  Der  Dot-Clock 
selbst  bestimmt  die  Zeit,  mit  der  die  einzelnen  Punkte,  aus 
denen  alle  Zeichen  dargestellt  werden,  auf  dem  Bildschirm  er- 
scheinen. Die  Frequenz  des  Signals  OCOLOR  beträgt  in  Ihrem 
C64  17.734472  MHz.  Das  ist  die  Frequenz,  mit  der  der  Quarz  Y1 
schwingt.  Sie  wird  zur  Erzeugung  der  Farbinformation  benötigt. 

Diese  Frequenzen  beziehen  sich  alle  auf  den  Normalfall,  d.h., 
der  Rechner  ist  für  den  Betrieb  mit  einem  PAL-System-Fernse- 
her  ausgestattet.  Immer  wenn  der  Prozessor  auf  die  Register  des 
VIC  zugreifen  will,  muß  der  VIC  adressiert  werden.  Dazu  muß 
als  wichtigstes  die  Leitung  mit  der  Bezeichnung  -CS  auf  Low 
gehen.  Erst  dann  kann  der  Prozessor  über  die  auf  dem  Adreßbus 
liegende  Adresse  das  gewünschte  Register  ansprechen.  Wie  wird 
nun  aber  die  Leitung  -CS  Low? 

Da  der  VIC  im  sogenannten  IO-Bereich  ($D000  bis  $DFFF)  die 
Adressen  von  $D000  bis  $D3FF  belegt,  erzeugt  der  AM  bei  ei- 
nem Zugriff  auf  diesen  Adreßbereich  einen  Low-Pegel  an  sei- 
nem Pin  12  (-I/O-Signal).  Dieser  Low-Pegel  gelangt  an  den 
Decoder  U1S  Pin  1.  Damit  ist  der  Decoder  freigegeben,  und  in 
Abhängigkeit  von  den  Adreßleitungen  A10  und  All  an  den  Pin 
2 und  3 wird  der  entsprechende  Ausgang  des  Decoders  Low. 
Wenn  man  die  Basisadresse  und  Endadresse  des  VIC  einmal  bi- 
när darstellt,  so  erhält  man  das  folgende  Bit-Muster: 

AIS  A14  A13  A12  All  A10  A9  A8  A7  A6  A5  A4  A3  A2  AI  AO 

1 1 0 1 0 0 000000000  0=$D000 

1 1 0 1 0 0 111111111  1=S03FF 
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Man  sieht  sofort,  das  die  Adreß-Bits  A10  und  All  in  diesem 
Adreßbereich  Low  bleiben.  Damit  ist  der  Ausgang  Y0  des  Deco- 
ders auf  Low,  der  VIC  ist  adressiert. 

Erst  bei  der  nächsten  Adresse  $D400  wird  A10  High.  Damit 
wird  YO  High,  Y1  des  Decoders  wird  Low  und  nun  ist  der  SID 
adressiert.  Der  VIC  kann  nur  einen  Adreßraum  von  16  K adres- 
sieren, er  hat  nur  die  Adreß-Bits  AO  bis  Al 3.  Außerdem  liegen 
die  Adreßleitungen  nicht  wie  beim  Prozessor  einzeln  an  den  Pins 
an,  sondern  sind  gemultiplext.  Der  Pin  24  ist  also  nicht  nur 
Adreß-Bit  0,  sondern  auch  Adreß-Bit  8.  Wie  kann  das  funktio- 
nieren? 

Die  Antwort  ist  ganz  einfach:  Der  Anschluß  ist  erst  das  eine 
Adreß-Bit,  danach  das  andere.  Um  jetzt  zu  einem  bestimmten 
Zeitpunkt  sagen  zu  können,  welche  Bedeutung  der  Anschluß  hat, 
werden  Hilfssignale  benötigt.  Diese  Hilfssignale  heißen  -CAS 
und  -RAS.  Sie  werden  unter  anderem  auch  zur  Steuerung  der 
dynamischen  RAM-Bausteine  benötigt,  da  diese  auch  einen  ge- 
multiplexten  Adreßbus  auf  weisen.  Der  zeitliche  Ablauf  des 
Speicherzugriffs  sieht  folgendermaßen  aus. 

Die  Signale  -CAS  und  -RAS  sind  High.  Jetzt  wird  zuerst  das 
niederwertige  Adreß-Byte  auf  den  Bus  gelegt.  Nach  kurzer  Zeit 
wird  das  Signal  -RAS  Low.  Damit  wird  das  Adreß-Byte  in  die 
RAMs  übernommen  und  gespeichert.  Jetzt  ändert  sich  die  Bus- 
information. Aus  AO  wird  A8,  aus  Al  wird  A9  usw...  Wiederum 
nach  kurzer  Zeit  wird  jetzt  das  Signal  -CAS  Low.  Diese  ab- 
fallende Flanke  wird  auf  den  AM  gegeben  und  erzeugt  am  Aus- 
gang -CASRAM  eine  zeitlich  geringfügig  verzögerte  abfallende 
Flanke.  Mit  dieser  verzögerten  Flanke  wird  nun  das  High-Byte 
in  die  RAMs  übernommen.  Jetzt  liegt  die  vollständige  Adresse 
vor,  und  die  Daten  erscheinen  auf  dem  Datenbus.  Diese  Vor- 
gänge sind  im  Timing- Diagramm  auf  der  nächsten  Seite  noch 
einmal  dargestellt. 


Anhang 


1097 


Die  Schnittstelle  zwischen  RAM  und  VIC 

Da,  wie  schon  gesagt,  der  VIC  nur  die  Adreß-Bits  AO  bis  A13 
erzeugt,  müssen  die  für  die  Adressierung  der  ganzen  64  K RAM 
fehlenden  Bits  zusätzlich  erzeugt  werden. 

Dazu  wird  der  Port  A der  CIA  2 herangezogen.  Die  Port-Bits  0 
und  1 stellen  die  Adreß-Bits  14  und  15  dar.  Um  diese  Signale  in 
den  Multiplex-Vorgang  einzubeziehen,  werden  sie  über  das  IC 
U14  geschaltet.  Im  U14  sind  vier  invertierende  2:1 -Multiplexer 
integriert.  So  ein  Multiplexer  ist  in  seiner  Funktion  wohl  am 
einfachsten  als  Wechselschalter  zu  sehen.  Wahlweise  einer  von 
zwei  Eingängen  wird  auf  den  zugehörigen  Ausgang  geführt.  Im 
Detail  funktioniert  die  Sache  so: 

Geschaltet  werden  die  Multiplexer  durch  das  Signal  am  Eingang 
S.  Liegt  an  S ein  Low,  dann  sind  die  Eingänge  mit  der  Bezeich- 
nung A auf  den  Ausgang  durchgeschaltet,  liegt  S auf  High-Pe- 
gel,  dann  sind  die  B-Eingänge  durchgeschaltet. 

Die  Adreß-Bits  A6  und  A7  vom  VIC  liegen  am  Multiplexer,  und 
zwar  A6  an  den  Eingängen  13  und  14  und  A7  an  den  Eingängen 
10  und  11.  Wenn  jetzt  mittels  des  S-Signals  zwischen  den  Ein- 
gängen hin-  und  hergeschaltet  wird,  so  ist  an  den  Ausgängen 
keine  Änderung  festzustellen,  da  die  Adreß-Bits  auf  beide  Ein- 
gänge geführt  sind.  Nur  die  Polarität  der  Signale  ist  an  den  Aus- 
gängen durch  die  Inverter-Wirkung  der  Multiplexer  vertauscht. 
Diese  invertierten  Adreßsignale  werden  auf  die  B-Eingänge  der 
beiden  anderen  Multiplexer  geführt,  und  zwar  -A6  an  den  Pin  3 
und  -A7  an  den  Pin  6.  Die  A-Eingänge  werden  mit  den  ge- 
nannten Port-Bits  der  CIA  2 versorgt,  Port-Bit  0 als  -VA  14  an 
Pin  2,  Port-Bit  1 als  -VA15  an  Pin  5. 

Da  der  S-Eingang  von  -CAS  gesteuert  wird,  liegt  am  Ausgang 
Pin  4 bei  -CAS  High  das  nochmals  invertierte  Adreß-Bit  A6, 
bei  -CAS  Low  das  Adreß-Bit  A14.  Am  Ausgang  Pin  7 wird 
entsprechend  zwischen  -A7  und  -VA  15  geschaltet.  Durch  die 
Invertierung  des  Multiplexers  erscheint  dieses  Signal  als  Al  oder 
Al 5.  Der  Pin  15  von  U14  ist  mit  dem  Signal  AEC  verbunden. 
Er  trägt  die  Bezeichnung  -OE,  Output  Enable.  Immer  wenn 
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AEC  High  ist,  werden  die  Ausgänge  des  U14  abgeschaltet  oder 
in  den  sogenannten  Tri-State-Zustand  versetzt.  Dies  ist  wichtig, 
da  bei  AEC  High  der  Prozessor  den  Bus  belegt  und  seine 
Adressen  über  die  Multiplexer  U13  und  U2S  auf  diesen  Bus  legt. 
Nur  wenn  AEC  Low  ist,  kann  der  VIC  ja  den  Bus  belegen,  dann 
sind  die  Ausgänge  des  U14  freigegeben. 


16  Farben  mit  vier  Bits,  das  Farb-RAM 

Sollen  alle  S12  möglichen  Zeichen  auch  noch  in  16  verschie- 
denen Farben  dargestellt  werden,  dann  sind  vier  weitere  Daten- 
Bits  erforderlich.  Es  sind  dies  die  vier  Pins  35  bis  38  am  VIC. 
An  diesen  Pins  ist  das  Color-RAM  U6  mit  seinen  Datenleitun- 
gen angeschlossen.  Dieses  IC  ist  ein  statisches  RAM  mit  4096 
Speicherplätzen.  In  jedem  Speicherplatz  kann  ein  Bit  gespeichert 
werden.  Jeweils  4 Speicherplätze  werden  durch  eine  Adresse  an- 
gesprochen. Die  Adressierung  geschieht  zuerst  wieder  durch  das 
Signal  -CS  am  U6.  Wenn  dieser  Anschluß  Low  ist,  wird  das 
RAM  selektiert,  die  Datenleitungen  verlassen  den  Tri-State-Zu- 
stand.  Erzeugt  wird  das  -CS-Signal  auf  zwei  verschiedene  Arten 
vom  AND-Gatter  U27.  So  seltsam  es  auch  klingen  mag,  dieses 
AND-Gatter  wird  in  der  Schaltung  als  ein  OR-Gatter  betrieben. 

Ein  AND-Gatter  legt  den  Ausgang  dann  auf  High,  wenn  alle 
Eingänge  auch  High  sind.  Wenn  man  jetzt  die  Logik  ein  wenig 
umdreht,  kann  man  auch  sagen:  Wenn  der  eine  Eingang  ODER, 
der  andere  Low  ist,  dann  ist  der  Ausgang  auch  Low.  Diese  Be- 
triebsart wird  im  C64  angewendet. 

Das  Color-RAM  belegt  den  Adreßbereich  von  $D800  bis 
$DBFF.  Wenn  das  Signal  AEC  High  ist,  belegt  der  Prozessor  den 
Bus.  Damit  ist  der  eine  Eingang  des  AND-Gatters  High.  Wenn 
der  Prozessor  nicht  auf  das  Color-RAM  zugreift,  ist  der  Aus- 
gang -COLOR  des  Decoders  U15  auch  High.  Damit  ist  der  -CS- 
Eingang  des  Color-RAM  auf  High,  das  Farb-RAM  ist  nicht  se- 
lektiert. Wenn  der  Prozessor  auf  das  Farb-RAM  zugreifen  will, 
legt  er  die  entsprechende  Speicheradresse  auf  den  Datenbus.  Die 
Decodierung  läuft  entsprechend  wie  die  des  VIC  ab.  Nur  ist 
jetzt  mit  Sicherheit  das  Adreß-Bit  All  gesetzt.  Damit  wird  der  - 
COLOR- Ausgang  des  Decoders  Ul 5 Low.  Jetzt  ist  ein  Eingang 
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des  AND-Gatters  Low  und  entsprechend  der  Ausgang  auch. 
Damit  ist  das  Farb-RAM  selektiert. 

Da  AEC  zu  diesem  Zeitpunkt  High  ist,  sind  die  vier  Analog- 
schalter im  IC  U16  geschlossen,  die  Datenleitungen  des  Farb- 
RAM  sind  mit  den  vier  niederwertigen  Datenleitungen  des  Pro- 
zessors verbunden.  Damit  kann  nun  das  Farb-RAM  beschrieben 
und  gelesen  werden.  Wenn  AEC  Low  wird  und  der  VIC  den  Bus 
übernimmt,  dann  werden  die  Analogschalter  geöffnet.  Gleich- 
zeitig wird  der  Ausgang  des  AND-Gatters  U27  Pin  8 Low,  das 
Farb-RAM  ist  selektiert,  diesmal  vom  VIC.  Da  der  VIC  aber 
nur 'mit  den  Adreßleitungen  A8  bis  All  mit  dem  VIC  verbun- 
den ist,  müssen  die  Adreß-Bits  AO  bis  A7  anders  gewonnen 
werden.  Diese  Aufgabe  übernimmt  das  IC  U26.  Dieses  TTL-IC 
mit  der  Bezeichnung  74LS373  enthält  8 Latches  oder  Zwischen- 
speicher. Die  Eingänge  dieses  ICs  sind  mit  dem  gemultiplexten 
Adreßbus  verbunden.  Eingespeichert  werden  die  Daten,  wenn 
das  Signal  -RAS  Low  wird.  Das  ist  der  Zeitpunkt,  wenn  das 
niederwertige  Adreß-Byte  auf  dem  Bus  liegt.  Die  Ausgänge  von 
U16  sind  mit  dem  niederwertigen  Adreß-Byte  des  Prozessor- 
busses verbunden  und  liefern  die  Adreßinformationen,  wenn  der 
Prozessor  im  Tri-State  ist. 

Auf  diese  Weise  kann  der  VIC  das  Farb-RAM  adressieren.  Auch 
der  Zwischenspeicher  ist  mit  dem  Signal  AEC  verbunden.  Am 
Pin  1 des  U16  bewirkt  es  im  High-Zustand,  daß  die  Ausgänge 
hochohmig  werden,  um  den  Prozessor  nicht  zu  stören.  Wenn  man 
sich  diese  Vorgänge  genauer  anschaut,  ergibt  sich  eine  interes- 
sante Frage.  Wieso  hat  der  VIC  zusätzlich  zum  gemultiplexten 
Adreßbus  AO  bis  A13  noch  die  vier  Adreßleitungen  A8  bis  All 
an  den  Pins  23,  32,  33  und  34? 

Die  Antwort  ist  relativ  simpel.  Der  VIC  muß  zu  jeder  Bild- 
schirmspeicheradresse im  Bereich  von  $0400  bis  $07FF  gleich- 
zeitig die  entsprechende  Farbspeicherzelle  im  Adreßbereich 
$D800  bis  $DBFF  ansprechen.  Dieser  gleichzeitige  Zugriff  auf 
zwei  verschiedene  Speicherplätze  erfordert  einen  zweiten,  vom 
normalen  Adreßbus  unabhängigen  Bus.  Dieser  Bus  wird  durch 
die  4 separaten  Adreß-Bits  realisiert. 
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Der  Prozessor  und  das  RAM 

Bisher  haben  wir  uns  nur  mit  dem  Fall  beschäftigt,  daß  der  VIC 
auf  die  64  K Arbeitsspeicher  zugreifen  will.  Es  fehlt  noch  die 
Beschreibung  der  Vorgänge  bei  einem  Zugriff  des  Prozessors  auf 
dieses  RAM.  Die  Lesezugriffe  des  Prozessors  sind  den  Zugriffen 
des  VIC  sehr  ähnlich.  In  beiden  Fällen  liegt  das  Signal  R/-W 
(Lesen  bei  High,  Schreiben  bei  Low)  auf  High.  Zuerst  darum  die 
Lesezugriffe. 

Wie  bei  der  Beschreibung  der  RAM-VIC-Schnittstelle  erläutert, 
benötigt  das  RAM  einen  gemultiplexten  Adreßbus.  Diese  For- 
derung der  RAMs  kann  der  Prozessor  aber  nicht  erfüllen.  Darum 
ist  ein  "Multiplexen"  mit  zusätzlichen  ICs  notwendig.  Diese  Mul- 
tiplexer sind  die  ICs  Ul 3 und  U25,  zwei  74LS257. 

Diese  ICs  arbeiten  nach  demselben  Prinzip  wie  das  U14  (be- 
schrieben im  Abschnitt  RAM  und  VIC).  Der  Unterschied  zu 
U14  besteht  darin,  daß  diese  Multiplexer  die  Ausgangssignale 
nicht  invertieren.  An  den  Eingängen  der  beiden  Multiplexer-ICs 
liegt  der  komplette  Prozessor- Adreßbus  A0  bis  Al 5.  Dabei  sind 
die  Eingänge  so  geschaltet,  daß  mit  dem  Select-Signal  jeweils 
zwischen  AO  und  A8,  Al  und  A9  usw.  umgeschaltet  wird.  Die 
Adressierung  der  RAMs  läßt  sich  wieder  in  drei  Phasen  zerlegen: 

In  der  ersten  Phase  liegt  am  Select-Eingang  der  Multiplexer  ein 
High.  Damit  ist  das  niederwertige  Adreß-Byte  auf  die  RAMs 
geschaltet.  Mit  der  abfallenden  Flanke  des  -RAS-Signals  wird 
dieses  Byte  in  die  RAMs  übernommen.  Kurze  Zeit  später  wird 
auch  das  -CAS-Signal  Low.  Damit  schalten  die  Multiplexer  um, 
der  jeweils  zweite  Eingang  der  Multiplexer  wird  auf  die  ent- 
sprechenden Ausgänge  geschaltet  und  das  höherwertige  Adreß- 
Byte  liegt  an  den  RAMs.  Über  den  AM  wird  das  Signal  -CAS 
wieder  etwas  verzögert.  Der  Ausgang  -CASRAM  übernimmt 
auch  hier  die  eigentliche  Funktion  des  Signals  -CAS.  Mit  der 
abfallenden  Flanke  vom  -CASRAM  wird  nun  das  High-Byte  der 
Adresse  in  den  RAMs  gespeichert.  Jetzt  wird  in  den  RAMs  die 
adressierte  Speicherzelle  angesprochen,  und  die  Daten  erscheinen 
auf  dem  Datenbus. 
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Die  Schreibzugriffe  des  Prozessors  unterscheiden  sich  von  den 
Lesezyklen  durch  einen  wesentlichen  Umstand.  Bei  einem 
Schreibzugriff  wird  der  Prozessor-Pin  R/-W  Low,  nachdem  der 
Prozessor  die  Adresse  der  entsprechenden  Speicherzelle  auf  den 
Adreßbus  gelegt  hat.  Damit  wird  dem  RAM  signalisiert,  daß  das 
auf  dem  Datenbus  liegende  Byte  in  dieser  Speicherzelle  gespei- 
chert werden  soll. 

Die  verwendeten  RAM-Bausteine  stellen  an  dieses  R/-W-Signal 
eine  bestimmte  Bedingung.  Das  Signal  R/-W  darf  erst  dann  Low 
werden,  nachdem  -RAS  Low  geworden  ist,  -CASRAM  aber 
noch  High  ist.  R/-W  muß  also  zwischen  den  beiden  abfallenden 
Flanken  von  -RAS  und  -CASRAM  Low  werden.  Der  zeitliche 
Verlauf  der  -RAS-,  -CAS-  und  -CASRAM-Signale  ist  mit 
denen  bei  Lesezugriffen  identisch. 

Der  SID  6581 , ein  Synthesizer  mit  28  Beinen  und  mehr 

Dieses  IC  ist  genau  wie  der  VIC  ein  Paradebeispiel  für  die  Mög- 
lichkeiten der  Halbleiterindustrie.  Durch  dieses  IC  erhält  der 
CBM  64  seine  fantastischen  Klangmöglichkeiten. 

Vor  wenigen  Jahren  hätte  allein  ein  Synthesizer  mit  diesen  in  ei- 
nem IC  integrierten  Möglichkeiten  die  ganze  Leiterplatte  des  64 
für  sich  in  Anspruch  genommen. 


Die  28  Pins  des  6581  haben  die  folgenden  Bezeichnungen: 


Pin 

Bezeichnung 

Funktion 

1 

CAP1A 

» 

Externer  Kondensator  fQr  Frequenzfilter 

2 

CAP1B 

Wie  Pin  1 

3 

CAP2A 

Wie  Pin  1 

4 

CAP2B 

Wie  Pin  1 

5 

-RES 

Eingang,  RESET-Signal 

6 

02 

Eingang,  Taktsignal 

7 

R/-U 

Eingang,  Read/-Urite 

8 

-cs 

Eingang,  Chip  Select 

9 

bis 

AO 

Eingang,  AdreB-Bit  0 

13 

A4 

Eingang,  AdreB-Bit  4 

14 

GND 

Betriebsspannung  Masse 
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Pin 

Bezeichnung 

Funktion 

15 

bis 

DO 

Daten-Bit  0,  bidirektional 

22 

D7 

Daten-Bit  7,  bidirektional 

23 

POTY 

Eingang,  AD-Wandler  2 

24 

POTX 

Eingang,  AD-Uandler  1 

25 

Vcc 

Betriebsspannung  +5V 

26 

EXT  IN 

Eingang,  externe  Signalquelle 

27 

AUDIO  OUT 

Ausgang  Synthesizer 

28 

Vdd 

Betriebsspannung  +12V 

Nicht  vorgekommen  sind  bisher  die  Bezeichnungen  der  ersten 
vier  Pins,  CAP1A  bis  CAP2B.  Wie  man  im  Schaltbild  sehen 
kann,  sind  an  diesen  Anschlüssen  die  2 Kondensatoren  CIO  und 
CI  1 angeschlossen.  Diese  Kondensatoren  werden  für  die  im  Chip 
Ul 8,  dem  SID,  integrierten  Frequenzfilter  benötigt. 

Ein  Filter  ist  eine  uns  allen  bekannte  Einrichtung.  Nehmen  wir 
zum  Beispiel  mal  den  "Kaffeefilter”.  Die  Aufgabe  dieses  Filters 
ist  es,  bestimmte  Anteile  (nämlich  das  Wasser  und  die  löslichen 
Stoffe  des  Kaffeepulvers)  durchzulassen  und  andere  Anteile  (in 
unserem  Beispiel  die  Reste  des  Kaffeepulvers)  zurückzuhalten. 

Genau  so  arbeitet  auch  ein  elektronischer  Frequenzfilter.  Be- 
stimmte Frequenzen  werden  durchgelassen,  andere  werden  zu- 
rückgehalten. Es  gibt  insgesamt  vier  mögliche  Arten  von  Fre- 
quenzfiltern: den  Tiefpaß,  den  Hochpaß,  den  Bandpaß  und  den 
Sperrpaß.  Ein  Tiefpaß  läßt  nur  tiefe  Frequenzen  bis  zu  einer 
bestimmten  höchsten  Frequenz  passieren.  Diese  Funktion  ist  an 
jeder  Stereoanlage  in  Form  des  Baßreglers  zu  finden.  Mit  diesem 
Regler  läßt  sich  diese  höchste,  durchzula^sende  Frequenz,  die 
sogenannte  Grenzfrequenz,  einstellen. 

Ein  Hochpaß  zeigt  genau  das  umgekehrte  Verhalten,  ab  einer 
bestimmten  niedrigsten  Frequenz  läßt  er  alle  höheren  Frequen- 
zen durch.  Das  ist  an  der  Stereoanlage  der  Trebble-  oder  Hö- 
henregler. 

Bleiben  noch  Bandpaß  und  Sperrpaß.  Auch  diese  haben  genau 
entgegengesetzte  Funktionen.  Ein  Bandpaß  ist  eine  Mischung  aus 
Tief-  und  Hochpaß.  Ab  einer  bestimmten  Frequenz  werden  hö- 
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here  Frequenzen  durchgelassen,  dies  aber  nur  bis  zu  einer 
höchsten  Frequenz.  Darüberliegende  Frequenzen  werden  wieder 
gesperrt.  Ein  Sperrfilter  sperrt  in  eitlem  bestimmten  Frequenz- 
bereich alle  Frequenzen.  Diese  Funktion  ist  an  manchen  guten 
Stereoanlagen  als  Brummfilter  vorhanden.  Damit  wird  in  diesem 
Fall  nur  eine  bestimmte  Frequenz,  die  SO  Hertz  der  Netzfre- 
quenz, herausgefiltert.  Alle  diese  Filter  lassen  sich  im  SID  pro- 
grammieren. 

Der  Pin  5,  der  RESET-Eingang  von  U18,  wird  benötigt,  um  das 
IC  in  einen  definierten  Zustand  zu  bringen.  Wie  bereits  be- 
schrieben, liegt  an  diesem  Anschluß  nach  dem  Einschalten  für 
ca.  O.S  Sekunden  ein  Low-Pegel.  Damit  werden  alle  Register  im 
6581  gelöscht.  Ohne  diesen  RESET  würden  die  Register  nach 
dem  Einschalten  zufällige  Werte  haben,  die  Folge  wäre  ein  ge- 
nauso zufälliges  Signal  am  Audio-Ausgang;  der  angeschlossene 
Fernseher  oder  Verstärker  würde  nur  "Krach"  machen. 

Aus  der  Frequenz  des  Signals  02  werden  alle  Tonfrequenzen  des 
SID  durch  Frequenzteilung  erzeugt.  Gleichzeitig  stellt  02  natür- 
lich wie  bei  allen  anderen  Peripherie-Bausteinen  den  Bezugstakt 
für  die  Schreib-  und  Lesezugriffe  des  Prozessors  dar. 

Ob  die  im  SID  enthaltenen  Register  beschrieben  oder  gelesen 
werden,  hängt  in  bekannter  Weise  von  der  Leitung  R/-W  ab.  Bei 
einem  High  werden  die  Register  gelesen,  bei  einem  Low  wird  in 
die  Register  geschrieben.  Voraussetzung  ist  natürlich,  das  der 
SID  auch  korrekt  adressiert  ist.  Der  Adreßbereich  des  658 1 liegt 
von  $D400  bis  $D7FF.  Dieser  Adreßbereich  wird  wie  beim  VIC 
durch  den  AM  und  die  Decoder  im  IC  Ul 5 decodiert.  Sobald 
der  Prozessor  eine  Adresse  in  diesem  Bereich  auf  den  Bus  legt 
und  das  Signal  -CHAREN  High  ist,  wird  der  Ausgang  Pin  5 des 
74LS139  und  damit  auch  der  -CS-Eingang  des  SID  Low. 

Um  nun  auch  die  einzelnen  Register  im  SID  zu  adressieren, 
werden  die  5 Adreßleitungen  A0  bis  A4  benötigt. 

Sind  diese  Adreß-Bits  alle  Low  und  der  SID  mit  -CS  selektiert, 
kann  das  Register  0 beschrieben  oder  gelesen  werden.  Ist  nur  das 
Adreß-Bit  AO  High,  ist  Register  1 selektiert  usw. 
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Auf  diese  Weise  lassen  sich  alle  29  Register  ansprechen.  Die 
Datenleitungen  DO  bis  D7  an  den  Pins  15  bis  22  sind  mit  dem 
Prozessordatenbus  verbunden.  Solange  -CS  High  ist,  befinden 
sich  die  Datenleitungen  des  SID  im  Tri-State.  Wenn  der  -CS 
Low  wird,  entscheidet  R/-W,  ob  die  Datenleitungen  als  Eingang 
(beim  Schreiben  der  Register)  oder  als  Ausgang  (entsprechend 
beim  Lesen)  fungieren.  Die  Anschlüsse  POTX  und  POTY  stellen 
die  Eingänge  der  "AD-Wandler"  dar.  Bis  jetzt  ist  die  Bezeich- 
nung AD  noch  nicht  erläutert  worden.  Das  wollen  wir  schnell 
nachholen. 

AD-Wandler  ist  die  Abkürzung  für  Analog-Digital-Wandler.  Ein 
digitaler  Wert  kennt  bekanntlich  nur  zwei  Zustände,  entweder 
High  oder  Low,  im  CBM  64  und  vielen  anderen  Digital-  und 
Computerschaltungen  durch  eine  Spannung  von  +5V  als  High 
und  0 Volt  als  Low  signalisiert.  Ein  analoges  Signal  ist  da  nicht 
so  festgelegt,  es  kann  jeden  beliebigen  Wert  dazwischen,  darüber 
und  darunter  annehmen.  Nun  ist  es  aber  oft  wünschenswert, 
einen  solchen  analogen  Wert  in  einen  Computer  eingeben  zu 
können,  um  ihn  zu  verarbeiten.  Diese  Möglichkeit  der  Eingabe 
analoger  Werte  ist  im  CBM  64  eingebaut. 

Hauptsächlich  genutzt  werden  die  AD-Wandler  in  Verbindung 
mit  den  "Paddies",  das  sind  Drehregler,  ähnlich  den  Reglern  an 
Radiogeräten.  Ein  solcher  Regler  enthält  einen  veränderbaren 
Widerstand,  Potentiometer  oder  kurz  "Poti"  genannt.  Der  Wider- 
standswert des  Potis  ändert  sich  mit  dem  Drehen.  Der  minimale 
Widerstand  der  in  den  Paddies  eingebauten  Potis  beträgt  ca.  100 
Ohm,  der  Maximalwert  ca.  500  KOhm.  Dazwischen  kann  der 
Widerstand  theoretisch  jeden  beliebigen  Wert  annehmen. 

Der  AD-Wandler  erzeugt  aus  diesem  Widerstandswert  ein  digi- 
tales Signal.  In  unserem  Fall  wird  ein  8-Bit-Signal  erzeugt.  Die- 
ses Byte  kann  aus  einem  der  SID-Register  gelesen  werden.  Die 
eigentliche  AD-Wandlung  geschieht  mit  dem  eingestellten  Wi- 
derstandswert und  den  Kondensatoren  C48  und  C93.  Diese  Kon- 
densatoren werden  für  0.25  Millisekunden  über  die  Potis  auf- 
geladen. Wenn  die  Spannung  an  den  Kondensatoren  größer  wird 
als  die  im  SID  erzeugte  Vergleichsspannung,  wird  ein  Zähler  im 
SID  angehalten.  Der  Zählerstand  ist  das  Maß  für  den  eingestell- 
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ten  Widerstand:  Je  größer  der  Widerstand  des  Potis  ist,  desto 
langsamer  wird  der  Kondensator  aufgeladen,  und  die  Spannung 
am  Kondensator  erreicht  die  Höhe  der  Referenzspannung  später. 
Damit  kann  der  Zähler  länger  laufen,  der  Zählerwert  wird 
größer. 

Ist  der  Widerstandswert  zu  hoch  (ca.  200  KOhm),  dann  erreicht 
die  Spannung  am  Eingang  des  AD-Wandlers  in  der  Meßzeit 
nicht  die  Referenzspannung.  Der  Zähler  läuft  dann  bis  zu  sei- 
nem Endwert,  im  AD-Register  steht  der  Wert  255.  Wenn  der 
Widerstand  aber  zu  klein  wird  (ca.  200  Ohm),  ist  der  Konden- 
sator so  schnell  aufgeladen,  daß  der  Zähler  sofort  gestoppt  wird. 
Damit  steht  im  Register  ein  Wert  von  0. 

Nach  Ablauf  der  Meßzeit  von  0.25  Millisekunden  werden  die 
Kondensatoren  schlagartig  über  den  entsprechenden  AD-Eingang 
entladen.  Jetzt  wird  der  Zähler  auf  0 gesetzt,  und  nach  weiteren 
0.25  Millisekunden  startet  dann  ein  neuer  Meßzyklus.  Somit 
benötigt  ein  vollständiger  Zyklus  0.5  Millisekunden,  in  einer  Se- 
kunde werden  2000  mal  die  aktuellen  Widerstandswerte  gemessen 
und  stehen  zur  Verfügung. 

Um  eine  Beschädigung  der  AD-Eingänge  zu  vermeiden,  sollte 
der  Widerstand  nicht  kleiner  als  100  Ohm  werden.  Sonst  werden 
die  bei  der  Entladung  der  Kondensatoren  auftretenden  Ströme 
zu  groß,  und  die  Entladestufe  am  Eingang  kann  zerstört  werden. 
Die  zwei  Eingänge  POTX  oder  POTY  liegen  aber  nicht  direkt  an 
einer  der  verschiedenen  Buchsen  des  64.  Die  beiden  Eingänge 
liegen  an  den  Pins  2,  3,  9 und  10  des  IC  U28.  Dieses  IC,  ein 
CMOS-Baustein  mit  der  Bezeichnung  4066,  enthält  vier  soge- 
nannte Analogschalter.  Dieses  wird  benötigt,  da  an  den  64  zwei 
Paddle-Paare,  insgesamt  also  vier  Potis,  angeschlossen  werden 
können. 

So  ein  Analogschalter  arbeitet  vergleichbar  einem  Relais.  Wenn 
am  Steuereingang  eine  Spannung  anliegt,  wird  der  Analogein- 
gang auf  den  Ausgang  durchgeschaltet,  der  Schalter  ist  ge- 
schlossen. Liegt  der  Steuereingang  auf  Masse,  dann  ist  der  Aus- 
gang vom  Eingang  gesperrt,  der  Schalter  ist  geöffnet. 
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Die  Analogeingänge  sind  mit  den  Controll-Ports  CN8  und  CN9 
verbunden.  An  diesen  Controll-Ports  sind  die  Kontakte  S und  9 
für  den  Anschluß  der  Paddies  vorgesehen.  Die  Steuereingänge 
sind  die  Pins  5,  6,  12  und  13.  Der  Pin  13  kontrolliert  den  Schal- 
ter 1 zwischen  den  Anschlüssen  1 und  2,  Pin  5 den  Schalter  2 
zwischen  4 und  3,  Pin  6 den  Schalter  3 zwischen  8 und  9 und 
Pin  12  den  Schalter  4 zwischen  11  und  10.  Jeweils  zwei  dieser 
Eingänge  sind  zusammengeschaltet,  un  zwar  Pin  13  und  5 und 
Pin  6 und  12. 

Diese  jeweils  verbundenen  Eingänge  liegen  an  den  beiden  Pins  8 
und  9 der  CIA  Ul.  Über  diese  Leitungen  kann  man  aus  wählen, 
welche  Potis  an  den  Eingängen  des  AD- Wandlers  liegen.  Sind 
die  Pins  8 und  9 der  CIA  Ul  Low,  dann  liegt  kein  Poti  an  den 
Wandlern.  Ist  Pin  8 High,  dann  sind  die  Analogschalter  3 und  4 
geschlossen,  die  am  Controll-Port  1 angeschlossenen  Paddies 
werden  an  die  Anschlüsse  POTX  und  POTY  gelegt.  Ist  dagegen 
Pin  9 der  CIA  High,  dann  sind  Analogschalter  1 und  2 ge- 
schlossen, die  Paddies  an  CN8  liegen  an  den  Eingängen  der  AD- 
Wandler.  Bleiben  noch  die  Anschlüsse  EXT  IN  und  AUDIO 
OUT  am  6581. 

AUDIO  OUT  ist  der  NF-Ausgang  des  Synthesizers.  Hier  stehen 
die  im  Synthesizer  erzeugten  Töne  und  Geräusche  zur  Verfü- 
gung. Bei  maximaler  Lautstärke  hat  das  Ausgangssignal  eine 
Größe  von  2Vss.  Der  Transistor  Q8  ist  als  Emitter- Folger  an  den 
Ausgang  geschaltet.  Dadurch,  daß  das  Signal  am  Emitter  des 
Transistors  über  dem  Widerstand  R38  abgenommen  wird,  hat  der 
Transistor  keine  Spannungsverstärkung.  Das  Signal  am  Ausgang 
Pin  3 der  8-poligen  Video-Audio-Buchse  CN5  hat  somit  auch 
eine  Höhe  von  2Vss. 

An  diesen  Ausgang  kann  man  direkt  einen  kleinen  8-Ohm- 
Lautsprecher  anschließen.  Allerdings  ist  die  Lautstärke  sehr  ge- 
ring. Um  eine  vernünftige  Wiedergabe  zu  erreichen,  geben  Sie 
das  Signal  am  besten  auf  eine  Stereoanlage  oder  ein  gutes  Kof- 
ferradio. Oder  Sie  benutzen  den  im  Fernseher  eingebauten 
Lautsprecher  und  das  mit  dem  Bild  übertragene  Tonsignal. 
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EXT  IN  gibt  die  Möglichkeit,  auch  externe  Signale  in  den  Syn- 
thesizer einzuspeisen  und  zu  beeinflussen.  Externe  Signale  kön- 
nen beispielsweise  Mikrophonsignale  sein,  die  mit  einem  kleinen 
Verstärker  verstärkt  worden  sind.  Auch  eine  Gitarre  oder  eine 
Orgel  kann  nach  entsprechender  Verstärkung  das  Eingangssignal 
liefern,  aber  auch  ein  zweiter  SID,  also  ein  zweiter  CBM  64. 
Damit  hätte  man  dann  noch  wesentlich  mehr  Möglichkeiten  der 
Klanggestaltung.  Die  einzige  an  das  Eingangssignal  gestellte  For- 
derung lautet,  daß  das  Signal  nicht  größer  als  3Vss  sein  darf. 
Dieser  Eingang  ist  über  den  Kondensator  C12  mit  dem  Kontakt 
5 der  8-poligen  Audio-Video-Buchse  CN5  verbunden. 
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Anhang  C.11:  Floppy-Fehlermeldungen 

Die  folgenden  Fehlermeldungen  erhalten  Sie  durch  Auslesen  des 
Floppy-Fehlerkanals.  TT  steht  jeweils  für  die  Tracknummer,  SS 
für  die  Sektornummer  eines  Datenblocks. 

00. 0K, 00,00 

Kein  Fehler  aufgetreten. 

01,  FILES  SCRATCHED,XX,00 

Rückmeldung  nach  SCRATCH-Befehl  (XX=Anzahl  der  ge- 
löschten Dateien). 

20,  RE  AD  ERROR, TT, SS 

Kopf  eines  Datenblocks  wurde  nicht  gefunden. 

21,  READ  ERROR,TT,SS 

SYNC-Markierung  eines  Datenblocks  wurde  nicht  gefunden. 

22,  READ  ERROR, TT, SS 
Prüfsummenfehler  im  Kopf  eines  Datenblocks. 

23, READ  ERROR,TT,SS 

Prüf  summenfehler  im  Datenteil  eines  Datenblocks. 

24,  RE  AD  ERROR, TT, SS 
Prüfsummenfehler. 

25, WRITE  ERROR, TT, SS 

Datenblock  wurde  fehlerhaft  auf  Disk  geschrieben. 

26,  W RITE  PROTECT  ON,TT,SS 

Schreibversuch  auf  Diskette  mit  aktiviertem  Schreibschutz. 

27,  READ  ERROR, TT, SS 
Prüfsummenfehler. 


Anhang 


1109 


28. WRITE  ERROR, TT, SS 

SYNC-Markierung  eines  Datenblocks  nicht  gefunden. 

29. DISK  ID  MISMATCH,TT,SS 
Disk-ID  ist  fehlerhaft. 

30, SYNTAX  ERROR, 00, 00 
Gesendeter  DOS-Befehl  ist  fehlerhaft. 

31, SYNTAX  ERROR.00,00 

Gesendeter  DOS-Befehl  wurde  nicht  erkannt. 

32, SYNTAX  ERROR, 00, 00 

Gesendeter  DOS-Befehl  ist  länger  als  40  Zeichen. 

3 3, SYNTAX  ERROR.00,00 
Unzulässige  Verwendung  des  Jokers. 

34, SYNTAX  ERROR, 00, 00 

In  einem  gesendeten  DOS-Befehl  wurde  der  File-Name  nicht 
gefunden. 

39, FILE  NOT  FOUND,00,00 

Programm  vom  Typ  "USR"  wurde  nicht  gefunden. 

50,RECORD  NOT  PRESENT, 00, 00 

Es  wurde  ein  Datensatz  einer  relativen  Datei  angesprochen,  der 
noch  nicht  existiert.  Sofern  ein  Schreibzugriff  erfolgt  ist,  wurde 
der  Datensatz  angelegt. 

51, OVERFLOW  IN  RECORD,00,00 

Datensatzlänge  einer  relativen  Datei  ist  zu  klein  für  die  gesen- 
deten Daten. 

52.FILE  TOO  LARGE.00,00 

Datensatznummer  einer  relativen  Datei  ist  zu  groß. 
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60, WRITE  FILE  OPEN,00,00 

Es  wurde  versucht,  eine  Datei  zu  öffnen,  die  beim  letzten 
Schreibvorgang  nicht  ordnungsgemäß  geschlossen  wurde. 

61,  FILE  NOT  OPEN, 00, 00 

Eine  angesprochene  Datei  wurde  zuvor  nicht  geöffnet. 

62,  FILE  NOT  FOUND,00,00 

Die  angesprochene  Datei  existiert  auf  der  Diskette  nicht. 

63,  FILE  EXISTS,00,00 

Es  wurde  versucht,  eine  Datei  mit  einem  auf  der  Diskette  bereits 
existierenden  Namen  anzulegen. 

64,  FILE  TYPE  MISMATCH ,00,00 

Beim  öffnen  einer  Datei  wurde  ein  falscher  Dateityp  angegeben. 

65,  NO  BLOCK,TT,SS 

Es  wurde  versucht,  einen  Datenblock  zu  belegen,  der  bereits 
nicht  mehr  frei  war. 

66, ILLEGAL  TRACK  OR  SECTOR,TT,SS 

Es  wurde  versucht,  auf  einen  nicht  existierenden  Datenblock 
zuzugreifen. 

67, ILLEGAL  TRACK  OR  SECTOR,TT,SS 

Die  Track-Sektor- Verkettung  einer  Datei  ist  fehlerhaft. 

70, NO  CHANNEL, 00,00 

Es  wurde  versucht,  mehr  Dateien  zu  öffnen  als  Kanäle  vorhan- 
den sind. 

71,  DIR  ERROR, TT, SS 

Die  Anzahl  der  freien  Datenblöcke  im  DOS-Speicher  stimmt  mit 
dem  Bit-Muster  der  BAM  nicht  überein. 
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72. DISK  FULL,00,00 

Diskette  ist  komplett  mit  Daten  belegt. 

7 3.  CBM  DOS  V2.6  1541,00,00 
Einschaltmeldung  der  Floppy. 

74. DRIVE  NOT  READY, 00,00 

Es  wurde  versucht,  die  Floppy  anzusprechen,  ohne  daß  sich  eine 
Diskette  im  Laufwerk  befindet. 
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Anhang  C.1 2:  Bildschirmcodes 

Die  untenstehende  Tabelle  enthält  eine  vollständige  Liste  der 
POKE/PEEK-Codes  und  der  CHR$/ASC-Codes. 


I Chrt  & Poke  Kodes  I 


1 Dez  i 
1 1 

He;<  1 
1 

POKE-  Zeichen  1 CHR*-  Zeichen  1 CHR*-  Zeichen 
ßross  1 Klein  1 Gross  1 Klein 

1 000 

*00  1 

a 1 

Keine  Funktion 

1 001 

*01  1 

A 

.Sk.  1 

Keine  Funktion 

1 002 

*02  1 

T=fe 

fcz»  l 

Keine  Funktion 

1 003 

*03 

« — 1 

Keine  Funktion 

1 004 

*04 

D 

4=1  1 

Keine  Funktion 

1 005 

*05 

r=- 

^9.  | 

Wei  ss 

1 006 

*06 

-#=  1 

Keine  Funktion 

1 007 

*07 

O 

<3  > 

Keine  Funktion 

1 008 

*06 

1 — 1 

hi  1 

Shi  4 t 

Commodore  verboten 

1 009 

*09 

I 

i 1 

Shi  4 t 

Commodore  er  1 auben 

1 010 

*0a 

a 

1 

Keine  Funktion 

1 01 1 

*0b 

k: 

»-c  1 

Keine  Funktion 

1 012 

*0c 

i 

x 1 

Keine  Funktion 

1 013 

*0d 

M 

m 1 

Return 

1 014 

*0e 

INI 

■ — k 1 

Kleinbuchstaben 

1 015 

*0* 

O 

4=»  i 

Keine  Funktion 

1 016 

*10 

ff=» 

»=»  1 

Keine  Funktion 

1 017 

*11 

G) 

«=■  1 

Cursor  abwaerts 

I 016 

*12 

R 

■ | 

Revers  anschalten 

1 019 

♦ 13 

-st  1 

Cursor  Home 

1 020 

*14 

”T 

-t  1 

Del ete 

1 021 

*15 

LJ 

«_«.  t 

Keine  Funktion 

1 022 

*16 

V 

1 

Keine  Funktion 

1 023 

• 17 

UJ 

SM#  1 

Keine  Funktion 

1 024 

*18 

X 

5-«  1 

Keine  Funktion 

1 025 

*19 

"V" 

■»"-  i 

Keine  Funktion 

1 026 

*la 

Z 

= 1 

Keine  Funktion 

1 027 

*lb 

c 

KZ  1 

Escape 

1 029 

* 1 c 

1 

Rot 

1 029 

*ld 

n 

13  1 

Cursor  rechts 

1 030 

*le 

'T  1 

Gruen 

1 031 

*l-f 

1 

Dunkel  bl  au 

1 032 
1 033 

*20 
1 *21 

• 

t 

■ 1 

• 

Space 

| • 

1 034 

1 *22 

1 

• • 

1 035 

1 *23 

4* 

4*  1 

1 «X 

1 036 

1 *24 

1 

| 

1 037 

1 *25 

X 1 

X 

1 T. 

1 036 

1 *26 

S-e  1 

I 

1 039 

i *27 

■ 

~ 1 

1 040 

1 *26 

< 

< 1 

< 

| < 

1 041 

1 *29 

> 

> 1 

> 

| > 

1 042 

1 «2a 

a#e 

3#e  1 

3#C 

1 3«C 

1 043 

1 *2b 

-e- 

1 

1 

1 044 

1 *2c 

9 1 

1 =- 

1 045 

1 *2d 

— 

1 

— 

1 

1 046 

1 *2e 

_ 

_ 1 

_ 

1 — 

1 047 

1 *24 

/ 1 

/ 

1 / 

1 048 

1 *30 

*Z* 

OS  1 

fZ* 

1 0 

1 049 

1 *31 

x 

X 1 

X 

| X 

1 050 

1 *32 

3 

r~>  1 

rs 

1 2 

1 051 

1 *33 

| 

1 -_s- 

1 052 

1 *34 

1 

1 

1 053 

1 *35 

S 1 

s 

I 5S5 

1 054 

1 *36 

Ä 1 

1 ä 

1 055 

1 *37 

•7 

Z’  1 

“Z 

1 z 

1 056 

1 *38 

^3  1 

0 

1 0 

1 057 

1 *39 

«z 

«7  1 

1 

1 056 

1 *3a 

s 

s t 

s 

1 s 

1 059 

1 *3b 

9 

9 1 

5 

1 9 

- Anhang 


1 060 

1 93c 

1 061 

1 63d 

1 062 

1 63e 

>- 

1 063 

1 63* 

1 064 

1 640 



1 065 

1 641 

1 066 

1 642 

1 

1 067 

1 643  1 

1 068 

1 644  1 

— 

1 069 

1 645  1 

— 

1 070 

1 646  I 



1 071 

1 647  1 

1 072 

1 648  1 

1 

1 073 

1 649  1 

1 074 

1 64a  1 

1 075 

1 64b  1 

» 

1 076 

1 64c  1 

1 

1 077 

1 64d  1 



1 078 

1 64e  i 

1 079 

I 64*  1 

| 

1 080 

1 650  < 

1 

1 081 

1 651  1 

1 082 

1 652  1 

1 083 

1 653  1 

1 084 

1 654  1 

1 

085 

1 655  1 

086 

1 6S6  1 

X 

087 

1 657  1 

O 

088 

1 658  1 

089 

1 659  1 

1 

090 

» 65a  1 

091 

1 65b  1 

-4 

092 

1 65c  1 

m 

093 

1 65d  1 

i 

094 

1 65e  1 

-er- 

095 

1 65*  l 

096 

660  1 

097 

661  1 

098 

662  1 

099 

663  1 

— 

100 

664  1 

101 

665  1 

1 

102 

666  1 

103 

667  1 

1 

104 

668  1 

— 

105 

669  1 

106 

66a  > 

1 

107 

66b  J 

1- 

108 

66c  1 

109  1 

66d  i 

1 10  1 

66e  1 

111  I 

66*  1 



112  1 

670  1 

113  1 

671  1 

a_ 

114  1 

672  1 

— , . 

1 15  1 

673  1 

—1 

116  i 

674  1 

1 

117  1 

675  1 

■ 

118  1 

676  1 

■ 

1 19  1 

677  1 

• 

120  1 

678  1 

■ 

121  1 

679  1 

122  1 

67a  1 

1 

123  1 

67b  1 

124  1 

67c  1 

125  1 

67d  1 

126  1 

67e  1 

127  1 

67*  1 

128  1 

680  1 

129  1 

681  i 

aa 

130  1 

682  1 

LSJ 

131  1 

683  1 

I < I 

I >-  I 

I A I 

I B | 

I cz:  | 

I D i 


K 


IM 


X 

V 


m 

i 


i 


IM 


X 


I 


l< 

X 


Ke 

Ke 

Kei 


=-C  I 

ne  Funktion  I 
ne  Funktion  I 
ne  Funktion  I 
Funktion  I 
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132 

*84 

uaa 

1 

au  i 

Keine 

Funktion 

133 

*85 

— 

1 

3B  1 

Wei  es 

134 

•86 

1 

KB  I 

Keine 

Funktion 

135 

«87 

1 

an  * 

Keine 

Funktion 

136 

*86 

Ml 

1 

mm  i 

Shift 

Commodore 

verboten 

137 

•89 

9JM 

KB 

Shift 

Commodore 

erlauben 

136 

*8« 

mb 

Bp 

Keine 

Funktion 

139 

•8b 

M» 

J 

i asa 

Keine 

Funktion 

140 

*8c 

JB 

1 

KB 

Keine 

Funktion 

141 

*8d 

Ml 

XD  I 

Return 

142 

*8e 

Ml 

* mm 

Klei nbuchstaben 

143 

*8f 

MI 

!01 

Keine 

Funktion 

144 

•90 

jmm 

m 

Keine 

Funktion 

145 

*91 

MI 

an  » 

Cursor 

abwaerts 

146 

*92 

Mm 

3B 

Revers  anschalten 

147 

•93 

«Sl 

S9  l 

Cur  sor  Home 

146 

*94 

mm 

IM  i 

Delete 

149 

•95 

mi 

w 1 

Keine 

Funktion 

150 

*96 

•Sd 

bm  1 

Kai  ne 

Funktion 

151 

*97 

MI 

1B1  1 

Keine 

Funktion 

152 

•98 

am 

mm 

Keine 

Funktion 

1S3 

*99 

tarn 

vm  i 

Keine 

Funktion 

154 

•9a 

ts m 

an  i 

Keine 

Funktion 

155 

•9b 

im 

im  i 

Escape 

156 

♦9c 

im 

r—  i 

Rot 

157 

♦9d 

u 

U > 

Cursor  rechts 

156 

•9e 

MM 

U i 

6ruen 

159 

*9f 

BS 

BB 

Dunkelblau 

160 

*a0 

mm 

Ui 

Space 

161 

•al 

sb 

BB 

■ 

1 

• 

162 

•a2 

•M 

UB 

1 

• • 

163 

*a3 

UM 

gSM  t 

49 

1 

49 

164 

«a4 

&M 

ga  i 

M- 

1 

Mt 

165 

*a5 

tsm 

■aai  i 

■>£. 

1 

Z<. 

166 

•a6 

ii«  | 

Mt 

1 

&< 

167 

*a7 

Mi 

BB 

** 

1 

168 

*a0 

EEI  | 

< 

1 

< 

169 

*a9 

UB 

ÜB  > 

> 

1 

> 

170 

•aa 

u 

EM  1 

1 

atc 

171 

«ab 

MM 

SS 

-a- 

1 

172 

*ac 

w 

1 

173 

«ad 

BB 

^B 

— 

t 

— 

174 

•aa 

n 

— i 

_ 

1 

_ 

175 

• a* 

B* 

1 

am  i 



176 

•b0 

2U 

1 

Bl  i 

<21 

1 

«Z» 

177 

•bl 

KB 

EM 

X 

1 

X 

178 

•b2 

M 

Bl  t 

2 

1 

22 

179 

*b3 

KB 

1 

bb 

3 

1 

3 

180 

•b4 

MM 

1 

MM  l 

1 

^1- 

161 

•b5 

BB 

Bl  1 

55 

1 

55 

182 

•b6 

SB 

1 

SB  l 

1 

Ä. 

183 

*b7 

I 

1 

164 

•b8 

ÜBl 

1 

BJ  i 

^3 

1 

^3 

165 

*b9 

1 

«Bi  1 

1 

«5» 

186 

•ba 

M 

1 

EM 

■ 

1 

m 

187 

•bb 

EM 

1 

EM 

9 

1 

9 

188 

•bc 

BB 

1 

BB 

< 

< 

169 

•bd 

M 

1 

= 

■* 

190 

•ba 

bb 

1 

bb 

Z>- 

1 

> 

191 

•b< 

BB 

1 

iBi 

1 

— 

192 

*C0 

bb 

1 

I^B 

@ 

1 

IB 

193 

•cl 

ZM 

1 

BB  l 

A 

A 

194 

•c2 

■ B 

1 

Lsa  i 

B 

1 

1=3 

195 

•c3 

^B 

1 

■fl 

C 

1 

C= 

196 

•c4 

bb 

1 

LB3  1 

D 

1 

c dt 

197 

*c5 

1 

_^B  ■ 

EI 

\ 

196 

•c6 

■B 

1 

_^B 

fsr 

\ 

-#= 

199 

*c7 

| b 

1 

G 

1 

MP 

200 

•c8 

Bl 

1 

JKJ  ■ 

M 

1 

t-i 

201 

*c9 

bb 

1 

Ul  I 

X 

1 

X 

202 

•ca 

bb 

1 

mm  i 

a 

1 

203 

•cb 

BB 

1 

JB 

K 

1 

l< 

* 
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204 

*cc 

JBi 

1 

1 

205 

•cd 

mm 

jBJ  l 

M 

rr» 

206 

«ce 

bb 

9J  l 

M 

■ — • 

207 

•cf 

m 

AJ  I 

O 

o 

208 

•d0 

^8 

J8 

ff=>* 

*=* 

209 

1 

•dl 

zza 

eil  i 

Gl 

210 

•d2 

£1  1 

R 

t— 

211 

*d3 

m 

| 

«=s 

212 

•d4 

1 

| ■ 

■ M 

“I“ 

-fc_ 

213 

*d5 

bb 

JU  > 

1 l 

214 

•d6 

Ol  I 

V,/ 

215 

•d7 

m» 

AI  1 

Ul 

216 

•d8 

&a 

B i 

x 

x 

217 

•d9 

■i 

IQA  1 

Y 

'V'' 

210 

•da 

£3 

EB  > 

z 

219 

*db 

■ 8 

B8  1 

iz 

C 

220 

•de 

SB 

SB 

£: 

221 

•dd 

■ 8 

81  l 

ZI 

ZI 

222 

•de 

09 

-S-  i 

-r- 

-*r- 

223 

•df 

9B 

-« - 

224 

•e0 

1 

^B 

|^8 

— 

— 

225 

•el 

1 

B 

a i 

226 

•e2 

l 

B 

227 

•e3 

^B 

^B 

— 

CD 

228 

•e4 

BB 

bb 

— 

D 

229 

*e5 

1 

BB 

Bi 

— 

F=~ 

230 

*e6 

BS 

^ 1 



F=" 

231 

•e7 

1 

B8 

Bl 

C3 

232 

•eB 

1 

Bi 

as  t 

I 

1— 1 

233 

•e9 

1 

^0 

BS  1 

X 

234 

•ea 

1B 

Bi 

235 

•eb 

BS 

BB  1 

K 

236 

•ec 

I 

| 

237 

•ed 

1 

BJI 

— .. 

ri 

238 

•ee 

1 

BV 

B9 

M 

239 

•ef 

1 — 

CD 

240 

640 

B9 

B9 

— I 

241 

64  1 

B8 

Gl 

242 

•f  2 

an 

BB 



R 

243 

64Z 

mm 

88  t 

MM 

S 

244 

64  4 

h 

^8 

T 

245 

*f  5 

m 

B 

mr~ 

l_l 

246 

646 

B 

B 

x 

V 

247 

64  7 

■M 

d» 

UJ 

248 

1 

•f  8 

■na 

X 

249 

64  9 

1 

MM 

1 

Y 

250 

64  a 

1 

wm 

3B 

Z 

251 

•f  b 

1 

^B 

—B 

— |- 

— |_ 

252 

64  c 

B 

253 

•f  d 

1 

81 

81 

1 

1 

254 

•f  e 

1 

^B 

-*-*■ 

s-e 

255 

644 

1 

* " ■ 

===== 
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Anhang  D:  Die  abgedruckten  Programme 

Die  folgende  Aufstellung  enthält  eine  Übersicht  über  die  in  den 
einzelnen  Kapiteln  abgedruckten  BASIC-  und  Assembler-Pro- 
gramme. Dabei  habe  ich  mich  auf  jene  Programme  beschränkt, 
die  einen  unmittelbaren  praktischen  Nutzen  haben,  also  über 
reine  Beispiele  hinausgehen. 


Anhang  D.1:  BASIC-Programme 

Kapitel  5 

ADRESSVERW ALTUNG 

Verwaltet  Adressen  auf  indexsequentieller  Basis. 

Kapitel  6 

KREIS 

Zum  Zeichnen  von  Kreisen  in  hochauflösender  Grafik. 
ELLIPSE 

Zum  Zeichnen  von  Ellipsen  in  hochauflösender  Grafik. 
RECHTECK 

Zeichnet  Rechtecke  in  hochauflösender  Grafik. 
POLYGON 

Zeichnet  Polygonzüge  in  hochauflösender  Grafik. 
SPRITE-EDIT 

Editor  zum  Entwerfen  von  Sprites. 

CH  AR- ED  IT 

Editor  zum  Entwerfen  eigener  Zeichen, 
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Kapitel  7 

MUSIK 

Zum  Abspielen  von  Musikstücken. 

Kapitel  9 

SPUR1 

Zum  Erstellen  einer  Spureinstellungs-Diskette. 

SPUR2 

Zur  Spureinstellung. 

SCHREIB-LESE- TEST 

Testet  einzelne  Spuren  auf  defekte  Sektoren. 

GESCHWINDIGKEIT 

Überprüft  die  Umdrehungsgeschwindigkeit  einer  Diskette. 

Kapitel  10 

INHALTSVERZEICHNIS 

Gibt  das  Inhaltsverzeichnis  einer  Kassette  aus. 

KATALOG 

Legt  einen  Katalog  der  auf  einer  Kassette  gespeicherten  Dateien 
an. 

KOPFJUSTAGE 

Hilfsprogramm  zur  Justierung  des  Schreib- /Lese  köpf  es  der  Da- 
tasette. 

FT-INH ALTSVERZEICHN  IS 

Gibt  das  Inhaltsverzeichnis  von  FastTape-Kassetten  aus. 


1118 


Das  große  Commodore  64-Buch 


Anhang  D.2:  Assembler-Programme 

Hinweis:  Die  im  folgenden  erwähnten  Assembler-Programme 

liegen  alle  auch  als  sog.  BASIC-Lader  vor  (in  der 
Regel  jeweils  im  Anschluß  an  das  Assembler-Li- 
sting)  und  sind  daher  auch  für  Nur-BASIC-Pro- 
grammierer  nutzbar! 

Kapitel  4 

DSAVEM 

Speichert  einen  beliebigen  Speicherbereich  auf  Disk  ab. 

DLOADM 

Lädt  einen  beliebigen  Speicherbereich  von  Disk  in  den  Rechner. 
TRANSFER 

Verschiebt  beliebige  Speicherbereiche. 

MYFILL 

Füllt  beliebige  Speicherbereiche  mit  einem  Wert. 

FUNKT JONST ASTEN 

Routinen  zur  Belegung  der  Funktionstasten  mit  Texten. 

Kapitel  5 

DGETV 

Liest  Datenblöcke  bis  zu  einer  Länge  von  255  Byte  von  Diskette 
ein. 

Kapitel  6 

HIRESGRAFIK 

Routinensammlung  zur  hochauflösenden  Grafik. 
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SPRITES 

Routinensammlung  zur  Sprite-Programmierung. 

ZEICHENSATZ 

Routinensammlung  zur  Zeichensatzprogrammierung. 

Kapitel  7 

SOUND 

Umfangreiche  Routinensammlung  zur  Sound-Programmierung. 

Kapitel  10 

UNNEW 

Holt  ein  mit  NEW  gelöschtes  BASIC-Programm  zurück. 
SAVE-ADRESSE 

Speichert  ein  Maschinenprogramm  auf  Kassette. 

LADER 

Erzeugt  ein  Lader- Programm  zu  einem  BASIC-Programm. 
MERGE 

Hängt  ein  BASIC-Programm  hinter  ein  anderes. 

FASTTAPE 

Neues  Kassetten-Betriebssystem. 

DATENVERARBEITUNG 

Datenverwaltungsprogramm,  das  mit  FastTape  zusammenarbeitet. 
BACKUP  CC-DISK 

Erzeugt  ein  Backup  von  Kassette  auf  Disk. 

BACKUP  DISK-CC 

Erzeugt  ein  Backup  von  Disk  auf  Kassette. 
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Anhang  E:  Anbieterverzeichnis 

Die  folgende  Aufstellung  enthält  ein  Verzeichnis  der  Anbieter, 
der  in  Kapitel  2 angesprochenen  Hard-  und  Software -Produkte. 

Ein  herzlicher  Dank  geht  an  die  Firmen  Scanntronik  und  Heu- 
reka Teachware  für  die  freundliche  Bereitstellung  ihrer  Produkte 
sowie  an  das  Data  Becker-Lektorat  für  die  Bereitstellung  eines 
GEOS-2.0-Exemplars. 

Textomat  Plus/Datamat/Superbase 

Data  Becker  GmbH 
Merowingerstr.  30 
4000  Düsseldorf  1 

GEOS  2.0  und  GEOS-Produkte 

Markt  und  Technik  AG 
Hans-Pinsel-Str.  2 
8013  Haar 

Vizawrite 

DTM 

Bornhofenweg  5 
6200  Wiesbaden 

Printfox,  Pagefox,  Eddifox 

Scanntronik 
Parkstr.  38 
8011  Zorneding 

Lernsoftware 

Heureka  Teachware 

Ostermann  Verlag 
Paul-Hösch-Str.  4 
8000  München  60 
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Anhang  F:  Fachwortlexikon 

Das  Fachwortlexikon  ist  zum  schnellen  Nachschlagen  einzelner 
Fachbegriffe  rund  um  den  Commodore  64  gedacht.  Die  wichtig- 
sten Fachwörter  werden  kurz  erklärt  und  gegebenenfalls  auf  die 
vorangegangenen  Kapitel  verwiesen. 

Sollten  Sie  einen  bestimmten  Begriff  wider  Erwarten  einmal 
nicht  vorfinden,  so  hilft  sicher  ein  Blick  in  das  Stichwortver- 
zeichnis. Der  Begriff  wurde  dann  im  vorderen  Teil  des  Buches 
so  ausführlich  besprochen,  daß  ich  ihn  nicht  noch  einmal  extra 
hier  auf genommen  habe. 

Anklicken 

Unter  GEOS  haben  Sie  die  Möglichkeit  sog.  -*•  Icons  oder  -» 
Menüs  (genauer:  Pulldown-Menüs)  mit  der  Maus  auszuwählen. 
Dazu  müssen  Sie  den  Mauszeiger  auf  das  betreffende  Objekt 
setzen  und  dann  kurz  die  linke  Maustaste  drücken.  Diesen  Vor- 
gang bezeichnet  man  als  "Anklicken"  des  Objekts. 

Zusätzlich  gibt  es  noch  einen  sog.  Doppelklick  (damit  meint  man 
das  zweimalige  Drücken  der  linken  Maustaste  kurz  hintereinan- 
der), der  zum  Beispiel  zum  Starten  von  Programmen  benötigt 
wird. 

ASCII-Code 

ASCII  steht  für  "American  Standard  Code  for  Information  In- 
terchange", was  soviel  heißt  wie  "Amerikanischer  Standardcode 
für  Informationsaustausch".  Da  Computer  intern  nun  einmal  nur 
Zahlen  verarbeiten  können,  müssen  alle  Zeichen  (wie  zum  Bei- 
spiel die  Buchstaben  des  Alphabets)  eine  bestimmte  Codenum- 
mer erhalten.  (Der  Buchstabe  "A"  beispielsweise  hat  den  Code 
"65".)  Eine  vollständige  Tabelle  des  C64-ASCII-Code  finden  Sie 
in  Anhang. 
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Assembler 

Im  Grunde  genommen  versteht  der  Commodore  64  nur  eine 
Sprache,  die  sog.  Maschinensprache.  Diese  besteht  nur  aus  Fol- 
gen von  Nullen  und  Einsen.  Da  damit  natürlich  selbst  Profis 
nicht  vernünftig  arbeiten  können,  hat  man  den  sog.  Assembler 
eingeführt,  in  dem  sich  mit  symbolischen  Namen  arbeiten  läßt. 
Befehle  an  den  -*■  Prozessor  beispielsweise  werden  als  dreistellige 
Namen  geschrieben.  LDA  zum  Beispiel  bedeutet  "Lade  Akku- 
mulator". 

Mit  Hilfe  von  Assembler  läßt  sich  der  -►  Prozessor  des  Commo- 
dore 64  direkt  programmieren.  BASIC-Programme  müssen  je- 
weils zunächst  in  Maschinensprache  übersetzt  werden,  was  in  der 
Regel  sehr  viel  Zeit  beansprucht.  Bei  zeitkritischen  Programmen 
sollte  man  daher  immer  auf  Assembler  zurückgreifen. 

BAM 

BAM  steht  für  "Block  Availability  Map"  (deutsch:  Blockbele- 
gungstabelle). In  dieser  auf  jeder  Diskette  vorhandenen  Tabelle 
werden  die  schon  belegten  und  noch  freien  Datenblöcke  der 
Diskette  vermerkt. 

Betriebssystem 

Das  Betriebssystem  (auch  "Kernal"  genannt)  stellt  die  unterste 
Ebene  der  -*•  Software  eines  Rechners  dar.  Es  ist  für  alle  ele- 
mentaren Vorgänge  innerhalb  des  Rechners  (z.B.  Tastaturabfrage 
und  Bildschirmausgabe)  zuständig,  sorgt  also  für  einen  ord- 
nungsgemäßen "Betrieb"  des  Rechners. 

Binärsystem 

Auch  "Dualsystem"  genannt  (-»  Zahlensysteme). 

Bit 

Ein  Bit  ist  die  kleinste  Informationseinheit  in  einem  Rechner. 
Ein  Bit  kann  nur  die  Werte  0 und  1 annehmen. 
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Byte 

Ein  Byte  besteht  aus  acht  -*•  Bits.  In  einem  Byte  lassen  sich 
Werte  von  0 bis  255  darstellen  (siehe  auch  -*•  Zahlensysteme). 
Jede  Speicherzelle  im  C64  kann  genau  ein  Byte  auf  nehmen. 

Compiler 

Ein  Compiler  übersetzt  ein  Programm  vor  der  ersten  Ausführung 
komplett  in  die  für  den  Rechner  unmittelbar  "verständliche" 
Maschinensprache.  Im  Gegensatz  zu  einem  -*•  Interpreter,  der  ein 
Programm  bei  jedem  Programmlauf  erneut  interpretiert,  muß 
das  Programm  bei  einem  Compiler  also  nur  einmal  analysiert 
werden,  was  die  Ausführungsgeschwindigkeit  des  Programms  in 
der  Regel  beträchtlich  erhöht. 

Cursor 

Der  Cursor  markiert  ganz  allgemein  die  Bildschirmposition,  an 
der  Sie  sich  gerade  befinden  und  zum  Beispiel  Eingaben  tätigen 
können.  Normalerweise  wird  der  Cursor  durch  ein  blinkendes 
Rechteck  dargestellt  und  kann  mit  den  Cursor-Steuertasten  be- 
wegt werden.  Unter  GEOS  gibt  es  aber  auch  noch  einen  sog. 
Maus-Cursor  (auch  Mauszeiger  genannt),  der  durch  einen 
schräggestellten  Pfeil  dargestellt  und  mit  einer  Maus  bewegt 
wird. 

Datei 

Unter  einer  Datei  (engl.:  File)  versteht  man  ganz  allgemein  eine 
Ansammlung  logisch  zusammenhängender  Daten.  Im  engeren 
Sinne  meint  man  damit  meistens  auf  Diskette  oder  Kassette  un- 
ter einem  bestimmten  Namen  gespeicherte  Daten,  wie  zum  Bei- 
spiel Adressen  oder  Texte,  aber  auch  Programme. 

Directory 

Unter  einem  Directory  versteht  man  das  Inhaltsverzeichnis  einer 
Diskette.  Es  enthält  Informationen  über  alle  auf  der  Diskette 
gespeicherten  Dateien.  Dazu  zählen  insbesondere  die  Namen  der 
Dateien  und  ihre  Länge. 
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Direktmodus 

Im  Direktmodus  des  Commodore  64  werden  BASIC-Befehle  un- 
mittelbar nach  ihrer  Eingabe  (und  dem  Drücken  der  <Return>- 
Taste)  ausgeführt.  So  lange  der  Rechner  kein  Programm  abar- 
beitet, befindet  er  sich  grundsätzlich  im  Direktmodus,  was  unter 
anderem  am  blinkenden  Cursor  erkennbar  ist. 

Editor 

Ein  Editor  ist  nichts  anderes  als  eine  kleine  Textverarbeitung, 
die  auf  die  Eingabe  und  Änderung  von  Programmen  spezialisiert 
ist.  Der  BASIC-2.0-Editor  zum  Beispiel  erlaubt  nicht  nur  die 
Eingabe  von  Programmzeilen,  sondern  ordnet  diese  - entspre- 
chend ihrer  Zeilennummer  - auch  gleich  richtig  in  das  vorhan- 
dene Programm  ein. 

Expansion-Port 

Der  Expansion-Port  ist  eine  -+  Schnittstelle  auf  der  Rückseite 
des  Commodore  64,  die  zum  Anschluß  sog.  Steckmodule  dient. 

File 

-*■  Datei 

Formatieren 

Bevor  Sie  eine  Diskette  das  erste  Mal  benutzen,  muß  diese  für 
die  Datenaufnahme  speziell  vorbereitet  werden.  Diesen  Vorgang 
bezeichnet  man  als  Formatieren  der  Diskette.  Falls  auf  der  Dis- 
kette bereits  Daten  vorhanden  waren,  so  gehen  diese  durch  das 
Formatieren  unwiderbringlich  verloren.  Also  Vorsicht! 

Geräteadresse 

Da  der  Commodore  64  mit  Zahlen  nun  einmal  besser  umgehen 
kann  als  mit  Texten,  spricht  er  die  an  ihn  anschließbaren  Geräte 
(auch  -»  Peripherie  genannt)  durch  eine  Geräteadresse  an.  Die 
Floppy  zum  Beispiel  hat  die  Geräteadresse  8,  der  Drucker  die 
Adresse  4. 
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Hardware 

Als  Hardware  bezeichnet  man  - im  Gegensatz  zur  -*•  Software  - 
alle  "festen"  Bestandteile  eines  Computers.  Dazu  zählen  zum 
Beispiel  der  -*•  Prozessor,  die  einzelnen  Chips,  die  Tastatur  oder 
die  Floppy. 

Hexadezimalsystem 

-*■  Zahlensysteme 

Hochauflösende  Grafik 

Im  normalen  Textmodus  des  Commodore  64  lassen  sich  auf  dem 
Bildschirm  maximal  40x25  Zeichen  unterbringen,  was  eine 
"Auflösung"  von  1.000  Stellen  oder  Punkten  ergibt.  Bei  der 
hochauflösenden  Grafik  dagegen  können  320x200  (»64.000!) 
einzelne  Punkte  angesprochen  werden.  Daher  kommt  die  Be- 
zeichnung "hochauflösend". 

Icon 

Unter  einem  Icon  (zu  deutsch:  Piktogramm)  versteht  man  ein  in 
der  Regel  grafisches  Symbol,  das  stellvertretend  für  etwas  an- 
deres, beispielsweise  ein  Programm,  steht.  Icons  werden  auf  dem 
Commodore  64  vor  allem  von  GEOS  verwendet  und  dienen  der 
vereinfachten  Bedienung  eines  Programms. 

Interpreter 

Ein  Interpreter,  wie  zum  Beispiel  der  BASIC-2.0-Interpreter  des 
Commodore  64,  übersetzt  ein  Programm,  im  Gegensatz  zu  einem 
-*  Compiler,  während  der  Abarbeitung  jedesmal  neu.  Das  hat 
den  Vorteil,  daß  sich  das  Programm  nach  evtl,  erforderlichen 
Änderungen  leichter  austesten  läßt,  da  es  nicht  jedesmal  zuerst 
wieder  compiliert  werden  muß.  Der  vielleicht  größte  Nachteil 
eines  Interpreters  ist  die  relativ  geringe  Ausführungsgeschwin- 
digkeit eines  Programms,  bedingt  durch  das  ständige  Übersetzen 
während  der  Programmausführung. 
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Interrupt 

Unter  einem  Interrupt  versteht  man  die  Unterbrechung  der  lau- 
fenden Programmabarbeitung  durch  den  -►  Prozessor.  Dazu  wird 
an  den  Prozessor  ein  Signal  gesendet,  das  ihn  veranlaßt  in  eine 
spezielle  Interrupt-Routine  zu  verzweigen.  Diese  fragt  unter  an- 
derem die  Tastatur  ab  und  sorgt  für  das  Blinken  des  Cursors. 
Nach  Abarbeitung  der  Interrupt-Routine  fährt  der  Prozessor  mit 
dem  unterbrochenen  Programm  fort,  als  ob  keine  Unterbrechung 
stattgefunden  hätte.  Im  Commodore  64  wird  etwa  alle  1/60  Se- 
kunde ein  Interrupt  ausgelöst. 

Jokerzeichen 

Jokerzeichen  sind  ganz  allgemein  Zeichen,  die  als  Ersatz  für  be- 
liebige andere  Zeichen  stehen  können.  Die  Floppy  1541  erlaubt 
die  Verwendung  von  zwei  Jokerzeichen  (#  und  ?).  Damit  lassen 
sich  zum  Beispiel  mehrere  Dateien  gleichzeitig  löschen.  "S:TE???" 
etwa  würde  alle  Dateien,  die  mit  "TE”  beginnen  und  fünf  Zei- 
chen lang  sind,  löschen. 

Kernel 

-*•  Betriebssystem 

Menü 

Anwendungsprogramme  bieten  ihre  Funktionen  meist  in  Form 
sog.  Menüs  dar.  Ähnlich  wie  auf  einer  Speisekarte  können  Sie 
aus  dieser  Auswahlliste  ablesen,  welche  Funktionen  Ihnen  mo- 
mentan zur  Verfügung  stehen,  und  die  gewünschte  Funktion 
dann  zum  Beispiel  durch  Eingabe  eines  Kennbuchstabens  auf- 
rufen. 

Eine  spezielle  Form  von  Menüs  bietet  GEOS  an:  die  sog.  Pull- 
down-Menüs.  Durch  Anklicken  eines  Hauptmenü-Punktes  mit 
der  Maus  wird  ein  Untermenü  "heruntergerollt"  (daher  der  Name 
"Pulldown"),  aus  dem  - wiederum  durch  Anklicken  mit  der 
Maus  - die  gewünschte  Funktion  angewählt  wird. 
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Monttor 

Wenn  man  von  einem  Monitor  spricht,  meint  man  in  der  Regel 
das  Sichtgerät  zur  Darstellung  der  vom  Computer  gesendeten 
Ausgaben.  Beim  Commodore  64  kann  es  sich  dabei  auch  um 
einen  Fernseher  handeln.  Der  Begriff  "Monitor"  hat  im  Compu- 
terbereich aber  auch  noch  eine  andere  Bedeutung:  Ein  Monitor 
ist  ein  Programm,  mit  dem  man  in  den  Speicher  eines  Rechners 
"schauen”,  sich  also  die  Inhalte  der  einzelnen  Speicherzellen  zei- 
gen lassen  kann.  Gute  Monitorprogramme  bieten  zudem  die 
Möglichkeit,  Assembler-Programme  auszutesten.  Ein  Monitor  ist 
daher  die  ideale  Ergänzung  zu  einem  -*■  Assembler. 

Oktalsystem 

-*•  Zahlensysteme 

Parallel 

Parallel  bezeichnet  eine  bestimmte  Art  der  Datenübertragung, 
bei  der  mehrere  Bits  (meist  acht)  gleichzeitig  übertragen  werden. 
Im  Vergleich  zur  -*■  seriellen  Übertragung  ist  die  parallele  Da- 
tenübertragung um  einiges  schneller. 

Parameter 

Fast  jede  Anweisung  einer  -*•  Programmiersprache  benötigt  eine 
bestimmte  Anzahl  von  Daten,  um  korrekt  arbeiten  zu  können. 
Diese  Daten  bezeichnet  man  als  Parameter  der  Anweisung.  Der 
INPUT-Befehl  des  BASIC-2.0  beispielsweise  benötigt  den  Na- 
men der  Variablen,  an  die  die  Eingabe  übergeben  werden  soll. 

Peripherie 

Mit  Peripherie  bezeichnet  man  sämtliche  an  einen  Computer 
anschließbaren  Zusatzgeräte.  Dazu  zählen  insbesondere  der  Mo- 
nitor, die  Datasette,  die  Floppy  sowie  der  Drucker. 

Piktogramm 

-*•  Icon 
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Pixel 

Ein  Pixel  ist  der  kleinste  darstellbare  Punkt  auf  dem  Bildschirm. 
Die  Größe  eines  Pixels  hängt  von  der  eingestellten  Grafikauflö- 
sung ab.  Im  Textmodus  des  Commodore  64  können  nur  1.000 
Pixel  dargestellt  werden.  Die  einzelnen  Pixel  sind  daher  ent- 
sprechend groß.  Man  spricht  hier  auch  von  einer  sog.  Blockgra- 
fik. Bei  der  -*  hochauflösenden  Grafik  dagegen  lassen  sich 
64.000  Pixel  darstellen,  wobei  dann  ein  einzelnes  Pixel  sehr  klein 
ist. 

Programmiersprache 

Im  wesentlichen  gibt  es  drei  Arten  von  -*•  Software.  Da  ist 
zunächst  einmal  das  -*■  Betriebssystem  des  Computers,  das  alle 
elementaren  Abläufe  innerhalb  des  Rechners  steuert.  Mit  An- 
wendungsprogrammen lassen  sich  spezielle  Aufgaben  erledigen, 
mit  einer  Textverarbeitung  etwa  das  Schreiben  von  Briefen.  Die 
dritte  Sorte  Software  stellen  die  sog.  Programmiersprachen  dar. 
Mit  ihnen  kann  man  selbst  Anwendungsprogramme  schreiben. 
Auf  dem  Commodore  64  stehen  die  Programmiersprachen  BASIC 
und  Assembler  zur  Verfügung. 

Prozessor 

Der  Prozessor  6510  bildet  das  Herzstück  des  Commodore  64.  Er 
steuert  sämtliche  Abläufe  innerhalb  des  Computers  durch  die 
Abarbeitung  sog.  Maschinenprogramme.  Mit  Hilfe  eines  -»  As- 
semblers läßt  sich  der  Prozessor  vom  Anwender  direkt  program- 
mieren. BASIC-Programme  müssen  jeweils  zunächst  in  Maschi- 
nenprogramme übersetzt  werden,  was  viel  Zeit  kostet. 

Puffer 

Unter  einem  Puffer  versteht  man  in  der  Regel  einen  Zwischen- 
speicher für  Daten.  Oft  ist  es  aus  zeitlichen  Gründen  günstiger, 
Daten  so  lange  in  einem  Puffer  abzulegen,  bis  sich  eine  größere 
Datenmenge  angesammelt  hat,  um  sie  dann  anschließend  zusam- 
men weiterzuverarbeiten. 
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RAM 

RAM  steht  für  "Random  Access  Memory".  Gemeint  ist  damit 
derjenige  Speicher  im  Commodore  64,  der  frei  beschrieben  und 
gelesen  werden  kann.  Der  Commodore  64  verfügt  über  64  KBy- 
tes an  RAM-Speicher,  der  aber  nicht  vollständig  genutzt  werden 
kann. 

Register 

Sowohl  der  -*•  Prozessor  als  auch  die  verschiedenen  Spezialbau- 
steine des  Commodore  64  verfügen  über  sog.  Register,  die  ent- 
weder zur  Aufnahme  und  Verarbeitung  von  Daten  oder  zur 
Steuerung  bestimmter  Vorgänge  dienen.  So  lassen  sich  zum  Bei- 
spiel über  ein  bestimmtes  Register  des  Videochips  die  sog.  -*• 
Sprites  ein-  und  ausschalten. 

ROM 

ROM  steht  für  "Read  Only  Memory".  Gemeint  ist  damit  derje- 
nige Speicher  im  Commodore  64,  der  nur  gelesen  werden  kann. 
Im  ROM-Speicher  stehen  das  -*•  Betriebssystem  und  der  BASIC- 
2.0-Interpreter. 

Routine 

Unter  einer  Routine  versteht  man  in  der  Regel  einen  kleinen,  in 
sich  abgeschlossenen  Programmteil,  der  eine  häufig  benötigte 
Programmfunktion  ausführt  und  deshalb  von  mehreren  Stellen 
des  Hauptprogramms  (oder  von  einem  anderen  Programm  aus) 
auf  gerufen  wird. 

Schnittstelle 

Eine  Schnittstelle  bildet  das  Verbindungsstück  zwischen  dem 
Computer  und  einem  Peripheriegerät,  beispielsweise  der  Floppy 
oder  dem  Drucker.  Im  einfachsten  Fall  besteht  diese  Schnittstelle 
nur  aus  einem  Kabel.  Oft  ist  der  Aufwand  aber  um  einiges 
größer,  da  es  zwischen  Peripheriegerät  und  Computer  mitunter 
zu  erheblichen  "Verständigungsschwierigkeiten"  kommt,  die  dann 
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durch  die  Schnittstelle  ausgebügelt  werden  müssen.  Am  häufig- 
sten tritt  dieses  Problem  beim  Anschluß  eines  Druckers  auf. 

Sekundäradresse 

Die  Sekundäradresse  ist  im  Zusammenhang  mit  der  -*•  Gerä- 
teadresse von  Bedeutung.  Sie  dient  zur  Übermittlung  zusätzlicher 
Informationen  bei  der  Kommunikation  mit  Peripheriegeräten.  So 
lassen  sich  beispielsweise  die  meisten  Drucker  durch  Angabe  der 
entsprechenden  Sekundäradresse  auf  eine  bestimmte  Schriftart 
umschalten. 

Seriell 

Seriell  bezeichnet  eine  bestimmte  Art  der  Datenübertragung,  bei 
der  die  einzelnen  Bits  nacheinander  übertragen  werden.  Im  Ver- 
gleich zur  -»  parallelen  Übertragung  ist  die  serielle  Datenüber- 
tragung relativ  langsam,  dafür  aber  sicherer. 

Software 

Software  bezeichnet'  - im  Gegensatz  zur  -*  Hardware  - all  jene 
Bestandteile  eines  Computers,  die  der  Hardware  "sagen",  was  sie 
tun  soll.  Beispiele  für  Software  sind  das  -*■  Betriebssystem,  -*■ 
Programmiersprachen  sowie  Anwendungsprogramme,  wie  etwa 
Textverarbeitungen  oder  Grafikprogramme. 

Sprites 

Sprites  sind  eine  spezielle  Art  von  Grafikobjekten,  die  unabhän- 
gig von  der  sonstigen  Bildschirmdarstellung  frei  auf  dem  Bild- 
schirm bewegt  werden  können. 

Stack 

Der  Stack  (deutsch:  Stapel)  ist  ein  spezieller  Speicherbereich  im 
Commodore  64,  der  vor  allem  für  das  Ablegen  von  Rücksprung- 
Adressen  aller  Art  verwendet  wird.  Daten,  die  auf  den  Stack 
gelegt  werden,  werden  wie  auf  einem  "natürlichen"  Stapel  (ein 
Stapel  Papier  etwa)  behandelt,  d.h.,  das  Datum,  das  zuletzt  auf 
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den  Stapel  gelegt  wurde,  wird  dann  natürlich  auch  als  erstes 
wieder  vom  Stapel  heruntergeholt. 

Steuerzeichen 

Als  Steuerzeichen  bezeichnet  man  spezielle  Zeichen,  die  im  Ge- 
gensatz zu  normalen  Zeichen,  wie  etwa  Buchstaben,  bei  ihrer 
Ausgabe  einen  bestimmten  Vorgang  auslösen,  beispielsweise  den 
Bildschirm  löschen  oder  den  Drucker  auf  eine  andere  Schriftart 
umschalten.  Siehe  dazu  auch  die  ASCII-Tabelle  in  Anhang. 

String 

Bei  einem  String  handelt  es  sich  um  eine  Zeichenkette,  die  aus 
beliebigen  Zeichen  bestehen  darf.  Im  Gegensatz  zu  Zahlendaten 
haben  Strings  im  allgemeinen  eine  variable  Länge. 

Syntax 

Als  Syntax  einer  -►  Programmiersprache  bezeichnet  man  die  Re- 
geln, die  angeben,  wie  die  einzelnen  Elemente  der  Sprache  ange- 
ordnet werden  dürfen.  Eine  Syntaxregel  des  BASIC-2.0  besagt 
zum  Beispiel,  daß  zwischen  zwei  Befehlen  ein  Doppelpunkt  ste- 
hen muß. 

Taktzyklus 

Der  Taktzyklus  ist  die  zentrale  Zeiteinheit  für  den  -*•  Prozessor 
des  Commodore  64.  Innerhalb  eines  Taktzyklus  kann  der  Pro- 
zessor genau  eine  bestimmte  interne  Operation  durchführen.  Die 
Ausführungszeit  von  -+  Assembler-Befehlen  wird  normalerweise 
in  Taktzyklen  angegeben.  Ein  Taktzyklus  auf  dem  Commodore 
64  dauert  etwa  1/1.000.000  Sekunde. 

User-Port 

Der  User-Port  ist  eine  -*■  Schnittstelle  auf  der  Rückseite  des 
Commodore  64,  die  zum  Anschluß  spezieller  Hardware-Erwei- 
terungen dient. 
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Zahlensysteme 

Im  Computerbereich  gibt  es  drei  wichtige  Zahlensysteme:  Das 
Dezimalsystem,  das  Binärsystem  sowie  das  Hexadezimalsystem. 
Das  Dezimalsystem  mit  seiner  Basis  10  dürfte  Ihnen  geläufig 
sein.  Das  Binärsystem  hat  die  Basis  2 und  erlaubt  nur  die  Zif- 
fern 0 und  1.  Eine  dezimale  15  beispielsweise  wird  im  Binärsy- 
stem als  1111  geschrieben.  Das  Hexadezimalsystem  besitzt  die 
Basis  16.  Zur  Darstellung  der  Ziffern  "10"  bis  "15"  werden  die 
Buchstaben  "A"  bis  "F"  verwendet.  Eine  dezimale  30  wird  im 
Hexadezimalsystem  daher  als  IE  geschrieben. 

Zeichensatz 

Als  Zeichensatz  bezeichnet  man  die  Gesamtheit  aller  auf  dem 
Commodore  64  darstellbaren  Zeichen.  Der  Zeichensatz  läßt  sich 
vom  Anwender  bei  Bedarf  auch  abändern,  etwa  um  die  deut- 
schen Umlaute  einzubauen! 

Zeropage 

Der  gesamte  Speicher  des  Commodore  64  ist  in  sog.  "Pages" 
(deutsch:  Seiten)  eingeteilt.  Eine  Page  umfaßt  jeweils  genau  256 
Byte,  was  unter  anderem  mit  der  Architektur  des  -*  Prozessors 
zusammenhängt.  Eine  besondere  Stellung  nimmt  die  Page  Null, 
die  "Zeropage",  ein.  Da  der  Prozessor  auf  sie  besonders  leicht 
und  schnell  zugreifen  kann,  sind  in  ihr  zahlreiche  wichtige  Da- 
ten gespeichert,  beispielsweise  die  Zeiger  auf  den  BASIC-Spei- 
cher. 


Anhang 
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Anhang  G:  Quellennachweis: 

Kapitel  1.8  -1.8.1,  Kapitel  2.7.1,  2.7.2,  Kapitel  10.14  - 10.14.5, 
Anhang  C.ll,  C.12 

Polk 

Die  besten  Tips  & Tricks,  2.  Auflage  1989,  DATA  BECKER 

Kapitel  1.8  - 1.8.8 
Tornsdorf 

GEOS  für  Einsteiger,  1.  Auflage  1988,  DATA  BECKER 

Kapitel  3.7 
Liesert 

Peeks  & Pokes  zum  Commodore  64,  3.  Auflage  1986, 

DATA  BECKER 

Kapitel  3.7 

Tornsdorf  & Tornsdorf 

C64  BASIC  für  Einsteiger,  3.  Auflage  1989,  DATA  BECKER 

Kapitel  4.11,  Kapitel  9.4,  Anhang  C.6  bis  C.10 
Brückmann,  Englisch,  Feit,  Gelfand,  Gerits,  Krsnik 
64  Intern,  7.  Auflage  1988,  DATA  BECKER 

Kapitel  4.8  - 4.10 
Englisch 

Das  Maschinensprachebuch  zum  C64  & C128,  1.  Auflage  1985, 
DATA  BECKER 

Kapitel  5.8  - 5.8.6 
Gelfand,  Feit,  Strauch,  Krsnik 

Anti  Cracker  Buch,  2.  Auflage  1988,  DATA  BECKER 

Kapitel  9.  - 9.3.4 
Herrmann 

Floppy  1541  - Pflegen  und  Reparieren,  1.  Auflage  1985, 

DATA  BECKER 
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Kapitel  10.  - 10.13.4 
Paulissen 

Das  Casettenbuch  zu  Commodore  64  und  VC-20,  1.  Auflage 
1984,  DATA  BECKER 

Anhang  C. 

Tornsdorf,  Kerkloh 

Das  große  GEOS-Buch,  3.  Auflage  1988,  DATA  BECKER 

Es  kann  sein,  daß  der  eine  oder  andere  der  hier  auf geführten 
Titel  vom  DATA  BECKER  Verlag  nicht  mehr  lieferbar  ist.  Im 
Fachhandel  oder  in  gut  sortierten  Computershops  können  diese 
Titel  jedoch  noch  vorrätig  sein.  In  diesem  Fall  wenden  Sie  sich 
bitte  mit  o.g.  Angaben  an  Ihren  Fachbuch-  oder  Computer- 
händler. 
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Stichwortverzeichnis 


<Ctr/Home> -Taste  29 

<lnst/Del>-Taste 39 

<ShHt  Lock  > -Taste 32 

<Shift>-Taste 32 

<Stop>-Taste 878, 1027 

2-PaB-Assembler 254 

6510  412, 1085 

80-Zeichen-Darstellung 181 

A 

ABS  322 

Accessorles 79 

Actionspiel  234 

AD-Wandler 1104 

Addition 310 

ADRBYT  389 

Adressen  der  BASIC-2.0-Routinen  1019 

Adressierungsarten  374 

AdreSdecodierung 1092 

ADRFOR 388 

AOSR-Hüllkurve  659 

Adventures 232 

Akkumulator 373 

Akustikkoppler 218 

AU 226 

Amplitude 658 

AND 312 

Append  von  BASIC-Programmen  ..  778 

Arcustangens 876 

Argumente 369, 373 

Arithmetikbefehle 906 

Array-Berechnung 1026 

ASC 328 

ASCII-Code  300 

Assembler 65, 342, 367, 412 

Assembler-Werkzeuge 372 

ATN  326 

Attack-Phase 659 

Ausgabe  der  Variableninhalte 256 


Auto-Start 1027 

Änderung  der  Header-Parameter ...  548 

B 

BACKUP  DISK-CC 850 

Backup-Programm 64,  253 

BAM  453 

BandpaS 672 

Bandsperre 672 

Banküberweisungen 223 

BASIC  65,  367 

BASIC-2.0-Schlüsselworte  875 

BASIC-Erweiterungen  356 

BASIC-Fehlermeldungen 875 

BASIC-Lader 390,  679 

BASIC-Programme 58 

BASIC-ROM 397 

BASIC- Speicher 748 

BASIC-Speicherplatz 881 

BASIC-Zeiger 397, 767 

BASIC-Zeile  766 

BASIN  386 

Baud  699 

Bedingte  Verzweigung 883 

Befehlscode  373 

Befehlskanai  zur  Floppy  442 

Befehlsnamen 405 

Betrag  einer  Zahl 876 

Betriebssystem  368 

Bildausfall 736 

Bildschirmspeicher 343,  567, 756 

Bildschirmtext 221 

Bit 22 

Bitmap 574 

Block-Allocate-Befehl 506 

Block-Execute-Befehl 508 

Block-Free-Befehl 507 

Block-Read-Befehl  502 

Block-Write-Befehls 504 

Blockgrafik  565 
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Blockheader 522,  530,  532,  559 

Blockheader-Parameter  549 

Blocksatz 183 

Bogenmaß 326 

Booten 71 

Border 77 

Breitschrift 184 

Bruchterme 228 

BSOUT 386 

Btx 221 

BYTE-READY  526 

C 

CAD  197 

Centronics-Schnittstelle  253.  696 

Checksumme  523 

CHKIN  386,  387 

CHKKOM  388 

CHKOUT  386,  387 

CHR$ 328 

CHSWITCH  641 

CIA  defekt  738 

CLOSE  387 

Clr/Home 22 

CLRCH 387 

CMD 340 

Commodore  1027 

Compiler 1123 

Composite-Eingang  50 

Computerarbeitsplatz  48 

Computerdrucker 178 

Construction  Set 198 

CONT 336 

Control-Ports 19 

Control-Register  530 

COS 326 

Ctrl 43,  1027 

Cursor  24,600,632, 1123 

Cursor-Position 387,  389 

Cursor-Steuerung 604 

D 

DATA  314 

DATA-Zeiger 315 

Datasette 20,  51, 316,  747ff 

Datasetten-Speeder 253 


Datei  210,316,886,1123 

Dateien  löschen  456 

Dateien  umbenennen  471 

Dateiende 755 

Dateiverwaltungen  209 

Daten  aus  Floppy-Speicher  lesen  ..  510 

Daten  in  " schreiben 51 1 

Daten-Fernübertragung  218 

Daten-Header 528 

Datenbanken 209,  219 

Datenblock  lesen  501 

Datenblock  schreiben 504 

Datenbus 373 

Datenfernübertragung  697 

Datenheader 532 

Datenrichtungs-Register 534 

Datensatz 210 

Datenverwaltung  209 

Decay-Phase  659 

DEF 334 

Dekodiertabelle 1028 

Dekrementierbefehle  906 

DEL 40 

Denkspiel 234 

Descriptoren 389 

Desktop  Publishing 200 

Deutscher  Zeichensatz  648 

DFÜ 218 

DGETV 480 

Dialogbox 77 

Digitalplatine  1541  709ff 

Digitaluhr 79 

DIM  307 

Directory 274,  448,  1123 

Direktmodus 267,  750 

Direktzugriffsdatei 499 

Disassembler 432 

Disk  Operating  System 516 

Diskettenwechsel  458 

Disketten 51,  59 

Disketten  initialisieren 453 

Disketten  validieren 454 

Disketten-Aufzeichnungsverfahren  520 

Disketten-Initialisierung  851 

Diskettenkopierschutz  513 
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Diskettenlaufwerk 51,516 

Diskettenname 63,  444 

Diskettenwechsel 444 

Division  310 

DLQADMEM 397 

Doppelte  Spuren  542 

DOS 516 

Drive-Control-Bus 534 

Drucker 52, 338 

Druckeranpassungsfunktion 185 

Druckqualität  178 

DSAVEMEM  397 

E 

Editieren 28 

Editor 263, 1124 

Bn-Byte-Wert 388 

Einfügefunktion 41 

Einschaltbild 21 

Einschaitmeldung  24,  28 

Einzelschrittsimulator 422 

Blipsen  591 

END 272 

Erstellung  von  Grafiken 191 

Erweiterter-Hintergrund-Farbmodus  570 

Erzeugen  von  BASIC-Zeilen 347 

ESC/P-Standard 185,  340 

Eulersche  Zahl 326 

Exitif-Schleife 293 

EXP 326 

Expansion-Port 702 

Exponentialfunktion  880 

F 

Farb8peicher 567 

Farb-FtAM 1098 

Farben 43 

Farbmonitore 50 

Fehlermeldungen 47 

Fehlermeldungen  der  Floppy 446 

Fehlerquellen 357 

Fernseher 18 

Fertigprogramme 22 

Fettdruck 184 

File-Nummer 751 

Files 316 


Filter 672 

Flattersatz 183 

Floppy 20,  51,316,  514 

Floppy-Fehlermeldungen  1108 

Floppy-Programmierung 441, 514 

Roppypuffer 516 

Roppy-Routinen  aufrufen 512 

Roppyspeeder 252 

Roskeltasten  186 

Rugsimulation  233 

FOR-TO-NEXT-Schleife 289 

Formatieren  einer  Diskette  62, 444 

Formatieren  eines  Tracks 536 

Formatroutine 533, 536 

FRE 324 

Freihändig  zeichnen  197 

Frequenz  658,  1018 

FRMEVL 1025 

FRMNUM 388,  1025 

FTZ-Zulassung  219 

Funktion 29,  320 

Funktionstasten 329,  405 

Füllfunktion 197 

G 

GCR-Code 522,  532 

GCR-Format 521, 530,  553 

GEO-plus 230 

GEOPA1NT 156, 193 

GEOS 650 

GEOS-Kernal 924 

GEOS-Sprungtabelle 924 

Geräteadresse 273,  338, 749,  751 

Gerätenummer 750, 751 

Geschicklichkeitsspiel 237 

Gesellschaftsspiele  232 

GET 319 

GET# 319 

GETBYT 388 

GETIN  386 

GETPOS 389 

GOSUB-RETURN-Befehl 295 

GOTO 283 

Grafik 886 

Grafikauflösung 192 

Grafikprogramme  192 
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Grafikspeicher  203 

Grafiksymbole  31ff 

H 

Halbspur  530 

Haltepegel  666 

Hardcopy-Funktion 254 

Hardware  17, 1072 

Hauptprogramm 516, 532 

Headerblock 522 

Hilfsprogramme  79 

Hintergrund 44 

Hochauflösende  Grafik  370, 565 

Hochkomma 1028 

HochpaB  672 

HRCOL 578 

HRMAPPOS 576 

HRON 579 

HRPLOT 581 

HRTESTP 581 

Hüllkurve 666 

I 

IC 1077 

Icon  73 

IF-THEN- Befehl 284 

Index 306 

Index-Register 374 

Indexdatei 487 

Indexsequentielle  Datei 487 

Info-Bildschirm  76 

Informationsdienste 219 

Inkrementierbefehle  906 

Innenleben 1072 

INPUT#-Befehl  465 

INPUT-Befehl  278 

INT 321 

INTEGER 1028 

Integer-Variablen 304 

Integer-Wert 884 

Interface 791 

Interne  BASIC-Version 23 

Interpreter 368 

Interrupt 370, 1126 

Interrupt-Programm 517, 526 

INTOUT 389 


J 

Job-Codes 526 

Job-Schleife  517, 534 

Jokerzeichen 457 

Joystick 19,  693 

K 

Kassettenpuffer  597,  752,  756,  769,  772 

Kernal-ROM 397 

Kopierprogramme 560 

Kollisions-Register  619 

Kommentare  891 

Konstante  302 

Kontostand 222 

Kopieren 64 

Kopierprogramm  BACKUP 73 

Kopierschutz  513 

Kreise 193,  591 

Kursivschrift 184 

L 

Laserdrucker  201 

Laufwerk-IED 525 

Laufwerksmotor  530 

Lautstärkeverlauf 659 

Layout-Editor 205 

Layouten 200 

Learning  English 230 

Leerzeichen  38,  282 

Leerzeilen  280 

LEFT$  333 

LEN 331 

Lern-Software 223ff 

Lernspiele 231 

Lesen  525,  527 

Lineare  Gleichungssysteme 227 

LIST 270 

LIST-Schutz  348 

Listing 269 

LOAD  ERROR 765 

LOG  326 

Logarithmus 326 

Logische  Befehle  907 

Logische  Datei  387,  888 

Logische  File-Nummer  462, 752 

Low-Byte/High-Byte  388 
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Löschen  von  Programmen .... 

62 

Lückentext 

231 

M 

M-E-Befehl 

. 528,537 

M-W 

538 

Mail-Merge-Funktion  

180 

Mallbox  

220 

Maschinenprogramm 

. 761,886 

Maschinensprache 

367 

Matrix 

46 

Maus 72, 

435, 1121 

Maximal-Lautstärke 

658 

MENÜ 

47 

Menüzeile 

72 

Margen 

494 

MID$ 

333 

Mitternachtsformel  

325 

Modem 

218 

Modul-Steckplatz 

21 

Modulator  defekt 

737 

Modus  

35 

Monitor 20,49,254,  1127 

Monitor-Ständer 

48 

Monochrom-Monitore 

49 

Motore 

525 

Multicolor-Modus 

570 

Multiplikation  

310 

Musikinstrumente 

684 

Musiknote 

664,  1018 

MYFILL 

405 

N 

Netzstecker 

19 

Netzteil 

18 

NEW 

271 

Normalmodus 

35 

NOT 

312 

Noten  

687 

NTSC-Version  

1028 

Null-String 

301 

Numerischer  Ausdruck 

388 

0 

Oktaven 

687 

OR 

312 

Originalzeichensatz  642 

OUT  OF  MEMORY  ERROR 397 

Overflow-Flag 526 

Overlay-Technik  767 

Offnen  einer  Diskette 74 

P 

Paddies 1104 

PAL-Version 1028 

Parameter 1127 

PEEK 342 

Peripherie 1127 

Peripheriegeräte 149, 994 

Pflegen  735 

Pica-Schrift 184 

Piktogramm 73 

Pixel  .: 574,  1128 

PLOT 387 

POKE 342 

Polygone  591 

Polynom  1027 

POS  324 

Potenzieren  310 

PRINT# 317 

PRINT-Befehl 66,  276 

Programmzähler 372 

Programm-Listings  55 

Programmdateien 493 

Programme  editieren 507 

Programme  ausdrucken 275 

Programme  retten  (LOAD  ERROR)  763 

Programmfehler 336 

Programmieren 65 

Programmierhilfen  256 

Programmkassette 56 

Programmschleifen  288,  881 

Programmzeile 280 

Proportional-Maus 19,  54 

Proportionalschrift 183 

Prozessor 1085 

Prüfsumme 392,  552 

Puffer-Pointer-Befehl 503 

Pulldown-Menüs 255 

Q 

Quadratwurzel 894 
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R 

Radiergummi 195 

RAM-Erweiterung 90 

READ 315 

READ-ERROR 528,  549 

REAL  1028 

Rechteck  193, 591 

Rechtschreib-Prüfprogramm 190 

Record-Nummer 477 

Register 373, 1129 

Register  des  SID-Chips 1017 

Register  des  VIC-Chips 1013 

Register-Beschreibung  der  VIA  2 ...  534 

Relative  Datei 473 

Release-Phase 660 

REM 279 

RENEW 351 

RENUMBER 350 

Repeat-Until-Schleife 294 

Reservierte  Variable 468,  894 

RESET-Taster 743 

Resonanz 672 

RESTORE 315,353 

REVERSE 45 

Reverse  Zeichendarstellung  45 

Reverser  Druck 184 

RIGHT$ 333 

Ringmodulation 676 

RND 322 

Rollenspiele 232 

ROM-üsting 1029 

ROM-Routinen 1023 

Rotierbefehle  907 

Routine 1129 

RS-232-Schnittstelle  697 

Rundschreiben  188 

S 

Schattplan 1072 

Schiebebefehle 907 

Schnittstelle 1097, 1129 

Schreiben 526 

Schreibmaschinentastatur 23 

Schreibschutzkerbe 60 

SDCLEAR 661 

SDENVEL 666 


SDFILTER 672 

SDFREQ  663 

SDFTOFF 672 

SDFTON  672 

SDNOTE 664 

SDRINGOFF 676 

SDRINGON 676 

SDSYNOFF 675 

SDSYNON  675 

SDVOICEOFF 670 

SDVOICEON 670 

SDVOLUME 662 

SDWAVEOFF 668 

SDWAVEON  668 

Sektornummer 502 

Sektor 557 

Sekundäradresse  ...  338,  462,  750f,  761 

Selbstdefinierte  Zeichen 566 

Sequentielle  Dateien 460,  471 

Serienbrief-Funktion  180,  186 

Setzen  des  Bildschirm-Cursors 344 

SGN 322 

Shift  25, 1027 

Shift  Lock 32 

Sichtgerät 49 

SID  6581  657,  1017,  1101 

Simulationen  232 

SIN 326 

Sinus 894 

SOFT-ERROR 528 

Software  17 

Software  auf  Steckmodulen  55 

Sound  Interface  Device 657 

Spalten position  des  Cursors 889 

Spannungsversorgung  19 

SPBLOCK 61 1 

SPCOL 614 

SPDESIGN 608 

Speed 563 

Speed-Flags 526 

Speicher 24 

Speicherkapazität 24 

Speichern 525 

Speicherplatzverwaltung  756 

Speicherstellen 748 
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SPEXCOL 

614 

Spielgattungen 

232 

SPPRIOR 

615 

Sprite 198,565,596 

Sprite-Farbe  n 

613 

Sprite-Koordinatensystem  .. 

618 

Sprite-Matrix 

603 

Sprungbefehle  

905 

Spuren 

520 

Spumummer 

502 

SPXSIZE 

616 

SPYSIZE 

616 

SQR 

325 

ST 

468 

Stapelzeiger 

374 

Startadresse 

766 

Status-Register 

374 

Statusvariable 

762 

Steckmodule 

251 

Stereoanlage  

20 

Steuercodes 

328 

Steuerung  der  Datasette  

780 

Steuerzeichen 182, 265,  1 131 

STOP-Anweisung 

...  336,  878 

STR$ 

331 

String 

, 300,  1131 

String-Stack 

..  389,  994 

String-Variable 

305 

Stromausfall 

180 

Stromversorgung 

1078 

STRRES  

389 

Subscript 

184 

Subtraktion  

310 

Such-  und  Ersetzfunktionen  . 

183 

Superscript 

184 

Sustain-Phase 

659 

Symbolische  Namen 

371 

SYNC-Markierung 

..  521,527 

Synchronisation 

675 

Syntax 

1131 

SYS 

..  344, 391 

Systemabsturz 

17 

T 

TAB 

. ..  324 

Tabulator 

324 

1141 


Takterzeugung 1081 

Taktzyklus 1131 

TAN 326 

Tangens 896 

Tastatur 22, 882 

Terminal-Programm 219 

Textbaustein 189 

Textbausteinsystem 188 

Texteditor 204 

Textmodus 35, 36 

Textverarbeitungsprogramm ..  178, 180 

Thermischer  Defekt 740 

Tiefpaß 672 

Tippfehler 262 

Ton 658 

Tonkopf 528 

Tonleiter 687 

Tonsignal 20 

Track 520 

TRANSFER  405 

TV-An Schluß  19,  21 


U 

Uhr 

UNDO-Funktion 

Universalmodule 

Unterbrechungsbefehle 

Untermenü  

Unterprogramm  

Update 

User-Port 


V 

V-Flag  

526 

VAL 

331 

Variable 

266,  302 

Variablenfeld 

305,  879 

VC1541  

516 

Vergleichsbefehle  

905 

VIA 

534 

VIA  1 &2 

514,525 

VIC-ll-Chip  

. 566,  1013,  1093 

Video-Controller  6569 

1093 

Vokabel-Lernen 

230 

896 

195 

251 

906 

74 

882 

69 

20,696 
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w 

Wahrheitstabelle 312 

WAIT 345 

Warten 735 

Wellenform  658,668 

Werkzeugleiste 194 

While-Do-Schleife 293 

Word-Wrapping 182 

WYSIWYG 181 

X 

X-Register 374 

Y 

Y-Register 374 

Z 

Zählschleife 289 

Zeichen-Editor 632 

Zeichenfenster 194 

Zeichengenerator 566,  629 

Zeichenmatrix 632 

Zeichensatz 629, 1132 

Zeichensatz-ROM 629 

Zeilenerzeugung 348 

Zeropage  992 

Zifferntasten 43 

Zufallszahl 322,  892 

Zwei-Byte-Wert  388f 

Zweidimensionales  Feld  309 

Zwischenspeicher 770 


Die  Diskette  zum  Buch  ^ 

T(t  c- 

C/  0 

Laden,  starten  - klar!  w 


Für  alle  diejenigen,  die  sich  fleißiges 
Abtippen  ersparen  und  trotzdem»  alle 
Programme  nutzen  wollen,  gibt  es  einen 
Ausweg: 

Mit  dem  Zahlschein  der  Post  (siehe 
unten)  einfach  die  Diskette  zum  Buch 
bestdien! 

Die  Diskette  zum  Buch 
"Das  große  Commodore  64  Buch" 
Art.-Nr.  376370/1 
Preis  DM29,50 


An:  DATA  BECKER  4000  Düssddorf  1 


Maschinensprache 
verständlich 
für  jedermann. 


Endlich  einmal  kein  unverständliches  Lehrbuch, 
sondern  ein  Buch,  mit  dem  wirklich  jeder,  der  sich 
dafür  interessiert,  schnell  und  einfach  Maschinen- 
sprache lernen  kann. 
Ohne  das  übliche 
Fachchinesisch  wissen 
Sie  schon  bald,  was 
ein  professionelles 
Programm  ausmacht: 
BASIC-Routinen  her- 
anziehen, Befehle  und 
Strukturen  vergleichen 
und  schließlich  selbst 
in  Assembler  umset- 
zen  - durch  dieses 
Konzept  sind  Sie  sehr 
schnell  in  der  Lage, 
die  Vorteile  dieser 
Sprache  für  eigene 
Anwendungen  voll  zu 
nutzen.  Eine  echte 
Chance  für  alle  As- 
sembler-Interessierten, denen  diese  Sprache  bis- 
her zu  schwierig  erschien.  „Sprechen"  Sie  die 
Sprache  der  Profis  - mit  Maschinensprache  für 
Einsteiger.  Geeignet  für  den  C64,  den  CI  28  und 
auch  für  die  ganz  Kleinen  (CI  6/Cl  1 6/Plus4). 

Baloui 

Maschinensprache  für  Einsteiger 
345  Seiten,  DM  29,- 
ISBN  3-89011-182-3 


Der  perfekte 
Einsatz  Ihrer 
Floppy-Station. 


Mt  der  Floppy  läßt  sich  weitaus  mehr  machen  als 
nur  laden  und  starten.  Man  muß  sich  lediglich  ein 
wenig  auskennen.  Was  Sie  alles  aus  Ihrer  Floppy- 
station  herausholen 
können,  zeigt  Ihnen 
das  Commodore  Flop- 
pybuch.  Vom  Einstieg 
bis  zur  Programmie- 
rung der  Floppy  in 
BASIC.  Hier  finden  Sie 
alles  über  den  Aufbau 
von  Disketten,  zu  den 
einzelnen  Dateitypen, 
zu  den  Systembefeh- 
len und  natürlich  auch 
zu  den  verschiedenen 
Fehlermeldungen  der 
unterschiedlichen 
Floppystationen.  Was 
Sie  über  Ihre  Floppy 
wissen  sollten,  finden 
Sie  in  diesem  Buch  - 
ob  Einsteiger  oder  Profi  und  egal  mit  welcher 
Floppystation  Sie  arbeiten:  der  1541,  der  11/41 
oder  der  C/70/7 1/81. 

Schönleber 

Das  Commodore-Floppybuth 
240  Seiten,  DM29,- 
ISBN  3-89011-269-2 


Mit  Schwung 
und  Laune  Neues 
lernen. 


Szczepanowvki 


Anfängen  und  gleich  loslegen  - das  wünscht  sich 
jeder,  der  in  die  Computerei  einsteigt.  Mit  „64  für 
Einsteiger"  geht  das  ganz  problemlos.  Vom  An- 
schluß bis  zum  ersten 
Programm.  Systema- 
tisch und  leichlver- 
ständlich  lernen  Sie 
hier  Ihren  neuen  Rech- 
ner kennen.  Mit  zahl- 
reichen Anwendungs- 
beispielen, Erklärun- 
gen zur  hochauflösen- 
den Grafik  und  natür- 
lich mit  einer  detail- 
lierten Einführung  in 
GEOS  2.0  deutsch. 
Ein  umfangreiches 
Lexikon  macht  das 
Buch  auch  dann  noch 
wertvoll,  wenn  Sie 
längst  kein  Einsteiger 
mehr  sind.  Aufstellen, 
anschließen,  kennenlernen,  das  erste  Programm 
entwickeln  - Sie  werden  Spaß  daran  finden,  etwas 
Neues  zu  lernen.  64  für  Einsteiger  - und  Sie  sind 
bestens  für  eine  eigenständige  Arbeit  am  Rechner 
vorbereitet. 


DATABECKER 


Sxczepanowskf 
64  für  Einstelger 
251  Setter  DM  29,- 
ISBN  3-8901 1-010-X 


Die  besten  Tips 
und  Tricks  zum 
Commodore  64. 


Jetzt  noch  mehr  Tips  & Tricks  rund  um  Ihren  C64. 
Die  besten  - als  Einzeiler,  Kurzprogramme  oder 
Peeks  und  Pokes.  Ob  zur  Dalasette,  zum  Speicher 
oder  zur  Floppy.  Ob 
zu  BASIC  oder  zum 
Softwareschutz.  Zu 
Grafik  oder  Sound. 
Oder  auch  zum 
Schönsten  am  C64: 
den  Spielen.  Zu  allen 
Bereichen  zeigt  Ihnen 
dieses  Buch,  wie  Sie 
IhreArbeitoptimieren 
können.  Mit  den  rich- 
tigen Kniffen  zur  rech- 
ten Zeit.  Zusammen- 
gestellt von  einem 
langjährigen  Mer-Ex- 
perten. Ersparen  Sie 
sich  langes  Suchen  in 
einschlägigen  Zeit- 
schriften, aie  besten 
Tips  und  Tricks  für  Ihre  Arbeit  stehen  in  diesem 
Buch.  Holen  Sie  alles  aus  Ihrem  C64.  Mit  den  Tips 
& Tricks  eines  echten  Profis. 

Polk 

Die  besten  Tips  & Tricks 
288  Seiten,  DM  29,- 
ISBN  3-89011-281-1 


Einfach  den  Rechner  einschalten  und  los  geht' s. 
Schon  nach  einem  Abend  läuft  Ihr  erstes  BASIC- 
Programm  auf  Ihrem  C64.Mit  zahlreichen  kleinen, 
aber  feinen  Beispiel- 
Programmen  geht's 
dann  weiter.  Von  klei- 
neren Rechenpro- 
grammen über  die 
Soundprogrammie- 
rung  bis  hin  zur  hoch- 
auflösenden Grafik 
und  zu  spielerischen 
Anwendungen.  Dazu 
für  alle  Fälle:  Ein  Pan- 
nenservice, damit 
auch  wirklich  nichts 
mehr  schieflaufen 
kann.  Schnell  und 
leichtverständlich  zu 
ersten,  lauffähigen 
C64-BASIC-Program- 
men.  Mit  „C6A  BASIC 
für  Einsteiger"  - die  ideale  Einführung  für  alle 
BASIC-Anfänger.  Ein  Buch,  mit  dem  es  einfach 
Spaß  macht,  etwas  Neues  zu  lernen. 

H.  und  M.  Tornsdorf 
C64  BASIC  für  Einsteiger 
246  Seiten,  DM  29,- 
ISBN  3-89011-246-3 


C64  Intern  - für  dieses  Buch  ist  keine  lange  Vorre- 
de nötig.  Der  Bestseller  mit  über  1 00.000  verkauf- 
ten Exemplaren  gehört  einfach  neben  jeden  C64. 

Ein  kleiner  Blick  ins 
Inhaltsverzeichnis 
zeigt,  was  dieses  Buch 
so  erfolgreich  gemacht 
hat:  Soft-Scrolling, 
Sprungvektoren  und 
Autostart,  Illegal- 
Codes  und  deren  Takt- 
zyklen, zeilenweise 
kommentiertes  ROM- 
Listing,  Interrupt-Pro- 
grammierung, BA- 
SIC-Intern,  original 
Commodore-Scnalt- 
pläne,  die  Unterschie- 
de der  verschiedenen 
64er-Modelle  und  und 
und.  Verabschieden 
Sie  sich  von  Ihren 
Freunden:  Über  600  spannende  Seiten  warten  auf 
Sie.  Mit  allem,  was  engagierte  64er-Fans  wissen 
wollen. 

BrSckmnnn/Engllsch/Felt 
Gelfand/Gerits/Krsnik 
64  Intern 

648  Selten,  inklusive  Diskette,  DM  69,- 
ISBN  3-89011-000-2 


Das  Nachschlage- 
werk für  zukünf- 
tige GEOS-Profis. 


Das  große  GEOS-Buch  - unentbehrliche  Grundla- 
ge für  alle  zukünftigen  GEOS-Profis.  Hier  finden 
Sie  alles,  was  es  zu  GEOS  zu  sagen  gibt:  Wie  ist 
das  GEOS-File-For- 
mat  aufgebaut?  Wie 
erstelle  ich  eine  boot- 
fähige  Sicherheitsko- 
pie? Wie  schreibt  man 
Programme  mit 
GEOS-Eigensc  haften? 
Wie  bekomme  ich 
einen  Maschinenspra- 
che-Monifor  in 
GEOS?  Sonst  noch 


GEOS-Buch  wird  Ih- 
nen alle  Fragen  zu 
GEOS  Schritt  für 
Schritt  beantworten. 
Natürlich  mit  jeder 
Menge  Tips  & Tricks 
für  Ihre  tägliche  Arbeit.  Bei  alledem  werden  selbst- 
verständlich die  GEOS-Version  1 .2  und  1 .3  be- 
sonders intensiv  behandelt.  Das  große  GEOS- 
Buch  - geeignet  für  den  C 64  und  CI  28. 

Kerkloh  /Tornsdorf 
Das  große  GEOS-Buch 
424  Seiten,  DM49,- 
ISBN  3-89011-208-0 


Fragen?  Einfach  nach- 
schlagen. Das  große 


Die  flexible 
Dateiverwaltung 
für  Ihren  C64. 


Jeden  Datensatz  innerhalb  kürzester  Zeit  suchen, 
nach  beliebigen  Feldern  selektieren,  nach  allen 
Feldern  gleichzeitig 


sortieren,  Listen  in  völ- 
lig freiem  Format  druk- 
ken  - wie,  das  alles 
kann  Ihr  C64  nicht? 
Dann  probieren  Sie  es 
einmal  mit  DATAMAT 
64  - Deutschlands 
meistverkaufle  Datei- 
verwaltung. Überall, 
wo  Daten  und  Infor- 
mationen verwaltet 
werden,  hält  Sie  diese 
flexible  Dateiverwal- 
tung auf  dem  neue- 
sten Stand.  Dabei 
besticht  das  Pro- 
gramm nicht  nur  durch 
seine  enorme  Ge- 
schwindigkeit, son- 
dern vor  allem  auch  durch  die  einfache  Bediener- 
führung. Sogenannte  Pulldown-Menüs  und  eine 
ausgefeilte  Fenstertechnik  machen  es  Ihnen  so 
einlach  wie  möglich.  Sollten  sie  trotzdem  mal  Pro- 
bleme haben,  steht  Ihnen  ein  umfangreiches 
Handbuch  mit  einigen  kleinen  Übungsaufgaben 
zur  Seite. 


DATAMAT  64 

unverbindliche  Preisempfehlung  DM  99/ 


Einfach  & schnell: 
TEXTOMAT 
PLUS  64. 


Von  einfachen  Blockoperationen  bis  zum  Erstellen 
von  Serienbriefe -z.B.  mitDATAMAT,  bietet  Ihnen 
TEXTOMAT  PLUS  64 
alle  Vorteile  einer 


schnellen,  leistungsfä- 
higen Textverarbei- 
tung. Selbst  die  Kom- 
bination von  Text  und 
Grafik  beherrscht  die- 
ses Programm  perfekt. 
TEXTOMAT  PLUS  64 
- die  Textvera  rbei  tu  ng 
mitdem  Leistungsplus: 
Komfortables  Suchen 
und  Ersetzen,  komplet- 
te Bausteinverarbei- 
tung, beliebig  lange 
Texte  durch  Verknü- 
pfung, frei  program- 
mierbare Steuerzei- 
chen, Serienbriefer- 


stellung, Floskeltasten, 
Wordwrap,  frei  einstellbare  Tabulatoren,  Rechen- 
funktionen für  alle  Grundrechenarten,  Mischen 


von  Grafiken  und  Texten  u.v.a.m.  TEXTOMAT 
PLUS  64  - die  ideale  Textverarbeitung  für  Ihren 
64er.  Zu  einem  unverschämt  günstigen  Preis. 


L\ 


TEXTOMAT  PLUS  64 

unverbindliche  Preisempfehlung  DM  59,- 


Das  grollte 

Commodore  64  Buch 


Der  C 64  ist  ein  attraktiver  lind 
preiswerter  Computer,  der  vor 
allem  Hobbyanwendern  und 
Programmierern  entgegen- 
kommt. Wer  diesen  Computer 
nicht  nur  zum  Spielen  verwen- 
den will,  sondern  auch  die 
phantastischen  Grafik-  und 
Soundmöglichkeiten  voll  aus- 
nutzen möchte,  dem  zeigt  das 
vorliegende  Buch  eine  komplette 
Darstellung  aller  Fragen,  die  in 
diesem  Zusammenhang  auf- 
treten  können: 

Von  der  BASIC-Programmierung 
über  die  Floppyansteuerung  bis 
zur  Sound-  und  Musiktechnik 
werden  neben  vielen  prak- 
tischen Programmen  Tips  und 
Tricks  vermittelt.  In  den 
Anhängen  finden  Sie  schließlich 
alles,  was  man  beim  Umgang 
mit  dem  C 64  braucht:  Befehls- 
referenzen, Zeropage,  Fehler- 
meldungen, diverse  System- 
tabellen u.v.m. 


• Die  Textverarbeitungs-,  Grafik-, 
Desktop  Publishing-  und  DFÜ- 
Möglichkeiten  des  C 64 

• Mit  der  Benutzeroberfläche  GEOS 
2.0  arbeiten 

• Das  A und  O der  Dateiverwaltung 

• Den  6510-Mikroprozessor  in 
Assembler  programmieren 

• Sprites  perfekt  entwerfen  und  mit 
ihnen  umgehen 

• Den  Sound-Chip  des  C 64 
programmieren 

• Die  Wunderwelt  der  hoch- 
auflösenden Grafik  kennenlernen 

• Die  Schnittstellen  des  C 64 
optimal  einsetzen 

• Kleinere  Reparaturen  der  Floppy 
1541  selbst  durchführen 

• Die  Datasette  1 530  nutzen  und  mit 
ihr  umgehen. 

Wenn  Sie  ihren  C 64  optimal  ein- 
setzen, in  BASIC  und  Assembler 
programmieren  oder  es  lernen 
wollen,  dann  benötigen  Sie  dieses 
Buch. 


